求助
我画图的时候总是在两个或更多的图层之间切换，每次都得用鼠标点 特别不方便，尤其当有20几个图层时。所以想寻找个方法能一键切换到指定图层上。比如 按A就可以切换到 (defun c:q1()(command ".layer" "s" "al-01" "")(princ "已切换【al-01】图层")(princ))
上面q1 可改为你的快捷命令，不要和原命令重复
al-01可改为你的图层名 本帖最后由 琴剑江山_10184 于 2015-6-3 14:15 编辑
(defun c:1 (/ get);1 为切换命令
(setvar "cmdecho" 0)
(if (setq get (ssget))
(command "_.chprop" get "" "C" "BYLAYER" "LT" "BYLAYER" "LA" "层名自行修改" "")
)
(princ)
)
;;这是一个最简单的切换，没有考滤图层不存在时候
fan_zh 发表于 2015-6-3 14:09 static/image/common/back.gif
(defun c:q1()
(command ".layer" "s" "al-01" "")(princ "已切换【al-01】图层")(princ))
能不能一键切换到“选中的图层” 琴剑江山_10184 发表于 2015-6-3 14:14 static/image/common/back.gif
能不能一键切换到“选中的图层” mijiulokl 发表于 2015-6-3 14:28 static/image/common/back.gif
能不能一键切换到“选中的图层”
你是想把选中的图层，置为当前层？ 琴剑江山_10184 发表于 2015-6-3 14:42 static/image/common/back.gif
你是想把选中的图层，置为当前层？
是的。。。。。 mijiulokl 发表于 2015-6-3 14:43 static/image/common/back.gif
是的。。。。。
(defun c:aa (/ seL dr)
(princ "\n功能 [更改当前层]")
(if (setq seL (entsel "\n选择置为当前层对象 <退出>:"))
(progn
(setq dr (cdr (assoc 8 (entget (car seL)))))
(setvar "clayer" dr)
)
)
(princ)
)
琴剑江山_10184 发表于 2015-6-3 14:47 static/image/common/back.gif
图层对了，为什么颜色变不了，还是原来图层的颜色，这是什么情况啊 mijiulokl 发表于 2015-6-3 14:55 static/image/common/back.gif
图层对了，为什么颜色变不了，还是原来图层的颜色，这是什么情况啊
颜色改为随层就可以了
页:
[1]
2