VBScript Function List?

[Jobnt]

Is there still a list of functions, methods etc for Mastercam VBS? Can't find anything in the help or in the forums. 

 

TYIA. 

[byte]

40 minutes ago, Jobnt said:

Is there still a list of functions, methods etc for Mastercam VBS? Can't find anything in the help or in the forums. 

 

TYIA. 

here you go!

VBScript.htm

'A long time ago in a galaxy far far away...
'---------------------------------'

'#Region Geometry Variable Declaration
Dim Line1
Dim Line2
Dim Line3
Dim Line4

'---------------------------------'

'#Region Geometry Variable Initialization
Set Line1 = New McLn
Set Line2 = New McLn
Set Line3 = New McLn
Set Line4 = New McLn

'---------------------------------'

'#Region Geometry Variable Parameter settings
With Line1
.X1 = 0.
.Y1 = 0.
.Z1 = 0.

.X2 = 1.
.Y2 = 0.
.Z2 = 0.
End With
With Line2
.X1 = 1.
.Y1 = 0.
.Z1 = 0.

.X2 = 1.
.Y2 = 1.
.Z2 = 0.
End With
With Line3
.X1 = 1.
.Y1 = 1.
.Z1 = 0.

.X2 = 0.
.Y2 = 1.
.Z2 = 0.
End With
With Line4
.X1 = 0.
.Y1 = 1.
.Z1 = 0.

.X2 = 0.
.Y2 = 0.
.Z2 = 0.
End With

'---------------------------------'

'#Region Level Variable Parameter settings
Dim Level 
Level = 10

'---------------------------------'

'#Region Draw Lines
Sub CreateLines
If CreateLine(Line1,mcCOLOR_GREEN,Level) = mcENTITY_INVALID Then
ShowString "Failed to create line"
Exit Sub
End If
If CreateLine(Line2,mcCOLOR_GREEN,Level) = mcENTITY_INVALID Then
ShowString "Failed to create line"
Exit Sub
End If
If CreateLine(Line3,mcCOLOR_GREEN,Level) = mcENTITY_INVALID Then
ShowString "Failed to create line"
Exit Sub
End If
If CreateLine(Line4,mcCOLOR_GREEN,Level) = mcENTITY_INVALID Then
ShowString "Failed to create line"
Exit Sub
End If
End Sub

'---------------------------------'

'#Region Tool Variables
Dim ToolDiameter
Dim ToolRadius
Dim ToolNumber
Dim Tool
Dim Comp
Dim CornerType
Dim FeedRatePercent

'---------------------------------'

'#Region Set Tool Variables
ToolDiameter = 0.125
ToolRadius = 0.0
ToolNumber = 1
Tool = 1 '??
Comp = 1 'Cutter Compensation
CornerType = 0
FeedRatePercent = 100.0

'---------------------------------'

'#Region ErrorCodes
Dim opErrorCode

'---------------------------------'

'#Region Create Contour Operation
Sub CreateContour
If ChainAll(True,False,Level, "") Then
opErrorCode = MakeContour("Operation Created Via the Api",ToolDiameter,ToolRadius,ToolNumber,Tool,Comp,CornerType,FeedRatePercent)
If opErrorCode = mcOPERATION_INVALID Then
	ShowString "Failed to contour operation,"
End If
Call FreeChains   
End If
End Sub

'---------------------------------'

'#Region Program call all functions here
Sub Program
'#Region Set Planes 
'call some predefined  functions to set the plane to top
call SetCPlaneNumber(mcVIEW_TOP)
call SetTPlaneNumber(mcVIEW_TOP)

'#Region Geometry Creation
call CreateLines
'#Region Geometry Creation
call CreateContour
End Sub

'---------------------------------'

'#Region Call Program
call Program

 

[Jobnt]

41 minutes ago, byte said:

here you go!

You are Thee xxxx! Thanks!!