获取打印机以及相应纸张（更新为批量打印，附件在15楼）

clh521

多谢多谢，我找了好久的代码终于有了，顶

clh521

但打印机和纸张有了，但如何获得纸张的具体规格呢？比如A4的具体规格为297*210，这个规格如何得到呢，打印程序需要用到这个规格来计算打印比例啊。

feng582304

clh521 发表于 2014-9-19 08:33
但打印机和纸张有了，但如何获得纸张的具体规格呢？比如A4的具体规格为297*210，这个规格如何得到呢，打印程 ...

给你个更完整可行的。

2. (defun feng:plot ( ss / layout file dcl nameli sizeli pr w h styleli )
   
3.   (setq layout (vla-get-ActiveLayout (vla-get-ActiveDocument (vlax-get-acad-object)))
   
4.         file (open (setq dcl (VL-FILENAME-MKTEMP nil nil ".dcl")) "w")
   
5.         )
   
6.   (WRITE-LINE
   
7.     "plot:dialog {
   
8.     label = "打印配置" ;
   
9.     width = 150 ;
   
10.     :row {
    
11.     :column {
    
12.         :list_box {
    
13.             label = "打印机名称：" ;
    
14.             key = "name" ;
    
15.             height = 30 ;
    
16.         }
    
17.          :list_box {
    
18.         label = "样式：" ;
    
19.             key = "style" ;
    
20.         }
    
21.         :text {
    
22.                 key = "1" ;
    
23.             }
    
24.         :text {
    
25.                 key = "2" ;
    
26.             }
    
27.         :text {
    
28.                 key = "3" ;
    
29.             }
    
30.         }
    
31.         :list_box {
    
32.         label = "纸张：" ;
    
33.             key = "size" ;
    
34.             height = 50 ;
    
35.         }
    
36.     }
    
37.     ok_cancel;
    
38.     }"
    
39.     file
    
40.     )
    
41.   (close file)
    
42.   (NEW_DIALOG "plot" (LOAD_DIALOG dcl))
    
43.   (START_LIST "name")
    
44.   (MAPCAR 'ADD_LIST (setq nameli (vlax-safearray->list (vlax-variant-value (vla-GetPlotDeviceNames layout)))))
    
45.   (END_LIST)
    
46.   (START_LIST "style")
    
47.   (MAPCAR 'ADD_LIST (setq styleli (vlax-safearray->list (vlax-variant-value (vla-GetPlotStyleTableNames layout)))))
    
48.   (END_LIST)
    
49.   (vla-RefreshPlotDeviceInfo layout)
    
50.   (START_LIST "size")
    
51.   (MAPCAR 'ADD_LIST (MAPCAR '(LAMBDA (x) (vla-GetLocaleMediaName layout x)) (setq sizeli (vlax-safearray->list (vlax-variant-value (vla-GetCanonicalMediaNames layout))))))
    
52.   (END_LIST)
    
53.   (SET_TILE "1" (strcat "打印设备：" (vla-get-ConfigName layout)))
    
54.   (vla-GetPaperSize layout 'w 'h)
    
55.   (SET_TILE "2" (strcat "纸张尺寸：" (vla-GetLocaleMediaName layout (vla-get-CanonicalMediaName layout)) "--(" (itoa (fix w)) "x" (itoa (fix h)) ")"))
    
56.   (SET_TILE "3" (Strcat "打印样式：" (nth (atoi (GET_TILE "style")) styleli)))
    
57.   (ACTION_TILE "name" "(SET_TILE "1" (strcat "打印设备：" (nth (atoi $VALUE) nameli)))(setq sizeli (feng:plot:size layout nameli $VALUE))")
    
58.   (ACTION_TILE "size" "(feng:plot:paper layout sizeli $VALUE)")
    
59.   (ACTION_TILE "style" "(SET_TILE "3" (strcat "打印样式：" (nth (atoi $VALUE) styleli)))")
    
60.   (ACTION_TILE "accept" "(setq pr (GET_TILE "style")) (DONE_DIALOG 1)")
    
61.   (if (= (START_DIALOG) 1) (feng:plot:done layout ss (nth (atoi pr) styleli)))
    
62.   )
    
63. (defun feng:plot:paper ( layout li nu / w h )
    
64.   (vla-put-CanonicalMediaName layout (nth (atoi nu) li))
    
65.   (vla-GetPaperSize layout 'w 'h)
    
66.   (SET_TILE "2" (strcat "纸张尺寸：" (vla-GetLocaleMediaName layout (vla-get-CanonicalMediaName layout)) "--(" (itoa (fix w)) "x" (itoa (fix h)) ")"))
    
67.   (list w h)
    
68.   )
    
