64位PowerDesigner16.7详细安装教程（安装破解常用配置）

Posted 2021-10-14 、Dong

文章目录

• 前言
• 一、PowerDesigner安装
• 二、PowerDesigner破解
• 三、PowerDesigner常用配置
• • 1.显示Comment注释
• 结尾

---

前言

安装前期准备工作（下载地址）：

• 64位PowerDesigner16.7：安装文件
• pdflm16.dll：破解文件

一、PowerDesigner安装

---

二、PowerDesigner破解

将“pdflm16.dll”复制并覆盖到软件安装的根目录中。

---

三、PowerDesigner常用配置

1.显示Comment注释

PowerDesigner默认显示的列是Name及类型，如下图示：

现在需要显示注释列，以便使得ER图更加清晰。但是PowerDesigner勾选Comment显示没有效果，所以通过以下几步来处理：
双击表，弹出表属性对话框，切到ColumnTab，默认是没显示Comment的，显示Comment列


有了Comment列，并补充Comment信息

确定保存，打开菜单 Tools>Display Perferences

调整显示的Attribute

OK，保存，确定，退出设置页，应用到所有标识，可以看到表变化

打开菜单Tools>Execute Commands>Edit/Run Script… 或者用快捷键 Ctrl+Shift+X，复制下列代码，粘贴

Option   Explicit
ValidationMode   =   True
InteractiveMode   =   im_Batch
Dim blankStr
blankStr   =   Space(1)
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
                  tab.name   =   tab.comment
                  Dim   col   '   running   column
                  for   each   col   in   tab.columns
                  if col.comment = "" or replace(col.comment," ", "")="" Then
                        col.name = blankStr
                        blankStr = blankStr & Space(1)
                  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
      Next
end   sub

执行完，可以看到第3列显示备注，效果如下：

原理就是把显示name的列的值，替换成注释的值，所以下次如果调整comment，还有重新执行脚本，所以最好放在最后执行。

---

结尾

• 感谢大家的耐心阅读，如有建议请私信或评论留言。
• 如有收获，劳烦支持，关注、点赞、评论、收藏均可，博主会经常更新，与大家共同进步