您可以迭代包含在VLA Group对象中的VLA对象,该对象可能来自图形中的Groups集合。
下面是一个示例来演示结构和层次结构:
- (defun c:printgroups ( )
- (vlax-for group (vla-get-groups (vla-get-activedocument (vlax-get-acad-object)))
- (princ
- (strcat
- "\nGroup " (vla-get-name group)
- " contains " (itoa (vla-get-count group)) " object(s):"
- )
- )
- (vlax-for obj group
- (princ (strcat "\n\t" (vla-get-objectname obj) "\tHandle: " (vla-get-handle obj)))
- )
- )
- (princ)
- )
- (vl-load-com) (princ)
|