Topic
Prev Next

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