CATIA二次开发VBA入门——语法、名词等的解释

Sub errtest()
On Error Resume Next
Dim A As String

A = "STRING"

'MsgBox "我是中国人"
MsgBox Err.Number

End Sub

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

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

Function BrowseForFile() '(FileTypeName As String) As String
FileTypeName = "CATPart"
FilePath = CATIA.FileSelectionBox("Select a text file", "*." & FileTypeName, CatFileSelectionModeOpen)
BrowseForFile = FilePath
End Function

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

Sub CATMain()

MsgBox "Select what part you want to load. You can check with DESK command"

Set objSel = CATIA.ActiveDocument.selection

CATIA.StartCommand "Load"
objSel.Clear

End Sub

'Any command is accessible through CATScript command with following trick:
'- Command can be written to "powerinput" as c:Multi-View
'- All commands that can be written there, can be included to catvbs with following syntax:
'=> This toggles multi-view on and off through script, even when there is no actual VB-command for multi-view!
 

Sub CATMain()
CATIA.StartCommand ("Multi-View")
End Sub

Private Function fact(n) As Double
If n > 0 Then
fact = n * fact(n - 1)
Else
fact = 1
End If
End Function

Sub SplitUpSendKeys()
InputStr = "AsString"
Dim WC As Integer
WC = 1
While WC < Len(InputStr)
    Dim SubStr As String
    SubStr = Mid(InputStr, WC, 1)
    SendKeys SubStr, True
    CATIA.RefreshDisplay = True
    WC = WC + 1
Wend

Sub mis()
Dim opart As Part
Set opartdoc = CATIA.ActiveDocument

Set opart = opartdoc.Part

Set axises = opart.AxisSystems
Set axisSystem1 = axises.Item(1)

axisSystem1.IsCurrent = True


End Sub

Sub jk()
Dim view1 'As DrawingView

Set view1 = CATIA.ActiveDocument.Sheets.ActiveSheet.Views.ActiveView

MsgBox view1.Name
Dim factory2d1 As Factory2D

Set factory2d1 = view1.Factory2D

Set texts1 = view1.Texts
Set gb = view1.GenerativeBehavior
Dim arr(3)
view1.Size arr

Dim xmin, xmax, ymin, ymax
xmin = arr(0) - view1.xAxisData
xmax = arr(1) - view1.xAxisData
ymin = arr(2) - view1.yAxisData
ymax = arr(3) - view1.yAxisData

End Sub