运行如下的脚本可以为PDM模型中的每张表增加二个字段(修改时间和操作人)
Option Explicit
Dim mdl ' the current model
Set mdl = ActiveModel
Dim Tab 'running table
Dim col_ModTime, col_ModPerson
' 定义属性变量
for each Tab in ActiveModel.Tables
Set col_ModTime = Tab.Columns.CreateNew
set col_ModPerson = Tab.Columns.CreateNew
col_ModTime.name = "修改时间"
col_ModTime.code = "Modify Time"
col_ModTime.DataType = "Date"
col_ModPerson.name = "操作人"
col_ModPerson.code = "operation person"
col_ModPerson.DataType = "VARCHAR2(100)"
next