Author Topic: text rotation angle of an Attribute  (Read 963 times)

0 Members and 1 Guest are viewing this topic.

Humbertogo

  • Guest
text rotation angle of an Attribute
« on: February 05, 2008, 03:53:27 AM »
how can i change the text rotation angle of an Attribute
afther insert the block

Humbertogo

  • Guest
Re: text rotation angle of an Attribute solved
« Reply #1 on: February 05, 2008, 04:27:47 AM »
solved

Code: [Select]
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

edit CmdrDuh: Added code tags
« Last Edit: February 05, 2008, 09:18:40 AM by CmdrDuh »