阅读下一篇
我也学学lisp,视口锁定/解锁的小程序;用autocad2006,以前版本的右键锁定视口菜单没了,搞了一个,可以批量锁定/解锁,大家批批。;加载后命令:vl(defun c:vl() (if (setq ents (ssget ’((0 . "VIEWPORT")))) (progn (setq orstring (getstring "\n解锁/<锁定>:")) (cond ((= orstring "u") (command "mview" "l" "off" ents ""))
回帖成功
经验值 +10
全部回复(2 )
只看楼主 我来说两句抢地板回复 举报
回复 举报