转PowerDesigner反向生成时解决name与注释互换

最新推荐文章于 2025-05-13 15:23:36 发布

表白人生

最新推荐文章于 2025-05-13 15:23:36 发布

阅读量282

点赞数

文章标签： powerdesigner 数据库建模

本文详细介绍了一种在OpenPDM中使用的VBA脚本，该脚本能够将当前活动模型中的每个表、每列及视图的注释复制到其名称中。此过程适用于没有快捷方式的表，并且只在注释非空时执行。脚本通过遍历模型的文件夹、表格和列来实现这一功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

转地址http://songzj.iteye.com/blog/1172037
执行方法：Open PDM – Tools – Execute Commands
– Run Script

Option Explicit
ValidationMode = True
InteractiveMode = im_Batch

Dim mdl 'the current model

'get the current active model
Set mdl = ActiveModel
If (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 mdl
End If

'This routine copy name into code for each table, each column and each view
'of the current folder
Private sub ProcessFolder(folder)

Dim Tab 'running table
for each Tab in folder.tables
if not tab.isShortcut then
if len(tab.comment) <> 0 then
tab.name = tab.comment
end if
On Error Resume Next
Dim col 'running column
for each col in tab.columns
if len(col.comment) <>0 then
col.name =col.comment
end if
On Error Resume Next
next
end if
next
end sub