hehoubin 发表于 2012-11-25 15:18:18

大家帮忙看下这个关闭专用图层的LSP，。当关闭当前层要怎么写。

我写了个关闭专业图层的有个问题，关闭图层 BH，ACX，A01~A14，当 BH，ACX，A01~A14，图层中，有当前图层时，关闭当前图层，请大侠帮忙写下，完整的，谢谢，
(DEFUN c:ftc ()
       (setvar "CMDECHO" 0)
       (command ".-layer" "off" "bh" "")            
       (command ".-layer" "off" "acx" "")
       (command ".-layer" "off" "a01" "")
       (command ".-layer" "off" "a02" "")
       (command ".-layer" "off" "a03" "")
       (command ".-layer" "off" "a04" "")
       (command ".-layer" "off" "a05" "")
       (command ".-layer" "off" "a06" "")
       (command ".-layer" "off" "a07" "")
       (command ".-layer" "off" "a08" "")
       (command ".-layer" "off" "a09" "")
       (command ".-layer" "off" "a10" "")
       (command ".-layer" "off" "a11" "")
       (command ".-layer" "off" "a12" "")
       (command ".-layer" "off" "a13" "")
       (command ".-layer" "off" "a14" "")
       (princ "\n ◆　a01--a14 已关闭")
(princ))

alwtyp 发表于 2012-11-25 15:23:11

(command ".layer" "off" (getvar "clayer") "y" "")

hehoubin 发表于 2012-11-25 15:39:57

应该要有个判断在好，要是没有图层中没有当前层，就不关闭，请帮写下，谢谢

【KAIXIN】 发表于 2012-11-25 16:14:45

貌似当前层是不能关闭的吧

Andyhon 发表于 2012-11-25 16:29:07

       (command ".-layer" "off" "acx" "")

       (setvar "Expert" 1)
       (command ".-layer" "off" "a01" "")
...

hehoubin 发表于 2012-11-25 16:29:50

回复【KAIXIN】 老师
发表于 10 分钟前 |只看该作者
貌似当前层是不能关闭的吧
这是专用图层，我想关闭这些图层会遇到当前层的障碍，所以我想当这些图层中有当前层是把当前曾也一起关闭，可以写到吗//

hehoubin 发表于 2012-11-25 16:36:32

谢谢 Andyhon老师的帮忙，问题解决，

alwtyp 发表于 2012-11-25 16:42:11

当前层可以关闭,不能冻结.

hehoubin 发表于 2012-11-25 16:53:00

好要当前层还是不能关闭。。

alwtyp 发表于 2012-11-25 16:57:51

你试一下我上面的那个代码
页: [1] 2
查看完整版本: 大家帮忙看下这个关闭专用图层的LSP，。当关闭当前层要怎么写。