Article	41023278
Type	HowTo
Product	Engine
Version	4.0.4.1023
Date Added	10/23/2003
Submitted by
Keywords

Subject

I want after the explode of an Insert with attributes to see the ValueString and not the TagString.

Summary

I want after the explode of an Insert with attributes to see the ValueString and not the TagString.

Solution

After the explode of each vdInsert you have to get the new entities and if they are vdAttribs then put the ValueString value to the TagString value. See the VisualBasic code below.

 
Dim myInsert        As vdInsert
Dim myFig           As vdFigure
Dim myAttrib        As vdAttrib
Dim aTemp       As Variant
 
Set myFig = VDPro1.ActiveDocument.Get3dEntityFromPOINT(VDPro1.Utility.GetPoint)
 
If myFig Is Nothing Then
    MsgBox "It isn't vdInsert object"
    Exit Sub
Else
    myFig.HighLight = VdHightLightDot
    myFig.Invalidate
    If myFig.Type = "VDINSERT" Then
        Set myInsert = myFig
        MsgBox "It is a vdInsert object"
    Else
        MsgBox "not insert"
        Exit Sub
    End If
End If
 
aTemp = myInsert.Explode
 
For i = 0 To UBound(aTemp)
    Set myFig = aTemp(i)
    If myFig.Type = "VDATTRIB" Then
        Set myAttrib = myFig
        myAttrib.TagString = myAttrib.ValueString
        myAttrib.Invalidate
    End If
Next i


 


Send comments on this topic.
© 2006 VectorDraw Corporation. All rights reserved. 

Last updated : Monday, November 27, 2006