(vl-load-com)
(defun c:SsPartsInPlan (/ *error* parts ss)
(defun *error* (msg)
(if ss (vla-delete ss))
(cond ((not msg)) ; Normal exit
((member msg '("Function cancelled" "quit / exit abort"))) ; <esc> or (quit)
((princ (strcat "\n** Error: " msg " ** "))) ; Fatal error, display it
)
(princ)
)
(if (ssget "_:L" '((0 . "AECC_GRAPH_PROFILE_NETWORK_PART")))
(progn
(setq parts (ssadd))
(vlax-for x (setq ss (vla-get-activeselectionset
(vla-get-activedocument
(vlax-get-acad-object)
)
)
)
(setq parts (ssadd
(vlax-vla-object->ename
(vlax-invoke x 'getmodelnetworkpart)
)
parts
)
)
)
(sssetfirst nil parts)
)
)
(*error* nil)
)