CATIA二次开发：环境变量路径、检查路径存在、关闭文件、对象为空、获取Pad对象、Error、Part的Product、全局变量、常量、SystemService、Input、选择文件、时间、函数调用

环境变量路径

'    Dim sDocPath As String
'    sDocPath = CATIA.SystemService.Environ("CATStartupPath")

检查路径是否存在

'    m = CATIA.FileSystem.FolderExists(sDocPath)
'    If (Not m) Then
'      Err.Raise 9999, , "No Doc Path Defined"
'    End If

关闭文件的三种方法

Dim sFilePath As String
    sFilePath = CATIA.FileSystem.ConcatenatePaths("H:\test", "rr\Ford start part.CATPart")'路径拼接
    Dim idocuments As Documents
    Set idocuments = CATIA.Documents
    
    Dim iPartDoc As Document
'    Set iPartDoc = CATIA.Documents.Open(sFilePath)<
免责声明：本文系网络转载或改编，未找到原创作者，版权归原作者所有。如涉及版权，请联系删