给PDM所有表相同字段一次性添加Comment

Option Explicit
ValidationMode = True
InteractiveMode = im_Batch
 
'ceaate by runnerrunning 
 
' get the current active model
Dim mdl ' the current model
dim TestDataObj 
Set mdl = ActiveModel
If (mdl Is Nothing) Then
   MsgBox "There is no Active Model"
Else
   ListObjects(mdl)
End If
 
 
'-----------------------------------------------------------------------------
Private Sub ListObjects(fldr) '列出所有的对象
   output "Scanning " & fldr.code
   Dim obj ' running object
   
   For Each obj In fldr.children
      ' Calling sub procedure to print out information on the object
      
      TableSetComment obj
   Next
 
    ' go into the sub-packages
   Dim f ' running folder