pdm文件name与comment互相同步

1.使用Powerdesigner工具将pdm文件的name同步至comment。

点击Tools->Execute Commands->Edit/Run Scripts

输入脚本：

Option   Explicit
ValidationMode   =   True
InteractiveMode   =   im_Batch
Dim   mdl
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)
        Dim   Tab
        for   each   Tab   in   folder.tables
              if   not   tab.isShortcut   then
                    tab.comment=tab.name
                    Dim   col
                    for   each   col   in   tab.columns
                                                if col.comment="" then
                                                    col.comment=col.name
                                                end if
                    next
              end   if
        next
end   sub

　　

点击Run即可。

2.使用Powerdesigner工具将pdm文件的comment同步至name。

点击Tools->Execute Commands->Edit/Run Scripts

输入脚本：

Option   Explicit
ValidationMode   =   True
InteractiveMode   =   im_Batch
Dim   mdl
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)
        Dim   Tab
        for   each   Tab   in   folder.tables
              if   not   tab.isShortcut   then
                    tab.name=tab.comment
                    Dim   col
                    for   each   col   in   tab.columns
                        col.name=col.comment
                    next
              end   if
        next
end   sub

　　

点击Run即可。

上述两个脚本就可以将pdm里面的name和comment进行互相同步转换了。