求助一个可以一键视口冻结多个图层的lisp

Melancholier

求助一个可以一键视口冻结多个图层的lisp

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))