脚本|快捷方式'*****************************************************************************
 '文件：Set color of entities shortcut.vbs
 '版本：1.0
 '版权：floodzhu( floodzhuhotmail.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