No matter 15 or 16. There is no configuration of displaying attribute field comments directly in the view, so the comments need to be displayed in an indirect way. The operation flowchart is as follows
Original style
Display operation
Call up the interface for executing commands
Execute Xiali command
Replace comment from name
Option Explicit ValidationMode = True InteractiveMode = im_BatchDim 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' This routine copy name into comment for each table, each column and each view 'of the current folder Private sub ProcessFolder(folder) 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 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
Replace name from comment
Option Explicit ValidationMode = True InteractiveMode = im_BatchDim 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 IfPrivate 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
The final rendering is as follows
You can see that the id column in Figure 1 has been replaced by Chinese comments.