[求助]:"快速图层‘问题！

tanle2020

请高人帮我优化下程序。本程序的功能是按“1”等数字键来切换设置好的程序，如果模板中没有设置好的图层则不能切换，我想改下程序，就是如果模板中没有设置这个程序，它便会自己添加图层。

程序源码：

(DEFUN C:1()
    (COMMAND "-LAYER" "m" "块" "")
    (princ)
)

samshs

2. (DEFUN C:1()
3. (setq ent (ssget))
4. (COMMAND "-LAYER" "m" "块" "")
5.   (command "change" ent "" "p" "la" "块" "")
6.   (princ)
7. )

(DEFUN C:1() (setq ent (ssget)) (COMMAND "-LAYER" "m" "块" "")   (command "change" ent "" "p" "la" "块" "")   (princ) )

tanle2020

谢谢你的回复，但是我的问题是我用快捷键切换图层时如果图形中没有此图层它便能自动创建含线形、颜色、线宽的图层，比如我按1键，图行中如果没有“块”这个图层它便能按照我的设置自动创建“块”这个图层。你帮我补充的只是移动所选择的实体至另一图层，所以还请帮忙。