新手问题：如何在不选择图框的情况下获得顶点从而直接打印至PDF？

jenlin

纯新手，提问可能也非常小白。
问题：我需要在AutoCAD 打开图纸的情况下，通过执行命令，直接将当前图纸打印至PDF。
需要选择合适的图幅，需要充满PDF页面。

在论坛里找了一圈大佬们的源码，没找到合适的（可能自己也不太会用这些代码）。
但发现有一个大佬的代码特别时候我的理解，只是这个代码需要人工干预选择图的坐上角和右下角，我希望是通过程序自动识别的。
请问大佬们该如何实现。感谢！！！

1. (defun c:tt()   
   
2.   (setq p1 (getpoint "\n 左上角："))
   
3.   (setq p2 (getpoint "\n 右下角："))
   
4.   (princ "\n")
   
5.   (princ p1)  
   
6.   (princ "\n")
   
7.   (princ p2)
   
8.   (princ "\n")  
   
9.   (gm-dayin "dwg to pdf.pc3" "ISO A3 (420.00 x 297.00 毫米)" p1 p2 "y" 1 "d:\\1.pdf" T "y" )
   
10. )
    
11. 
    
12. ;打印函数，lujing可为nil，orpdf为T或nil，为T是打印pdf，为nil是打印到设备
    
