[求助][LISP]請各位高手幫幫忙！

ljs026

(defun c:XGroupMake (/ ss gName)
(prompt "\n请选取要组成组的实体<退出>:")
(if (setq ss (ssget))
(progn
(xdrx_begin)
(setq gName (getstring "\n请输入组名<制匿名组>:"))
(if (= "" gName)
(setq gName (xdrx_group_make "*" ss))
(progn
(if (/= "*" gName)
(setq gName (xdrx_group_make gName ss))
(progn
(prompt "\n组名不能输入'*'，製作失败﹝")
(setq gName nil)
)
)
)
)
(if gName
(prompt (strcat "\n已经把选择的实体製成组，组名是" gName))
)
(xdrx_end)
)
)
(princ)
)
这是一个做匿名组的程序，如果小弟一个物件已建了图层，能否将匿名组的组名也和建立的图层一样，不用再输入组名！例如请输入组名<制匿名组>:时，预设为为物件所建立之图层名，如不要也可以输入其它组名？请各位大大帮帮小弟

meflying

不知道是你语文不好，还是我语文不好，反正我不能完全看懂你的话。。。


你的程序不全，希望提供完整的程序

ljs026

谢谢版大大就是说，我要把一个物件作成组，而这个物件的图层是123，可以在作组时，就直接让组名和图层一样，不用再输入组名吗？

meflying

这样就不是匿名组了: (defun c:XGroupMake (/ ss gName)
(prompt "\n请选取要组成组的实体<退出>:")
(if (setq ss (ssget))
(progn
(xdrx_begin)
(setq gName (getstring "\n请输入组名<制匿名组>:"))
(setq gName (cdr (assoc 8 (entget (ssname ss 0)))))
(setq gName (xdrx_group_make gName ss))
(prompt (strcat "\n已经把选择的实体製成组，组名是" gName))
(xdrx_end)
)
)
(princ)
)

ljs026

版大大，您真是太神~~~

ljs026

因为我是个新手，所以再请教版大大！可以拿掉(setq gName (getstring "\n请输入组名&lt;制匿名组&gt;:"))这行吗？或者是预设值是以图层为组名，如果要自行输入组名也可以，麻烦版大大解答~~

meflying

不好意思,这句应该去掉的,漏了