指定布局或打印配置的类型。 支持的平台:仅窗口 属性值只读:不 类型:枚举acPlotType
言论在重新生成图形之前,对此属性的更改将不可见。使用该方法再生图形。Regen 必须先调用属性或方法,然后才能设置 thetoor。ViewToPlotSetWindowToPlotPlotTypeacViewacWindow 例子工 务 局: 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 Visual 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-1-8 19:18
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.