Trabajar con Atributos

Objeto público

' ' un  ejemplo de cómo trabajar con atributos

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