Please note : This help page is not for the latest version of Enterprise Architect. The latest help can be found here.
Element Extras
These are examples of code to access and use element extras, such as scenarios, constraints and requirements.
Sub ElementExtras
Dim element as object
Dim o as object
Dim idx as Integer
Dim bDel as boolean
bDel = true
try
element = m_Repository.GetElementByID(129)
'manage constraints for an element
'demonstrate addnew and delete
o = element.Constraints.AddNew("Appended","Type")
If not o.Update Then
Console.WriteLine("Constraint error:" + o.GetLastError())
End if
element.Constraints.Refresh
For idx = 0 to element.Constraints.Count -1
o = element.Constraints.GetAt(idx)
Console.WriteLine(o.Name)
If(o.Name="Appended") Then
If bDel Then element.Constraints.Delete (idx)
End if
Next
'efforts
o = element.Efforts.AddNew("Appended","Type")
If not o.Update Then
Console.WriteLine("Efforts error:" + o.GetLastError())
End if
element.Efforts.Refresh
For idx = 0 to element.Efforts.Count -1
o = element.Efforts.GetAt(idx)
Console.WriteLine(o.Name)
If(o.Name="Appended") Then
If bDel Then element.Efforts.Delete (idx)
End if
Next
'Risks
o = element.Risks.AddNew("Appended","Type")
If not o.Update Then
Console.WriteLine("Risks error:" + o.GetLastError())
End if
element.Risks.Refresh
For idx = 0 to element.Risks.Count -1
o = element.Risks.GetAt(idx)
Console.WriteLine(o.Name)
If(o.Name="Appended") Then
If bDel Then element.Risks.Delete (idx)
End if
Next
'Metrics
o = element.Metrics.AddNew("Appended","Change")
If not o.Update Then
Console.WriteLine("Metrics error:" + o.GetLastError())
End if
element.Metrics.Refresh
For idx = 0 to element.Metrics.Count -1
o = element.Metrics.GetAt(idx)
Console.WriteLine(o.Name)
If(o.Name="Appended") Then
If bDel Then element.Metrics.Delete (idx)
End if
Next
'TaggedValues
o = element.TaggedValues.AddNew("Appended","Change")
If not o.Update Then
Console.WriteLine("TaggedValues error:" + o.GetLastError())
End if
element.TaggedValues.Refresh
For idx = 0 to element.TaggedValues.Count -1
o = element.TaggedValues.GetAt(idx)
Console.WriteLine(o.Name)
If(o.Name="Appended") Then
If bDel Then element.TaggedValues.Delete (idx)
End if
Next
'Scenarios
o = element.Scenarios.AddNew("Appended","Change")
If not o.Update Then
Console.WriteLine("Scenarios error:" + o.GetLastError())
End if
element.Scenarios.Refresh
For idx = 0 to element.Scenarios.Count -1
o = element.Scenarios.GetAt(idx)
Console.WriteLine(o.Name)
If(o.Name="Appended") Then
If bDel Then element.Scenarios.Delete (idx)
End if
Next
'Files
o = element.Files.AddNew("MyFile","doc")
If not o.Update Then
Console.WriteLine("Files error:" + o.GetLastError())
End if
element.Files.Refresh
For idx = 0 to element.Files.Count -1
o = element.Files.GetAt(idx)
Console.WriteLine(o.Name)
If(o.Name="MyFile") Then
If bDel Then element.Files.Delete (idx)
End if
Next
'Tests
o = element.Tests.AddNew("TestPlan","Load")
If not o.Update Then
Console.WriteLine("Tests error:" + o.GetLastError())
End if
element.Tests.Refresh
For idx = 0 to element.Tests.Count -1
o = element.Tests.GetAt(idx)
Console.WriteLine(o.Name)
If(o.Name="TestPlan") Then
If bDel Then element.Tests.Delete (idx)
End if
Next
'Defect
o = element.Issues.AddNew("Broken","Defect")
If not o.Update Then
Console.WriteLine("Issues error:" + o.GetLastError())
End if
element.Issues.Refresh
For idx = 0 to element.Issues.Count -1
o = element.Issues.GetAt(idx)
Console.WriteLine(o.Name)
If(o.Name="Broken") Then
If bDel Then element.Issues.Delete (idx)
End if
Next
'Change
o = element.Issues.AddNew("Change","Change")
If not o.Update Then
Console.WriteLine("Issues error:" + o.GetLastError())
End if
element.Issues.Refresh
For idx = 0 to element.Issues.Count -1
o = element.Issues.GetAt(idx)
Console.WriteLine(o.Name)
If(o.Name="Change") Then
If bDel Then element.Issues.Delete (idx)
End if
Next
catch e as exception
Console.WriteLine(element.Methods.GetLastError())
Console.WriteLine(e)
End try
End Sub
