（XD::Plot->File）打印到文件通用函数

marting

1. (defun XD::Plot->File (ConfigName    MediaName           Window
   
2.                        FileName             /                   AcadObj
   
3.                        ActiveDocObj  ActiveLayoutObj
   
4.                        PlotObj ret
   
5.                       )
   
6.   (setq        AcadObj                (vlax-get-acad-object)
   
7.         ActiveDocObj        (vla-get-ActiveDocument AcadObj)
   
8.         ActiveLayoutObj        (vla-get-ActiveLayout ActiveDocObj)
   
9.   )
   
10.   (vla-RefreshPlotDeviceInfo ActiveLayoutObj)
    
11.   (vla-Put-ConfigName ActiveLayoutObj ConfigName)
    
12.   (setq PlotObj (vla-get-Plot ActiveDocObj))
    
13.   (vla-Put-CanonicalMediaName ActiveLayoutObj MediaName)
    
14.   (vla-Put-StandardScale ActiveLayoutObj acScaleToFit)
    
15.   (vla-Put-PlotRotation ActiveLayoutObj ac0degrees)
    
16.   (vla-put-PlotOrigin
    
17.     ActiveLayoutObj
    
18.     (vlax-make-variant
    
19.       (vlax-make-safearray vlax-vbDouble '(0 . 1))
    
20.     )
    
21.   )
    
22.   (vla-Put-CenterPlot ActiveLayoutObj :vlax-false)
    
23.   (vla-SetWindowToPlot
    
24.     ActiveLayoutObj
    
25.     (vlax-make-variant
    
26.       (vlax-safearray-fill
    
27.         (vlax-make-safearray vlax-vbDouble '(0 . 1))
    
28.         (car Window)
    
29.       )
    
30.     )
    
31.     (vlax-make-variant
    
32.       (vlax-safearray-fill
    
33.         (vlax-make-safearray vlax-vbDouble '(0 . 1))
    
34.         (cadr Window)
    
35.       )
    
36.     )
    
37.   )
    
38.   (setq ret nil)
    
39.   (vla-Put-PlotType ActiveLayoutObj acWindow)
    
40.   (and (xd::apply vla-PlotToFile (list PlotObj FileName))
    
41.        (setq ret filename)
    
42.   )
    
43.   (foreach o (list PlotObj ActiveLayoutObj ActiveDocObj AcadObj)
    
44.     (vlax-release-object o)
    
45.   )
    
46.   ret
    
47. )
    
48. 
    

(defun XD::Plot->File (ConfigName    MediaName           Window<br />                        FileName             /                   AcadObj<br />                        ActiveDocObj  ActiveLayoutObj<br />                        PlotObj ret<br />                       )<br />   (setq        AcadObj                (vlax-get-acad-object)<br />         ActiveDocObj        (vla-get-ActiveDocument AcadObj)<br />         ActiveLayoutObj        (vla-get-ActiveLayout ActiveDocObj)<br />   )<br />   (vla-RefreshPlotDeviceInfo ActiveLayoutObj)<br />   (vla-Put-ConfigName ActiveLayoutObj ConfigName)<br />   (setq PlotObj (vla-get-Plot ActiveDocObj))<br />   (vla-Put-CanonicalMediaName ActiveLayoutObj MediaName)<br />   (vla-Put-StandardScale ActiveLayoutObj acScaleToFit)<br />   (vla-Put-PlotRotation ActiveLayoutObj ac0degrees)<br />   (vla-put-PlotOrigin<br />     ActiveLayoutObj<br />     (vlax-make-variant<br />       (vlax-make-safearray vlax-vbDouble '(0 . 1))<br />     )<br />   )<br />   (vla-Put-CenterPlot ActiveLayoutObj :vlax-false)<br />   (vla-SetWindowToPlot<br />     ActiveLayoutObj<br />     (vlax-make-variant<br />       (vlax-safearray-fill<br />         (vlax-make-safearray vlax-vbDouble '(0 . 1))<br />         (car Window)<br />       )<br />     )<br />     (vlax-make-variant<br />       (vlax-safearray-fill<br />         (vlax-make-safearray vlax-vbDouble '(0 . 1))<br />         (cadr Window)<br />       )<br />     )<br />   )<br />   (setq ret nil)<br />   (vla-Put-PlotType ActiveLayoutObj acWindow)<br />   (and (xd::apply vla-PlotToFile (list PlotObj FileName))<br />        (setq ret filename)<br />   )<br />   (foreach o (list PlotObj ActiveLayoutObj ActiveDocObj AcadObj)<br />     (vlax-release-object o)<br />   )<br />   ret<br /> )<br /> <br />

1. (defun c:tt ()
   
2.   (setq llpt (getpoint "\nll corner"))
   
3.   (setq urpt (getcorner llpt "\nur corner"))
   
4.   (if (setq
   
5.         fn (xd::plot->file
   
6.              "DWG To PDF.pc3"
   
7.              "ISO_A2_(594.00_x_420.00_MM)"
   
8.              (list (list (car llpt) (cadr llpt))
   
9.                    (list (car urpt) (cadr urpt))
   
10.              )
    
11.              (strcat (getvar "DWGPREFIX") "FULL-FILE-NAME-TEST" ".pdf")
    
12.            )
    
13.       )
    
14.     (princ "\n文件成功打印到" fn)
    
15.     (princ "\n文件打印失败.")
    
16.   )
    
17.   (princ)
    
18. )
    

(defun c:tt ()<br />   (setq llpt (getpoint "\nll corner"))<br />   (setq urpt (getcorner llpt "\nur corner"))<br />   (if (setq<br />         fn (xd::plot->file<br />              "DWG To PDF.pc3"<br />              "ISO_A2_(594.00_x_420.00_MM)"<br />              (list (list (car llpt) (cadr llpt))<br />                    (list (car urpt) (cadr urpt))<br />              )<br />              (strcat (getvar "DWGPREFIX") "FULL-FILE-NAME-TEST" ".pdf")<br />            )<br />       )<br />     (princ "\n文件成功打印到" fn)<br />     (princ "\n文件打印失败.")<br />   )<br />   (princ)<br /> )<br />

wzjck01

学习，学习

wzjck01

学习，学习