tanle2020 发表于 2009-1-12 10:26:00

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

<p>请高人帮我优化下程序。本程序的功能是按“1”等数字键来切换设置好的程序，如果模板中没有设置好的图层则不能切换，我想改下程序，就是如果模板中没有设置这个程序，它便会自己添加图层。</p><p>程序源码：</p><p>(DEFUN C:1() <br/>&nbsp;&nbsp;&nbsp; (COMMAND "-LAYER" "m" "块" "") <br/>&nbsp;&nbsp;&nbsp; (princ) <br/>) </p><p><br/></p>

samshs 发表于 2009-1-12 13:43:00

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

tanle2020 发表于 2009-1-13 16:49:00

<p>谢谢你的回复，但是我的问题是我用快捷键切换图层时如果图形中没有此图层它便能自动创建含线形、颜色、线宽的图层，比如我按1键，图行中如果没有“块”这个图层它便能按照我的设置自动创建“块”这个图层。你帮我补充的只是移动所选择的实体至另一图层，所以还请帮忙。</p>
页: [1]
查看完整版本: [求助]:"快速图层‘问题！