别人的图层切换程序，很好用

669423907

(defun lyh(mylsp / ss)
(setvar"cmdecho"0)
(if(setq ss(ssget"i"))
(command"_.change"SS"""p""LA"mylsp"")
(setvar"clayer"mylsp))
(princ))

(defun C:1 ()
(lyh"0"))
(defun C:2 ()
(lyh"2虚线"))
(defun C:3 ()
(lyh"3细线"))
(defun C:4 ()
(lyh"4中心线"))
(defun C:5 ()
(lyh"5文字"))
(defun C:6 ()
(lyh"6填充"))
(defun C:7 ()
(lyh"7点划线"))
(defun C:8 ()
(lyh"8不打印"))
(defun C:9 ()
(lyh"9标注"))
(defun C:90 ()
(lyh"90双点划线"))
(defun C:00 ()
(lyh"00图框"))

cjjh8301

试用下先

zhaozwf

还不是太完善

669423907

回复 zhaozwf 的帖子

(DEFUN lyh4(MYLSP / LAYCH)
(if (setq LAYCH (ssget "i"))
(command "_.change" laych "" "_p" "_lt" "bylayer" "_c" "bylayer" "_la" mylsp "")
(command "layer" "m" "4中心线" "c" "1" "" "lw" "0.13" "" "l" "CENTER" "" ""))
(princ))
(DEFUN C:4()(lyh4"4中心线")(lyh4"4中心线"))

这个稍好，但还是不怎么理想！

zhaozwf

回复 669423907 的帖子

可以参考一下pccad2011，你这个想要达到效果，和pccad上面的图层切换是一样的，选择对象时可以改变对象的层属性，如果选择的为空，则把该命令所规定的层设为当前层。

669423907

回复 zhaozwf 的帖子

我用过 PCCAD 的如果选择为空时，要按两下！不喜欢！
能改成按一下就好了！

hhh454

命令里面直接带，估计会好点

669423907

回复 hhh454 的帖子

请问 hhh454 ,
“命令里面直接带” 是什么意思呢？

hhh454

回复 669423907 的帖子

就是输入一个命令，直接就代码选择图层，具体我也不精通

longer1000

试用一下，看起来不错的样子