669423907 发表于 2011-2-27 13:29:38

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

(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 发表于 2011-3-17 09:02:26

试用下先

zhaozwf 发表于 2011-8-7 16:15:43

还不是太完善

669423907 发表于 2011-8-7 21:19:56

回复 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 发表于 2011-8-8 15:22:38

回复 669423907 的帖子

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

669423907 发表于 2011-8-8 21:47:07

本帖最后由 669423907 于 2011-8-9 00:32 编辑

回复 zhaozwf 的帖子

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

hhh454 发表于 2011-8-9 09:52:02

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

669423907 发表于 2011-8-9 22:35:50

回复 hhh454 的帖子

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

hhh454 发表于 2011-8-10 19:22:31

回复 669423907 的帖子

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

longer1000 发表于 2011-8-15 19:56:48

试用一下，看起来不错的样子
页: [1] 2
查看完整版本: 别人的图层切换程序，很好用