[求助]打印纸张类型为什么会出现userXXX? 如何得到想要的？
<p><font face="宋体" size="2">(defun c:tt ()<br/>(vl-load-com)<br/>(setq acad_objet (vlax-get-acad-object))<br/>(setq layouts (vla-get-activelayout (vla-get-activedocument acad_objet)))<br/>(setq papertype (vla-get-canonicalmedianame layouts))<br/>(alert (strcat "当前纸张类型为:" papertype))<br/>)<br/><br/>上述代码，打印纸张类型为什么会出现userXXX? 如何得到想要的？</font></p><p>比如设定完打印机为"PDF995", 纸张大小为A1, 应用后保存(可以不打印)，运行上述代码，结果显示"<font face="宋体" size="2">当前纸张类型为user140", 而不是想要的"当前纸张类型为A1".不知何故，望高手指点.</font></p> <font face="宋体" size="2">望高手指点</font> ;;無除錯<br/>(defun C:TT (/ ACAD_OBJECT LAYOUTS PAPERTYPE)<br/> (vl-load-com)<br/> (setq ACAD_OBJECT (vlax-get-acad-object))<br/> (setq<br/> LAYOUTS<br/> (vla-get-activelayout (vla-get-activedocument ACAD_OBJECT))<br/> )<br/> (vla-put-defaultoutputdevice<br/> (vla-get-output (vla-get-preferences ACAD_OBJECT))<br/> "PDF995" ;要先確定有"PDF995"<br/> )<br/> (vla-put-canonicalmedianame LAYOUTS "A4") ;要先確定有"A1"<br/> (setq PAPERTYPE (vla-get-canonicalmedianame LAYOUTS))<br/> (alert (strcat "當前紙張類型為:" PAPERTYPE))<br/>)<br/> <p>(vla-put-canonicalmedianame LAYOUTS "A4")</p><p>中的A4改成A1就不灵光了，还请指点。</p><p>好像A3，A4，A5，A6都可以</p> 應是印表機"PDF995"不支援"A1"<br/> 本帖最后由 作者 于 2008-11-1 11:00:15 编辑 <br /><br /> lotsnow发表于2008-10-5 0:14:00static/image/common/back.gif(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
<p><font face="宋体" size="2">(vla-RefreshPlotDeviceInfo layouts)</font></p><p><font face="宋体" size="2">(alert (strcat "当前纸张类型为:" </font>(vla-GetLocaleMediaName <font face="宋体" size="2">layouts papertype)))</font></p><p></p> 本帖最后由 作者 于 2008-10-29 19:53:22 编辑 <br /><br /> <p>请楼主查看邮件<font color="#7f7f7f"><a href="mailto:lotsnow@sina.com.cn">lotsnow@sina.com.cn</a></font></p>
页:
[1]