大家好,
我有一个lisp脚本,我已经成功地使用它在AutoCAD Elec 2014中打印到PDF。我们升级到AE 2017,现在它在每个绘图上等待我点击文件中的某个地方,然后它进入下一个。
这是我的剧本:
- (defun c:PLOTPDFLISP ( / cm )
- (setq cm (getvar 'CMDECHO))
- (setvar 'CMDECHO 0)
- (command "-plot"
- "Yes" ;Detailed plot configuration? [Yes/No] <No>: Y
- "Layout1" ;Enter a layout name or [?] <0_01a>:
- "Acade - DWG To PDF.pc3" ;Enter an output device name or [?] <DWG To PDF.pc3>:
- "ANSI full bleed B (17.00 x 11.00 Inches)" ;Enter paper size or [?] <ISO full bleed A3>:
- "Inches" ;Enter paper units [inches/Millimeters] <Millimeters>:
- "Landscape" ;Enter drawing orientation [Por.../Lan...] <Lan...>:
- "Yes" ;Plot upside down? [Yes/No] <No>:
- "Extents" ;Enter plot area [D.../E.../L.../V.../W...] <Window>:
- "1:2.00" ;Enter plot scale or [Fit] <1=1>:
- "Center" ;Enter plot offset (x,y) or [Center] <Center>:
- "Yes" ;Plot with plot styles? [Yes/No] <Yes>:
- "-Palette DHSI ANSI D 12217.stb" ;Enter plot style table name or [?] <>:
- "Yes" ;Plot with lineweights? [Yes/No] <Yes>:
- "Yes" ;Scale lineweights with plot scale? [Yes/No] <No>:
- "No" ;Plot paper space first? [Yes/No] <No>:
- "No" ;Hide paperspace objects? [Yes/No] <No>:
- (strcat (getvar 'DWGPREFIX) (vl-filename-base (getvar 'DWGNAME)))
- "No" ;Save changes to page setup [Yes/No]? <N> y
- "Yes" ;Proceed with plot [Yes/No] <Y>:
- )
- (setvar 'CMDECHO cm)
- (princ)
- )
- (vl-load-com) (princ)
我使用“项目范围实用程序”运行一个脚本,该脚本为项目中的每个dwg调用此lisp文件。它确实将项目中的每个dwg打印为pdf,但我必须单击dwg才能转到下一个,我不知道为什么。
有人知道为什么会这样吗? |