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

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

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

'对子目录进行递归

dim subFolder

for each subFolder in folder.Packages

View subFolder

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

end sub