file->反向工程->database
1数据库连接生成的pdm ，2选择sql文件生成pdm
用数据库连接生成的pdm，字段有描述，在pdm中打开表，查看列，cusomsize column ,把备注字段勾选，显示出来就看得到描述
用sql文件生成的，好象跳过了字段描述的处理
下面的代码是把字段的name用comment的替换，如果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
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