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