社区 › CAD › 页面设置

Nardino 发表于 2017-1-25 15:11:38

页面设置

大家好
我有几百张有3个命名页面设置的图纸。有人知道如何创建lisp或脚本，以便我可以设置当前的某个页面吗？
谢谢
**** Hidden Message *****

Master_Shake 发表于 2017-1-25 16:08:32

;;; Set a named page setup as current on current layout by avoiding command usage http://jtbworld.com/autocad-pagesetup-lsp
;;; (SetCurrentPageSetup)
;;; (SetCurrentPageSetup (vla-get-activedocument (vlax-get-acad-object)) "Setup2")
(defun SetCurrentPageSetup (doc pcname / layout PlotConfig)
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(setq layout (vla-get-activelayout doc))
(setq PlotConfig (vl-catch-all-apply
                     'vla-item
                     (list
                     (vla-get-PlotConfigurations
                         doc
                     )
                     pcname
                     )
                   )
)
(if (not (vl-catch-all-error-p PlotConfig))
    (vla-copyfrom layout PlotConfig)
)
)
JTB写了一个非常漂亮的页面设置函数，将它与批处理脚本结合起来会非常简单。

Rob... 发表于 2017-1-25 17:12:56

如果这对你不起作用，我也许可以从我的档案中为你挖一个。

Nardino 发表于 2017-1-26 10:57:27

谢谢你的密码。这节省了很多时间

查看完整版本: 页面设置