ModelType 属性 (ActiveX) 
指定打印配置是应用于模型空间还是所有布局。 支持的平台:仅限 Windows 属性值只读:是的 类型:布尔 
 言论没有其他评论。 例子VBA: Sub Example_ModelType()
    ' This example creates a plot configuration object
    ' and then finds the ModelType for the object.
    
    Dim PlotConfigObj As AcadPlotConfiguration
    ' Creates the MText Object
    Set PlotConfigObj = ThisDrawing.PlotConfigurations.Add("NewPlotConfiguration")
    
    ' Find the current ModelType
    Dim currModelType As Boolean
    currModelType = PlotConfigObj.ModelType
    MsgBox "The ModelType for the object is: " & currModelType
    
End Sub
可视化 LISP: (vl-load-com)
(defun c:Example_ModelType()
    ;; This example creates a plot configuration object
    ;; and then finds the ModelType for the object.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))    
    ;; Creates the MText Object
    (setq PlotConfigObj (vla-Add (vla-get-PlotConfigurations doc) "NewPlotConfiguration"))
    
    ;; Find the current ModelType
    (setq currModelType (vla-get-ModelType PlotConfigObj))
    (alert (strcat "The ModelType for the object is: " (if (= currModelType :vlax-true) "True" "False")))
)
 | 
|Archiver|CAD开发者社区
( 苏ICP备2022047690号-1   苏公网安备32011402011833)
GMT+8, 2025-11-4 19:42
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.