社区 › 源码共享 › 求大神修改一键切换图层代码（图层切换）（沙盘模型画图）

cqf1980 发表于 2019-12-2 10:31:32

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

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

296715530 发表于 2019-12-2 10:38:16

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

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

296715530 发表于 2019-12-13 11:14:00

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

sharetow 发表于 2019-12-13 18:56:04

命令：te；图层号0~254区间

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

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

本帖最后由 sharetow 于 2019-12-17 12:43 编辑

296715530 发表于 2019-12-17 12:20:08

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


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

GDFGFGF 发表于 2020-1-9 17:37:06

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

1390935671我有你想要的

GDFGFGF 发表于 2020-1-9 18:36:47

加我QQ:1390935671

GDFGFGF 发表于 2020-4-2 11:50:34

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

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

GDFGFGF 发表于 2020-4-2 11:52:14

QQ;1390935671

查看完整版本: 求大神修改一键切换图层代码（图层切换）（沙盘模型画图）