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进行互相同步转换了。