Idente Blöcke in ZNG hervorheben (Autodesk/Lisp)


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor	Thema: Idente Blöcke in ZNG hervorheben (725 mal gelesen)
gerhard123 Mitglied techn.Angestellter Beiträge: 151 Registriert: 29.11.2007	erstellt am: 23. Apr. 2013 09:14 <-- editieren / zitieren --> Unities abgeben: Hallo zusammen, kennt oder hat jemand ein Programm oder ein Codefragment mit dem ich mir alle identen Blöcke in einer ZNG hervorheben oder anzegen kann?? Vorab schon mal Danke für eure Hilfe Lg. Gerhard Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Cadzia Ehrenmitglied V.I.P. h.c. CAD/Grafik-Dienstleister Beiträge: 2912 Registriert: 02.07.2004 AutoCAD 2019 + MAP AccuRender nXt, Bricscad V18 SketchUp2015 pro,	erstellt am: 23. Apr. 2013 09:22 <-- editieren / zitieren --> Unities abgeben: Nur für gerhard123 Hallo Gerhard, da geht bereits mit Bordmitteln: selectsimilar mit Einstellung: Name ------------------ Grüße Karin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
CADchup Ehrenmitglied V.I.P. h.c. Beiträge: 3329 Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht. Joachim Ringelnatz	erstellt am: 23. Apr. 2013 09:22 <-- editieren / zitieren --> Unities abgeben: Nur für gerhard123 Hi, sowas? (sssetfirst nil (ssget "X" '((0 . "INSERT")(2 . "BLOCKNAME")))) Gruß CADchup ------------------ CADmaro.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
gerhard123 Mitglied techn.Angestellter Beiträge: 151 Registriert: 29.11.2007	erstellt am: 23. Apr. 2013 11:29 <-- editieren / zitieren --> Unities abgeben: Hallo, danke für deine Antwort, jetzt hätte ich noch eine Frage: Wenn ich deine Zeile einfüge werden die Blöcke markiert (sssetfirst nil (ssget "X" '((0 . "INSERT")(2 . "Blockname")))) Mit meinem Programm gibt es einen Abbruch, warum?? (defun c:sucheBloecke ( / ) (setq blockN (getstring "\nBitte Blocknamen eingeben: ")) (sssetfirst nil (ssget "X" '((0 . "INSERT")(2 . blockN )))) ) Kannst du den Fehler erkennen? Vorab schon mal Danke Gerhard Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
CADmium Moderator Maschinenbaukonstrukteur Beiträge: 13508 Registriert: 30.11.2003 .	erstellt am: 23. Apr. 2013 11:34 <-- editieren / zitieren --> Unities abgeben: Nur für gerhard123 Guckst du bei MAPCAR wegen Listen quoten oder nicht ..... (defun c:sucheBloecke ( / blockn ) (setq blockN (getstring "\nBitte Blocknamen eingeben: ")) (sssetfirst nil (ssget "X" (list'(0 . "INSERT")(cons 2 blockN )))) ) ------------------ Also ich finde Unities gut ... und andere sicher auch --------------------------------------- - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
gerhard123 Mitglied techn.Angestellter Beiträge: 151 Registriert: 29.11.2007	erstellt am: 23. Apr. 2013 12:30 <-- editieren / zitieren --> Unities abgeben: Danke für deien Hilfe. Lg. Gerhard Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)