关于PDFfactory自定义图纸尺寸（已解决）

陈伟

切换打印设备  WIN7系统可以更新纸张  WIN10不可以  


(defun c:BBB (/ return wshnetwork printlst i)
  (vl-catch-all-apply
    '(lambda ()
       (setq WshNetwork (vlax-create-object "wscript.Network"))
       (setq return (vlax-invoke WshNetwork 'EnumPrinterConnections))
      (setq i 1)
       (vlax-release-object WshNetwork)     
  (repeat (/ (vlax-get return 'length) 2)
  (setq printlst (cons (vla-item return i) printlst))
  (setq i (+ 2 i))
  
     )
  )
)
(setq printlst0 (nth 0 printlst))
(vla-put-configname (vla-get-activelayout (vla-get-activedocument (vlax-get-Acad-object))) printlst0)
(setq printlst1 (nth 1 printlst))
(vla-put-configname (vla-get-activelayout (vla-get-activedocument (vlax-get-Acad-object))) printlst1)   

)

sandyvs

陈伟 发表于 2024-4-12 18:35
切换打印设备  WIN7系统可以更新纸张  WIN10不可以  

应该更新pc3的打印机才可以，用pc3打印下才可以更新，

陈伟

不重启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)

sandyvs

陈伟 发表于 2024-4-13 19:01
不重启CAD更新纸张 目前WIN7 WIN10均成功，原理，切换打印设备，需要切换至带.pc3的打印设备，不能是临时设 ...

感谢大佬研究精神！

sandyvs

陈伟 发表于 2024-4-13 19:01
不重启CAD更新纸张 目前WIN7 WIN10均成功，原理，切换打印设备，需要切换至带.pc3的打印设备，不能是临时设 ...

刚开始不行，恢复了下PDFfactory默认值可以了

sandyvs

陈伟 发表于 2024-4-13 19:01
不重启CAD更新纸张 目前WIN7 WIN10均成功，原理，切换打印设备，需要切换至带.pc3的打印设备，不能是临时设 ...

还有个问题，如何控制打印出来的pdf方向啊？现在都是纵向

好吧，改pdffactory Pro.pc3为横向就行

陈伟

终极解决办法，用CAD自带的纸张打印一次就能更新，提前使用了PDFfactory再切换PC3不能根系纸张！！！测试一下是不是可以！！


测试办公室WIN7电脑可以  家里的WIN10不可以


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


(command "-plot"  "y"  ""  "DWG To PDF.pc3"  "ISO expand A3 (420.00 x 297.00 毫米)" ""  "p"  ""   "W"  '(0 0)    '(0.1 0.1)   "F"  "C"      "N"   "."    "N"  "Y"    "Y"  "n"  "y")

sandyvs

陈伟 发表于 2024-4-17 18:00
终极解决办法，用CAD自带的纸张打印一次就能更新，提前使用了PDFfactory再切换PC3不能根系纸张！！！测试一 ...

那就恢复下PDFfactory.pc3默认值吧，我恢复默认值就一直可以用