马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?立即注册
×
本帖最后由 Lisphk 于 2016-9-9 18:52 编辑
![](source/plugin/imc_colorcode/images/loading.gif) - (vl-load-com)
- (defun currtab (lname / adoc acapp)
- (or
- acapp
- (setq acapp (vlax-get-acad-object))
- )
- (or
- adoc
- (setq adoc (vla-get-activedocument acapp))
- )
- (if (not (vl-catch-all-error-p (setq res (vl-catch-all-apply
- (function
- (lambda
- ()
- (vla-item
- (vla-get-layouts adoc) lname
- )
- )
- )
- )
- )
- )
- )
- (progn
- (vla-put-activelayout adoc (vla-item (vla-get-layouts adoc) lname))
- t
- )
- nil
- )
- )
- ;; Usage
- (defun c:tt (/ lname)
- (if (/= "" (setq lname (getstring t "\nEnter layout name you want to set current: ")))
- (if (not (currtab lname))
- (alert "Layout does not exist")
- )
- )
- (princ)
- )
下面代码,按空格,循环激活每个LAYOUT
![](source/plugin/imc_colorcode/images/loading.gif) - (defun c:tt (/ adoc)
- (vl-load-com)
- (setvar "TILEMODE" 1)
- (vlax-for l (vla-get-layouts (setq adoc (vla-get-activedocument
- (vlax-get-acad-object)
- )
- )
- ) (getkword (strcat "\nPress Spacebar for layout '"
- (vla-get-name l) "' "
- )
- ) (vla-put-activelayout adoc l)
- ) ; end vlax-for
- (princ "\n<<< No more layouts, goodbuy... >>> ")
- (princ)
- )
|