切换打印设备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)
)
陈伟 发表于 2024-4-12 18:35
切换打印设备WIN7系统可以更新纸张WIN10不可以
应该更新pc3的打印机才可以，用pc3打印下才可以更新，
本帖最后由 陈伟 于 2024-4-15 09:10 编辑
不重启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")))
(IFprintDTP(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) )
(IFprintlst1(PRINC (STRCAT "\nPlotDevices:" printlst )))
(IFprintlst1(vla-put-configname (vla-get-activelayout (vla-get-activedocument (vlax-get-Acad-object))) printlst))
(setq i (+ 1 i)))
))
)
(chaxundayingshebei)
陈伟 发表于 2024-4-13 19:01
不重启CAD更新纸张 目前WIN7 WIN10均成功，原理，切换打印设备，需要切换至带.pc3的打印设备，不能是临时设 ...
感谢大佬研究精神！
本帖最后由 sandyvs 于 2024-4-16 12:29 编辑
陈伟 发表于 2024-4-13 19:01
不重启CAD更新纸张 目前WIN7 WIN10均成功，原理，切换打印设备，需要切换至带.pc3的打印设备，不能是临时设 ...
刚开始不行，恢复了下PDFfactory默认值可以了
本帖最后由 sandyvs 于 2024-4-19 18:29 编辑
陈伟 发表于 2024-4-13 19:01
不重启CAD更新纸张 目前WIN7 WIN10均成功，原理，切换打印设备，需要切换至带.pc3的打印设备，不能是临时设 ...
还有个问题，如何控制打印出来的pdf方向啊？现在都是纵向
好吧，改pdffactory Pro.pc3为横向就行
本帖最后由 陈伟 于 2024-4-17 22:30 编辑
终极解决办法，用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")
陈伟 发表于 2024-4-17 18:00
终极解决办法，用CAD自带的纸张打印一次就能更新，提前使用了PDFfactory再切换PC3不能根系纸张！！！测试一 ...
那就恢复下PDFfactory.pc3默认值吧，我恢复默认值就一直可以用
lengxiaxi 发表于 2024-4-8 08:05
priprinter不香吗
这款打印机，文件名有特殊符号的，比如■、【】等等，均会变成-代替。
这个可以好好学习一下