powerdesigner 名称、注释互转

最新推荐文章于 2025-12-19 22:31:41 发布

原创最新推荐文章于 2025-12-19 22:31:41 发布 · 140 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#linux #运维 #服务器

依次执行 1 - 5 步，实现注释转名称或者名称转注释，两个转换脚本附上

1. 名称转注释脚本：

复制代码

依次执行 1 - 5 步，实现 注释转名称 或者名称转注释，两个转换脚本附上

 



 

 

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.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
复制代码
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.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.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

复制代码