69. (defun feng:plot:size ( layout li nu / sizeli w h )
    
70.   (vla-put-ConfigName layout (nth (atoi nu) li))
    
71.   (vla-RefreshPlotDeviceInfo layout)
    
72.   (START_LIST "size")
    
73.   (setq sizeli (vlax-safearray->list (vlax-variant-value (vla-GetCanonicalMediaNames layout))))
    
74.   (MAPCAR 'ADD_LIST (MAPCAR '(LAMBDA (x) (vla-GetLocaleMediaName layout x)) sizeli))
    
75.   (END_LIST)
    
76.   (vla-put-CanonicalMediaName layout (nth 0 sizeli))
    
77.   (vla-GetPaperSize layout 'w 'h)
    
78.   (SET_TILE "2" (strcat "纸张尺寸：" (vla-GetLocaleMediaName layout (vla-get-CanonicalMediaName layout)) "--(" (itoa (fix w)) "x" (itoa (fix h)) ")"))
    
79.   sizeli
    
80.   )
    
81. (defun feng:plot:done ( layout ss style / driver paper w h bl n li p1 p2 )
    
82.   (setq driver (vla-get-ConfigName layout)
    
83.         paper (vla-GetLocaleMediaName layout (vla-get-CanonicalMediaName layout))
    
84.         bl (getint "\n请输入比例<布满>1=")
    
85.         )
    
86.   (vla-GetPaperSize layout 'w 'h)
    
87.   (repeat (setq n (sslength ss))
    
88.     (setq li (cons (vlax-ename->vla-object (ssname ss (setq n (1- n)))) li))
    
89.     )
    
90.   (setq li (MAPCAR '(LAMBDA (x) (vla-GetBoundingBox x 'p1 'p2) (MAPCAR 'vlax-safearray->list (list p1 p2))) li))
    
91.   (MAPCAR '(LAMBDA (x) (command "plot" "y" "" driver paper "m"
    
92.                                 (if (and (>= w h) (>= (- (car (last x)) (car (car x))) (- (cadr (last x)) (cadr (car x))))) "l" (progn (setq n w w h h w) "p"))
    
93.                                 "y" "w" (car x) (last x)
    
94.                                 (if (or (null bl) (<= (* bl w 0.1) (- (car (last x)) (car (car x)))) (<= (* bl h 0.1) (- (cadr (last x)) (cadr (car x)))))
    
95.                                   "f"
    
96.                                   (strcat "1=" (itoa bl))
    
97.                                   )
    
98.                                 "c" "y" style "y" "a" "n" "y" "y")) li)
    
99.   )
    
100. (feng:plot (ssget))

