| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: Auswahl erweitern auf mehrere Objekte (1104 mal gelesen)
|
tunnelbauer
Ehrenmitglied V.I.P. h.c.
Bauingenieur
   Beiträge: 7085
Registriert: 13.01.2004 ich hab eh keine Probleme damit...
|
erstellt am: 11. Mai. 2005 14:31  <-- editieren / zitieren -->   Unities abgeben:          
Hi alle zusammen, weis jemand wie man das hier erweitern kann, dass eine mehrfach Auswahl möglich wird ? Meine bescheidenen Kenntnisse der Lisp-Sprache sind zu bescheiden um da wirklich 'ne Lösung rauszubekommen (Lösung schon - aber funzen tut diese dann nicht...  ) Mit besten dank im voraus für sachdienliche Hinweise
(sollte es "nicht so einfach" wie ich es mir vorstelle klappen, dann bitte eine auf die Mütze  ) ------------------
Grüsse Thomas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium
Moderator
Maschinenbaukonstrukteur
    
Beiträge: 13508
Registriert: 30.11.2003 .
|
erstellt am: 11. Mai. 2005 14:39 <-- editieren / zitieren --> Unities abgeben: Nur für tunnelbauer 
Ungetestet: (defun c:rgn2pline(/ AUSWAHL ENT INDEX)
(defun rgn2pline ( ent / reg exp_objs obj_list ss)
(and
(eq "REGION" (cdr (assoc 0 (entget ent))))
(setq reg (vlax-ename->vla-object ent))
(setq exp_objs (vlax-invoke reg 'explode))
(not (vla-delete reg));remove this to keep original region
(setq obj_list (mapcar 'vlax-vla-object->ename exp_objs))
(setq ss (ssadd))
(foreach x obj_list
(if (not (or (eq (cdr (assoc 0 (entget x))) "ELLIPSE")
(eq (cdr (assoc 0 (entget x))) "CIRCLE")
)
)
(ssadd x ss)
)
)
(command "pedit" "m" ss "" "Y" "j" "" "")
)
(princ)
)
(setq AUSWAHL (ssget '((0 . "REGION"))))
(setq INDEX -1)
(repeat (sslength AUSWAHL)
(rgn2pline (ssname AUSWAHL (setq INDEX(1+ INDEX))))
)
) ------------------
 - 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 |
| | Ausbildung Kaufmann / Kauffrau für Büromanagement (w/m/d) | Hallo! Mensch und Maschine (MuM) ist einer der führenden Anbieter von CAD-, CAM-, BIM und PDM-Lösungen. Rund 1.000 Menschen arbeiten für MuM weltweit im Wachstumsmarkt CAD. MuM bietet dir zahlreiche Möglichkeiten, dein Können und deine Leistungsbereitschaft einzusetzen. Wir suchen nach neuen Kolleginnen und Kollegen, die Spaß an Software haben, nicht auf den Mund gefallen sind und unkonventionell denken.... | | Anzeige ansehen | Weitere: Marketing und Kommunikation |
|
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: 11. Mai. 2005 14:56 <-- editieren / zitieren --> Unities abgeben: Nur für tunnelbauer
Thomas war schneller, aber dann kannst Du Dir ja was aussuchen: (defun c:rgn2pline (/ ent reg exp_objs obj_list ss aws n)
(princ "\nBitte Regionen auswählen:")
(setq aws (ssget '((0 . "REGION"))))
(if aws
(progn
(setq n 0)
(repeat (sslength aws)
(and (setq ent (ssname aws n))
(eq "REGION" (cdr (assoc 0 (entget ent))))
(setq reg (vlax-ename->vla-object ent))
(setq exp_objs (vlax-invoke reg 'explode))
(setq obj_list (mapcar 'vlax-vla-object->ename exp_objs))
(setq ss (ssadd))
(foreach x obj_list
(ssadd x ss)
)
(command "pedit" "_m" ss "" "_Y" "_j" "" "")
;(command "pedit" "O" ss "" "j" "v" "" "")
)
(setq n (+ n 1))))
(alert " Die Auswahl war leer."))
(princ)
) ------------------
viele Grüße Jörn Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de (alle Foren)
| 
