导入 Rational Rose 模型详细说明了如何导入 Rational Rose 模型,在导入该模型期间,还可以导入其特性。
您必须根据工具、元类和特性名来定义所要导入的 Rational Rose 特性,为此,必须创建一个 XML 映射文件。在 Rational Rhapsody 中执行导入过程时,可以在“导入选项”窗口中指定这个 XML 映射文件。
导入 Rational Rose 特性后,必须使用 Rational Rhapsody 应用程序编程接口 (API) 对模型进行后处理。有关如何使用 Rational Rhapsody API 对特性进行处理的信息,请参阅此文档。
Public Sub PrintFinalClasses(p As IRPPackage)
'
'Routine to print names of all final classes imported from Rose
'
Dim allClassifiers As RPCollection
Set allClassifiers = p.nestedClassifiers
Dim c As RPClassifier
For Each c In allClassifiers
isClass = c.isOfMetaClass("Class")
If isClass Then
On Error Resume Next
If c.getPropertyValue("Model.Class.Java_Final") = "True" Then
Print c.getFullPathName
End If
End If
Next
End Sub