powerdesigner从数据库导出PDM commnet注释转code

开始 

 PowerDesigner->Tools->Execute Commands->Edit/Run Scripts

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.code = tab.comment
Dim col ' running column

for each col in tab.columns 
if col.comment="" then
else
col.code= col.comment 
end if
next 
end if 
next
Dim view 'running view 
for each view in folder.Views 
if not view.isShortcut then 
view.code = 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