PowerDesigner Comment与name的相互装换

效果

在PowerDesigner中使用方法为：

   PowerDesigner->Tools->Execute Commands->Edit/Run Scripts

 把脚本拷贝(VB脚本)到文本框内执行即可，执行完后无提示，需要点击查看。

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   comment   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                     tab.comment   =   tab.name                     Dim   col   '   running   column                     for   each   col   in   tab.columns                           col.comment=   col.name                     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