PowerDesigner脚本:设置实体快捷方式的颜色
来源:互联网 发布:软件开发实习生骗局 编辑:程序博客网 时间:2024/05/22 12:53
'*****************************************************************************
'文件: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
'文件: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
- PowerDesigner脚本:设置实体快捷方式的颜色
- PowerDesigner脚本:设置实体快捷方式的颜色
- powerdesigner:设置单个实体的颜色
- 在powerdesigner 使用实体的快捷方式
- powerdesigner 使用实体的快捷方式实现不同package之间的实体关系引用
- powerdesigner设置对象颜色
- powerdesigner设置对象颜色
- powerdesigner设置对象颜色
- 设置显示实体的颜色 byLayer/byBlock
- 脚本里的颜色设置
- PowerDesigner脚本:自动设置Identity属性的代码
- 自动设置Identity属性的代码(PowerDesigner脚本)
- PowerDesigner设置Table的默认属性值(字体颜色,大小,主键颜色等)
- Powerdesigner CDM怎么设置实体属性的字段类型为简写
- PowerDesigner的样式设置
- PowerDesigner的样式设置
- PowerDesigner的样式设置
- PowerDesigner的样式设置
- 我的现实,我的路(一)
- Structs examples
- 如何成长为真正的CCIE (ZT)
- vc知识总结(在csdn的文档中心看到的)
- IFIX VBA的几个小窍门。
- PowerDesigner脚本:设置实体快捷方式的颜色
- 浅谈JAVA VM 发展
- 用SELECT和LOAD倒入数据
- Alexa世界网站排名作弊简单方法
- Beej's Guide to Network Programming
- 高博老师的信2
- 在工控领域用到的VC++知识(个人经验)
- 在 ASP.NET 中实现 Page Controller
- 绿色学院 - Green Institute | Google Bomb