(defun feng:plot ( ss / layout file dcl nameli sizeli pr w h styleli )<br />   (setq layout (vla-get-ActiveLayout (vla-get-ActiveDocument (vlax-get-acad-object)))<br />         file (open (setq dcl (VL-FILENAME-MKTEMP nil nil ".dcl")) "w")<br />         )<br />   (WRITE-LINE<br />     "plot:dialog {<br />     label = "打印配置" ;<br />     width = 150 ;<br />     :row {<br />     :column {<br />         :list_box {<br />             label = "打印机名称：" ;<br />             key = "name" ;<br />             height = 30 ;<br />         }<br />          :list_box {<br />         label = "样式：" ;<br />             key = "style" ;<br />         }<br />         :text {<br />                 key = "1" ;<br />             }<br />         :text {<br />                 key = "2" ;<br />             }<br />         :text {<br />                 key = "3" ;<br />             }<br />         }<br />         :list_box {<br />         label = "纸张：" ;<br />             key = "size" ;<br />             height = 50 ;<br />         }<br />     }<br />     ok_cancel;<br />     }"<br />     file<br />     )<br />   (close file)<br />   (NEW_DIALOG "plot" (LOAD_DIALOG dcl))<br />   (START_LIST "name")<br />   (MAPCAR 'ADD_LIST (setq nameli (vlax-safearray->list (vlax-variant-value (vla-GetPlotDeviceNames layout)))))<br />   (END_LIST)<br />   (START_LIST "style")<br />   (MAPCAR 'ADD_LIST (setq styleli (vlax-safearray->list (vlax-variant-value (vla-GetPlotStyleTableNames layout)))))<br />   (END_LIST)<br />   (vla-RefreshPlotDeviceInfo layout)<br />   (START_LIST "size")<br />   (MAPCAR 'ADD_LIST (MAPCAR '(LAMBDA (x) (vla-GetLocaleMediaName layout x)) (setq sizeli (vlax-safearray->list (vlax-variant-value (vla-GetCanonicalMediaNames layout))))))<br />   (END_LIST)<br />   (SET_TILE "1" (strcat "打印设备：" (vla-get-ConfigName layout)))<br />   (vla-GetPaperSize layout 'w 'h)<br />   (SET_TILE "2" (strcat "纸张尺寸：" (vla-GetLocaleMediaName layout (vla-get-CanonicalMediaName layout)) "--(" (itoa (fix w)) "x" (itoa (fix h)) ")"))<br />   (SET_TILE "3" (Strcat "打印样式：" (nth (atoi (GET_TILE "style")) styleli)))<br />   (ACTION_TILE "name" "(SET_TILE "1" (strcat "打印设备：" (nth (atoi $VALUE) nameli)))(setq sizeli (feng:plot:size layout nameli $VALUE))")<br />   (ACTION_TILE "size" "(feng:plot:paper layout sizeli $VALUE)")<br />   (ACTION_TILE "style" "(SET_TILE "3" (strcat "打印样式：" (nth (atoi $VALUE) styleli)))")<br />   (ACTION_TILE "accept" "(setq pr (GET_TILE "style")) (DONE_DIALOG 1)")<br />   (if (= (START_DIALOG) 1) (feng:plot:done layout ss (nth (atoi pr) styleli)))<br />   )<br /> (defun feng:plot:paper ( layout li nu / w h )<br />   (vla-put-CanonicalMediaName layout (nth (atoi nu) li))<br />   (vla-GetPaperSize layout 'w 'h)<br />   (SET_TILE "2" (strcat "纸张尺寸：" (vla-GetLocaleMediaName layout (vla-get-CanonicalMediaName layout)) "--(" (itoa (fix w)) "x" (itoa (fix h)) ")"))<br />   (list w h)<br />   )<br /> (defun feng:plot:size ( layout li nu / sizeli w h )<br />   (vla-put-ConfigName layout (nth (atoi nu) li))<br />   (vla-RefreshPlotDeviceInfo layout)<br />   (START_LIST "size")<br />   (setq sizeli (vlax-safearray->list (vlax-variant-value (vla-GetCanonicalMediaNames layout))))<br />   (MAPCAR 'ADD_LIST (MAPCAR '(LAMBDA (x) (vla-GetLocaleMediaName layout x)) sizeli))<br />   (END_LIST)<br />   (vla-put-CanonicalMediaName layout (nth 0 sizeli))<br />   (vla-GetPaperSize layout 'w 'h)<br />   (SET_TILE "2" (strcat "纸张尺寸：" (vla-GetLocaleMediaName layout (vla-get-CanonicalMediaName layout)) "--(" (itoa (fix w)) "x" (itoa (fix h)) ")"))<br />   sizeli<br />   )<br /> (defun feng:plot:done ( layout ss style / driver paper w h bl n li p1 p2 )<br />   (setq driver (vla-get-ConfigName layout)<br />         paper (vla-GetLocaleMediaName layout (vla-get-CanonicalMediaName layout))<br />         bl (getint "\n请输入比例<布满>1=")<br />         )<br />   (vla-GetPaperSize layout 'w 'h)<br />   (repeat (setq n (sslength ss))<br />     (setq li (cons (vlax-ename->vla-object (ssname ss (setq n (1- n)))) li))<br />     )<br />   (setq li (MAPCAR '(LAMBDA (x) (vla-GetBoundingBox x 'p1 'p2) (MAPCAR 'vlax-safearray->list (list p1 p2))) li))<br />   (MAPCAR '(LAMBDA (x) (command "plot" "y" "" driver paper "m"<br />                                 (if (and (>= w h) (>= (- (car (last x)) (car (car x))) (- (cadr (last x)) (cadr (car x))))) "l" (progn (setq n w w h h w) "p"))<br />                                 "y" "w" (car x) (last x)<br />                                 (if (or (null bl) (<= (* bl w 0.1) (- (car (last x)) (car (car x)))) (<= (* bl h 0.1) (- (cadr (last x)) (cadr (car x)))))<br />                                   "f"<br />                                   (strcat "1=" (itoa bl))<br />                                   )<br />                                 "c" "y" style "y" "a" "n" "y" "y")) li)<br />   )<br /> (feng:plot (ssget))

clh521

多谢多谢，试了一下可以哦，抽点时间研究下你的程序，现在正想编个适合自已的打印程序呢

feng582304

之前的代码中的横竖向判断有点问题，修改了另一种判断方式，应该说现在比较理想可靠。只提供布满比例的打印方式，因为有比例的话，有时横竖向判断就没有意义了（个人看法）。
针对可能出现因打印设备丢失而造成的错误，重新更新附件。（不知道之前下载的朋友可不可以再下载，如果不行的话请留言）

spp_wall

模型状态：ActiveX 服务器返回错误: 无效索引。

布局：Automation 错误。 输入无效

hao3ren

确实有楼上的问题

feng582304

奇怪，我测试时没有出现以上问题呢。我用的是xp+cad2008，不知道你们用的是什么版本。
提醒：打印机必须是可用状态。

hao3ren

XP+CAD2006
命令: (feng:plot (ssget))

选择对象: 找到 1 个

选择对象:
; 错误: ActiveX 服务器返回错误: 无效索引。

XP+CAD2008
命令: (feng:plot (ssget))

选择对象: 找到 1 个

选择对象:
然后一闪而过

feng582304

hao3ren 发表于 2014-11-13 11:39
XP+CAD2006
命令: (feng:plot (ssget))

对话框都没出现？