pdfFactory设置自定义图幅 CAD设默认打印机打印样式 配合batchplot实现一键批量打印

陈伟

两个插件可用于配合于ludaweb大神编写的batchplot批打
1、设置默认打印机，默认打印样式(我是设置启动CAD自动加载)
需换成自己的打印样式和打印机，不然会出错；



2、pdfFactory设置自定义图幅（《房屋建筑制图统一标准》GB/T 50001-2017）



加入pdfFactory版本的判断，加入是否已设置自定义图幅的判断，如已设置就退出程序，避免重复进行设置；



pdfFactory修改注册表自定义了纸张之后不能立即刷新，必须重新启动CAD之后才能刷新，不知道有没有解决办法！！！！


用非PDFfactory打印机带PC3的打印一下就可以更新  不知道对不对  如"DWG To PDF.pc3"



(defun linshidaying ()

(command "-plot"  "y"  ""  "DWF6 ePlot.pc3"  "ISO expand A3 (420.00 x 297.00 毫米)" ""  "p"  ""   "W"  '(0 0)    '(0.1 0.1)   "F"  "C"      "N"   "."    "N"  "Y"    "临时打印文件"  "n"  "y")

(vl-file-delete(findfile "临时打印文件.dwf"))

)

(linshidaying)



不重启CAD更新纸张 目前WIN7 WIN10均成功，原理，切换打印设备，需要切换至带.pc3的打印设备，不能是临时设备，如我的CAD打印设备中的红色粗字部分("无" "OneNote for Windows 10" "pdfFactory Pro" "Microsoft XPS Document Writer" "Microsoft Print to PDF" "Fax" "pdfFactory Pro (临时).pc3" "AutoCAD PDF (General Documentation).pc3" "AutoCAD PDF (High Quality Print).pc3" "AutoCAD PDF (Smallest File).pc3" "AutoCAD PDF (Web and Mobile).pc3" "Default Windows System Printer.pc3" "DWF6 ePlot.pc3" "DWFx ePlot (XPS Compatible).pc3" "DWG To PDF.pc3" "PS.pc3" "PublishToWeb JPG.pc3" "PublishToWeb PNG.pc3" "syzpdf.pc3" "VitalPDF.pc3")



(defun GetPlotDevices ()
  (setq dayingshebei (vlax-safearray->list
    (vlax-variant-value
      (vla-getplotdevicenames
(vla-item (vla-get-layouts
      (vla-get-activedocument (vlax-get-acad-object))
    ) "Model")))))
)

(defun chaxundayingshebei ()
(setq printDTP (findfile(strcat (vl-registry-read (strcat "HKEY_CURRENT_USER\\" (vlax-product-key)) "RoamableRootFolder")"Plotters\\DWG To PDF.pc3")))
(IF  printDTP(vla-put-configname (vla-get-activelayout (vla-get-activedocument (vlax-get-Acad-object))) "DWG To PDF.pc3"))
(IF (NOT printDTP)(progn(GetPlotDevices)
(setq i 0)
(repeat (length dayingshebei)
(setq printlst (nth i dayingshebei))
(setq printlst1  (vl-string-search ".pc3" printlst) )
(IF  printlst1(PRINC (STRCAT "\nPlotDevices:" printlst )))
(IF  printlst1(vla-put-configname (vla-get-activelayout (vla-get-activedocument (vlax-get-Acad-object))) printlst))
(setq i (+ 1 i)))
))
)
(chaxundayingshebei)

chenry676

楼主可否解决浩辰秋枫批打PDF的时候，自动旋转图纸横向？

muai2010

最后一个币了，掏空了，我喜欢你这个快捷命令

行天下

这就没必要收币了吧？

yanchao316

多谢分享，默认打印这个有点问题。
设置默认打印机，默认打印样式.lsp") ; 错误: Automation 错误。 输入无效

无尽的手残

这个自定义了纸张还得重启CAD解决没？

chshsl

支持，大家一起把这个插件做的越来越完善。

dazuyishi1314

感谢分享，感觉是好用的东西，下载来试试看

伊偭

感谢分享，比较实用

sandyvs

无尽的手残 发表于 2024-1-6 23:37
这个自定义了纸张还得重启CAD解决没？

试试用pdfFactory Pro.pc3文件打印？