如何判断组是空的

cqnj023

如何获取文件中的组，并判断组中是否有对象？

meflying

文件中的组？是什么东西？

cqnj023

可能是没说清楚，就是用“group”命令构造的对象编组。

绝情一剑

试试这个

2. (defun c:test (/ i go vlit kz)
3. (setq i 0)
4. (setq go (vla-get-groups
5.      (vla-get-Activedocument (vlax-get-acad-object))))
6. (repeat (vla-get-count go)
7.    (if (= (vla-get-count (setq vlit(vla-item go i))) 0)
8.                  (setq kz (cons (vla-get-name vlit) kz))      
9.        )
10.        (setq i (+ i 1))
11.    )
12.    (princ "\n组为空的组是:")(princ (reverse kz))(princ)
13.    )

(defun c:test (/ i go vlit kz) (setq i 0) (setq go (vla-get-groups      (vla-get-Activedocument (vlax-get-acad-object)))) (repeat (vla-get-count go)    (if (= (vla-get-count (setq vlit(vla-item go i))) 0)                  (setq kz (cons (vla-get-name vlit) kz))              )        (setq i (+ i 1))    )    (princ "\n组为空的组是:")(princ (reverse kz))(princ)    )

cqnj023

谢谢