用于将dwg转换为pdf的脚本

vitruvius · 发表于 2022-7-6 23:22:35

你好

我目前能够在脚本文件中使用“dwg to pdf”来调整图形中的图层等，并自动打印到pdf，其中默认设置了pdf文件名（我打印的dwg文件名）和位置（dwg文件所在的文件夹）。

我还可以指定自定义路径和文件名。

但是，我想知道是否可以指定路径，然后允许pdf名称作为默认名称，即dwg文件的名称。我无法在脚本中完成此操作。

最后，我希望在ScriptPro中使用此脚本，以便可以将PDF定向到自定义文件夹，同时为一组图形使用默认文件名。

thx/v

BIGAL · 发表于 2022-7-6 23:52:15

通过使用从脚本中调用的lisp，您可以非常简单地编写绘制PDF的脚本，所有困难的事情都是在lisp中完成的。

打开dwg1（加载“plotallpdf”）关闭n

我下面绘制了一系列布局选项卡，并为每个布局制作一个pdf，但也将所有内容合并为一个pdf。

您需要下载合并pdf部分的Ghostscript。
绘图3PDFRANGE2。lsp
GETVALS。lsp

vitruvius · 发表于 2022-7-6 23:59:16

Thx BIGALL，但这对我来说太复杂了。
你能推荐更简单的吗？

BIGAL · 发表于 2022-7-7 00:11:52

这个想法是你的脚本非常简单，lisp完成了所有的工作，而不是脚本。

打开dwg1（加载“myplottopdf”）关闭n
打开dwg2（加载“myplottopdf”）关闭n

BIGAL · 发表于 2022-7-7 00:22:59

下面是一个更简单的lisp，它将绘制所有布局选项卡。您需要更改绘图窗口值-6、-6和807560，1=2是A3图纸，因为我们的标题栏是A1图纸。

copy


; plot layouts to b& w printer
(PROMPT ".....PRINTING DRAWING TO laser printer....")
(setvar "cmddia" 0)
(setvar "filedia" 0)
(setq plotabs nil)
(SETVAR "PDMODE" 0)
(setq dwgname (GETVAR "dwgname"))
(setq lendwg (strlen dwgname))
(setq dwgname (substr dwgname 1 (- lendwg 4)))
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(vlax-for lay (vla-get-Layouts doc)
 (setq plotabs (cons (vla-get-name lay) plotabs))
)
(setq plottablist (acad_strlsort plotabs))
(setq len (length plottablist))
(setq x 0)
(repeat len
 (setq name (nth x plottablist))
 (princ name)
 (if (/= name "Model")
   (progn
     (setq pdfname (strcat "\" dwgname "-" (getvar "ctab") ".pdf" ))
    (COMMAND "-PLOT"  "Y"  "" "dwg to Pdf"
       "Iso full bleed A3 (420.00 x 297.00 MM)" "m" "LANDSCAPE"  "N"   "W"  "-6,-6" "807,560" "1=2"  "C"
       "y" "Designlasercolour.ctb" "Y" "n" "n" "n" pdfName "N" "y"
   )
 )
 (setq x (+ x 1))
)
(setvar "cmddia" 1)
(setvar "filedia" 1)
(setq plottablist nil)
(princ)

[综合讨论] 用于将dwg转换为pdf的脚本

发表回复

精选推荐