求高手帮忙修改一下这个关于冻结图层的LSP

lingduwx · 发表于 2011-7-28 22:45:08

这个以前请晓东CAD一个高手帮忙写的，但是想满足更多的要求，求高手帮帮忙啊，小弟先谢了！！！
偶做家装，一般只是一个CAD文件，里面包括所有图，分为3个布局空间作图，一个布局做所有“平面”，一个布局做所有“立面”，一个布局做所有“节点大样”。假若当前布局“平面”里有很多张图，当偶新建一个图层时所有视口都有，偶想输入这个命令在当前布局里的当前视口以外的其他视口冻结选择的图层，但是最重要的一点，就是要求这个命令在“立面”、“节点大样”布局里的各个视口内不冻结该选择的图层。
这个程序是“将图层在当前视口以外的其他视口内冻结”，
参数如下：
;;;将图层在当前视口以外的其他视口内冻结
(defun c:DC (/ ent Layer_name)
(setvar "cmdecho" 0)
(setq ent (entsel "\nPSelect an entity on the layer to be frozen: "))
(if ent
(progn
(setq ent (entget (car ent)))
(setq Layer_name (cdr (assoc 8 ent)))
)
)
(if (= (getvar "clayer") Layer_name)
(setvar "clayer" "0")
)
(command "vplayer" "f" Layer_name "a" "")
(command "vplayer" "t" Layer_name "c" "")
(princ)
)

lingduwx · 发表于 2011-7-29 17:06:01

高手们请帮帮忙啊，万分感谢！！！

guankuiwu · 发表于 2011-7-30 11:11:49

这个不是都有你想要的功能了啊！还要些什么呢？

guankuiwu · 发表于 2011-7-30 11:12:25

程序undo的不是很好！！

lingduwx · 发表于 2011-8-3 13:10:20

本帖最后由 lingduwx 于 2011-8-3 13:13 编辑

这个程序他会冻结所有布局的视口里面的选择图层，而我只希望在当前布局里的有所视口里冻结选择的图层。

qmqyqj · 发表于 2022-11-18 18:21:45

这个帖子沉了吗

账号		自动登录	找回密码
密码			注册

[源码] 求高手帮忙修改一下这个关于冻结图层的LSP