PowerDesigner脚本：设置实体快捷方式的颜色-数据库专栏,SQL Server

*****************************************************************************
 文件：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