土木在线论坛 \ 建筑设计 \ CAD下载及教程 \ 我也学学lisp，视口锁定/解锁的小程序

我也学学lisp，视口锁定/解锁的小程序

发布于：2006-09-27 09:53:27 来自：建筑设计/CAD下载及教程 [复制转发]

；用autocad2006，以前版本的右键锁定视口菜单没了，搞了一个，可以批量锁定/解锁，大家批批。
；加载后命令：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)
)

0人已收藏
0人已打赏
免费
0人已点赞
分享

复制链接新浪微博微信扫一扫

全部回复（11 ）

只看楼主我来说两句

freefeng 沙发

找了好久，不知道好不好用哦

2008-04-11 15:18:11
回复举报
赞同0
eobser 板凳

以前也学过excel的vba入门，现在也忘光了，因为少用。
现在入门lisp，用<vlisp函数说明>及<autolisp&dcl>，感觉不会很难，精就困难了，需要时间+兴趣+交流。
也可以学学vba啊。

2007-03-01 21:40:01
回复举报
赞同0

加载更多