[求助]如何用Autolisp程序提取打印对话框中的打印机及纸张尺寸数据？

zkaijun

[求助]如何用Autolisp程序提取打印对话框中的打印机及纸张尺寸数据？

108848

这个恐怕不行吧

nonsmall

获取所有可用的打印设备名称

(vlax-invoke-method (vlax-get (vlax-get (vlax-get-acad-object) 'ActiveDocument) 'ActiveLayout) 'GetPlotDeviceNames )

纸张尺寸要麻烦一点

获取所有可用的打印设备名称

GetPlotDeviceNames

因为有的打印机在每台电脑的本地名称不同 自己写个判断

GetLocaleMediaName

jaminth

2. (vl-load-com)
3. (setq cr_layout (vla-get-activelayout (vla-get-activedocument (vlax-get-acad-object))))
4. (setq papersize_list (vlax-safearray->list (vlax-variant-value (vla-GetCanonicalMediaNames cr_layout))))
5. (foreach EachSize papersize_list (setq PaperSizeNameLst (append PaperSizeNameLst (list (vla-GetLocaleMediaName cr_layout EachSize)))))
6. (if PaperSizeNameLst(setq papersize_list (vl-sort PaperSizeNameLst '<)));取得最终的图纸尺寸列表(过滤userxxx)

(vl-load-com) (setq cr_layout (vla-get-activelayout (vla-get-activedocument (vlax-get-acad-object)))) (setq papersize_list (vlax-safearray->list (vlax-variant-value (vla-GetCanonicalMediaNames cr_layout)))) (foreach EachSize papersize_list (setq PaperSizeNameLst (append PaperSizeNameLst (list (vla-GetLocaleMediaName cr_layout EachSize))))) (if PaperSizeNameLst(setq papersize_list (vl-sort PaperSizeNameLst '<)));取得最终的图纸尺寸列表(过滤userxxx)

0451doctor

正在找这个，谢谢

到底行不行啊！