dim model '当前模型
set model = ActiveModel
If (model Is Nothing) Then
MsgBox "没有选择模型，请选择一个模型并打开."
ElseIf Not model.IsKindOf(PdPDM.cls_Model) Then
MsgBox "当前选择的不是一个物理模型（PDM）."
Else
ProcessTables model
End If


'*****************************************************************************
'函数：ProcessTables
'功能：递归遍历所有的表
'*****************************************************************************
sub ProcessTables(folder)
'处理模型中的表
dim table
for each table in folder.tables
if not table.IsShortCut then
CustomSub table '自定义过程用来处理相关的操作，比如把字段名全部大写
end if
next

'对子目录进行递归
dim subFolder
for each subFolder in folder.Packages
ProcessTables subFolder
next
end sub