Please note : This help page is not for the latest version of Enterprise Architect. The latest help can be found here.
Element Extras
Topics
Topic |
Detail |
---|---|
public Object |
''Examples of how 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
|