PowerDesigner 16PDM显示备注

时间:2023-03-10 05:33:09
PowerDesigner 16PDM显示备注

默认显示的列是Name及类型

name和code不支持同时显示,设置方法:

  Tool->Model Options->Name Convention->右侧display中选择显示name还是code

PowerDesigner 16PDM显示备注

想同时显示实际表名和中文说明,使导出图片图更加清晰

中文说明放在备注里

默认在添加字段时,备注也是不显示的,显示设置的方法

PowerDesigner 16PDM显示备注

将备注放到 stereotype显示的设置:

  Tool->Display Preferences->table中选择各对象的stereotype

PowerDesigner 16PDM显示备注

Tools>Execute Commands>Edit/Run Script

PowerDesigner 16PDM显示备注

脚本

Option   Explicit
ValidationMode = True
InteractiveMode = im_Batch
Dim blankStr
blankStr = Space()
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 Private sub ProcessFolder(folder)
On Error Resume Next
Dim Tab 'running table
for each Tab in folder.tables
if not tab.isShortcut then
Dim col ' running column
for each col in tab.columns
if col.comment = "" or replace(col.comment," ", "")="" Then
col.stereotype = blankStr
blankStr = blankStr & Space()
else
col.stereotype = col.comment
end if
next
end if
next Dim view 'running view
for each view in folder.Views
if not view.isShortcut then
view.stereotype = 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
Next
end sub

效果如下

PowerDesigner 16PDM显示备注

虽然显示不理想,但是也方便看了,特此记录下来