PowerDesigner，根据name自动生成commnet的脚本

PowerDesigner在操作上有很多的不便性，但在库的设计及SQL代码生成上还是很强大的。

由于自己写的代码生成器能够根据comment生成相关字段注释，所以，commnet还是非常重要的。以前是通过手动一条条的从Name得到到comment中去，字段比较少倒是没什么感觉，这次项目很多表都是在一百多个字段以上，所以，有点吃力。于是，在网上找了点资料，然后自己稍微加工了下，脚本如下：

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

Dim col 'running column
for each col in tab.columns
If (col.comment="") Then '已存在的comment则不更新
col.comment= col.name
end if
next
end if
next

Dim view 'running view
for each view in folder.Views
if not view.isShortcut then
view.comment = view.name
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

这段代码也是从网上找的。主要是加了个如果comment的为空的情况下则从name复制，否则将不处理。

PowerDesigner里的脚本是VB写的。所以，如果对VB了解的话，还是可以编写很多东西的。

代码的使用，如下图：

在这里需要注意下，运行脚本时要先在PowerDesigner选中需要处理的PDM。