How: select all entities of an

handasa · 发表于 2022-7-5 16:16:14

Greetings every one ...
i have an unnamed Groups through the drawing ... i want to apply some lisp every single group to all of its entities ...

i need some way to get a selection set of all the group entities by selecting only part of it BY "fence" method ... knowing that the groups are "unnamed"

...
thanks for reading

BIGAL · 发表于 2022-7-5 16:54:19

A start for you

copy

(setq mygroups(vla-get-groups (vla-get-activedocument (vlax-get-acad-object) )))(setq grpp (VLA-item mygroups 1)) ; 1 is second item starts at zeroCommand: (vlax-dump-object grpp); IAcadGroup: A named SelectionSet object; Property values:;   Application (RO) = #;   Count (RO) = 4;   Document (RO) = #;   Handle (RO) = "129E4";   HasExtensionDictionary (RO) = 0;   Layer (RO) = ...Indexed contents not shown...;   Linetype (RO) = ...Indexed contents not shown...;   LinetypeScale (RO) = ...Indexed contents not shown...;   Lineweight (RO) = ...Indexed contents not shown...;   Material (RO) = ...Indexed contents not shown...;   Name = "*A2";   ObjectID (RO) = 46;   ObjectName (RO) = "AcDbGroup";   OwnerID (RO) = 44;   PlotStyleName (RO) = ...Indexed contents not shown...;   TrueColor (RO) = ...Indexed contents not shown...;   Visible (RO) = ...Indexed contents not shown...

ronjonp · 发表于 2022-7-5 17:03:04

Maybe:

copy

(defun _groupedenames (ename / e) (if (and (= 'ename (type ename))   (setq e (cdr (member '(102 . "{ACAD_REACTORS") (entget ename))))   (setq e (cdr (assoc 330 e)))   (equal (cdr (assoc 0 (entget e))) "GROUP")   (setq e (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= 340 (car x))) (entget e))))     )   e ));; (mapcar '(lambda (x) (redraw x 3) x) (_groupedenames (car (entsel "Pick something"))))

handasa · 发表于 2022-7-5 17:31:08

thanks all for your help ... i ended with setting var "pickstyle" to 1 while selecting a part of the group to select the whole group then setting the "pickstyle" again to 0 .. and it did the trick ... thanks again and best regards

[编程交流] How: select all entities of an

发表回复

精选推荐