PDM转换预览界面

最新推荐文章于 2024-06-06 15:49:56 发布

wolf_Springs

最新推荐文章于 2024-06-06 15:49:56 发布

阅读量796

点赞数 1

分类专栏： PDM

PDM 专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一种在PDM预览界面中更新数据名称的方法，通过遍历文件夹下的所有表格及其列，将名称更改为对应的注释，实现了界面展示的优化。

PDM预览界面展示相应的数据名称

使用后效果:

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)  
        Dim   Tab  
        for   each   Tab   in   folder.tables  
              if   not   tab.isShortcut   then
                    tab.name=tab.comment
                    Dim   col 
                    for   each   col   in   tab.columns
                        col.name=col.comment  
                    next  
              end   if            
        next
end   sub