CanonicalMediaName 属性 (ActiveX)
按名称指定纸张尺寸。 支持的平台:仅限 Windows 属性值只读:不 类型:字符串 纸张尺寸的名称。 言论在重新生成图形之前,对此属性的更改将不可见。使用该方法重新生成图形。Regen 例子VBA: Sub Example_CanonicalMediaName()
' This example finds the name of the media for the active layout
Dim MediaName As String
MediaName = ThisDrawing.ActiveLayout.CanonicalMediaName
If MediaName = "" Then
MsgBox "There is no media set for the active layout."
Else
MsgBox "The media for the active layout is: " & MediaName
End If
End Sub
可视化 LISP: (vl-load-com)
(defun c:Example_CanonicalMediaName()
;; This example finds the name of the media for the active layout
(setq acadObj (vlax-get-acad-object))
(setq doc (vla-get-ActiveDocument acadObj))
(setq MediaName (vla-get-CanonicalMediaName (vla-get-ActiveLayout doc)))
(if (/= MediaName "")
(alert "There is no media set for the active layout.")
(alert (strcat "The media for the active layout is: " MediaName))
)
)
|
|Archiver|CAD开发者社区
( 苏ICP备2022047690号-1 苏公网安备32011402011833)
GMT+8, 2025-10-31 06:42
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.