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-3-14 08:39
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.