求救：CAD属性一问

Luster

我在图块中创建一个属性，为什么进行图块引用的时候这个属性
不在我最初定义的点上？块中还有其它的实体，插入后属性值的
位置一直不对，但是手动操作的就可以，这是为什么？

我也是按照帮助里写的

Dim attCode As AcadAttribute
Dim height As Double
Dim mode As Long
Dim prompt As String
Dim insertionPoint(0 To 2) As Double
Dim tag As String


height = 3.5
mode = acAttributeModeVerify
prompt = ""
insertionPoint(0) = 1000: insertionPoint(1) = 1000: insertionPoint(2) = 0
tag = "TagCode"

Set attCode = blockObj.AddAttribute(height, mode, prompt, insertionPoint, tag, strCode)
attCode.Alignment = acAlignmentMiddleCenter

Dim blockRefObj As AcadBlockReference
   
Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, "NameTableBlock", fscale, fscale, fscale, 0)

efan2000

问题出在这：attCode.Alignment = acAlignmentMiddleCenter ，你可知道单行文字、属性对象的初始对齐点在坐标原点（0,0,0），因而设置对齐方式后，要把对齐点更改到你想要的位置。故在后面加上一句就可以了，tCode.extAlignmentPoint = insertionPoint。