求大神修改一键切换图层代码（图层切换）（沙盘模型画图）

cqf1980

选择图元后按1+空格，把图元变到"_1"图层，当前层不变。（_1是自己设置的图层名字）（需要这个功能）
第一个代码可以实现。

就是新建图层时颜色是固定白色，能自定义颜色就完美了

296715530

cqf1980 发表于 2019-12-2 10:31
选择图元后按1+空格，把图元变到"_1"图层，当前层不变。（_1是自己设置的图层名字）（需要这个功能）
第一 ...

这倒无所谓，建个模板复制粘贴就行了

296715530

经高人指点，加个判断有没有选择的代码，可是我代码一点不懂哦。。。。。。请高手指点下，最后一个问题了。。。。感激不尽

sharetow

1. (defun C:TE(/ dx aa a1)
   
2.   (setq
   
3.     aa (getint "\n 输入图层号:")
   
4.     a1 (strcat "_" (itoa aa))
   
5.   )
   
6.   (if (not(tblobjname "layer" a1))
   
7.     (command "-layer" "n" a1 "C" aa a1 "L" "Continuous" a1 "LW" "0.25" a1 "")
   
8.   )
   
9.   (if(setq dx (cadr (ssgetfirst)))
   
10.     (command "Chprop" dx "" "LA" a1 "")
    
11.   )
    
12.   (princ)
    
13. )

(defun C:TE(/ dx aa a1)<br />   (setq <br />     aa (getint "\n 输入图层号:")<br />     a1 (strcat "_" (itoa aa))<br />   )<br />   (if (not(tblobjname "layer" a1))<br />     (command "-layer" "n" a1 "C" aa a1 "L" "Continuous" a1 "LW" "0.25" a1 "")<br />   )<br />   (if(setq dx (cadr (ssgetfirst)))<br />     (command "Chprop" dx "" "LA" a1 "")<br />   )<br />   (princ)<br /> )

[/code]

sharetow

1. 
   

复制代码

296715530

sharetow 发表于 2019-12-17 11:54

感谢回答，程序已经在明经找到一个合适的

GDFGFGF

296715530 发表于 2019-11-25 15:43
有好心人帮忙改下吗，可以留下联系方式详谈的

1390935671我有你想要的

GDFGFGF

加我QQ:1390935671

GDFGFGF

296715530 发表于 2019-11-30 08:01
有大神帮忙吗，例如，空选时按1切换图层，选择图元时按1（而不是11）改变图元的图层，当前层不变，当前层不 ...

同行，我有你想要的。加QQ；1390935671

GDFGFGF

QQ;1390935671