Power Designer将表字段注释转换为模型

选择工具——Execute Commands——Edit /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
 if len(tab.comment) <> 0 then
 tab.name = tab.comment
 end if
 On Error Resume Next
 Dim col 'running column
 for each col in tab.columns
 if len(col.comment) <>0 then
 col.name =col.comment
 end if
 On Error Resume Next
 next
 end if
 next
 end sub