Option Explicit
ValidationMode = True
InteractiveMode = im_Batch
Dim mdl '当前model
'获取当前活动model
Set mdl = ActiveModel
If (mdl Is Nothing) Then
MsgBox "There is no current Model "
ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then '如果是处理pdm，这里换成PdPDM.cls_Model
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 item '要处理的对象
'先处理每个实体或类的Name和Code
dim tab
for each tab in folder.tables
if not tab.isShortcut then
dim col
for each col in tab.columns
if col.ServerCheckExpression <>"" then
output col.name
output col.ServerCheckExpression
end if
if col.ListOfValues <>"" then
output col.name
output col.ListOfValues
end if
next
end if
next
'递归遍历子文件夹
Dim f '子文件夹
For Each f In folder.Packages
if not f.IsShortcut then
ProcessFolder f
end if
Next
end sub