|
AutoLisp : pc3-datei via prompt erstellen/bearbeiten
Brischke am 02.07.2003 um 23:17 Uhr (0)
Hallo Jan, wenn du eine Vorlage hast, dann mit kopieren. Aber mit Stiften einstellen, ... wüßte ich im Moment nichts. Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Irgendwann muß man schlafen, deshalb: +!+!+Urlaub vom 01.08.-30.08.2003+!+!+
|
| In das Form AutoLisp wechseln |
|
AutoLisp : umgekehrter cos
AB am 09.07.2003 um 11:39 Uhr (0)
Hallo zusammen, ich möchte in Lisp eine Rechnung ausführen lassen, in der der umgekehrte cos von z.B. 0.85 berechnet wird. Also cos^-1 0.85). Diese Möglichkeit gibt es aber scheinbar nicht. Ich könnte ja über -sin,... auch daran kommen, aber den kann ich so ja auch nicht berechnen. Was für eine Möglichkeit gibt es denn noch? Viele Grüße Andrea
|
| In das Form AutoLisp wechseln |
|
AutoLisp : umgekehrter cos
AB am 10.07.2003 um 08:41 Uhr (0)
Danke Jochen, aber jetzt habe ich das Problem, dass bei mir Cosinus und Sinus eh nicht richtig berechnet werden. z.B.: (cos 1.0) = 0.540302 (LISP) cos 1.0 = 0.999847 (Taschenrechner) Bin ich zu blöd, oder rechnet der PC wirklich falsch?
|
| In das Form AutoLisp wechseln |
|
AutoLisp : umgekehrter cos
Brischke am 10.07.2003 um 08:54 Uhr (0)
Hallo Andrea, das hängt damit zusammen, dass du in Lisp den Winkel in Bogenmaß an die Funktion geben musst. Dein Taschenrechner rechnet eben mit Grad. 360Grad=2Pi 180Grad=Pi ... Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Irgendwann muß man schlafen, deshalb: +!+!+Urlaub vom 01.08.-30.08.2003+!+!+
|
| In das Form AutoLisp wechseln |
|
AutoLisp : GC10 mit nentsel in
Brischke am 10.07.2003 um 15:07 Uhr (0)
Hallo T. Bürger, so schlimm ist das auch nicht. Folgende Zeilen veranschaulichen das Prinzip. Code: (defun c:TTT (/ pick obj masterobj zpt wie) (arxload geomcal (princ geladen )) (setq pick (nentsel)) (if pick (setq obj (cdr(assoc 10 (entget(car pick)))) masterobj (cdr(assoc 10 (entget(car(last pick)))))) ) (setq zpt(mapcar + obj masterobj) wi (* (/ 180.0 pi)(cdr (assoc 50 (entget(car(last pick))))))) (setq zpt(cal rot(zpt,masterobj,wi) )) (command _.LINE z ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Scheitelpunkt x / Kontollpunkt
AB am 10.06.2003 um 14:06 Uhr (0)
Liebe Forum-Mitglieder, ich habe eine Frage, zu einem Thema, welches schon häufiger diskutiert wurde, wo ich aber noch keine vollständige Antwort zu gefunden habe. Es geht mal wieder um die Kontroll- bzw. Stützpunkte einer LWPOLYLINE. Ich habe mehrere LISP zu dem Thema gefunden, aber es werden mir immer nur 2 Koordinaten ausgegeben. Mir fehlt jetzt z.B. der x-Wert (z. B. 244,45). Über das Eigenschaftsfenster kann ich mir aber die kompletten Koordinaten aller Vertex ansehen, das bedeutet doch, dass dieser ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Scheitelpunkt x / Kontollpunkt
AB am 10.06.2003 um 15:29 Uhr (0)
Hallo Ulf, vielen Dank für Deine Hilfe. Ich habe Dir mal die Zeichnung und mein LISP angehängt, dann ist mein Problem wahrscheinlich besser verständlich. Das LISP wird mittendrin plötzlich abgebrochen, da nicht die benötigten Daten herausgefiltert wurden. Ich hoffe, Du kannst damit etwas anfangen. Viele Grüße Andrea
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Scheitelpunkt x / Kontollpunkt
Brischke am 10.06.2003 um 19:51 Uhr (0)
Hallo Andrea, ich habe mir zwar die Zeichnung nicht angesehen, aber mal in Dein Lisp reingeschaut. Versuche es mal mit folgendem Code. Dieser ermittelt den/die Schnittpunkte von 2 Elementen. Falls du wissen willst, was diese Zeilen anrichten , dann schau mal auf Axel s VL-Seiten, da solltest du diesen Code auch finden. Code: (defun intersect(ent1 ent2 / ar) (vl-load-com) (setq ar (vlax-invoke-method (vlax-ename- vla-object ent1) IntersectWith (vlax-ename- vla-object ent2) ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Scheitelpunkt x / Kontollpunkt
Ulf Böger am 11.06.2003 um 07:56 Uhr (0)
Morgen, habe mal die Zeichnung geöffnet und die das Programm laüfen lassen. Es ist ein bissche zu lang um den Fehler einfach rausfinden zu können. Sicher ist nur, dass irgendwo ein ENTER zu viel sein könnte. Einen Kleinigkeit eben.Aber ich denke Holgers Programm wird da abhilfe schaffen! Zitat: Original erstellt von AB: Hallo Ulf, vielen Dank für Deine Hilfe. Ich habe Dir mal die Zeichnung und mein LISP angehängt, dann ist mein Problem wahrscheinlich besser verständlich. Das LISP wird mittendrin plötz ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Scheitelpunkt x / Kontollpunkt
Brischke am 12.06.2003 um 08:40 Uhr (0)
Hallo Andrea, ein Toleranzwert ist nicht möglich. Was heißt eigentlich, schneiden sich nicht direkt? Entweder die Linien schneiden sich - oder nicht! Du könntest natürlich die Linien in eine Ebene Projezieren und dann die Schnittpunkte ermitteln, aber ob dir das weiterhilft? Ich denke, du solltest die Linien genauer der Körperkontur anpassen, dann schneiden die sich auch. Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! 4 Neue Tool s im FreeDownload (gesamt 33 ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Scheitelpunkt x / Kontollpunkt
AB am 14.07.2003 um 15:12 Uhr (0)
So, ich habe nun das Problem gelöst. Es ist ganz einfach: Es ist entscheidend, ob man den Schnittpunkt zwischen der blauen Linie und der grünen Linie sucht oder umgekehrt. Ich habe in das LISP somit eingefügt, dass wenn kein Schnittpunkt gefunden wird, die Inhalte der Variablen ent1 und ent2 vertauscht werden sollen. Dann erhalte ich den fehlenden SP. (Vielleicht hilft dieser Beitrag irgendwann mal anderen, die das gleiche Problem haben). Viele Grüße Andrea
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Scheitelpunkt x / Kontollpunkt
AB am 15.07.2003 um 07:19 Uhr (0)
Hallo Theodor, gut ist übertrieben, ich habe nämlich schon wieder ein Problem entdeckt. Wenn eine der Linien aus vielen kleinen, einzelnen Linien zusammengesetzt wurde, dann läßt sich schon wieder kein Schnittpunkt finden. Es ist zum Verrückt werden. Wenn ich das Problem gelöst habe, dann werde ich das LISP hier rein stellen. Viele Grüße Andrea
|
| In das Form AutoLisp wechseln |
|
AutoLisp : mtext --> text
Brischke am 16.07.2003 um 10:03 Uhr (0)
Hallo Attilio, prinzipiell ist das sicher machbar, man muß nur aus dem Text die Font s auslesen. Problem ist (zwar jetzt nicht in der Bsp-Zeichnung), dass innerhalb eines MTEXT auch mehrere Font s genutzt werden. Gehst du da mit Ursprung drauf, werden entsprechend der Fonts einzelne Textobjekte erzeugt. Es ist dann nicht mehr ein Textobjekt, nicht einmal je Zeile, sondern in einer Zeile werden einzelne Textobjekte erzeugt, und ob das dann das Ziel ist? Überleg Dir das noch mal, ob das dann wirklich so sein ...
|
| In das Form AutoLisp wechseln |
