Easy way to inport tool group and operations with VBS?

[sour kraut]

I've looked at all of the VB scripts that come with X6 and the "Toolpath Doors Chook.vbs" shows how to create operations but none of them show how to import toolpath groups or the operations in that group. the code below uses variables for the filepath and name, and the mcOverRide class, and trys to import the operations but fails to. Can anone please point me in the right direction for importing both groups and operations? Please? I'm using the GetOperationTypeFromID which seems to work and returns "132". This is a surface high speed raster toolpath if it makes any difference. Thank you in advance.

 

 

If

 

 

MakeOperationFromID(Original_File,1,"",ovOverRide)= mcOPERATION_INVALID Then

teststring = GetOperationTypeFromID(Original_File,1)

ShowString teststring

 

Else

 

ShowString "ALLS GOOD"

 

End If

[rocheey1]

as far as I know, you cannot import Op groups.

 

As for importing Operations, what I got stuck on was the PRESELECTED geometry. Id forgotten to do that. The import tanks if you haven't selected a chain.

 

The following code works on mcx6 .....

 

Dim strInputFile : strInputFile = "c:\tmp\IMPORTOP.OPERATIONS-6"
Dim intOpNumber : intOpNumber = 1
Dim strComment : strComment="Test"
Dim objOverRide
Set objOverRide= New McOverride
objOverRide.DepthOn = False
objOverRide.FeedRateOn = False
objOverRide.FeedRatePercentOn = False
objOverRide.SpindleSpeedOn = False
objOverRide.SpindleSpeedPercentOn = False

Dim blSuccess
blSuccess=AskForChain("Select a chain")
Dim intOpID
intOpID = MakeOperationFromID(strInputFile, intOpNumber, strComment,objOverRide)