| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: Alle Blöcke markieren (1088 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: 1734
Registriert: 11.10.2004 Window 10
ACAD 2021
CIVIL 2021
BricsCAD V14-V22
Intel(R) Core(TM)i5-8250U CPU @ 1.60GHz 1.80 GHz
16.0GB RAM
NVIDIA GeForce GTX 1050<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: 1734
Registriert: 11.10.2004 Window 10
ACAD 2021
CIVIL 2021
BricsCAD V14-V22
Intel(R) Core(TM)i5-8250U CPU @ 1.60GHz 1.80 GHz
16.0GB RAM
NVIDIA GeForce GTX 1050<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:
|
Foren auf CAD.de (alle Foren)
| 
