PDM同步注释到name上

最新推荐文章于 2022-11-26 20:37:21 发布

火焰哥哥

最新推荐文章于 2022-11-26 20:37:21 发布

阅读量194

点赞数

本文链接：https://blog.csdn.net/zhanghuolei/article/details/109091019

版权

Option   Explicit  
ValidationMode   =   True  
InteractiveMode   =   im_Batch  
Dim   mdl     
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  

Private   sub   ProcessFolder(folder)  
On Error Resume Next
        Dim   Tab  
        for   each   Tab   in   folder.tables  
              if   not   tab.isShortcut   then
                    tab.name=  tab.comment + "(" + tab.name + ")"
                    Dim   col 
                    for   each   col   in   tab.columns
                       if col.comment <> "" then
                         col.name=col.comment  
                       end if
                    next  
              end   if            
        next
end   sub