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)
消防、tgc、cctv、安全,。。。。。。但并非所有图纸都适用 这是一个错误:
错误:输入上有额外的右括号 说这不是测试的好时机,学习lisp额外的权利paren意味着它缺少一个(或)也改变plotab到plotab有一个洛克在第一行我的打字
页:
1
[2]