| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Ein Blockname mehrmals verwendet. (426 mal gelesen)
|
RoyCAD Mitglied Dipl-Ing Energietechnik
Beiträge: 206 Registriert: 24.05.2004 Win XP AutoCAD2008-2010 Inventor 2008-2010 Productstream Compass P4 3,0GHz 512MB Ram
|
erstellt am: 03. Aug. 2005 09:46 <-- editieren / zitieren --> Unities abgeben:
Hallo Ich habe da eine Frage, wenn ich ein Block Teil2 lösche ohne danach zu bereinigen und dann noch einmal machen oder einfach mehrmals erzeugen, dann will er natürlich den Block Teil2 neu definieren. Gibt es eine Möglichkeit dieser Vorgang umzugehenden. (command "plinie" p1 p2 p3 p4 "s") (setq AW(ssadd (entlast))) (command "_-block" "Teil2" '(0 0 0) AW "" "_-insert" "Teil2" '(0 0 0) 1 1 0 0) es wäre natürlich mit eine cond oder z.B. if Schleife möglich aber das ist sehr Aufwendig und nicht das was ich mich vorgestellt habe. (setq blockda (ssget "X" '((0 . "INSERT")(2 . "Teil2")))) (if (/= blockda nil) (setq Blockname "Teil2") (setq Blockname "Teil3") ) (command "plinie" p1 p2 p3 p4 "s") (setq AW(ssadd (entlast))) (command "_-block" Blockname '(0 0 0) AW "" "_-insert" Blockname '(0 0 0) 1 1 0 0) Gruß RoyCAD
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: 03. Aug. 2005 10:01 <-- editieren / zitieren --> Unities abgeben: Nur für RoyCAD
Hallo Roy, ich bin mir nicht sicher, ob ich Dich richtig verstanden habe, aber mit folgender Methode könntest Du einen Index an den Blocknamen anhängen. (setq n 1);;Index (command "plinie" p1 p2 p3 p4 "s") (setq AW(ssadd (entlast))) (while (tblsearch "BLOCK"(strcat "Teil" (itoa n))) (setq n (+ n 1))) (command "_-block" (strcat "Teil" (itoa n)) '(0 0 0) AW "" "_-insert" (strcat "Teil" (itoa n)) '(0 0 0) 1 1 0 0) getestet habe ich das ganze nicht, sollte aber eigentlich funktionieren ------------------ viele Grüße Jörn Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
RoyCAD Mitglied Dipl-Ing Energietechnik
Beiträge: 206 Registriert: 24.05.2004 Win XP AutoCAD2008-2010 Inventor 2008-2010 Productstream Compass P4 3,0GHz 512MB Ram
|
erstellt am: 03. Aug. 2005 10:54 <-- editieren / zitieren --> Unities abgeben:
|
mapcar Mitglied CADmin
Beiträge: 1250 Registriert: 20.05.2002 Time flies like an arrow, fruit flies like a banana (Groucho Marx)
|
erstellt am: 03. Aug. 2005 12:18 <-- editieren / zitieren --> Unities abgeben: Nur für RoyCAD
|
RoyCAD Mitglied Dipl-Ing Energietechnik
Beiträge: 206 Registriert: 24.05.2004 Win XP AutoCAD2008-2010 Inventor 2008-2010 Productstream Compass P4 3,0GHz 512MB Ram
|
erstellt am: 03. Aug. 2005 12:30 <-- editieren / zitieren --> Unities abgeben:
|