The following works in Rose Scripting, so you should be able to use the same methods from inside VB code.

        Dim cc As CategoryCollection
        Set cc = RoseApp.CurrentModel.GetAllCategories()
       
        For i = 1 To cc.Count
                If cc.GetAt(i).TopLevel <> TRUE Then
                        cc.GetAt(i).Name = "Changed" & i
                End If
        Next i

Reply via email to