把窗口选择的实体打印到DWF文件

Lispboy

1. (defun c:testPlotWindow (/ acadObject acadDocument activeLayoutObject plt p1 point1 pPt1 pPt1sa pt1 p2 point2 pPt2 pPt2sa
   
2.                            pt2
   
3.                         )
   
4.   (vl-load-com)
   
5.   (setq acadObject (vlax-get-Acad-object))
   
6.   (setq acadDocument (vla-get-ActiveDocument acadObject))
   
7.   (setq activeLayoutObject (vla-Get-ActiveLayout acadDocument))
   
8.   (setq plt (vla-get-plot acadDocument))
   
9.   (vla-put-configname activeLayoutObject "DWF6 ePlot.pc3")
   
10.   (vla-put-canonicalmedianame activeLayoutObject "ISO_full_bleed_A3_(420.00_x_297.00_MM)")
    
11.   (vla-put-paperunits activeLayoutObject acMillimeters)
    
12.   (vla-put-plotrotation activeLayoutObject ac0degrees) ; How to control the Plot Style Table
    
13.                                        ; (vla-put-StyleSheet activeLayoutObject "HP LaserJet 4MV.ctb")
    
14.   (setq p1 (getpoint "\nSelect Window Point No 1 (Lower Left): "))
    
15.   (setq point1 (list (car p1) (cadr p1)))
    
16.   (setq pPt1 (vlax-make-safearray vlax-vbDouble '(0 . 1)))
    
17.   (setq pPt1sa (vlax-safearray-fill pPt1 point1))
    
18.   (setq pt1 (vlax-make-variant pPt1sa (logior vlax-vbarray vlax-vbDouble)))
    
19.   (setq p2 (getpoint "\nSelect Window Point No 2 (Upper Right): "))
    
20.   (setq point2 (list (car p2) (cadr p2)))
    
21.   (setq pPt2 (vlax-make-safearray vlax-vbDouble '(0 . 1)))
    
22.   (setq pPt2sa (vlax-safearray-fill pPt2 point2))
    
23.   (setq pt2 (vlax-make-variant pPt2sa (logior vlax-vbarray vlax-vbDouble)))
    
24.   (vla-SetWindowToPlot activeLayoutObject pt1 pt2)
    
25.   (vla-put-plottype activeLayoutObject acWindow)
    
26.   (vla-plottofile plt "c:\\test.dwf" "DWF6 ePlot.pc3")
    
27. )
    
28. 
    

(defun c:testPlotWindow (/ acadObject acadDocument activeLayoutObject plt p1 point1 pPt1 pPt1sa pt1 p2 point2 pPt2 pPt2sa<br />                            pt2<br />                         )<br />   (vl-load-com)<br />   (setq acadObject (vlax-get-Acad-object))<br />   (setq acadDocument (vla-get-ActiveDocument acadObject))<br />   (setq activeLayoutObject (vla-Get-ActiveLayout acadDocument))<br />   (setq plt (vla-get-plot acadDocument))<br />   (vla-put-configname activeLayoutObject "DWF6 ePlot.pc3")<br />   (vla-put-canonicalmedianame activeLayoutObject "ISO_full_bleed_A3_(420.00_x_297.00_MM)")<br />   (vla-put-paperunits activeLayoutObject acMillimeters)<br />   (vla-put-plotrotation activeLayoutObject ac0degrees) ; How to control the Plot Style Table<br />                                        ; (vla-put-StyleSheet activeLayoutObject "HP LaserJet 4MV.ctb")<br />   (setq p1 (getpoint "\nSelect Window Point No 1 (Lower Left): "))<br />   (setq point1 (list (car p1) (cadr p1)))<br />   (setq pPt1 (vlax-make-safearray vlax-vbDouble '(0 . 1)))<br />   (setq pPt1sa (vlax-safearray-fill pPt1 point1))<br />   (setq pt1 (vlax-make-variant pPt1sa (logior vlax-vbarray vlax-vbDouble)))<br />   (setq p2 (getpoint "\nSelect Window Point No 2 (Upper Right): "))<br />   (setq point2 (list (car p2) (cadr p2)))<br />   (setq pPt2 (vlax-make-safearray vlax-vbDouble '(0 . 1)))<br />   (setq pPt2sa (vlax-safearray-fill pPt2 point2))<br />   (setq pt2 (vlax-make-variant pPt2sa (logior vlax-vbarray vlax-vbDouble)))<br />   (vla-SetWindowToPlot activeLayoutObject pt1 pt2)<br />   (vla-put-plottype activeLayoutObject acWindow)<br />   (vla-plottofile plt "c:\\test.dwf" "DWF6 ePlot.pc3")<br /> )<br /> <br />

香远益清

这个不知道做什么用，有个演示就好了

吴外安放

谢谢版主分享

xvjiex

感谢楼主分享把窗口选择的实体打印到DWF文件。

kmliro_2017

谢谢分享！！！！！