打印窗口到DWF文件

marting · 发表于 2018-1-28 19:00:12

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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

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

sicky111 · 发表于 2018-1-29 00:05:47

抢个沙发。支持楼主。

dnbcgrass · 发表于 2018-1-29 08:15:27

回复学习学习！

jiangnanemail · 发表于 2018-1-29 08:44:57

牛！牛！牛！牛！牛！牛！牛！牛！

账号		自动登录	找回密码
密码			立即注册

[每日一码] 打印窗口到DWF文件

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。