Powerdesigner 把name设置成comment;

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

Option   Explicit 

ValidationMode = True

InteractiveMode = im_Batch

Dim mdl

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

if not tab.isShortcut then

tab.comment=tab.name

Dim col

for each col in tab.columns

if col.comment="" then

col.comment=col.name

end if

next

end if

next

end sub