powerdesigner下载，注释转换和导出word

nature_fly088

已于 2022-08-20 14:48:12 修改

阅读量646

点赞数

分类专栏：架构文章标签： java 开发语言

于 2020-02-11 11:59:43 首次发布

本文链接：https://blog.csdn.net/nature_fly088/article/details/104260412

版权

架构专栏收录该内容

10 篇文章 0 订阅

订阅专栏

一、下载

链接: https://pan.baidu.com/s/18uSydllkZKHEZVTaVZV31w 提取码: p3fe

二、显示注释列及注释name相互替换

2.1显示注释列

2.2从comment替换name

执行前

运行ctrl+shinft+x或者调出执行命令窗口tools-executecommands-Edit/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
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="" 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 
      Next 
end   sub

执行后截图

可以看到，name列已经被comment列替换了。

name复制到comment列

替换前

替换后

执行命令

'如果comment为空,则填入name;如果不为空,则保留不变,避免已有的注释丢失.

Option Explicit 

ValidationMode = True

InteractiveMode = im_Batch 

Dim mdl 


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) 

Dim Tab 

for each Tab in folder.tables 

if not tab.isShortcut then 

if trim(tab.comment)="" then '如果有表的注释,则不改变它.如果没有表注释.则把name添加到注释里面. 

tab.comment = tab.name 

end if 

Dim col 

for each col in tab.columns 

if trim(col.comment)="" then '如果col的comment为空,则填入name,如果已有注释,则不添加;这样可以避免已有注释丢失.

col.comment= col.name 

end if 

next 

end if 

next 



Dim view 

for each view in folder.Views 

if not view.isShortcut and trim(view.comment)="" then 

view.comment = view.name 

end if 

next 

Dim f 

For Each f In folder.Packages 

if not f.IsShortcut then 

ProcessFolder f 

end if 

Next 

end sub