属性的文本旋转角度

Dim objAttRef As AcadAttributeReference
    If objblkRef.HasAttributes Then
        varAttributes = objblkRef.GetAttributes
    For i = LBound(varAttributes) To UBound(varAttributes)
            Set objAttRef = varAttributes(i)
               objAttRef .textString = intnum
               objAttRef .Rotation = 0
    Next i