PDM导出表结构时没有注释执行语句

PDM导出表结构时没有注释执行语句  执行顺序 1 工具   2 execute commands   3 复制到 run script  运行

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