如何判断组是空的

cqnj023 · 发表于 2004-2-22 10:59:00

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

meflying · 发表于 2004-2-22 12:22:00

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

cqnj023 · 发表于 2004-2-22 13:52:00

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

绝情一剑 · 发表于 2004-2-22 15:23:00

试试这个

copy


(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 · 发表于 2004-2-23 11:20:00

谢谢

如何判断组是空的

发表回复

精选推荐