生成ER图之后，一般是这样的，很简单的表名、字段值、字符类型，但是事实上这样很蠢，没有注释的话完全没有办法给别人看嘛！要是给领导看，怕是要被当场打死。

 

 

 所以要加注释，加注释需要一个脚本，脚本我已经传到CSDN资源了，这里是连接http://download.csdn.net/download/qq_17010367/10232686。

 执行脚本，Tools——Execute Commands——Edit/Run Script ，在下面的弹出框中，红色框内是选择文件路径按钮，选择后点击“Run”，然后就变成了下面的样子……

 

 

 是不是很惊呆，卧槽我的字段呢？！不要急，来，让我们慢慢操作一波。Tools——Display perferences，下面说起来爱繁琐，我就不断截图了，红色框内表示要点击的地方，数字表示顺序。

 

 勾选code，然后把它调整到最上面，不然code就会在最后一列显示，当然你也可以把它调到你喜欢的任意位置。之后一路OK。

 

 

 最后的效果如下：

 

 如果想给表名加注释的话，双击表名，编辑即可。

附：转换脚本

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.name = tab.comment
Dim col ' running column
for each col in tab.columns
if col.comment="" then
else
col.name= col.comment
end if
next
end if
next

Dim view 'running view
for each view in folder.Views
if not view.isShortcut then
view.name = 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
 
附：默认所有表都选中，点击选择旁边小按钮，取消反选