PowerDesigner脚本：设置实体快捷方式的颜色

发布: 2007-7-02 11:08 | 作者: admin | 来源: | 查看: 35次 | 进入软件测试论坛讨论

@#*****************************************************************************
@#文件：Set color of entities shortcut.vbs
@#版本：1.0
@#版权：floodzhu( floodzhu@hotmail.com )，2005.1.6
@#功能：遍历概念模型，把Entities的快捷方式的颜色设置为黄色。
@#*****************************************************************************

@#   dim fs,f
@#   set fs = CreateObject("Scripting.FileSystemObject")
@#   set f = fs.CreateTextFile("C:\PowerDesigner_vbs.log")
dim index
index = 0

dim model
set model = ActiveModel

If (model Is Nothing) Then
    MsgBox "当前没有活动的模型。"
ElseIf Not model.IsKindOf(PdCDM.cls_Model) Then
    MsgBox "当前模型不是概念模型。"
Else
    View model
    MsgBox index & "个实体的快捷方式的颜色被设置。"
End If

@#*****************************************************************************
@#函数：View
@#功能：递归遍历
@#*****************************************************************************
sub View(folder)
    dim node
    for each node in folder.Entities
       if node.IsShortCut then
          Visit node
       end if
    next

    @#对子目录进行递归
    dim subFolder
    for each subFolder in folder.Packages
       View subFolder
    next
end sub

@#*****************************************************************************
@#函数：Visit
@#功能：处理节点
@#*****************************************************************************
sub Visit(node)
    dim sym
    for each sym in node.symbols
       sym.FillColor = rgb(255, 255, 128)
       index = index + 1
       @#f.writeline sym.name & " ● " & sym.FillColor
    next
end sub