PowerDesigner脚本:设置实体快捷方式的颜色
2008-04-26 18:43
381 查看
'*****************************************************************************
'文件:Setcolorofentitiesshortcut.vbs
'版本:1.0
'版权:floodzhu(floodzhu@hotmail.com),2005.1.6
'功能:遍历概念模型,把Entities的快捷方式的颜色设置为黄色。
'*****************************************************************************
' dimfs,f
' setfs=CreateObject("Scripting.FileSystemObject")
' setf=fs.CreateTextFile("C:/PowerDesigner_vbs.log")
dimindex
index=0
dimmodel
setmodel=ActiveModel
If(modelIsNothing)Then
MsgBox"当前没有活动的模型。"
ElseIfNotmodel.IsKindOf(PdCDM.cls_Model)Then
MsgBox"当前模型不是概念模型。"
Else
Viewmodel
MsgBoxindex&"个实体的快捷方式的颜色被设置。"
EndIf
'*****************************************************************************
'函数:View
'功能:递归遍历
'*****************************************************************************
subView(folder)
dimnode
foreachnodeinfolder.Entities
ifnode.IsShortCutthen
Visitnode
endif
next
'对子目录进行递归
dimsubFolder
foreachsubFolderinfolder.Packages
ViewsubFolder
next
endsub
'*****************************************************************************
'函数:Visit
'功能:处理节点
'*****************************************************************************
subVisit(node)
dimsym
foreachsyminnode.symbols
sym.FillColor= rgb(255,255,128)
index=index+1
'f.writelinesym.name&"●"&sym.FillColor
next
endsub
'文件:Setcolorofentitiesshortcut.vbs
'版本:1.0
'版权:floodzhu(floodzhu@hotmail.com),2005.1.6
'功能:遍历概念模型,把Entities的快捷方式的颜色设置为黄色。
'*****************************************************************************
' dimfs,f
' setfs=CreateObject("Scripting.FileSystemObject")
' setf=fs.CreateTextFile("C:/PowerDesigner_vbs.log")
dimindex
index=0
dimmodel
setmodel=ActiveModel
If(modelIsNothing)Then
MsgBox"当前没有活动的模型。"
ElseIfNotmodel.IsKindOf(PdCDM.cls_Model)Then
MsgBox"当前模型不是概念模型。"
Else
Viewmodel
MsgBoxindex&"个实体的快捷方式的颜色被设置。"
EndIf
'*****************************************************************************
'函数:View
'功能:递归遍历
'*****************************************************************************
subView(folder)
dimnode
foreachnodeinfolder.Entities
ifnode.IsShortCutthen
Visitnode
endif
next
'对子目录进行递归
dimsubFolder
foreachsubFolderinfolder.Packages
ViewsubFolder
next
endsub
'*****************************************************************************
'函数:Visit
'功能:处理节点
'*****************************************************************************
subVisit(node)
dimsym
foreachsyminnode.symbols
sym.FillColor= rgb(255,255,128)
index=index+1
'f.writelinesym.name&"●"&sym.FillColor
next
endsub
相关文章推荐
- PowerDesigner脚本:设置实体快捷方式的颜色
- powerdesigner 使用实体的快捷方式实现不同package之间的实体关系引用
- powerdesigner:设置单个实体的颜色
- 在powerdesigner 使用实体的快捷方式
- Android中设置颜色的几种方式
- 用VB脚本实现向右键菜单添加快捷方式
- shell 脚本设置文本颜色
- 设置桌面快捷方式
- 使用PowerDesigner 进行表结构设计--快捷导入sql脚本,以及解决中文乱码
- 在notepad++中直接运行python代码快捷方式设置
- AD中映射网盘和打印机及快捷方式的脚本
- QT按键设置快捷方式
- 删除被删除的快捷方式中设置的快捷键
- mac 下设置 sublime text2 的命令行快捷方式 subl
- Ubuntu11.10设置桌面启动器(桌面快捷方式)
- css颜色值设置方式有哪些?以及如何随机一个颜色?
- bat脚本实现应用程序的快捷方式建立
- 在Ubuntu 12.04 桌面上设置启动器(快捷方式)
- phpexcel中文教程-设置表格字体颜色背景样式、数据格式、对齐方式、添加图片、批注、文字块、合并拆分单元格、单元格密码保护
- 怎么设置桌面关机的快捷方式