|
|
发表于 2007-6-21 12:39:00
|
显示全部楼层
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
Call oML.SetBlockAttributeValue(o.ObjectID, "123")
MsgBox oML.GetBlockAttributeValue(o.ObjectID)
End If
Next o
Update
ZoomExtentsEnd Sub
|
|
置顶卡
