 |
Lisp : Skizze-Befehl in Lisp
ositodepeluche am 22.06.2022 um 21:24 Uhr (15)
Hallo Ich möchte folgendes Makro als Lisp schreiben*^C^C^R_SKETCH _TYPE _SPLINE i 0.03 l 0.025 splineedit l a s;;;Beim Makro wird bei einem Abbruch während _SKETCH die letzte gezeichnete Spline geschlossen, was zu Fehlern führt.Ich scheitere aber schon am Befehl _SKETCH(command "_SKETCH")gibt "Skizziergenaugkeit 0.03:" als Aufforderung_SKETCH in der Befehlszeile eingegeben gibt folgende Aufforderung:"Skizze angeben oder [Typ Inkrement toLeranz]:"Auch der Stift reagiert ganz anders als bei der Eingabe über ...
|
| In das Form Lisp wechseln |
|
Lisp : Skizze-Befehl in Lisp
ositodepeluche am 23.06.2022 um 13:22 Uhr (1)
Danke für die Lösung. Wieder mal etwas wo ich noch nie davon gehört habe. Es war (initcommand 2) in meinem Fall.
|
| In das Form Lisp wechseln |
|
Lisp : Spline schliessen
ositodepeluche am 01.09.2022 um 22:41 Uhr (1)
Hallo zusammen,Ich möchte in einer LISP eine mit SKIZZE gezeichnete Spline schliessen. Mit Command Splineedit geht das zwar, aber wenn ich die Skizze nicht abschliesse und abbreche gibts ein Problem. Darum habe ich es folgendermassen versucht: (While (initcommandversion) (Setq letzte (command "_SKETCH" pause)) (setq obj_data (entget letzte)) (if (assoc 70 obj_data) (setq obj_data (subst (cons 70 1)(assoc 70 obj_data) obj_data)) ) (entmod obj_data) (setq letzte nil) )Dabei kommt folgende ...
|
| In das Form Lisp wechseln |
|
Lisp : Spline schliessen
ositodepeluche am 03.09.2022 um 21:57 Uhr (1)
Vielen Dank für die AntwortenIch haben dementsprechend folgendes versucht:(While (initcommandversion) (command "_SKETCH" pause) (setq obj_data (entget (entlast))) (if (assoc 70 obj_data) (setq obj_data (subst (cons 70 1)(assoc 70 obj_data) obj_data)) (setq obj_data (reverse (cons (cons 70 1) (reverse obj_data)))) ) (entmode obj_data) In obj_data habe ich nun die Daten geändert aber die Spline bleibt offen. Ich hab dann mal mit entupd gepröbelt. Ohne Erfolg. Beim Anschauen der Gruppencodes einer gesc ...
|
| In das Form Lisp wechseln |
|
Lisp : Spline schliessen
ositodepeluche am 04.09.2022 um 12:26 Uhr (1)
Vielen Dank für die Bemühungen. Ich habe folgendes versucht:(defun mycommand (cmnd / oldecho) (setq oldecho (getvar "cmdecho")) (setvar "cmdecho" 1) (initcommandversion) (command cmnd) (while (eq 1 (logand 1 (getvar "cmdactive"))) (command pause) ) (setvar "cmdecho" oldecho)) (defun c:FREIHAND () (setvar "skpoly" 2) (While (mycommand "._sketch") (command "splineedit" "l" "_close" "" "" "") ))Leider funktioniert das bei mir nicht. Es wird immer noch die lezte erstellte Spline geschlossen und die S ...
|
| In das Form Lisp wechseln |
|
Lisp : BKS Lisp funktioniert in ACAD 2022 nicht mehr
ositodepeluche am 14.11.2022 um 21:32 Uhr (15)
Hallo zusammenIch brauche seit einiger Zeit eine Lisp um ein BKS von vertikalen Profilen zu erstellen Bis und mit AutoCAD 2021 funktioniert die Lisp einwandfrei. Code:(command "bks" "welt")(command "_plan" "a")(setq p1xyz (getpoint "
Ursprung definieren:") p2xyz (getpoint "
Endpunkt Profil angeben:"))(setq p1 (list (atof(rtos(car p1xyz)2 2)) (atof(rtos(cadr p1xyz)2 2)) 0.0))(setq p2 (list (atof(rtos(car p2xyz)2 2)) (atof(rtos(cadr p2xyz)2 2)) 0.0))(setq radius1 (angle p1 p2) radius1 (+ radius1 (/ pi 2) ...
|
| In das Form Lisp wechseln |
|
Lisp : BKS Lisp funktioniert in ACAD 2022 nicht mehr
ositodepeluche am 20.11.2022 um 22:39 Uhr (15)
Sorry für die späte Rückmeldung. Es war natürlich osnapcoord der nicht auf 1 geschaltet war. Bei uns wird der schon in der acad.lsp auf 1 gestellt, weil wir mit dem Tachymeter direkt einmessen. Darum ist mir das bisher nicht aufgefallen. Danke für eure Hilfe
|
| In das Form Lisp wechseln |
