PowerDesigner导入sql注释生成name以及前缀分类

打开物理模型，点击菜单“Tools->Execute Commands -> Edit/Run Script..."，或者快捷键（Ctrl+Shift+X）执行下面vbscript脚本 

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
= getParameterType(tab.code)+ 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
'获取分组命名的参数
Function
getParameterType(tablecode)
dim type_code
dim type_
'拆分字符串
type_code = Split(tablecode,"_")
select case type_code(1)
case "HIS" type_ = "历史"
case "PRM" type_ = "参数"
case "COD" type_ = "代码"
case "CFG" type_ = "配置"
case "SYS" type_ = "系统"
case "BUF" type_ = "缓存"
case "QUE" type_ = "队列"
case "LOG" type_ = "日志"
case "IDX" type_ = "索引"
case "ERR" type_ = "错误"
case "TMP" type_ = "临时"
case "SUB" type_ = "子表"
case "FLN" type_ = "文件名"
case "AUD" type_ = "审计"
case "CM" type_ = "通信"
case "CFG" type_ = "配置"
case "FLW" type_ = "客流"
case "STA" type_ = "设备状态"
case "TRD" type_ = "线程"
case "EC" type_ = "ES通讯"
case "EVN" type_ = "事件"
end select
type_code = "（"+type_+"）"
getParameterType= type_code
End Function

提示

OP_COD_PARM_TYPE

（代码）参数类型

备注：教学参考http://www.w3school.com.cn/vbscript/index.asp