求助一键视口冻结多个图层lisp程序，是视口冻结哈
求助一键视口冻结多个图层lisp程序，是视口冻结哈上传一个不错的，忘记原作者是谁了，也是在这论坛下载的，好像我改了一点点，反正是源码，你也可以下载来改下。冻结视口的图层用的。 快捷键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你 发表于 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" ...
我是专业深化图纸的，这是我自己的制图规范用到的图层，特殊的图层那些需要显示，那些需要冻结隐藏是根据个人需要写的，目前没找到更好的快捷方式，这个已经够用了 同求 (command "_.vplayer" "F" ) lwl450 发表于 2018-6-10 22:09
(command "_.vplayer" "F" )
谢谢，我想问下，像这种命令要到什么地方去看 Melancholier 发表于 2018-6-11 10:00
谢谢，我想问下，像这种命令要到什么地方去看
F1 跟论坛都有 evayleung 发表于 2018-6-11 12:46
上传一个不错的，忘记原作者是谁了，也是在这论坛下载的，好像我改了一点点，反正是源码，你也可以下载来改 ...
你这个是还要手动选择图层吗，我自己做了一个可以先在程序里设定需要关掉的图层，然后在cad一键关闭 lwl450 发表于 2018-6-11 12:41
F1 跟论坛都有
谢谢，有这个套图又加快了很多 Melancholier 发表于 2018-6-11 16:46
你这个是还要手动选择图层吗，我自己做了一个可以先在程序里设定需要关掉的图层，然后在cad一键关闭
手选也快，一键的话，你不能保证每次都是这个图层的吧。除非你个人习惯好得很才行。 evayleung 发表于 2018-6-11 18:32
手选也快，一键的话，你不能保证每次都是这个图层的吧。除非你个人习惯好得很才行。
我就是做好的图层的，一个系统一批图层