Réserver une Démo

SVP notez : Cette page d’aide n’est pas pour la dernière version d’Enterprise Architect. La dernière aide peut être trouvée ici.

Pré. Proc.

Work With Attributes

This is an example of code for working with attributes.

     Sub AttributeLifecycle

          Dim element as object
          Dim o as object
          Dim t as object
          Dim idx as Integer
          Dim idx2 as integer
          try
               element = m_Repository.GetElementByID(129)

               For idx = 0 to element.Attributes.Count -1

                    Console.WriteLine("attribute=" + element.Attributes.GetAt(idx).Name)

                    o = element.Attributes.GetAt(idx)
                    t = o.Constraints.AddNew("> 123","Precision")
                    t.Update()
                    o.Constraints.Refresh
                    For idx2 = 0 to o.Constraints.Count-1
                         t = o.Constraints.GetAt(idx2)
                         Console.WriteLine("Constraint: " + t.Name)
                         If(t.Name="> 123") Then
                              o.Constraints.DeleteAt(idx2, false)
                         End if
                    Next

                    For idx2 = 0 to o.TaggedValues.Count-1
                         t = o.TaggedValues.GetAt(idx2)
                         If(t.Name = "Type2") Then
                              'Console.WriteLine("deleteing")
                              o.TaggedValues.DeleteAt(idx2, true)
                         End if
                    Next

                    t = o.TaggedValues.AddNew("Type2","Number")
                    t.Update
                    o.TaggedValues.Refresh
                    For idx2 = 0 to o.TaggedValues.Count-1
                         t = o.TaggedValues.GetAt(idx2)
                         Console.WriteLine("Tagged Value: " + t.Name)
                    Next

                    If(element.Attributes.GetAt(idx).Name = "m_Tootle") Then
                         Console.WriteLine("delete attribute")
                         element.Attributes.DeleteAt(idx, false)
                    End If

               Next

         catch e as exception
              Console.WriteLine(element.Attributes.GetLastError())
              Console.WriteLine(e)
         End try
    End Sub