powerdesigner常用脚本整理(笔记)

脚本执行方式:powerdesigner 打开物理模型，点击菜单“Tools->Execute Commands -> Edit/Run Script…"，或者快捷键（Ctrl+Shift+X）执行下面vbscript脚本

PowerDesigner大小写转换，不用写vbscript，直接利用软件提供的功能即可完成转换，只需要选择
转换表名：菜单——Tools\Model Options…\Naming Convertion\Table下
转换字段：菜单——Tools\Model Options…\Naming convertion\Column下

将CODE列小写转换为大写(包含表名name和列name)

'大小写转换，目标为大写
Option Explicit
ValidationMode = True
InteractiveMode = im_Batch
Dim mdl ' the current model
'取得当前Model
Set mdl = ActiveModel
If (mdl Is Nothing) Then
 MsgBox "There is no current Model"
ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then
 MsgBox "The current model is not an Physical Data model."
Else
 ProcessFolder mdl
End If
 
Private sub ProcessFolder(folder)
  '处理表
 Dim Tab
 for each Tab in folder.tables
   tab.code = UCase(tab.code)
   '修改字段名
   Dim col
   for each col in tab.columns
    col.code= UCase(col.code)
   next
   '修改索引名
   Dim idx
   for each idx in tab.indexes
    idx.code= UCase(idx.code)
   next
   '修改主键名
   Dim key
   for each key in tab.keys
    key.code= UCase(key.code)
   next
 next
' 同理处理视图
' Dim view
' for each view in folder.Views
 ' if not view.isShortcut then
   ' view.code = view.name
  ' end if
' next
 ' go into the sub-packages
 Dim f ' running folder
 For Each f In folder.Packages
  if not f.IsShortcut then
   ProcessFolder f
  end if
 Next
end sub

使用COMMENT列值覆盖NAME列值

Option   Explicit 
ValidationMode   =   True 
InteractiveMode   =   im_Batch
Dim   mdl   '   the   current   model
'   get   the   current   active   model 
Set   mdl   =   ActiveModel 
If   (mdl   Is   Nothing)   Then 
      MsgBox   "There   is   no   current   Model " 
ElseIf   Not   mdl.IsKindOf(PdPDM.cls_Model)   Then 
      MsgBox   "The   current   model   is   not   an   Physical   Data   model. " 
Else 
      ProcessFolder   mdl 
End   If
Private   sub   ProcessFolder(folder) 
On Error Resume Next
      Dim   Tab   'running     table 
      for   each   Tab   in   folder.tables 
            if   not   tab.isShortcut   then 
                  tab.name   =   tab.comment
                  Dim   col   '   running   column 
                  for   each   col   in   tab.columns 
                  if col.comment="" then
                  else
                        col.name=   col.comment 
                  end if
                  next 
            end   if 
      next
      Dim   view   'running   view 
      for   each   view   in   folder.Views 
            if   not   view.isShortcut   then 
                  view.name   =   view.comment 
            end   if 
      next
      '   go   into   the   sub-packages 
      Dim   f   '   running   folder 
      For   Each   f   In   folder.Packages 
            if   not   f.IsShortcut   then 
                  ProcessFolder   f 
            end   if 
      Next 
end   sub

使用NAME列值覆盖COMMENT列值

Option   Explicit 
ValidationMode   =   True 
InteractiveMode   =   im_Batch
Dim   mdl   '   the   current   model
'   get   the   current   active   model 
Set   mdl   =   ActiveModel 
If   (mdl   Is   Nothing)   Then 
      MsgBox   "There   is   no   current   Model " 
ElseIf   Not   mdl.IsKindOf(PdPDM.cls_Model)   Then 
      MsgBox   "The   current   model   is   not   an   Physical   Data   model. " 
Else 
      ProcessFolder   mdl 
End   If
'   This   routine   copy   name   into   comment   for   each   table,   each   column   and   each   view 
'   of   the   current   folder 
Private   sub   ProcessFolder(folder) 
      Dim   Tab   'running     table 
      for   each   Tab   in   folder.tables 
            if   not   tab.isShortcut   then 
                  tab.comment   =   tab.name 
                  Dim   col   '   running   column 
                  for   each   col   in   tab.columns 
                        col.comment=   col.name 
                  next 
            end   if 
      next
      Dim   view   'running   view 
      for   each   view   in   folder.Views 
            if   not   view.isShortcut   then 
                  view.comment   =   view.name 
            end   if 
      next
      '   go   into   the   sub-packages 
      Dim   f   '   running   folder 
      For   Each   f   In   folder.Packages 
            if   not   f.IsShortcut   then 
                  ProcessFolder   f 
            end   if 
      Next 
end   sub

转载自:
powerDesigner大小写转换
PowerDesigner设计Name和注释相互替换