catia 二次开发：环境变量路径,检查路径存在,关闭文件,对象为空,获取pad对象,err,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)
'
'    '关闭当前活动的文档
'     CATIA.ActiveDocument.Close
'
'    '再次打开相同的文档。
'   Set iPartDoc = CATIA.Documents.Open(sFilePath)
'
'    '使用为文档定义的变量关闭文档。
'     iPartDoc.Close
'
'     '第三次打开相同的文档。
 Set iPartDoc = idocuments.Open(sFilePath)

     '关闭由其名称指定的CATIA文档，最后,关闭CATIA文档的第三种方法是执行关闭方法在文档本身的名称检索使用文档集合的项目方法:因此从文档中删除文档收集和所有的窗户都包含它也关闭,从windows集合中删除。
      CATIA.Documents.Item("Ford start part.CATPart").Close

   

对象为空

获取pad对象

err

获取part文件的product属性

全局变量

常量

常量不能再被赋值

SystemService

Evaluate

执行一段代码

Attribute VB_Name = "Module1"
Sub JKJ()
Set AA = CATIA.ActiveDocument
Set serv = CATIA.SystemService

 Dim params()
 Dim codeToEvaluate
 codeToEvaluate = "Sub CATMain()" & vbNewLine & _
                  "MsgBox " & Chr(34) & "Hello World" & Chr(34) & vbNewLine & _
                  "End Sub"
                  
 serv.Evaluate codeToEvaluate, 0, "CATMain", params


End Sub

ExecuteScript

调用一个宏文件

Attribute VB_Name = "Module1"
Sub JKJ()
Set AA = CATIA.ActiveDocument
Set serv = CATIA.SystemService
Dim params()
serv.ExecuteScript "D:\dd", 1, "macro1.catvbs", "CATMain", params '这里的参数1是枚举类型 意思是目录类型
End Sub

input

A = InputBox("请输入密码")
If A = 123 Then
CATIA.ActiveDocument.Close
End If

选择打开文件

时间

Attribute VB_Name = "Module4"
Sub CATMain()

mon = Format(Now(), "m")
MsgBox mon

MyStr = Format(Time, "h:m:s")    ' Returns "17:4:23".
MsgBox MyStr
MyStr = Format(Time, "hh:mm:ss AMPM")    ' Returns "05:04:23 PM".
MsgBox MyStr
MyStr = Format(Date, "dddd, mmm d yyyy")    ' Returns "Wednesday,
MsgBox MyStr

End Sub

函数调用