| Block 属性 (ActiveX) 指定与布局或多引线样式关联的块。 支持的平台:仅限 Windows 属性值 - MLeaderStyle只读:不 类型:字符串 MLeaderStyle 块 ID。 言论没有其他评论。 例子VBA: Sub Example_LayoutBlock()
    ' This example finds the name of the block associated with a layout.
    
    Dim xBlock As AcadBlock
    Set xBlock = ThisDrawing.ActiveLayout.Block
    
    MsgBox "The active layout corresponds to block: " & xBlock.name
End Sub可视化 LISP: (vl-load-com)
(defun c:Example_LayoutBlock()
    ;; This example finds the name of the block associated with a layout.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
  
    (setq xBlock (vla-get-Block (vla-get-ActiveLayout doc)))
    
    (alert (strcat "The active layout corresponds to block: " (vla-get-Name xBlock)))
) | 
 |Archiver|CAD开发者社区
( 苏ICP备2022047690号-1   苏公网安备32011402011833)
|Archiver|CAD开发者社区
( 苏ICP备2022047690号-1   苏公网安备32011402011833)
GMT+8, 2025-10-31 06:46
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.