powerdesigner16物理模型中的字段comment替换name

复制如下代码：

 1 Option   Explicit   
 2 ValidationMode   =   True   
 3 InteractiveMode   =   im_Batch  
 4   
 5 Dim   mdl   '   the   current   model  
 6   
 7 '   get   the   current   active   model   
 8 Set   mdl   =   ActiveModel   
 9 If   (mdl   Is   Nothing)   Then   
10       MsgBox   "There   is   no   current   Model "   
11 ElseIf   Not   mdl.IsKindOf(PdPDM.cls_Model)   Then   
12       MsgBox   "The   current   model   is   not   an   Physical   Data   model. "   
13 Else   
14       ProcessFolder   mdl   
15 End   If  
16   
17 Private   sub   ProcessFolder(folder)   
18 On Error Resume Next  
19       Dim   Tab   'running     table   
20       for   each   Tab   in   folder.tables   
21             if   not   tab.isShortcut   then   
22                   tab.name   =   tab.comment  
23                   Dim   col   '   running   column   
24                   for   each   col   in   tab.columns   
25                   if col.comment="" then  
26                   else  
27                         col.name=   col.comment   
28                   end if  
29                   next   
30             end   if   
31       next  
32   
33       Dim   view   'running   view   
34       for   each   view   in   folder.Views   
35             if   not   view.isShortcut   then   
36                   view.name   =   view.comment   
37             end   if   
38       next  
39   
40       '   go   into   the   sub-packages   
41       Dim   f   '   running   folder   
42       For   Each   f   In   folder.Packages   
43             if   not   f.IsShortcut   then   
44                   ProcessFolder   f   
45             end   if   
46       Next   
47       
48 end   sub

到编辑框中

 点击执行即可