使用DWG发布到PDF.pc3并取消文件名提示

M-dub · 发表于 2010-11-4 10:48:04

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

M-dub · 发表于 2010-11-4 11:14:37

找到了。:loco:
在发布窗口中，单击发布选项...按钮和第一个选项(默认输出位置(DWG和绘图到文件))是一个。

mary · 发表于 2011-4-21 21:26:14

刚刚看到你的帖子，想与你分享，我正在运行AutoDWG，它可以轻松地将我的图纸转换为PDF文件格式，不再为AutoCAD而烦恼，我从这里下载了它：http://www.autodwg.com/PDF/

huiz · 发表于 2011-4-21 22:24:21

我认为AutoCAD中还有一个选项，可以在每次保存dwg时自动保存pdf和/或dwf。

Kerry · 发表于 2011-4-22 03:00:42

据我所知没有
...如果有的话，我会把它禁用

Kerry · 发表于 2011-4-22 03:47:01

Mike，
附加的是我的工作：
这是为了从每个绘图的工具栏按钮运行，而不是通过发布者
请注意，我没有修改代码，所以您可能需要。
我从边框中提取修订号并将其附加到基本文件名。
PlotConfigurations从模板绘图中删除并替换...不重要
在Drawing Folder下创建一个文件夹
在那里创建PDF。

copy

;;;---------------------------------------------------------------------------
;;; CodeHimBelonga kdub@theSwamp
;;;
;;; (c:DWGToPDF_A1)
(defun C:DWGToPDF_A1 (/ old-expert rev_value PDFPath dwgname PDFName)
  (DeleteAllPlotConfigurations)
  (setq old-expert (getvar "EXPERT"))
  (setvar "EXPERT" 5)
;; (or (kdub:stringprintable-p (setq rev_value (_getBorderRevision)))
;;      (setq rev_value "--")
;;  )
;; Workaround for forum posting
  (setq rev_value "--")
  (setq PDFPath (strcat (getvar "DWGPREFIX") "PDF\")
        dwgname (vl-filename-base (getvar "DWGNAME"))
        PDFName (strcat PDFPath dwgname "[REV " rev_value "].PDF")
  )
  (vl-mkdir PDFPath)
  (if (and (vl-cmdf "-psetupin"
                    "C:/kdub_SteelTools/BLOCKS/_PLOT_Template_2011.DWG"
                    "*"
           )
           (vl-cmdf "-plot"       "no"          "Model"       "DWGToPDF_A1"
                    "DWG To PDF.pc3"            PDFName       "No"
                    "yes"
                   )
      )
    (princ (strcat "PDF File Created: " PDFName))
    (princ "Failed to create PDF File ")
  )
  (setvar "EXPERT" old-expert)
  (princ)
)
;;;---------------------------------------------------------------------------

copy

;;;---------------------------------------------------------------------------
;;;
(defun DeleteAllPlotConfigurations ()
  (vl-load-com)
  (vlax-for ps (vla-get-plotconfigurations
                 (vla-get-activedocument (vlax-get-acad-object))
               )
    (vla-delete ps)
  )
)
;;;---------------------------------------------------------------------------