模型显示注释参考：

https://blog.csdn.net/ethan__xu/article/details/82461644

设置的字段顺序也很重要。

其中VBS脚本：

Option   Explicit   

    ValidationMode   =   True   

    InteractiveMode   =   im_Batch

    Dim blankStr

    blankStr   =   Space(1)

    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 = "" or replace(col.comment," ", "")="" Then

                            col.name = blankStr

                            blankStr = blankStr & Space(1)

                      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 

显示一对多连线参考：

https://blog.csdn.net/qq_27721169/article/details/82901617