powerdesigner是個好東西,設計工作中經常有些工作需要批量執行修改，採用其自帶的指令碼語言是個不錯的選則，下面這段指令碼把pdm中所有物件並修改，其中包含對多層package中物件的呼叫，很方便

Option Explicit
ValidationMode = True
InteractiveMode = im_Batch

'ceaate by runnerrunning

' get the current active model
Dim mdl ' the current model
Set mdl = ActiveModel
If (mdl Is Nothing) Then
   MsgBox "There is no Active Model"
Else
   ListObjects(mdl)
End If

'-----------------------------------------------------------------------------
Private Sub ListObjects(fldr) '列出所有的物件
   output "Scanning " & fldr.code
   Dim obj ' running object
   For Each obj In fldr.children
      ' Calling sub procedure to print out information on the object
      DescribeObject obj
      TableSetComment obj
   Next

   ' go into the sub-packages
   Dim f ' running folder
   For Each f In fldr.Packages '遞迴呼叫列出所有的物件
      'calling sub procedure to scan children package
      ListObjects f
   Next
End Sub

'-----------------------------------------------------------------------------
' Sub procedure to print information on current object in output
'-----------------------------------------------------------------------------
Private Sub DescribeObject(CurrentObject)
   if not CurrentObject.Iskindof(cls_NamedObject) then exit sub
   output "Found "+CurrentObject.ClassName+" """+CurrentObject.Name+""", Created by "+CurrentObject.Creator+" On "+Cstr(CurrentObject.CreationDate)  
End Sub

'ceaate by runnerrunning

Private Sub TableSetComment(CurrentObject)
   if not CurrentObject.Iskindof(cls_Table) then exit sub
   'output "Found "+CurrentObject.ClassName+" """+CurrentObject.Name+""", Created by "+CurrentObject.Creator+" On "+Cstr(CurrentObject.CreationDate)  
      if not CurrentObject.isShortcut then
         CurrentObject.Comment = CurrentObject.name &vbCrLf& CurrentObject.Comment
         Dim col ' running column
         for each col in CurrentObject.columns
            col.Comment = col.name &vbCrLf& col.Comment
         next
      end if  
  
End Sub

//本人原創[email protected]轉載請保留本資訊
//http://blog.csdn.net/runnerrunning
//大家看了別忘了點右邊的廣告阿支援一下[email protected]阿