参考 https://blog.csdn.net/zjcjava/article/details/103232871
https://www.cnblogs.com/zsg88/p/7599642.html
数据库注释变成powerdesigner–name
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_Mod