| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung
|
Autor
|
Thema: Alle Blöcke markieren (1184 mal gelesen)
|
Attilio Mitglied Technischer Zeichner
Beiträge: 150 Registriert: 18.02.2003
|
erstellt am: 26. Nov. 2005 09:47 <-- editieren / zitieren --> Unities abgeben:
Hallo Leute, ich bräuchte mal 2 Zeilen LISP-Code. Und zwar möchte ich einen Block picken und danach sollen alle Blöcke mit dem gleichen Namen als Auswahlsatz zur Verfügung gestellt werden. Diesen muss ich dann weiterverarbeiten. Wäre nett wenn mir da jemand helfen könnte. Vielen Dank ! Gruss Attilio Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 26. Nov. 2005 10:10 <-- editieren / zitieren --> Unities abgeben: Nur für Attilio
Hallo Attilo, Code:
(if (and (setq block (entsel "\nBitte Block auswählen:")) (= (cdr (assoc 0 (entget (car block)))) "INSERT")) (setq aws (ssget "_X" (list (cons 0 "INSERT") (assoc 2 (entget (car block)))))))
------------------ viele Grüße Jörn Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Attilio Mitglied Technischer Zeichner
Beiträge: 150 Registriert: 18.02.2003
|
erstellt am: 26. Nov. 2005 10:42 <-- editieren / zitieren --> Unities abgeben:
Danke Jörn, das funktioniert schon super (manchmal). Wenn ich die Zeilen direkt in die Eingabeaufforderung kopiere geht es, wenn ich es aber auf einen Button legen will, nicht mehr. Dann startet nichts. Kannst Du mir sagen warum, oder daraus eine LSP-Datei machen ? Und ist es möglich, den Auswahlsatz schon zu markieren ? Dann müsste ich nur noch den Layer wählen und die Welt wäre in Ordnung. Gruss Attilio
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 26. Nov. 2005 11:06 <-- editieren / zitieren --> Unities abgeben: Nur für Attilio
Hallo Attilo, als eigenständige Funktion: Speicher Dir den Code als *.lsp Datei ab. Lade sie mit appload, aufzurufen mit "block_aws" (als Button-Makro "^C^Cblock_aws") Wenn Du dann z.B. die in dem Auswahlsatz enthaltenen Blöcke schieben willst, dann gibst Du bei der Objektauswahl "!aws" ein. Code:
(defun c:block_aws ( / block) (if (and (setq block (entsel "\nBitte Block auswählen:")) (= (cdr (assoc 0 (entget (car block)))) "INSERT")) (progn (setq aws (ssget "_X" (list (cons 0 "INSERT") (assoc 2 (entget (car block)))))) (princ "\Auswahl mit !aws abrufen."))) (princ))
------------------ viele Grüße Jörn Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Attilio Mitglied Technischer Zeichner
Beiträge: 150 Registriert: 18.02.2003
|
erstellt am: 26. Nov. 2005 11:35 <-- editieren / zitieren --> Unities abgeben:
|