电路设计

power designer 显示comment

2019-07-14 11:41发布

站内文章 / 电路设计
9738 0 1183
 PD  显示comment
修改自 https://my.oschina.net/liweigov/blog/184386
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   Active   Model "     ElseIf   Not   mdl.IsKindOf(PdPDM.cls_Model)   Then           MsgBox   "The   current   model   is   not   an   Physical   Data   model. "     Else           ProcessFolder   mdl     End   If      Private   sub   ProcessFolder(folder)     On Error Resume Next          Dim   Tab   'running     table           for   each   Tab   in   folder.tables                 if   not   tab.isShortcut   then                       tab.name   =   tab.comment                      Dim   col   '   running   column                       for   each   col   in   tab.columns                       if col.comment="" then                      else                           col.name=   col.code+" [ "+col.comment+" ]"                       end if                     next                 end   if           next            Dim   view   'running   view           for   each   view   in   folder.Views                 if   not   view.isShortcut   then                       view.name   =   view.code+" [ "+col.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

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 Active Model " ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then MsgBox "The current model is not an Physical Data model. " Else ProcessFolder mdl End If Private sub ProcessFolder(folder) On Error Resume Next Dim Tab 'running table for each Tab in folder.tables if not tab.isShortcut then tab.name = tab.comment Dim col ' running column for each col in tab.columns if col.comment="" then else col.name= col.comment end if next end if next Dim view 'running view for each view in folder.Views if not view.isShortcut then view.name = col.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


热门文章