powerdesigner 名称、注释相互覆盖

按照如图步骤，执行下面对应脚本即可实现数据覆盖

1. 将注释内容覆盖到名称上

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 = 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

2. 将名称内容覆盖到注释上

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.comment = tab.name
            Dim col ' running column

            For Each col in tab.columns
                '把列名称和comment合并为comment
                col.comment = col.name
            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

转载自：https://www.cnblogs.com/wudeyun/p/13021409.html