powerdesign中逆向工程后name和comment的互换

powerdesign 中，将数据库中可以逆向生成pdm的结构图，比较清晰看到系统的结构， 
但假如是db先行的话，一般是db中的每个列中用comment中文注释说明这列是 
干什么的，但逆向工程后，会发现pd中的name和code都变成中文， 
其中我们期望的是name是中文，code是英文（就是db中的列），那么我们其实 
可以将db中的comment跟name进行一个复制，把comment中的内容都全部复制到 
name中去就可以了，网上找到这个VBS脚本，原来pd中的也可以用VBS对PD的对象进行编程的，

VBS脚本如下：

pasting

1. Option Explicit
2. ValidationMode = True
3. InteractiveMode = im_Batch
4. Dim mdl
5. Set mdl = ActiveModel
6. If (mdl Is Nothing) Then
7. MsgBox "There is no current Model"
8. ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then
9. MsgBox "The current model is not an Physical Data model."
10. Else
11. ProcessFolder mdl
12. End If
13. Private sub ProcessFolder(folder)
14. Dim Tab
15. for each Tab in folder.tables
16. if not tab.isShortcut then
17. if (not isnull(tab.comment)) and (trim(tab.comment)<>"") then
18. tab.name = tab.comment
19. end if
20. Dim col
21. for each col in tab.columns
22. if (not isnull(col.comment)) and  (trim(col.comment)<>"")   then
23. col.name= col.comment
24. end if
25. next
26. end if
27. next
28. Dim view
29. for each view in folder.Views
30. if not view.isShortcut then
31. if (not isnull(view.comment)) and (trim(view.comment)<>"") then
32. view.name = view.comment
33. end if
34. end if
35. next
36. end sub