Show tags automatically

[tom van de poel]

I wrote a script which creates elements and with tagged values. Also it draws the elements automatically on a diagram. So far so good.
Now i'm trying to find how to display the tagged values automatically.
Read the book Scripting EA, search the internet, but can't find the right method or property.

Somebody can help?

[qwerty]

Look into chapter 10.15 of my Inside book. You need to turn on the Tags compartment.

q.

[tom van de poel]

Ok firing a SQL query something like update t_diagramobjects set objectstyle with the string "tag=1" will do the job?
Lets try

[qwerty]

You should also be fine to set DiagramObject.ObjectStyle via the API.

q.

[tom van de poel]

Well just finished coding with the following and it works. Not all the subroutines included but just for the idea

Code: [Select]

Private Sub UpdateFeatureTags(eaConn As EAConnector, lsObjectID As String
    Dim SQL   As String
    Dim IDs() As String
    
    SQL = "SELECT objectstyle FROM t_diagramobjects WHERE object_id=" & lsObjectID
    If BuildArrayFromSQL(eaConn.EARepos, SQL, "objectstyle", IDs) Then
        eaConn.EARepos.Execute ("update t_diagramobjects set objectstyle = '" & IDs(0) & ";Tag=1;AttCustom=0;OpCustom=0;RzO=1;;10199;' where object_id = " & lsObjectID)
    End If
End Sub


[qwerty]

I suppose the trailing ;10199; is superfluous as the ObjectStyle just consumes CSV style key/value pairs.

q.