PlotType 属性 (ActiveX)
指定布局或打印配置的类型。 支持的平台:仅限 Windows 属性值只读:不 类型:枚举acPlotType
言论在重新生成图形之前,对此属性的更改将不可见。使用该方法重新生成图形。Regen 必须先调用该属性或方法,然后才能将 设置为 或 。ViewToPlotSetWindowToPlotPlotTypeacViewacWindow 例子VBA: Sub Example_PlotType()
' This example reads and modifies the PlotType
' Layout value.
' When finished, this example resets the value back to
' its original value.
Dim ACADLayout As ACADLayout
Dim originalValue As Integer
' Get the layout object
Set ACADLayout = ThisDrawing.ActiveLayout
' Read and display the original value
originalValue = ACADLayout.PlotType
MsgBox "The PlotType value is set to: " & originalValue
' Modify the PlotType preference by toggling the value
ACADLayout.PlotType = acExtents
MsgBox "The PlotType preference has been set to: " & ACADLayout.PlotType
' Reset the preference back to its original value
ACADLayout.PlotType = originalValue
MsgBox "The PlotType preference was reset back to: " & originalValue
End Sub
可视化 LISP: (vl-load-com)
(defun c:Example_PlotType()
;; This example reads and modifies the PlotType
;; Layout value.
;; When finished, this example resets the value back to
;; its original value.
(setq acadObj (vlax-get-acad-object))
(setq doc (vla-get-ActiveDocument acadObj))
;; Get the layout object
(setq ACADLayout (vla-get-ActiveLayout doc))
;; Read and display the original value
(setq originalValue (vla-get-PlotType ACADLayout))
(alert (strcat "The PlotType value is set to: " (itoa originalValue)))
;; Modify the PlotType preference by toggling the value
(vla-put-PlotType ACADLayout acExtents)
(alert (strcat "The PlotType preference has been set to: " (itoa (vla-get-PlotType ACADLayout))))
;; Reset the preference back to its original value
(vla-put-PlotType ACADLayout originalValue)
(alert (strcat "The PlotType preference was reset back to: " (itoa originalValue)))
)
|
|Archiver|CAD开发者社区
( 苏ICP备2022047690号-1 苏公网安备32011402011833)
GMT+8, 2025-10-30 23:21
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.