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