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-10-31 06:55
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.