|
February 27, 2001
Hi!
The following VB code creates
a Rational Rose 2000 model with a class object named
"Test001":
Dim objRoseAppl As
RoseApplication
Dim objRoseModel As RoseModel Dim objRoseCatColl As RoseCategoryCollection
Dim objRoseCategory As RoseCategory Dim objRoseClassDiagrColl As RoseClassDiagramCollection Dim objRoseClassDiagr As RoseClassDiagram Dim objRoseClass As RoseClass Set objRoseAppl =
CreateObject("rose.application")
objRoseAppl.Visible = True Set objRoseModel = objRoseAppl.NewModel Set objRoseCatColl =
objRoseModel.GetAllCategories
For iCont = 1 To
objRoseCatColl.Count
Set objRoseCategory = objRoseCatColl.GetAt(iCont) If objRoseCategory.Name = "Logical View" Then Set objRoseClassDiagrColl = objRoseCategory.ClassDiagrams For iCont2 = 1 To objRoseClassDiagrColl.Count Set objRoseClassDiagr = objRoseClassDiagrColl.GetAt(iCont2) If objRoseClassDiagr.Name = "Main" Then objRoseClassDiagr.Activate Set objRoseClass = objRoseCategory.AddClass("Test001") end
if
next
end if
next
I need to create a Sequence Diagram with Visual
Basic 6.0 SP4, Can you send me a sample?
Thanks
|
