|
AutoLisp : Kreis am Ende einer Linie erstellen
Bassi am 27.08.2005 um 19:46 Uhr (0)
Hallo,vorweg ich habe null Ahnung von Lisp.Ich möchte am Ende einer Linie einen Kreis erstellen lassen und am besten, noch mit vorlaufender Nummmer im Kreis. Ich habe zwar schon ein Tool dafür, aber leider werden dort keine Kreise erstellt.Kann mir dabei jemand helfen ?GrüßeSebastian
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Koordinatenbemassung mit Ergänzung
Bassi am 14.11.2005 um 08:11 Uhr (0)
Hi,ich möchte mir gerne einen Zusatz zur Koordinatenbemassung von AutoCAD lt 2000 schreiben (ähnlich der von AutoCAD mechanical). Da ich leider ein absoluter Anfänger bin, erweist das ganze ziemlich schwierig für mich. Eine kurze Erklärung zum Bild:Wenn das Lisp gestartet wird:Frage nach dem Startpunkt und dem Abstand der Bemassung, wenn der Startpunkt die Koordinate null hat (egal ob Achse X oder Y) soll ein Kreis Ø2 in einem Abstand 1,25 vom Endpunkt der Bemassung erstellt und eine Linie aktiviert werde ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Koordinatenbemassung mit Ergänzung
Bassi am 14.11.2005 um 08:33 Uhr (0)
Hallo charlieBV,ich habe AuotoCAD 2000 LT mit LT-Extender und auch die ExpressTools.Leider werden Visual-Lisp nicht unterstützt.GrußBassi
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Koordinatenbemassung mit Ergänzung
Bassi am 14.11.2005 um 09:40 Uhr (0)
Hallo Heinz,ob Visual-Lisp für diesen Zweck notwenig ist weiß ich nicht.GrußBassi
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Koordinatenbemassung mit Ergänzung
Bassi am 14.11.2005 um 12:51 Uhr (0)
Hi gmk,ehrlich gesagt, weiß ich nichtmal wo ich richtig anfangen soll. Meine Kenntnisse in Lisp sind sehr bescheiden.GrußBassi
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Koordinatenbemassung mit Ergänzung
Bassi am 15.11.2005 um 12:11 Uhr (0)
Hallo georg,vielen Dank für dein Lisp funktioniert jetzt, nur - nicht das du jetzt denkst ich möchte meckern, aber ich habe mich falsch ausgedrückt. Sorry !!!Das Vorzeichen ist nicht so wichtig.Wichtig wäre wenn die Koordinatenbemassung aufgerufen wird und der Abstand festgelegt und wenn Koordinate 0, das an dieser Stelle ein Kreis erstellt wird.Danach gehts über _dimcontiune weiter und es wird an jedem Maßpunkt ein Pfeil erstellt - ausgehend von Koordinate 0: wenn links von 0 (X-Achse), dann Pfeil rechts ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Koordinatenbemassung mit Ergänzung
Bassi am 16.11.2005 um 20:58 Uhr (0)
Hallo,ich wollte das ganze noch einwenig verbessern und erweitern, aber irgendwie klappt das nicht. Es kommt immer wieder Syntaxfehler.(DEFUN c:ordi (/ nprpfpcpDXXDXDYYDYP1P2P3)(COMMAND "bks" "o" pause)(COMMAND "_dimordinate" (SETQ np (GETPOINT "
Startpunkt")) (setq fp (GETPOINT "
Führungspunkt"))) (if fp (progn (setq DXX (- (car fp) (car np)) DX (- (car np) (car fp)) DYY (- (cadr fp) (cadr np)) DY (- (cadr np) (cadr fp)) ) (if (and ( DYY DXX) ( DX ...
|
| In das Form AutoLisp wechseln |
