打印到文件通用函数

marting · 发表于 2021-1-29 01:50:05

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

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

×

本帖最后由 marting 于 2021-1-29 01:54 编辑

(vl-load-com)
(defun PlotToFile (ConfigName MediaName Window
FileName / AcadObj
ActiveDocObj ActiveLayoutObj
PlotObj
)
(setq AcadObj (vlax-get-acad-object)
ActiveDocObj (vla-get-ActiveDocument AcadObj)
ActiveLayoutObj (vla-get-ActiveLayout ActiveDocObj)
)
(vla-RefreshPlotDeviceInfo ActiveLayoutObj)
(vla-Put-ConfigName ActiveLayoutObj ConfigName)
(setq PlotObj (vla-get-Plot ActiveDocObj))
(vla-Put-CanonicalMediaName ActiveLayoutObj MediaName)
(vla-Put-StandardScale ActiveLayoutObj acScaleToFit)
(vla-Put-PlotRotation ActiveLayoutObj ac0degrees)
(vla-put-PlotOrigin
ActiveLayoutObj
(vlax-make-variant
(vlax-make-safearray vlax-vbDouble '(0 . 1))
)
)
(vla-Put-CenterPlot ActiveLayoutObj :vlax-false)
(vla-SetWindowToPlot
ActiveLayoutObj
(vlax-make-variant
(vlax-safearray-fill
(vlax-make-safearray vlax-vbDouble '(0 . 1))
(car Window)
)
)
(vlax-make-variant
(vlax-safearray-fill
(vlax-make-safearray vlax-vbDouble '(0 . 1))
(cadr Window)
)
)
)
(vla-Put-PlotType ActiveLayoutObj acWindow)
(vla-PlotToFile PlotObj FileName)
(foreach o (list PlotObj ActiveLayoutObj ActiveDocObj AcadObj)
(vlax-release-object o)
)
)

(vl-load-com) 
(defun PlotToFile (ConfigName         MediaName     Window 
                   FileName         /               AcadObj 
                   ActiveDocObj         ActiveLayoutObj 
                   PlotObj 
                  ) 
  (setq        AcadObj                (vlax-get-acad-object) 
        ActiveDocObj        (vla-get-ActiveDocument AcadObj) 
        ActiveLayoutObj        (vla-get-ActiveLayout ActiveDocObj) 
  ) 
  (vla-RefreshPlotDeviceInfo ActiveLayoutObj) 
  (vla-Put-ConfigName ActiveLayoutObj ConfigName) 
  (setq PlotObj (vla-get-Plot ActiveDocObj)) 
  (vla-Put-CanonicalMediaName ActiveLayoutObj MediaName) 
  (vla-Put-StandardScale ActiveLayoutObj acScaleToFit) 
  (vla-Put-PlotRotation ActiveLayoutObj ac0degrees) 
  (vla-put-PlotOrigin 
    ActiveLayoutObj 
    (vlax-make-variant 
      (vlax-make-safearray vlax-vbDouble '(0 . 1)) 
    ) 
  ) 
  (vla-Put-CenterPlot ActiveLayoutObj :vlax-false) 
  (vla-SetWindowToPlot 
    ActiveLayoutObj 
    (vlax-make-variant 
      (vlax-safearray-fill 
        (vlax-make-safearray vlax-vbDouble '(0 . 1)) 
        (car Window) 
      ) 
    ) 
    (vlax-make-variant 
      (vlax-safearray-fill 
        (vlax-make-safearray vlax-vbDouble '(0 . 1)) 
        (cadr Window) 
      ) 
    ) 
  ) 
  (vla-Put-PlotType ActiveLayoutObj acWindow) 
  (vla-PlotToFile PlotObj FileName) 
  (foreach o (list PlotObj ActiveLayoutObj ActiveDocObj AcadObj) 
    (vlax-release-object o) 
  ) 
)

用法：

(PlotToFile
"DWG To PDF.pc3"
"ANSI_A_(11.00_x_8.50_Inches)"
(list (list 0 0) (list 100 100))
(strcat (getvar "DWGPREFIX") (getvar "DWGNAME") ".pdf")
)

(defun c:tt ()
(setq llpt (getpoint "\nll corner"))
(setq urpt (getcorner llpt "\nur corner"))
(PlotToFile
"DWG To PDF.pc3"
"ISO_A2_(594.00_x_420.00_MM)"
(list (list (car llpt) (cadr llpt))
(list (car urpt) (cadr urpt))
)
(strcat (getvar "DWGPREFIX") "FULL-FILE-NAME-TEST" ".pdf")
)
)

yuren008 · 发表于 2021-1-29 10:34:42

做个对论坛有益的人。

zjy2999 · 发表于 2021-1-29 10:40:30

多谢分享！

renyonghua2014 · 发表于 2021-1-29 13:18:01

非常有用，多谢分享。

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

[每日一码] 打印到文件通用函数

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