Hello everyone,
I have always used this function to explode an object and obtain a selection set with nested objects.
Unfortunately today I realized that does not work with entities HATCH.
Can anyone help me?
(defun VxExpode (Ent / CurObj CurSet ObjLst)
(vl-load-com)
(setq CurSet (ssadd))
(setq CurObj (vlax-ename->vla-object Ent))
(setq ObjExp (vla-Explode (vlax-ename->vla-object Ent)))
(setq ObjLst (vlax-safearray->list (vlax-variant-value ObjExp)))
(foreach memb ObjLst
(setq CurSet (ssadd (vlax-vla-object->ename memb) CurSet))
)
(entdel ent)
CurSet
)