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