求助一键视口冻结多个图层lisp程序，是视口冻结哈

ygp820601

图层状态管理器啊。

xotoo

在一个平面图里面通过冻结图层来画 几张平面图的方法其实不是太好
可以考虑一下用参照平面布置图图来生成别的平面图纸的方法

混沌初开

xotoo 发表于 2018-6-15 21:13
在一个平面图里面通过冻结图层来画 几张平面图的方法其实不是太好
可以考虑一下用参照平面布置图图来生成 ...

大神求细节，我也是室内设计刚刚入行的小菜鸟！以前是做机械设计的，富士康上班。

混沌初开

evayleung 发表于 2018-6-11 12:46
上传一个不错的，忘记原作者是谁了，也是在这论坛下载的，好像我改了一点点，反正是源码，你也可以下载来改 ...

用起来是那么的顺手！

依然小小鸟

evayleung 发表于 2018-6-11 12:46
上传一个不错的，忘记原作者是谁了，也是在这论坛下载的，好像我改了一点点，反正是源码，你也可以下载来改 ...

能不能增加 解冻的功能  有时候误把某个图层在视口冻结了 没办法解冻  希望能增加一键全部解冻功能 谢谢啦

依然小小鸟

能不能增加 解冻的功能  有时候误把某个图层在视口冻结了 没办法解冻  希望能增加一键全部解冻功能 谢谢啦

KO你

快捷键  rrd  指定视口冻结特定图层
(defun c:rrd ()
(initget "1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 a")
(setq i (getkword "\n平面布置图<1>;立面索引图<2>;固定家具/门索引图<3>;原建筑梁图<4>;墙体尺寸图<5>;洁具布置图<6>;地面铺贴图<7>;地面大样索引图<8>;天花布置图<9>;天花大样索引图<10>;天花造型尺寸图<11>;天花灯具尺寸图<12>;天花家具对应图<13>;天花开关控制图<14>;插座分配图<15>;指定视口解冻所有图层<A>"))
(cond
((= i "1") (setq ent (ssget))(command "vplayer" "f" "Defpoints,地花,地花--尺寸,梁,墙 尺寸放线,天花 灯具尺寸,天花 灯具设备,天花 造型,天花 造型尺寸"))
((= i "2") (setq ent (ssget))(command "vplayer" "f" "Defpoints,地花,地花--尺寸,梁,墙 尺寸放线,天花 灯具尺寸,天花 灯具设备,天花 造型,天花 造型尺寸,轴线"))
((= i "3") (setq ent (ssget))(command "vplayer" "f" "Defpoints,地花,地花--尺寸,梁,墙 尺寸放线,天花 灯具尺寸,天花 灯具设备,天花 造型,天花 造型尺寸,轴线"))
((= i "4") (setq ent (ssget))(command "vplayer" "f" "Defpoints,地花,地花--尺寸,家具 平        ---活动家具,家具 平 地     ---洁具 地漏,家具 平 地 天  ---高柜 屏风,家具 平 天     ---吊柜 窗帘,楼梯,绿化,门,门套,墙 尺寸放线,墙 完成面,天花 灯具尺寸,天花 灯具设备,天花 造型,天花 造型尺寸,轴线"))
((= i "5") (setq ent (ssget))(command "vplayer" "f" "Defpoints,地花,地花--尺寸,家具 平        ---活动家具,家具 平 天     ---吊柜 窗帘,梁,绿化,门,天花 灯具尺寸,天花 灯具设备,天花 造型,天花 造型尺寸,轴线"))
((= i "6") (setq ent (ssget))(command "vplayer" "f" "Defpoints,地花,地花--尺寸,梁,墙 尺寸放线,天花 灯具尺寸,天花 灯具设备,天花 造型,天花 造型尺寸,轴线"))
((= i "7") (setq ent (ssget))(command "vplayer" "f" "Defpoints,家具 平        ---活动家具,家具 平 天     ---吊柜 窗帘,梁,绿化,门,墙 尺寸放线,天花 灯具尺寸,天花 灯具设备,天花 造型,天花 造型尺寸,轴线"))
((= i "8") (setq ent (ssget))(command "vplayer" "f" "Defpoints,地花--尺寸,家具 平        ---活动家具,家具 平 天     ---吊柜 窗帘,梁,绿化,门,墙 尺寸放线,天花 灯具尺寸,天花 灯具设备,天花 造型,天花 造型尺寸,轴线"))
((= i "9") (setq ent (ssget))(command "vplayer" "f" "Defpoints,地花,地花--尺寸,家具 平        ---活动家具,家具 平 地     ---洁具 地漏,梁,楼梯,绿化,门,墙 尺寸放线,天花 灯具尺寸,天花 造型尺寸,轴线"))
((= i "10") (setq ent (ssget))(command "vplayer" "f" "Defpoints,地花,地花--尺寸,家具 平        ---活动家具,家具 平 地     ---洁具 地漏,梁,楼梯,绿化,门,墙 尺寸放线,天花 灯具尺寸,天花 造型尺寸,轴线"))
((= i "11") (setq ent (ssget))(command "vplayer" "f" "Defpoints,地花,地花--尺寸,家具 平        ---活动家具,家具 平 地     ---洁具 地漏,梁,楼梯,绿化,门,墙 尺寸放线,天花 灯具尺寸,轴线"))
((= i "12") (setq ent (ssget))(command "vplayer" "f" "Defpoints,地花,地花--尺寸,家具 平        ---活动家具,家具 平 地     ---洁具 地漏,梁,楼梯,绿化,门,墙 尺寸放线,天花 造型尺寸,轴线"))
((= i "13") (setq ent (ssget))(command "vplayer" "f" "Defpoints,地花,地花--尺寸,梁,墙 尺寸放线,天花 灯具尺寸,天花 造型尺寸,轴线"))
((= i "14") (setq ent (ssget))(command "vplayer" "f" "Defpoints,地花,地花--尺寸,家具 平        ---活动家具,家具 平 地     ---洁具 地漏,梁,楼梯,绿化,门,墙 尺寸放线,天花 灯具尺寸,天花 造型尺寸,轴线"))
((= i "15") (setq ent (ssget))(command "vplayer" "f" "Defpoints,地花,地花--尺寸,梁,墙 尺寸放线,天花 灯具尺寸,天花 灯具设备,天花 造型,天花 造型尺寸,轴线"))
((= i "a") (setq ent (ssget))(command "vplayer" "t" "*")))
(princ))

KO你

KO你 发表于 2018-12-4 20:45
快捷键  rrd  指定视口冻结特定图层
(defun c:rrd ()
(initget "1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 a" ...

图层你自己编

alexmai

把图层都存放好在一个块中，

命令： layerstate

不会用看F1帮助

′Mua.〢、旭

图层状态管理器是个好东西