|
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
archtools am 04.09.2022 um 10:08 Uhr (1)
Zitat:Original erstellt von ositodepeluche:Mein eigentliches Problem ist ja aber, dass ich den Befehl _SKETCH nicht mit «ESC» (2*ESC auf der Stifttaste) aus der LISP rauskomme, wenn die Linie nicht abgeschlossen ist. Es wird dann einfach die letzte abgeschlossene Spline geschlossen und die Schlaufe geht weiter. Dies versuchte ich ja mit meinem ersten Versuch zu umgehen. Hat mir da jemand einen Ansatz?Besten Dank und LG ossoDamit geht es. Aufruf mit (mycommand "._SKETCH"):(defun mycommand (cmnd / oldecho) ...
|
| 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 : Spline schliessen
archtools am 04.09.2022 um 12:33 Uhr (1)
Zitat:Original erstellt von ositodepeluche:Vielen Dank für die Bemühungen. Ich habe folgendes versucht:[i](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 wir ...
|
| In das Form Lisp wechseln |
 |
Lisp : WKS / BKS einstellen
ReneReichel am 07.09.2022 um 11:34 Uhr (15)
Hallo zusammen,gibt es eine Möglichkeit, via LISP das WKS einzustellen und nach Abarbeitung eines Codes das vorherige BKS wieder zu aktivieren?Hintergrund ist, dass ich in einer Routine aus einer Polylinie mittels beidseitigem Versetzen ein Blech erzeuge, die Definition der Punkte für das Versetzen jedoch auf dem WKS basiert und somit bei einem gedrehten BKS u.U. nicht funktioniert...Danke euch schonmal im Voraus.Mfg René
|
| In das Form Lisp wechseln |
|
Lisp : WKS / BKS einstellen
ReneReichel am 08.09.2022 um 07:57 Uhr (1)
Hallo cadffm,manchmal sieht man den Wald vor lauter Bäumen nicht... Zitat:Original erstellt von cadffm:Hi,1. Ja2. Warum nicht einfach den vorhandenen Befehl BKS verwenden? BKS welt setzen, machwasduwillst, BKS vorher setzenDanke für die Anregung, funktioniert natürlich...Zitat:Original erstellt von cadffm:3. Du könntest ja auch die Koordinaten umrechnen..!? (mit dem "ich benötige WKS" hast du indirekt schon gesagt das du den nativen Befehl VERSETZ per command steuern möchtest, denn nur dann ist das nöti ...
|
| In das Form Lisp wechseln |
|
Lisp : Excel API Aufruf erzeugen
Meldin am 23.09.2022 um 09:41 Uhr (1)
Hallo,also der Code von Terry Miller ist ja in sich ein schlüssiges Prog. das dir eine Excel-Tabelle in Acad (Lisp) liefert, daher würde ich für ein spezielles vorhaben einen solchen code nicht verwenden, da dieser funktioniert wie er funktionieren soll, und sich auf das ganze bezieht.Die frage an sich ist wie dein such vorhaben ist? Also wie kommst du in Excel an deinen Wert, wenn du in die Tabelle schaust?Einen direkten Zugriff, könntest du auch so gestalten. Code:(setq ExcelUsedRange (vlax-variant-v ...
|
| In das Form Lisp wechseln |
|
Lisp : Ansicht in Ansichtsfenster modifizieren
Dorfy am 17.10.2022 um 16:18 Uhr (1)
Müsstest du den Vektor nicht auf das Ansichtsfenster umrechnen?Ich hätte hier irgendwas mit "trans" erwartet.PCS2WCS oder so ähnlich------------------Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."-Lots of irritating superfluous parentheses!-
|
| In das Form Lisp wechseln |
|
Lisp : Ansicht in Ansichtsfenster modifizieren
Dorfy am 19.10.2022 um 08:14 Uhr (1)
Hast du dir den Code von gile aus dem link mal angesehen..."...Without activating a viewport..."------------------Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."-Lots of irritating superfluous parentheses!-
|
| In das Form Lisp wechseln |
|
Lisp : getfiled Mehrfachauswahl
Peter2 am 19.10.2022 um 11:03 Uhr (1)
zum Original-Lisp weiss ich es jetzt nicht, aber "dos_getfilem" von Doslib https://wiki.mcneel.com/doslib/home----
|
| 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
cadffm am 15.11.2022 um 02:05 Uhr (15)
Hi,"Bei meinem Kumpel mit AutoCAD 2022 funktioniert die Lisp aber nicht mehr"Teste zunächst mal selbst mit derselben Datei und denselben Klickpunkten!?"Kann mich jemand auf die Spur bringen."An ACAD2022 liegt es sicher nicht, deine Zeilen berücksichtigen aber nicht den (evtl. eingeschalteten) fortlaufenden Objektfang,ein Mangel im Code. Wenn du via (command Punktangaben machst (egal wie), dann sende vorher ein "kein"oder aber sorge am Anfang dafür das osnapcoord auf 1 steht"Habe den ganzen Tag versucht und ...
|
| In das Form Lisp wechseln |
