PowerDesigner name commnet 自动生成脚本

PowerDesigner作为一个设计师必须掌握的设计工具，还有就是UML的使用。

使用PowerDesigner管理项目，需要使用自动生成name与注释，网上找代码修改。

根据name自动生成comment的脚本如下

 

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  
  
Dim col 'running column  
for each col in tab.columns  
If (col.comment="") Then '已存在的comment则不更新  
col.comment= col.name  
end if  
next  
end if  
next  
  
Dim view 'running view  
for each view in folder.Views  
if not view.isShortcut then  
view.comment = view.name  
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  

 

根据comment自动生成name的脚本如下：

 

如果comment中有相同注释名称，会导致报错。

 

 

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  
  
Dim col 'running column  
for each col in tab.columns  
If (col.comment <> "")  and (col.name <>"" )Then '已存在的comment则更新  
col.name = col.comment
on error resume next
end if  
next  
end if  
next  
  
Dim view 'running view  
for each view in folder.Views  
if not view.isShortcut then  '已存在的comment则更新  
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  

 

修改Table 注释同步name脚本：

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 (tab.comment <> "")   then
tab.name=tab.comment
end if 
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