；用autocad2006，以前版本的右键锁定视口菜单没了，搞了一个，可以批量锁定/解锁，大家批批。；加载后命令：vl(defun c:vl() (if (setq ents (ssget ’((0 . "VIEWPORT")))) (progn (setq orstring (getstring "\n解锁/<锁定>:")) (cond ((= orstring "u") (command "mview" "l" "off" ents ""))
；加载后命令：vl
(defun c:vl()
(if (setq ents (ssget ’((0 . "VIEWPORT"))))
(progn
(setq orstring (getstring "\n解锁 /<锁定>:"))
(cond
((= orstring "u") (command "mview" "l" "off" ents ""))
((= orstring "") (command "mview" "l" "on" ents ""))
)
)
)
(princ)
)
