Powerdesigner使用经验大全.docxVIP

Powerdesigner使用经验大全珠海大国/p/珠海大国Email: bridge97@163.com自2001年以内，在软件开发过程中一直使用Powerdesigner，编写和收集了不少Powerdesigner的文档，本着互联网的分享精神，现分享给大家，欢迎研究应用Powerdesigner的朋友一起交流。脚本script集Powerdesigner的一大特色就是对脚本的支持，通过编写脚本，可以大大提升工作效率。以下是编写或收集的部分脚本，可供直接或修改使用。设置实体快捷方式的颜色***************************************************************************** 文件：Set color of entities shortcut.vbs 版本：1.0 版权：floodzhu( floodzhu@ )，2005.1.6 功能：遍历概念模型，把Entities的快捷方式的颜色设置为黄色。 ***************************************************************************** dim fs,f set fs = CreateObject(Scripting.FileSystemObject) set f = fs.CreateTextFile(C:\PowerDesigner_vbs.log)dim indexindex = 0dim modelset 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 nodefor each node in folder.Entitiesif node.IsShortCut then Visit nodeend ifnext 对子目录进行递归dim subFolderfor each subFolder in folder.Packages View subFoldernextend sub ***************************************************************************** 函数：Visit 功能：处理节点 *****************************************************************************sub Visit(node)dim symfor each sym in node.symbols sym.FillColor = rgb(255, 255, 128)index = index + 1 f.writeline ● sym.FillColornextend sub快速批量生成表Option Explicit----------------------------------------------------------------------------- Initialization-----------------------------------------------------------------------------Dim system, fileSet system = CreateObject(Scripting.FileSystemObject) Open mode constants...Dim ForReading, ForWriting, ForAppendingForReading = 1 Open a file for reading only. You cant write to this file. ForWriting = 2 Open a file