[求助]布局空间内视口显示的开关lisp编程

fengsea

有没有哪位能手有空编一下布局空间视口的显示开和关的lisp，思路如下：输入命令）有‘显示不要关闭的视口和全部打开视口’的选项，全部打开的选项最好在这里用右键执行）接着是左键选择要打开显示的视口而且在同一布局空间内的其他视口都关闭，即使是选择已经打开的视口也能执行。现在在我身边很多人喜欢在图纸中的同一个布局内放置比较多的图纸框，但是修改起来显示刷新比较慢，而且耗缓存资源。以前在论坛中有个图层锁定的lisp比较类似其功能结构。

yunlong300

命令: _EBG_Viewporton
命令:
选择视口打开，其余关闭<全选>:
选择对象: 指定对角点: 找到 2 个

选择对象:

本布局共 6 个视口，其中 2 个打开，4 个关闭。

命令:

下载： http://www.mjtd.com/Soft/SoftShow.asp?SoftID=125

samshs

2. ;鎖定視口----------------------------------------
3. (defun c:vn ()
4.    (command "-vports" "l" "ON")
5. (princ)
6. )
7. ;開視口------------------------------------------------
8. (defun c:vd ()
9.    (command "-vports" "ON")
10. (princ)
11. )
12. ;關視口----------------------------
13. (defun c:vs ()
14.    (command "-vports" "off")
15. (princ)
16. )

;鎖定視口---------------------------------------- (defun c:vn ()    (command "-vports" "l" "ON") (princ) ) ;開視口------------------------------------------------ (defun c:vd ()    (command "-vports" "ON") (princ) ) ;關視口---------------------------- (defun c:vs ()    (command "-vports" "off") (princ) )

longer1000

非常感谢！！！！！！！！

pimgu

smartstar

这个用的着，谢谢。

dforme

samshs 发表于 2008-12-31 18:30

谢谢啊，用起来很方便