明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2531|回复: 21

[提问] 求助一键视口冻结多个图层lisp程序,是视口冻结哈

[复制链接]
发表于 2018-6-9 23:02 | 显示全部楼层 |阅读模式
求助一键视口冻结多个图层lisp程序,是视口冻结哈
发表于 2018-6-11 12:46 | 显示全部楼层
上传一个不错的,忘记原作者是谁了,也是在这论坛下载的,好像我改了一点点,反正是源码,你也可以下载来改下。冻结视口的图层用的。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
回复 支持 1 反对 0

使用道具 举报

发表于 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")
(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))

点评

这样写代码太啰嗦了...建议重构。 整数作为选择关键字建议使用 getint函数,特定的字母关键字才写到 initget中。  发表于 2019-5-25 23:43
发表于 2019-5-26 14:29 | 显示全部楼层
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" ...

我是专业深化图纸的,这是我自己的制图规范用到的图层,特殊的图层那些需要显示,那些需要冻结隐藏是根据个人需要写的,目前没找到更好的快捷方式,这个已经够用了
发表于 2018-6-10 22:09 | 显示全部楼层
(command "_.vplayer" "F" )
 楼主| 发表于 2018-6-11 10:00 | 显示全部楼层
lwl450 发表于 2018-6-10 22:09
(command "_.vplayer" "F" )

谢谢,我想问下,像这种命令要到什么地方去看
发表于 2018-6-11 12:41 | 显示全部楼层
Melancholier 发表于 2018-6-11 10:00
谢谢,我想问下,像这种命令要到什么地方去看

F1 跟论坛都有
 楼主| 发表于 2018-6-11 16:46 | 显示全部楼层
evayleung 发表于 2018-6-11 12:46
上传一个不错的,忘记原作者是谁了,也是在这论坛下载的,好像我改了一点点,反正是源码,你也可以下载来改 ...

你这个是还要手动选择图层吗,我自己做了一个可以先在程序里设定需要关掉的图层,然后在cad一键关闭
 楼主| 发表于 2018-6-11 16:55 | 显示全部楼层

谢谢,有这个套图又加快了很多
发表于 2018-6-11 18:32 | 显示全部楼层
Melancholier 发表于 2018-6-11 16:46
你这个是还要手动选择图层吗,我自己做了一个可以先在程序里设定需要关掉的图层,然后在cad一键关闭

手选也快,一键的话,你不能保证每次都是这个图层的吧。除非你个人习惯好得很才行。
 楼主| 发表于 2018-6-13 11:27 | 显示全部楼层
evayleung 发表于 2018-6-11 18:32
手选也快,一键的话,你不能保证每次都是这个图层的吧。除非你个人习惯好得很才行。

我就是做好的图层的,一个系统一批图层
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 16:20 , Processed in 0.324876 second(s), 32 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表