绘制所有（命名）视图的脚本

pmxcad · 发表于 2022-7-7 00:52:46

消防、门禁、cctv、安保、疏散。但并不总是这样。

BIGAL · 发表于 2022-7-7 00:58:05

好的，通过放置（layoutlist）来理解您暗示这是一个lisp函数，而不是一个视图名称列表，给它一个try not tested，复制并粘贴到记事本另存为plotviews。lsp然后应用它。

vl-load-com)
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(vlax-for lay (vla-get-Views doc)
(setq plotabs (cons (vla-get-name lay) plotabs))
)
(foreach lay plotab(setvar "CTAB" lay) (command "PSPACE" "ZOOM" "E" "_PLOT" "Y" "" "DWG TO PDF" A3"" "M" "LANDSCAPE" "N" "V" "FIT" "" "Y" "Grayscale" "Y" "N" "N" "N" "" "N" "Y" ))(princ)