Name and Comment interchange in PowerDesigner

Reproduced from: http://blog.csdn.net/xuxile/article/details/49817385

Execution method: Open PDM – Tools – Execute Commands – Run Script

Vb script code:

1. Option Explicit

< li style="border-style:none none none solid; border-left-width:3px; border-left-color:rgb(108,226,108); list-style:decimal-leading-zero outside; line-height:18px; margin :0px!important; padding:0px 3px 0px 10px!important; background-color:rgb(248,248,248)"> ValidationMode= True

2. InteractiveMode= im_Batch
4. Dim mdl’the current model
6. ‘get the current active model
7. Set mdl= ActiveModel
8. If (mdlIsNothing) Then
9. MsgBox “There is no current Model”
10. ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then
11. MsgBox “The current model is not an Physical Data model.”
12. Else
13. ProcessFolder mdl
14. End If
16. ‘This routine copy name into code for each table, each column and each view
17. ‘of the current folder
18. Private sub ProcessFolder(folder)
20. Dim Tab’running table
21. for each Tab in folder.tables
22. if not tab.isShortcut then
23. if len(tab.comment)<>0then
24. tab.name= tab.comment
25. end if
26. On Error Resume Next
27. Dimcol’runningcolumn
28. for each col in tab.columns
29. if len(col.comment)<>0then
30. col.name=col.comment
31. end if
32. On Error Resume Next
33. < span style="margin:0px; padding:0px; border:none; color:black; background-color:inherit">next
34. end if
35. next
36. end sub