提供打印机名和纸张名，如何取得该纸张的具体尺寸？

clh521

提供打印机名和纸张名，如何取得该纸张的具体尺寸？

比如运行下面的自定义函数：
(get-paper-size "Adobe PDF" "A4")
就得到表(210 297)

这个自定义函数“get-paper-size”如何编写呢？
本人只懂得一点简单的Autolisp，请高手有空帮忙一下，谢谢先

springwillow

试试这个吧

2. (defun get-paper-size (printde paper)
   
3.   (setq AcadObject(vlax-get-acad-object)  
   
4. 　　    AcadDocument(vla-get-ActiveDocument AcadObject)
   
5.         preferenceSel(vla-get-Preferences AcadObject)
   
6.         AcadPref(vla-get-Output preferenceSel)
   
7.         activeLayoutSel(vla-get-ActiveLayout AcadDocument)
   
8.   )
   
9.   (vla-put-DefaultOutputDevice AcadPref printde);设置打印设备
   
10.   (vla-put-CanonicalMediaName activeLayoutSel paper);图纸大小
    
11.   (vla-getpapersize activeLayoutSel 'pWidth 'pHeight)
    
12.   (list (atoi (rtos pWidth)) (atoi (rtos pHeight)))
    
13. )

(defun get-paper-size (printde paper)<br />   (setq AcadObject(vlax-get-acad-object)  <br /> 　　    AcadDocument(vla-get-ActiveDocument AcadObject)<br />         preferenceSel(vla-get-Preferences AcadObject)<br />         AcadPref(vla-get-Output preferenceSel)<br />         activeLayoutSel(vla-get-ActiveLayout AcadDocument)<br />   )<br />   (vla-put-DefaultOutputDevice AcadPref printde);设置打印设备<br />   (vla-put-CanonicalMediaName activeLayoutSel paper);图纸大小<br />   (vla-getpapersize activeLayoutSel 'pWidth 'pHeight)<br />   (list (atoi (rtos pWidth)) (atoi (rtos pHeight)))<br /> )

clh521

springwillow 发表于 2015-3-4 16:27
试试这个吧

谢谢springwillow帮忙，
但试了下，程序运行到这句(vla-put-CanonicalMediaName activeLayoutSel paper)时出现错误提示：
Automation 错误。 输入无效

能帮忙再改下吗？

springwillow

clh521 发表于 2015-3-4 21:21
谢谢springwillow帮忙，
但试了下，程序运行到这句(vla-put-CanonicalMediaName activeLayoutSel paper) ...

要保证你的打印机支持你所设的图纸类型，不支持的话就会出错，所以程序一般都不是这么用的，都是先用代码得至系统的打印机列表，再得到可以纸张列表，然后去选择使用。你这样很容易出现纸线与打印机可以纸张不符的情况，而且你的打印机名称也要和系统中的名称完全一样才行（包括空格)。

clh521

springwillow 发表于 2015-3-5 10:57
要保证你的打印机支持你所设的图纸类型，不支持的话就会出错，所以程序一般都不是这么用的，都是先用代码 ...

我加载此函数后，在命令行输入(get-paper-size "Adobe PDF" "A4")回车也不行哦，"Adobe PDF"我确定是支持"A4"的，

springwillow

clh521 发表于 2015-3-5 18:48
我加载此函数后，在命令行输入(get-paper-size "Adobe PDF" "A4")回车也不行哦，"Adobe PDF"我确定是支持 ...

我这里试过了，没有问题。要保证你的CAD装了这个打印机才可以啊！

clh521

springwillow 发表于 2015-3-6 08:33
我这里试过了，没有问题。要保证你的CAD装了这个打印机才可以啊！

我仔细测试过了，还是错:
1.先把打印机设置为无，点“应用到布局”，如下图

2.加载函数后，再在命令栏输入(get-paper-size "Adobe PDF" "A4")，就出错了，如下图

3.分析原因：可能是错在这一句上(vla-put-DefaultOutputDevice AcadPref printde);设置打印设备
这一句并没有正确的把打印机设置为"Adobe PDF"，所以就出错了

当然了，如果打印机不是设置为“无”，那就不会出错，因为基本上所有的打印机都是支持“A4”图纸的
注：我的CAD是安装了"Adobe PDF"打印机了的。

兰伯特

谢谢老师的分享
老师这个不能获取局域网共享的打印机的纸张尺寸,
老师能不能再优化一下呢.