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
    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

时间: 2016-03-20

PowerDesigner脚本:设置实体快捷方式的颜色的相关文章

利用swatchGridBackgroundColor样式设置ColorPicker的样本颜色网格背景颜色

接下来的例子演示了Flex中如何利用swatchGridBackgroundColor样式,设置ColorPicker的样本颜色 网格背景颜色. 下面是完整代码 <?xml version="1.0" encoding="utf-8"?> <mx:Applicationxmlns:mx="http://www.adobe.com/2006/mxml" layout="vertical" verticalAli

VB.NET设置屏幕分辨率、颜色位数、刷新率 实例代码

这篇文章介绍了VB.NET设置屏幕分辨率.颜色位数.刷新率 实例代码,有需要的朋友可以参考一下   复制代码 代码如下: Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long Private Declare Function ChangeDisplaySettings Lib "user32" Alias "C

Word 2007中设置单色页面背景颜色

  在Word2007文档中设置单色页面背景颜色的步骤如下所述: 第1步,打开Word2007文档窗口,切换到"页面布局"选项卡. 第2步,在"页面背景"分组中单击"页面颜色"按钮,并在打开的页面颜色面板中选择"主题颜色"或"标准颜"中的特定颜色,如图所示. 小提示:如果"主题颜色"和"标准色"中显示的颜色依然无法满足用户的需要,可以单击"其他颜色"

window7如何设置保护眼睛的颜色?

  如果你经常在电脑前没日没夜的工作,并且为window7刺眼的白色对话框而发愁,今天就教你window7如何设置保护眼睛的颜色方法,让你的眼睛有一片舒适柔和的桌面.希望对长期长期蹲在电脑旁的上班一族有所帮助. 步骤/方法 1.在电脑桌面空白处点击右键"个性化"按钮. 2.在弹出的对话框单击"窗口颜色" 3.在弹出的新的对话框中单击"高级外观设置". 4.在弹出的窗口颜色和外观中,将项目选为"窗口"颜色选为其他,进入到颜色选择

按键精灵QQ自动登录的脚本设置方法

  很多人打开电脑,做的第一件事情就是登录QQ.不过,每天都需要点击腾讯QQ图标,选择要登录的QQ号,然后输入密码,最后再点击登录.这样的动作日复一日的重复着.接下来,一起来学习一下使用按键精灵制作一个只有你知道脚本,就不用这么麻烦了.一起来学习一下按键精灵一键自动登录QQ的脚本设置步骤! 1. 启动按键精灵(如下图); 按键精灵 2. 单击工具栏上的"录制"按钮.(这是按键精灵最为简单易用并且功能强大的一项内容)弹出录制脚本的对话框,界面简单明了,用过录音机的朋友们一看就知道点红色圆

按键精灵邮箱怎么自动登陆脚本设置

  在之前的按键精灵教程中,我们跟大家分享了很多按键精灵的脚本设置教程,比如,设置QQ自动登陆,设置QQ帐号自动申请,以及找到图片脚本的设置.今天,我们将为大家介绍一种关于邮箱的脚本设置.邮箱作为Internet应用中重要的组成部分,如今我们依然使用频繁,然而每天收发邮件的反锁工作实在烦恼,使用案件精灵软件可以将这样繁琐的操作变为只按一键搞定. 按键精灵邮箱自动登陆脚本设置步骤: 1.启动按键精灵进入录制脚本界面.(如下图) 2.单击红色录制按钮开始录制脚本.将鼠标移动到IE浏览器的图标上面并点

ios-动态设置UILabel的文本颜色

问题描述 动态设置UILabel的文本颜色 创建label: .H 文件: @interface ViewController : UIViewController { NSArray * phraseAry ; UIView * containerView; UILabel * oldLabel; NSMutableArray *dataArray; } @property (strong, nonatomic) IBOutlet UIScrollView *myScrollView; .M

linux BASH shell下设置字体及背景颜色_linux shell

BASH shell下设置字体及背景颜色 echo -e "\e[31mtest\e[41m" \e[30m 将字符的显示颜色改为黑色 \e[31m 将字符的显示颜色改为红色 \e[32m 将字符的显示颜色改为绿色 \e[33m 将字符的显示颜色改为淡红色 \e[34m 将字符的显示颜色改为蓝色 \e[35m 将字符的显示颜色改为紫色 \e[36m 将字符的显示颜色改为淡蓝色 \e[37m 将字符的显示颜色改为灰色 \e[40m -- \e[47m 设置背景色 \e[40m 将背景色设

eclipse常规设置(修改边框颜色)

问题描述 eclipse常规设置(修改边框颜色) 如图,去掉边框着色,换成默认的就好,这样看着特别扭