通用打印函数，可指定参数，可打印pdf

war32

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

;打印函数，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 />   ;打印预览<br />   (if (= yulan "y")(progn <br />          (vla-displayplotpreview plot acfullpreview)<br />          <br />          (setq jixu (getstring "/n 打印本张(Y)不打印本张(N)：(Y)"))<br />          (if (= jixu "") (setq jixu "y")))<br />     (setq jixu "y")<br />   )<br />   <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 /> )

war32

w245272914 发表于 2018-1-22 10:04
大神~  有些看不懂啊

(defun c:tt()
       
        (gm-dayin "dwg to pdf.pc3" "ISO A3 (420.00 x 297.00 毫米)" (getpoint "\n 左上角：")(getpoint "\n 右下角：") "y" 1 "d:\\1.pdf" T "y" )
)
可以用这个试一下

w245272914

war32 发表于 2018-1-23 09:08
(defun c:tt()
       
        (gm-dayin "dwg to pdf.pc3" "ISO A3 (420.00 x 297.00 毫米)" (getpoint "\n 左上角 ...

哥，你看~
指令: ttt

左上角：
右下角：; 錯誤: no function definition: GM-DAYIN

war32

ssyfeng 发表于 2018-1-20 17:26
打印成文件的时候少了个文件名

看了下，没问题啊

孤独人

谢谢分享:D:D

lijiayin110

好像用VLA的函数比直接用command慢

434939575

支持源码，我也是直接COMMAND的。VLA有的还不会。

ssyfeng

打印成文件的时候少了个文件名

yshf

谢谢分享

w245272914

大神~  有些看不懂啊