使用DWG发布到PDF.pc3并取消文件名提示
**** Hidden Message ***** 找到了。:loco:在发布窗口中，单击发布选项...按钮和第一个选项(默认输出位置(DWG和绘图到文件))是一个。 刚刚看到你的帖子，想与你分享，我正在运行AutoDWG，它可以轻松地将我的图纸转换为PDF文件格式，不再为AutoCAD而烦恼，我从这里下载了它：http://www.autodwg.com/PDF/
我认为AutoCAD中还有一个选项，可以在每次保存dwg时自动保存pdf和/或dwf。
据我所知没有
...如果有的话，我会把它禁用 Mike，
附加的是我的工作：
这是为了从每个绘图的工具栏按钮运行，而不是通过发布者
请注意，我没有修改代码，所以您可能需要。
我从边框中提取修订号并将其附加到基本文件名。
PlotConfigurations从模板绘图中删除并替换...不重要
在Drawing Folder下创建一个文件夹
在那里创建PDF。
;;;---------------------------------------------------------------------------
;;; 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 ".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)
)
;;;---------------------------------------------------------------------------
;;;---------------------------------------------------------------------------
;;;
(defun DeleteAllPlotConfigurations ()
(vl-load-com)
(vlax-for ps (vla-get-plotconfigurations
(vla-get-activedocument (vlax-get-acad-object))
)
(vla-delete ps)
)
)
;;;---------------------------------------------------------------------------
自动发布和设置保存工作吗？
我建议您查看DWG到PDF在线转换器，这样您就可以获得很多网站并检查网站的评分。根据评分使用一个质量好的网站，您将获得DWG到PDF的格式。
页:
[1]