| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY wird von NVIDIA zum Händler des Jahres gewählt – zum dritten Mal in Folge, eine Pressemitteilung
|
Autor
|
Thema: Lisp command _explode ergänzen (1614 mal gelesen)
|
BBecker Mitglied
Beiträge: 133 Registriert: 05.06.2002
|
erstellt am: 12. Sep. 2006 17:39 <-- editieren / zitieren --> Unities abgeben:
Hallo, die folgende Lisp-Routine wurde von Cadmium 2004 ins Forum gestellt: (setq auswahl (ssget "X" (list (cons 0 "INSERT")(cons 2 "tuer")))) (repeat(sslength AUSWAHL) (command "_explode" (setq OBJ(ssname AUSWAHL 0)) "") (ssdel OBJ AUSWAHL) ) Leider wird nach dem Ausführen der Befehl wiederholt. Kann man das irgendwie abstellen oder muß eine Systemvariable gesetzt werden, damit die Wiederholung nicht ausgeführt wird? Die Routine wäre dann perfekt für mich. Lieben Gruß Beate
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Paulchen Mitglied Bauing./SW-Entwickler
Beiträge: 1227 Registriert: 19.08.2004 Büro: Win10 Enterprise 64bit, Office Professional Plus 2013 - Privat: Linux Mint 18.1, LibreOffice 5+
|
erstellt am: 12. Sep. 2006 17:48 <-- editieren / zitieren --> Unities abgeben: Nur für BBecker
Hallo Beate, WELCHER Befehl wird wiederholt? Falls das _explode sich wiederholt - kurz und ungetestet: Mach mal aus Code: (command "_explode" (setq OBJ(ssname AUSWAHL 0)) "") (command "_explode" (setq OBJ(ssname AUSWAHL 0)))
ohne die "". Hoffe, das hilft?! FrederikEine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
BBecker Mitglied
Beiträge: 133 Registriert: 05.06.2002
|
erstellt am: 13. Sep. 2006 09:56 <-- editieren / zitieren --> Unities abgeben:
Hallo Frederik, zu Deiner Frage welcher Befehl wird wiederholt: das Dialogfenster _appload wird geöffnet. Leider weiß ich nicht wie ich die beiden Zeilen anwenden soll, sorry. Danke und Gruß Beate Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Paulchen Mitglied Bauing./SW-Entwickler
Beiträge: 1227 Registriert: 19.08.2004 Büro: Win10 Enterprise 64bit, Office Professional Plus 2013 - Privat: Linux Mint 18.1, LibreOffice 5+
|
erstellt am: 13. Sep. 2006 10:18 <-- editieren / zitieren --> Unities abgeben: Nur für BBecker
Hallo Beate, die Sache mit _appload kann ich leider nicht nachvollziehen. Wenn ich bei mir diesen Code: (defun testauswahl (/ auswahl obj);lokale Variablen! (setq auswahl (ssget "X" (list (cons 0 "INSERT")(cons 2 "tesblock")))) (repeat(sslength AUSWAHL) (command "_explode" (setq OBJ(ssname AUSWAHL 0))) (ssdel OBJ AUSWAHL) ) )
eingebe, so löst er alle Blöcke mit dem Namen "testblock" auf.Die "" in der 5. Zeile habe ich entfernt, da ACAD sonst den letzten Befehl erneut aufruft (entspricht [Enter] oder [Leertaste]). Auf ACAD2004 läuft´s einwandfrei... Kopier Dir doch mal den obigen Code und teste in ACAD - Aufruf mit "(testauswahl)", ohne die "" natürlich. Was passiert? Frederik Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
BBecker Mitglied
Beiträge: 133 Registriert: 05.06.2002
|
erstellt am: 13. Sep. 2006 14:17 <-- editieren / zitieren --> Unities abgeben:
|
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
Beiträge: 2494 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 13. Sep. 2006 14:29 <-- editieren / zitieren --> Unities abgeben: Nur für BBecker
Hi, kurz und schmerzlos: Code:
(if (setq AUSWAHL (ssget "X" (list (cons 0 "INSERT") (cons 2 "tuer")))) (progn (setq ALT-QAFLAGS (getvar "qaflags")) (setvar "qaflags" 1) (command "_explode" AUSWAHL "") (setvar "qaflags" ALT-QAFLAGS) ) )
Oder schick und sicher mit Rückmeldung und variabel: Aufruf in Deinem Fall dann mit: Code:
(INSERTSEXPLODE "tuer")
Variabel, weil man die Funktion auch mit allem füttern könnte was wcmatch so verarbeiten kann: Code:
(INSERTSEXPLODE "tuer,fenster,schriftfeld")(INSERTSEXPLODE "*")
Und hier die Funktion: Code:
(defun INSERTSEXPLODE (STR-BLOCKNAMES / ALT-QAFLAGS AUSWAHL AUSWLEN) (if (setq AUSWAHL (ssget "X" (list '(0 . "INSERT") (cons 2 STR-BLOCKNAMES) (cons 410 (getvar "ctab")) ) ) ) (progn (setq ALT-QAFLAGS (getvar "qaflags")) (setvar "qaflags" 1) (if (not (vl-catch-all-error-p (vl-catch-all-apply 'vl-cmdf (list "_.explode" AUSWAHL "") ) ) ) (if (> (setq AUSWLEN (sslength AUSWAHL)) 0) (princ (strcat "\n>" (itoa AUSWLEN) "< Blöcke für das Muster >\"" STR-BLOCKNAMES "\"< mit \"Ursprung/_Explode\" zerlegt!" ) ) (princ (strcat "\n0 Blöcke für das Muster >\"" STR-BLOCKNAMES "\"< gefunden, NICHTS zerlegt!" ) ) ) ) (setvar "qaflags" ALT-QAFLAGS) ) (princ (strcat "\nKEINE Blöcke für das Muster >\"" STR-BLOCKNAMES "\"< gefunden, NICHTS zerlegt!" ) ) ) AUSWLEN )
... Ciao, Marc
[Diese Nachricht wurde von marc.scherer am 14. Sep. 2006 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 13. Sep. 2006 14:37 <-- editieren / zitieren --> Unities abgeben: Nur für BBecker
|
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 14. Sep. 2006 07:32 <-- editieren / zitieren --> Unities abgeben: Nur für BBecker
|
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
Beiträge: 2494 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 14. Sep. 2006 11:30 <-- editieren / zitieren --> Unities abgeben: Nur für BBecker
Hi CADwiesel, vielen Dank für den Tip. Dann habe ich wohl etwas falsch verstanden. Ich hab' den Code jetzt geändert. Kannst Du mal verifizieren, dass der Code auch unter R2000/i läuft? ------------------ Ciao, Marc Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
BBecker Mitglied
Beiträge: 133 Registriert: 05.06.2002
|
erstellt am: 14. Sep. 2006 12:26 <-- editieren / zitieren --> Unities abgeben:
@Marc, vielen Dank für die beiden Versionen. Die kurze klappt perfekt. Die längere und sichere leider nicht. Die lange Routine wäre gut, wenn sich unser Kunde wieder etwas neues ausdenkt. Gruß Beate Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
Beiträge: 2494 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 14. Sep. 2006 12:29 <-- editieren / zitieren --> Unities abgeben: Nur für BBecker
|