TheSwamp

Code Red => VB(A) => Topic started by: Humbertogo on February 05, 2008, 03:53:27 AM

Title: text rotation angle of an Attribute
Post by: Humbertogo on February 05, 2008, 03:53:27 AM
how can i change the text rotation angle of an Attribute
afther insert the block
Title: Re: text rotation angle of an Attribute solved
Post by: Humbertogo 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