[求助]如何用LISP移除無效的群組名稱?

pizg

請問各位高手,

如何用LISP移除無效的群組名稱?

所謂無效的群組名稱就是,

原本圖面上有圖形物件做成的群組,

但該群組已被刪除,

可是群組名稱還存在,

如何才能一次移除全部的無效群組名稱.

xhq1954425

我试了一下用这个(command "GROUP" "E" "编组名")

xhq1954425

才注意到，你是说一次移除全部的無效群組名稱.这个要等待高手作答了

pizg

xhq1954425发表于2010-9-8 10:05:00才注意到，你是说一次移除全部的無效群組名稱.这个要等待高手作答了

是啊~~

這得先判斷哪些是無效的群組名稱,

然後才能對症下藥.

you_know_who

这些有关组的命令应该够你用的了，这都是别人的，我借花献佛！

you_know_who

贴漏一个。

pizg

感謝樓上的善心人士,

我看看先.

xshrimp

2. ;;;;xshrimp 2007.1.5;;删除无用组,未使用的空组。(defun c:gps_group_purge ( / doc g groups);!!!清理组  (vl-load-com)  (princ    "\n此程序搜索不包含任何物体的空组并清除之\n"  )  (setq doc (vla-get-activedocument (vlax-get-acad-object)))  (setq groups (vla-get-groups doc))  (vlax-for g groups    (princ "\n分析组：")    (princ (vla-get-name g))    (if (< (vla-get-count g) 2)      (progn        (princ (strcat "......删除空组" (vla-get-name g)))        (vla-delete g)      )    )    (princ)  ))

;;;;xshrimp 2007.1.5;;删除无用组,未使用的空组。(defun c:gps_group_purge ( / doc g groups);!!!清理组  (vl-load-com)  (princ    "\n此程序搜索不包含任何物体的空组并清除之\n"  )  (setq doc (vla-get-activedocument (vlax-get-acad-object)))  (setq groups (vla-get-groups doc))  (vlax-for g groups    (princ "\n分析组：")    (princ (vla-get-name g))    (if (< (vla-get-count g) 2)      (progn        (princ (strcat "......删除空组" (vla-get-name g)))        (vla-delete g)      )    )    (princ)  ))

xhq1954425

xshrimp发表于2010-9-9 9:28:00

厉害！下来试试，学习学习。谢谢！

xhq1954425

试了一下，果然好使，谢谢!6楼和8楼的朋友！