[求助]打印纸张类型为什么会出现userXXX? 如何得到想要的？

lotsnow

(defun c:tt ()
(vl-load-com)
(setq acad_objet (vlax-get-acad-object))
(setq layouts (vla-get-activelayout (vla-get-activedocument acad_objet)))
(setq papertype (vla-get-canonicalmedianame layouts))
(alert (strcat "当前纸张类型为:" papertype))
)

上述代码，打印纸张类型为什么会出现userXXX? 如何得到想要的？

比如设定完打印机为"PDF995",  纸张大小为A1, 应用后保存(可以不打印)，运行上述代码，结果显示"当前纸张类型为user140", 而不是想要的"当前纸张类型为A1".不知何故，望高手指点.

lotsnow

望高手指点

龙龙仔

;;無除錯
(defun C:TT (/ ACAD_OBJECT LAYOUTS PAPERTYPE)
  (vl-load-com)
  (setq ACAD_OBJECT (vlax-get-acad-object))
  (setq
    LAYOUTS
     (vla-get-activelayout (vla-get-activedocument ACAD_OBJECT))
  )
  (vla-put-defaultoutputdevice
    (vla-get-output (vla-get-preferences ACAD_OBJECT))
    "PDF995"    ;要先確定有"PDF995"
  )
  (vla-put-canonicalmedianame LAYOUTS "A4") ;要先確定有"A1"
  (setq PAPERTYPE (vla-get-canonicalmedianame LAYOUTS))
  (alert (strcat "當前紙張類型為:" PAPERTYPE))
)

lotsnow

(vla-put-canonicalmedianame LAYOUTS "A4")

中的A4改成A1就不灵光了，还请指点。

好像A3，A4，A5，A6都可以

龙龙仔

應是印表機"PDF995"不支援"A1"

liu22737

lotsnow发表于2008-10-5 0:14:00(defun c:tt ()(vl-load-com)(setq acad_objet (vlax-get-acad-object))(setq layouts (vla-get-activelayout (vla-get-activedocument acad_objet)))(setq papertype (vla-get-canonicalmedia

(vla-RefreshPlotDeviceInfo layouts)

(alert (strcat "当前纸张类型为:" (vla-GetLocaleMediaName layouts papertype)))

QQ28104323

请楼主查看邮件lotsnow@sina.com.cn