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)
GMT+8, 2025-3-5 17:40
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.