esigner中name和comment互換

1 PowerDesigner中批量根据对象的name生成comment的脚本

执行方法：Open PDM -- Tools -- Execute Commands -- Run Script

 

 

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