求助

mijiulokl

我画图的时候总是在两个或更多的图层之间切换，每次都得用鼠标点 特别不方便，尤其当有20几个图层时。所以想寻找个方法能一键切换到指定图层上。比如 按A就可以切换到

fan_zh

(defun c:q1()
(command ".layer" "s" "al-01" "")(princ "已切换【al-01】图层")(princ))

上面q1 可改为你的快捷命令，不要和原命令重复
al-01可改为你的图层名

琴剑江山_10184

1. (defun c:1 (/ get);1 为切换命令
   
2.   (setvar "cmdecho" 0)
   
3.   (if (setq get (ssget))
   
4.     (command "_.chprop" get "" "C" "BYLAYER" "LT" "BYLAYER" "LA" "层名自行修改" "")
   
5.     )
   
6.   (princ)
   
7.   )
   
8. ;;这是一个最简单的切换，没有考滤图层不存在时候
   

(defun c:1 (/ get);1 为切换命令<br />   (setvar "cmdecho" 0)<br />   (if (setq get (ssget))<br />     (command "_.chprop" get "" "C" "BYLAYER" "LT" "BYLAYER" "LA" "层名自行修改" "")<br />     )<br />   (princ)<br />   )<br /> ;;这是一个最简单的切换，没有考滤图层不存在时候<br />

mijiulokl

fan_zh 发表于 2015-6-3 14:09
(defun c:q1()
(command ".layer" "s" "al-01" "")(princ "已切换【al-01】图层")(princ))

能不能一键切换到“选中的图层”

mijiulokl

琴剑江山_10184 发表于 2015-6-3 14:14

能不能一键切换到“选中的图层”

琴剑江山_10184

mijiulokl 发表于 2015-6-3 14:28
能不能一键切换到“选中的图层”

你是想把选中的图层，置为当前层？

mijiulokl

琴剑江山_10184 发表于 2015-6-3 14:42
你是想把选中的图层，置为当前层？

是的。。。。。

琴剑江山_10184

mijiulokl 发表于 2015-6-3 14:43
是的。。。。。

1. (defun c:aa (/ seL dr)
   
2.   (princ "\n功能 [更改当前层]")
   
3.   (if (setq seL (entsel "\n选择置为当前层对象 <退出>:"))
   
4.     (progn
   
5.       (setq dr (cdr (assoc 8 (entget (car seL)))))
   
6.       (setvar "clayer" dr)
   
7.     )
   
8.   )
   
9.   (princ)
   
10. )

(defun c:aa (/ seL dr)<br />   (princ "\n功能 [更改当前层]")<br />   (if (setq seL (entsel "\n选择置为当前层对象 <退出>:"))<br />     (progn<br />       (setq dr (cdr (assoc 8 (entget (car seL)))))<br />       (setvar "clayer" dr)<br />     )<br />   )<br />   (princ)<br /> )

mijiulokl

琴剑江山_10184 发表于 2015-6-3 14:47

图层对了，为什么颜色变不了，还是原来图层的颜色，这是什么情况啊

琴剑江山_10184

mijiulokl 发表于 2015-6-3 14:55
图层对了，为什么颜色变不了，还是原来图层的颜色，这是什么情况啊

颜色改为随层就可以了