一个简单快捷的打印代码，求修订部分代码

hiviki

有大佬能改下这个打印代码吗？
命令Y1=根据代码中默认的打印机和打印样式打印，但是这个貌似无法获取图框的范围。
命令Y3=根据图纸中默认打印布局打印文件。不用更改。

需要更改命令Y1中的代码，无法获取图框的范围。

1. (vl-load-com)(setq mspace (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))))
   
2. (setvar "cmdecho" 0)
   
3. 
   
4. 
   
5. (defun c:y1( / plotdevice  minp maxp  minpoint   maxpoint tkname ourset ilast i  my  ent1  orientation)
   
6.   (setq plotdevice "pdfFactory Pro (6.x)")
   
7. (print "选择图框块" )
   
8.   (SETQ keytk (car (entsel)))
   
9.   (while (or (null keytk) (/= (cdr (assoc '0 (entget  keytk)))  "INSERT"))
   
10.   (SETQ keytk (car (entsel)))
    
11.   )   
    
12.   (setq  tkname (cdr (assoc '2 (entget  keytk)) ))
    
13.   (alert (strcat "你要打印 \" " tkname "\"吗?" ))
    
14. (setq papersize "A3")
    
15. (setq plotstyle "monochrome.ctb")
    
16.   (command "ucs" "w")
    
17. (print "选择您要打印的内容:")
    
18.   (SETQ ourset (ssget (list (cons 2 tkname))))   
    
19. (while (null ourset)
    
20.   (SETQ ourset (ssget (list (cons 2 tkname))))
    
21. )   
    
22. (setq ilast (sslength ourset))
    
23. (setq i 0)(setq iplot 0)
    
24.   (repeat ilast
    
25.          (setq my (ssname ourset i))
    
26.          (setq ent1 (entget my))
    
27.   (if (= (cdr (assoc '2 ent1) ) tkname)
    
28.     (progn   
    
29.       (vla-getboundingbox (vlax-ename->vla-object my) 'minpoint 'maxpoint )
    
30.    (setq minp (vlax-safearray->list  minpoint))
    
31.    (setq maxp (vlax-safearray->list  maxpoint))
    
32.    (if ( > (- (car maxp)(car minp))(- (cadr maxp)(cadr minp)))  (setq orientation "landscape") (setq orientation "portrait"))
    
33.          (command "-plot" "y" "model" plotdevice papersize "Millimeters" orientation
    
34.     "no" "w"  minp  maxp   "fit" "c" "y" plotstyle  "y" "n" "n" "n"  "y")
    
35.     (setq iplot (1+ iplot))
    
36.        )
    
37.      )  
    
38.   (setq i (1+ i))      
    
39.   )
    
40.   (princ "\nThe total isú║")(princ iplot)
    
41.   (print "over!!!")
    
42.   (princ)
    
43. )
    
44. 
    
45. 
    
46. 
    
47. (defun c:y3( / plotdevice  minp maxp  minpoint   maxpoint tkname ourset ilast i  my  ent1  orientation)
    
48. ;(setq plotdevice "pdfFactory Pro (6.x)")
    
49. (print "select keytk" )
    
50.   (SETQ keytk (car (entsel)))
    
51.   (while (or (null keytk) (/= (cdr (assoc '0 (entget  keytk)))  "INSERT"))
    
52.   (SETQ keytk (car (entsel)))
    
53.   )   
    
54.   (setq  tkname (cdr (assoc '2 (entget  keytk)) ))
    
55.   (alert (strcat "Do you want to print \" " tkname "\"?" ))
    
56.   (setq papersize "")
    
57. 
    
58.   (setq plotstyle "")
    
59.    (command "ucs" "w")
    
60. (print "Select what you want to print:")
    
61.   (SETQ ourset (ssget (list (cons 2 tkname))))
    
62. (while (null ourset)
    
63.   (SETQ ourset (ssget (list (cons 2 tkname))))
    
64. )   
    
65. (setq ilast (sslength ourset))
    
66. (setq i 0)(setq iplot 0)
    
67.   (repeat ilast
    
68.          (setq my (ssname ourset i))
    
69.          (setq ent1 (entget my))
    
70.   (if (= (cdr (assoc '2 ent1) ) tkname)
    
71.     (progn   
    
72.       (vla-getboundingbox (vlax-ename->vla-object my) 'minpoint 'maxpoint )
    
73.    (setq minp (vlax-safearray->list  minpoint))
    
74.    (setq maxp (vlax-safearray->list  maxpoint))
    
75.    (if ( > (- (car maxp)(car minp))(- (cadr maxp)(cadr minp)))  (setq orientation "landscape") (setq orientation "portrait"))
    
76.          (command "-plot" "y" "model" "" "" "Millimeters" orientation
    
77.     "no" "w"  minp  maxp   "fit" "c" "y" ""  "y" "n" "n" "n"  "y")
    
78.     (setq iplot (1+ iplot))
    
79.        )
    
80.      )  
    
81.   (setq i (1+ i))      
    
82.   )
    
83.   (princ "\nThe total isú║")(princ iplot)
    
84.   (print "over!!!")
    
85.   (princ)
    
86. )

(vl-load-com)(setq mspace (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))))<br /> (setvar "cmdecho" 0)<br /> <br /> <br /> (defun c:y1( / plotdevice  minp maxp  minpoint   maxpoint tkname ourset ilast i  my  ent1  orientation)<br />   (setq plotdevice "pdfFactory Pro (6.x)")<br /> (print "选择图框块" )<br />   (SETQ keytk (car (entsel)))<br />   (while (or (null keytk) (/= (cdr (assoc '0 (entget  keytk)))  "INSERT"))<br />   (SETQ keytk (car (entsel)))<br />   )   <br />   (setq  tkname (cdr (assoc '2 (entget  keytk)) ))<br />   (alert (strcat "你要打印 \" " tkname "\"吗?" ))<br /> (setq papersize "A3")<br /> (setq plotstyle "monochrome.ctb")<br />   (command "ucs" "w")<br /> (print "选择您要打印的内容:")<br />   (SETQ ourset (ssget (list (cons 2 tkname))))   <br /> (while (null ourset)<br />   (SETQ ourset (ssget (list (cons 2 tkname))))<br /> )   <br /> (setq ilast (sslength ourset))<br /> (setq i 0)(setq iplot 0)<br />   (repeat ilast<br />          (setq my (ssname ourset i))<br />          (setq ent1 (entget my))<br />   (if (= (cdr (assoc '2 ent1) ) tkname) <br />     (progn    <br />       (vla-getboundingbox (vlax-ename->vla-object my) 'minpoint 'maxpoint )<br />    (setq minp (vlax-safearray->list  minpoint)) <br />    (setq maxp (vlax-safearray->list  maxpoint))<br />    (if ( > (- (car maxp)(car minp))(- (cadr maxp)(cadr minp)))  (setq orientation "landscape") (setq orientation "portrait"))<br />          (command "-plot" "y" "model" plotdevice papersize "Millimeters" orientation<br />     "no" "w"  minp  maxp   "fit" "c" "y" plotstyle  "y" "n" "n" "n"  "y")<br />     (setq iplot (1+ iplot)) <br />        )<br />      )  <br />   (setq i (1+ i))      <br />   )<br />   (princ "\nThe total isú║")(princ iplot)<br />   (print "over!!!")<br />   (princ)<br /> )<br /> <br /> <br /> <br /> (defun c:y3( / plotdevice  minp maxp  minpoint   maxpoint tkname ourset ilast i  my  ent1  orientation)<br /> ;(setq plotdevice "pdfFactory Pro (6.x)")<br /> (print "select keytk" )<br />   (SETQ keytk (car (entsel)))<br />   (while (or (null keytk) (/= (cdr (assoc '0 (entget  keytk)))  "INSERT"))<br />   (SETQ keytk (car (entsel)))<br />   )   <br />   (setq  tkname (cdr (assoc '2 (entget  keytk)) ))<br />   (alert (strcat "Do you want to print \" " tkname "\"?" ))<br />   (setq papersize "")<br /> <br />   (setq plotstyle "")<br />    (command "ucs" "w")<br /> (print "Select what you want to print:")<br />   (SETQ ourset (ssget (list (cons 2 tkname))))<br /> (while (null ourset)<br />   (SETQ ourset (ssget (list (cons 2 tkname))))<br /> )   <br /> (setq ilast (sslength ourset))<br /> (setq i 0)(setq iplot 0)<br />   (repeat ilast<br />          (setq my (ssname ourset i))<br />          (setq ent1 (entget my))<br />   (if (= (cdr (assoc '2 ent1) ) tkname) <br />     (progn    <br />       (vla-getboundingbox (vlax-ename->vla-object my) 'minpoint 'maxpoint )<br />    (setq minp (vlax-safearray->list  minpoint)) <br />    (setq maxp (vlax-safearray->list  maxpoint))<br />    (if ( > (- (car maxp)(car minp))(- (cadr maxp)(cadr minp)))  (setq orientation "landscape") (setq orientation "portrait"))<br />          (command "-plot" "y" "model" "" "" "Millimeters" orientation<br />     "no" "w"  minp  maxp   "fit" "c" "y" ""  "y" "n" "n" "n"  "y")<br />     (setq iplot (1+ iplot)) <br />        )<br />      )  <br />   (setq i (1+ i))      <br />   )<br />   (princ "\nThe total isú║")(princ iplot)<br />   (print "over!!!")<br />   (princ)<br /> )