Option   Explicit
'-------------------------------------------------------------------------------
'作用：PowerDesigner物理模型复制comment到name
'
'作者: Lio5n
'
'时间: 2015-12-22
'
'版本: V2.0
'
'注意：如果name有值，将会覆盖；可以重复执行，不会多次复制
'-------------------------------------------------------------------------------
ValidationMode   = True
InteractiveMode  = im_Batch'----------------------------------请按需设置-----------------------------------CONST   CopyType = "ONE"            '执行模式 [ ONE-单表 ALL-所有表 ]
CONST   TabCode  = "TabCode"        '单表模式下，表的Code
CONST   ViewCode = "ViewCode"       '单表模式下，视图的Code'-------------------------------------------------------------------------------Dim   mdl   '当前模型
Dim   Cnt   '处理个数
Cnt = 0Set mdl = ActiveModel
If ( mdl Is Nothing ) ThenMsgBox "未找到活动的模型！"
ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) ThenMsgBox "当前模型不是物理模型！"
ElseProcessFolder mdlMsgBox "执行完成，共检索 [ " + CStr(Cnt) + " ] 张表！"
End IfPrivate Sub ProcessFolder(folder) On Error Resume NextDim Tab   '定义表For Each Tab In folder.tablesIf CopyType = "ONE" And UCase(Tab.code) <> UCase(TabCode) ThenElseIf Not Tab.isShortcut ThenCnt = Cnt + 1'表处理If Trim(Tab.comment) <> "" ThenTab.name = Trim(Tab.comment)End If'字段处理Dim ColFor Each Col In Tab.columnsIf Trim(Col.comment) <> "" ThenCol.name = Trim(Col.comment)End IfNextEnd IfNext'视图处理Dim ViewFor Each View In folder.ViewsIf CopyType = "ONE" And UCase(View.code) <> UCase(ViewCode) ThenElseIf Not View.isShortcut ThenCnt = Cnt + 1If Trim(View.comment) <> "" ThenView.name = Trim(View.comment)End IfEnd IFEnd IfNext'进入子floderDim fFor Each f In folder.PackagesIf Not f.isShortcut ThenProcessFolder fEnd IfNextEnd Sub