PDM转换预览界面

本文主要是介绍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   thentab.name=tab.commentDim   col for   each   col   in   tab.columnscol.name=col.comment  next  end   if            next
end   sub

这篇关于PDM转换预览界面的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---