[求助]：如何用程序删除gourp群组内物体

啵浪鼓

我自建了一个名为D的group,此D群组是我想删除里面所有的物体而不删除group内空白的D,如何实现?

下面这程序是我想建立一个D的群组并加入新的物体进入,但前提是已有名为D的群组,如果没有D的群组,下面的程序就不成立,我不想再另一个命令来创建D,该如何写?
(defun c:ag ()
(setq s(ssget))
(command "group" "Create" "D" "" s "")
)

下面命令是新增物体进D群组
(defun c:gg ()
(setq s(ssget))
(command "group" "add" "D" "")
)

下面是我想删除D群组的内容,该如何实现?
取得像素名为:
((-1 . <Entity name: 7eff79e0>) (0 . "LINE") (5 . "C1D9C") (102
. "{ACAD_REACTORS") (330 . <Entity name: 7e8840e0>) (102 . "}") (330 . <Entity
name: 7e805c10>) (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 .
7) (100 . "AcDbLine") (10 2004.9 1483.61 0.0) (11 2004.9 1083.79 0.0) (210 0.0
0.0 1.0))
像素内没有D的群组名选项,如果以102 . 来判断,可能会删到其它的群组,求教高手!
(defim c:eg ()

伊伊哎哎

难道没人知道,知道的写一下嘛

xyp1964

组名就是“D”：
(command "group" "R" "D")

啵浪鼓

不行,没法remove内的物体

Command: (command "group" "remove" "D" "")
Nothing selected.nil

Command: (command "erase" "p" "")
No previous selection set.
nil

xyp1964

最初由 啵浪鼓 发布
[B]不行,没法remove内的物体

Command: (command "group" "remove" "D" "")
Nothing selected.nil

Command: (command "erase" "p" "")
No previous selection set.
nil [/B]

看清：
(command "group" "remove" "D")
然后再选择要移去的东东！

啵浪鼓

可能是你误解了我的意思,我想用程序来完成删除群组D内所有的物体,你这样不单是要用手动来找寻要移除的物体,就算移除了物体还在,又怎样用其它命令去删除它们呢?

我曾经见过曾有人这样实现过,删除群组D内所有物体,不仅仅只是移除而已

aeo

(command "erase" "g" yourname ....)

啵浪鼓

哎呀,糟糕,竟然忘了erase有个删除群组的功能,呵呵,斑竹想得真够周全的