13. (defun gm-dayin(dayinji tufu p1 p2 xiankuan fenshu lujing orpdf yulan / acaddoc fangxiang jixu medianame mspace p3 plot pointtemp1 pointtemp2 st x x1 x2 y y1 y2)
    
14.   ;设定系统变量，确保cad在前台进行打印，这样后一次打印会在前一次打印完成后才开始，避免错误
    
15.   (setvar "backgroundplot" 0)
    
16.   ;由p1和p2坐标判断是横向还是纵向
    
17.   (if (> (cadr p1) (cadr p2)) (setq p3 p1
    
18.               p1 (list (car p1) (cadr p2) 0)
    
19.               p2 (list (car p2) (cadr p3) 0)))
    
20.   (setq x1 (car p1) y1 (cadr p1) x2 (car p2) y2 (cadr p2))
    
21.   (setq x (abs (- x1 x2)) y (abs (- y1 y2)) )
    
22.   (if (> y x) (setq st "p") (setq st "l"))
    
23.   ;当路径不为nil时，给路径加上后缀名
    
24.   (if (/= lujing nil)(setq lujing (strcat lujing ".pdf")))
    
25.   (setq acaddoc (vla-get-activedocument(vlax-get-acad-object))
    
26.     mspace(vla-get-activelayout acaddoc)
    
27.     plot (vla-get-plot acaddoc)
    
28.   )
    
29.   (setq p1 (trans p1 0  2)
    
30.     p2 (trans p2 0 2)
    
31.   )
    
32.   ;处理p1和p2
    
33.   (setq p1 (reverse (cdr (reverse p1))))
    
34.   (setq p2 (reverse (cdr (reverse p2))))
    
35.   (setq pointTemp1 (vlax-make-safearray vlax-vbDouble '(0 . 1)))  
    
36.   (vlax-safearray-fill pointtemp1 p1)
    
37.   (setq pointTemp2 (vlax-make-safearray vlax-vbDouble '(0 . 1)))  
    
38.   (vlax-safearray-fill pointtemp2 p2)
    
39.   
    
40.   ;设定打印机
    
41.   (vla-put-configname mspace dayinji)
    
42.   ;设定打印样式表
    
43.   (vla-put-stylesheet mspace "monochrome.ctb" )
    
44.   (vla-refreshplotdeviceinfo mspace)
    
45.   ;设定打印区域
    
46.   (vla-setwindowtoplot mspace pointtemp1 pointtemp2)
    
47.   ;设定打印形式为窗口打印，必须在设定打印区域之后
    
48.   (vla-put-plottype mspace acWindow)
    
49.   ;设定布满图纸打印
    
50.   (vla-put-standardscale mspace acscaletofit)
    
51.   ;设定是否居中打印
    
52.   (vla-put-centerplot mspace :vlax-true)
    
53.   
    
54.   ;不居中打印时的设置
    
55.   ;(setq p3 (vlax-make-safearray vlax-vbDouble '(0 . 1)))  
    
56.   ;(vlax-safearray-put-element p3 0 0)
    
57.   ;(vlax-safearray-put-element p3 1 0)
    
58.   ;(vla-put-plotorigin mspace p3)
    
59.   ;将图纸大小转换成标准介质名称返回
    
60.   (setq medianame (gm-putlocalemedianame mspace tufu))
    
61.   (vla-put-canonicalmedianame mspace medianame)
    
62.   (vla-getpapersize mspace 'chang 'kuan)
    
63.   (if (> chang kuan)(setq fangxiang "heng")(setq fangxiang "shu"))
    
64.   ;设定横向或者纵向，l横向，p纵向
    
65.   (cond
    
66.     ((and (eq "heng" fangxiang) (= st "l")) (vla-put-plotrotation mspace ac0degrees))
    
67.     ((and (eq "shu" fangxiang) (= st "l")) (vla-put-plotrotation mspace ac90degrees))
    
68.     ((and (eq "heng" fangxiang) (= st "p")) (vla-put-plotrotation mspace ac90degrees))
    
69.     ((and (eq "shu" fangxiang) (= st "p")) (vla-put-plotrotation mspace ac0degrees))
    
70.     (T exit)
    
71.   )
    
72.   
    
73.   ;设定是否打印对象线宽
    
74.   (if (= (strcase xiankuan) "Y")
    
75.     (vla-put-plotwithlineweights mspace :vlax-true)
    
76.     (vla-put-plotwithlineweights mspace :vlax-false))
    
77.   
    
78.   (setq jixu "y")
    
79.   
    
80.   (setq jixu (strcase jixu))
    
81.   ;打印份数
    
82.   (vla-put-numberofcopies plot fenshu)
    
83.   (cond
    
84.     ((and (= jixu "Y") (= orpdf T)) (vla-plottofile plot lujing))
    
85.     ((and (= jixu "Y") (= orpdf nil)) (vla-plottodevice plot dayinji))
    
86.     (T nil)
    
87.   )
    
88.   ;恢复系统变量
    
89.   (setvar "backgroundplot" 0)
    
90. )
    
91. ;;;返回图纸尺寸本地名称所对应的标准名称
    
92. (defun gm-putlocalemedianame(mspace bendiming / i localmedianame medianame medianames)
    
93.   (setq medianames (vla-getcanonicalmedianames mspace)
    
94.     i 0
    
95.     medianames (vlax-safearray->list (vlax-variant-value medianames))
    
96.   )
    
97.   
    
98.   (while (< i (length medianames))
    
99.     (setq localmedianame (vla-getlocalemedianame mspace (nth i medianames)))
    
100.     (if (eq localmedianame bendiming) (setq medianame (nth i medianames)
     
101.                 i (1+ (length medianames)))
     
102.       (setq i (1+ i))
     
103.     )
     
104.    
     
105.   )
     
106.   medianame
     
107. )

(defun c:tt()   <br />   (setq p1 (getpoint "\n 左上角："))<br />   (setq p2 (getpoint "\n 右下角："))<br />   (princ "\n")<br />   (princ p1)  <br />   (princ "\n")<br />   (princ p2)<br />   (princ "\n")  <br />   (gm-dayin "dwg to pdf.pc3" "ISO A3 (420.00 x 297.00 毫米)" p1 p2 "y" 1 "d:\\1.pdf" T "y" )<br /> )<br /> <br /> ;打印函数，lujing可为nil，orpdf为T或nil，为T是打印pdf，为nil是打印到设备<br /> (defun gm-dayin(dayinji tufu p1 p2 xiankuan fenshu lujing orpdf yulan / acaddoc fangxiang jixu medianame mspace p3 plot pointtemp1 pointtemp2 st x x1 x2 y y1 y2)<br />   ;设定系统变量，确保cad在前台进行打印，这样后一次打印会在前一次打印完成后才开始，避免错误<br />   (setvar "backgroundplot" 0)<br />   ;由p1和p2坐标判断是横向还是纵向<br />   (if (> (cadr p1) (cadr p2)) (setq p3 p1<br />               p1 (list (car p1) (cadr p2) 0)<br />               p2 (list (car p2) (cadr p3) 0)))<br />   (setq x1 (car p1) y1 (cadr p1) x2 (car p2) y2 (cadr p2))<br />   (setq x (abs (- x1 x2)) y (abs (- y1 y2)) )<br />   (if (> y x) (setq st "p") (setq st "l"))<br />   ;当路径不为nil时，给路径加上后缀名<br />   (if (/= lujing nil)(setq lujing (strcat lujing ".pdf")))<br />   (setq acaddoc (vla-get-activedocument(vlax-get-acad-object))<br />     mspace(vla-get-activelayout acaddoc)<br />     plot (vla-get-plot acaddoc)<br />   )<br />   (setq p1 (trans p1 0  2)<br />     p2 (trans p2 0 2)<br />   )<br />   ;处理p1和p2<br />   (setq p1 (reverse (cdr (reverse p1))))<br />   (setq p2 (reverse (cdr (reverse p2))))<br />   (setq pointTemp1 (vlax-make-safearray vlax-vbDouble '(0 . 1)))  <br />   (vlax-safearray-fill pointtemp1 p1)<br />   (setq pointTemp2 (vlax-make-safearray vlax-vbDouble '(0 . 1)))  <br />   (vlax-safearray-fill pointtemp2 p2)<br />   <br />   ;设定打印机<br />   (vla-put-configname mspace dayinji)<br />   ;设定打印样式表<br />   (vla-put-stylesheet mspace "monochrome.ctb" )<br />   (vla-refreshplotdeviceinfo mspace)<br />   ;设定打印区域<br />   (vla-setwindowtoplot mspace pointtemp1 pointtemp2)<br />   ;设定打印形式为窗口打印，必须在设定打印区域之后<br />   (vla-put-plottype mspace acWindow)<br />   ;设定布满图纸打印<br />   (vla-put-standardscale mspace acscaletofit)<br />   ;设定是否居中打印<br />   (vla-put-centerplot mspace :vlax-true)<br />   <br />   ;不居中打印时的设置<br />   ;(setq p3 (vlax-make-safearray vlax-vbDouble '(0 . 1)))  <br />   ;(vlax-safearray-put-element p3 0 0)<br />   ;(vlax-safearray-put-element p3 1 0)<br />   ;(vla-put-plotorigin mspace p3)<br />   ;将图纸大小转换成标准介质名称返回<br />   (setq medianame (gm-putlocalemedianame mspace tufu))<br />   (vla-put-canonicalmedianame mspace medianame)<br />   (vla-getpapersize mspace 'chang 'kuan)<br />   (if (> chang kuan)(setq fangxiang "heng")(setq fangxiang "shu"))<br />   ;设定横向或者纵向，l横向，p纵向<br />   (cond <br />     ((and (eq "heng" fangxiang) (= st "l")) (vla-put-plotrotation mspace ac0degrees))<br />     ((and (eq "shu" fangxiang) (= st "l")) (vla-put-plotrotation mspace ac90degrees))<br />     ((and (eq "heng" fangxiang) (= st "p")) (vla-put-plotrotation mspace ac90degrees))<br />     ((and (eq "shu" fangxiang) (= st "p")) (vla-put-plotrotation mspace ac0degrees))<br />     (T exit)<br />   )<br />   <br />   ;设定是否打印对象线宽<br />   (if (= (strcase xiankuan) "Y")<br />     (vla-put-plotwithlineweights mspace :vlax-true)<br />     (vla-put-plotwithlineweights mspace :vlax-false))<br />   <br />   (setq jixu "y")<br />   <br />   (setq jixu (strcase jixu))<br />   ;打印份数<br />   (vla-put-numberofcopies plot fenshu)<br />   (cond <br />     ((and (= jixu "Y") (= orpdf T)) (vla-plottofile plot lujing))<br />     ((and (= jixu "Y") (= orpdf nil)) (vla-plottodevice plot dayinji))<br />     (T nil)<br />   )<br />   ;恢复系统变量<br />   (setvar "backgroundplot" 0)<br /> )<br /> ;;;返回图纸尺寸本地名称所对应的标准名称<br /> (defun gm-putlocalemedianame(mspace bendiming / i localmedianame medianame medianames)<br />   (setq medianames (vla-getcanonicalmedianames mspace)<br />     i 0<br />     medianames (vlax-safearray->list (vlax-variant-value medianames))<br />   )<br />   <br />   (while (< i (length medianames)) <br />     (setq localmedianame (vla-getlocalemedianame mspace (nth i medianames)))<br />     (if (eq localmedianame bendiming) (setq medianame (nth i medianames)<br />                 i (1+ (length medianames)))<br />       (setq i (1+ i))<br />     )<br />     <br />   )<br />   medianame<br /> )

你有种再说一遍

读取含有"图框","TK"内容块,然后获取它的包围盒,
修改PC3纸张,再启动打印引擎,结束.

jenlin

谢谢！
大佬能代码示意一下吗？
要求会不会太过分了？

黄翔

参考秋枫的批量打印程序.有源码.

jenlin

黄翔 发表于 2024-7-26 16:13
参考秋枫的批量打印程序.有源码.

秋神的代码量比较大，刚接触AutoLisp，大多都没看懂

jenlin

周末有大神上论坛吗？

蓦然语嫣

不错的贴子

jenlin

一日一游一提

muai2010

我直接用秋枫的打印即可

jenlin

秋枫大神的代码看不懂。。。