Plot 属性 (ActiveX)
获取文档的 Plot 对象。 支持的平台:仅限 Windows 言论没有其他评论。 例子VBA: Sub Example_Plot()
' This example sends a plot of the current drawing
' to a file.
ThisDrawing.ActiveLayout.ConfigName = "DWF6 ePlot.pc3"
' Define the plot variable
Dim currentPlot As AcadPlot
Set currentPlot = ThisDrawing.Plot
' Define the output file name.
' Use "" to use the drawing name as the file name.
' Note: if the file name exists an error will be generated.
Dim plotFileName As String
plotFileName = "MyPlot"
currentPlot.PlotToFile plotFileName
End Sub
可视化 LISP: (vl-load-com)
(defun c:Example_Plot()
;; This example sends a plot of the current drawing
;; to a file.
(setq acadObj (vlax-get-acad-object))
(setq doc (vla-get-ActiveDocument acadObj))
;; Set a device current that outputs to a file
(vla-put-ConfigName (vla-get-ActiveLayout doc) "DWF6 ePlot.pc3")
;; Define the plot variable
(setq currentPlot (vla-get-Plot doc))
;; Define the output file name.
;; Use "" to use the drawing name as the file name.
;; Note: if the file name exists an error will be generated.
(setq plotFileName "MyPlot")
(vla-PlotToFile currentPlot plotFileName)
)
|
|Archiver|CAD开发者社区
( 苏ICP备2022047690号-1 苏公网安备32011402011833)
GMT+8, 2025-10-30 20:36
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.