'******************************************************************************'* File: name2comment.vbs'* Purpose: Database generation cannot use object names anymore' in version 7 and above.' It always uses the object codes.'' In case the object codes are not aligned with your' object names in your model, this script will copy' the object Name onto the object Comment for' the Tables and Columns.''* Title:'* Version: 1.0'* Company: Sybase Inc.'******************************************************************************Option ExplicitValidationMode=TrueInteractiveMode=im_BatchDim mdl ' the current model' get the current active modelSet mdl=ActiveModelIf (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 mdlEnd If' This routine copy name into comment for each table, each column and each view' of the current folderPrivate 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 Nextend sub'把pd中那么name想自动添加到comment里面'如果comment为空,则填入name; 如果不为空,则保留不变,这样可以避免已有的注释丢失.Option ExplicitValidationMode=TrueInteractiveMode=im_BatchDim mdl ' the current model' get the current active modelSet mdl=ActiveModelIf (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 mdlEnd IfPrivate sub ProcessFolder(folder)On Error Resume Next Dim Tab 'running table for each Tab in folder.tables if not tab.isShortcut then tab.name=tab.comment Dim col ' running column for each col in tab.columns if col.comment="" then else col.name=col.comment end if next end if next Dim view 'running view for each view in folder.Views if not view.isShortcut then view.name=view.comment 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 Nextend sub