马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?立即注册
x
本帖最后由 newer 于 2017-5-3 01:17 编辑
 - (defun c:XDTB_LayoutZE ( / ctab layout)
- (or **XD::ACAD** (setq **XD::ACAD** (vlax-get-acad-object)))
- (or **XD::DOC**
- (setq **XD::DOC** (vla-get-activedocument **XD::ACAD**))
- )
- ((lambda (ctab)
- (foreach layout (layoutlist)
- (setvar 'ctab layout)
- (vla-put-mspace **XD::DOC** :vlax-false)
- (vla-zoomextents **XD::ACAD**)
- )
- (setvar 'ctab ctab)
- )
- (getvar 'ctab)
- )
- (princ "\n所有布局ZOOM EXTENTS完毕.")
- (princ)
- )
|