CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2023 开发者帮助 › 查看内容

AutoCAD 2023 开发者帮助

SetBlockAttributeValue32 方法（ActiveX）

2024-5-18 18:58| 发布者: admin| 查看: 12| 评论: 0|原作者: admin|来自: AutoCAD

对于 64 位系统，设置 MLeader 或 Table 对象中包含的块中的属性的属性值。（已过时）

支持的平台：仅限 Windows

签名 - MLeader

VBA：

object.SetBlockAttributeValue32 attdefId, value

对象

类型：MLeader

此方法应用到的对象。

attdefID

访问：仅输入

类型：长

属性定义 ID。

价值

访问：仅输入

类型：字符串

新属性值。

签名 - 表格

VBA：

object.SetBlockAttributeValue32 row, col, attdefId, StringValue

对象

类型： 表格

此方法应用到的对象。

排

访问：仅输入

类型：长

表中的行。

山坳

访问：仅输入

类型：长

表中的列。

attdefId

访问：仅输入

类型：长

属性定义的对象 ID。

StringValue

访问：仅输入

类型：字符串

属性值。

返回值（RetVal）

无返回值。

言论

没有其他评论。

例子

VBA：

Sub Example_Blockttribute()
    ' This example creates an MLeader object and gets and sets values for
    ' the block attribute type.

    Dim points(0 To 5) As Double

    points(0) = 0: points(1) = 4: points(2) = 0
    points(3) = 1.5: points(4) = 5: points(5) = 0

    Dim i As Long

    Dim oML As AcadMLeader
    Set oML = ThisDrawing.ModelSpace.AddMLeader(points, i)
    
    oML.ContentType = acBlockContent
    oML.ContentBlockType = acBlockBox

    Dim sBlock As String

    sBlock = oML.ContentBlockName

    Dim o As AcadEntity
    For Each o In ThisDrawing.Blocks(sBlock)
        If o.ObjectName = "AcDbAttributeDefinition" Then
            oML.SetBlockAttributeValue o.ObjectID, "123"
            MsgBox oML.GetBlockAttributeValue(o.ObjectID)
        End If
    Next o
    
    Update
    ZoomExtents

End Sub

可视化 LISP：

(vl-load-com)
(defun c:Example_BlockAttribute()
    ;; This example creates an MLeader object and gets and sets values for
    ;; the block attribute type.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
  
    (setq points (vlax-make-safearray vlax-vbDouble '(0 . 5)))
    (vlax-safearray-fill points '(0 4 0
                                  1.5 5 0
                                 )
    )
    (setq i 0)
  
    (setq modelSpace (vla-get-ModelSpace doc))  
    (setq oML (vla-AddMLeader modelSpace points i))
    
    (vla-put-ContentType oML acBlockContent)
    (vla-put-ContentBlockType oML acBlockBox)

    (setq sBlock (vla-get-ContentBlockName oML))

    (vlax-for o (vla-Item (vla-get-Blocks doc) sBlock)
        (if (= (vla-get-ObjectName o) "AcDbAttributeDefinition")
	           (progn
                (vla-SetBlockAttributeValue oML (vla-get-ObjectID o) "123")
                (alert (vla-GetBlockAttributeValue oML (vla-get-ObjectID o)))
	           )
        )
    )
  
    (vla-Update acadObj)
    (vla-ZoomExtents acadObj)
)