|
|
PowerDesigner脚本:设置实体快捷方式的颜色 |
|
|
作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站 |
'***************************************************************************** '文件:Set color of entities shortcut.vbs '版本:1.0 '版权:floodzhu( [email protected] ),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
|
|
相关文章:相关软件: |
|