Vbscript mastercam

[Mick from CNC Software Inc.]

Here it is

 

I don't see anything attached

[JCDFCM]

May have to try again at home...not sure what happened.

[Mick from CNC Software Inc.]

I updated the script to import drilling and threading, drilling works fine but threading is failing, I'll dig deeper.

'//   Description:   Test calling up an executable then import an operation
'//                  and modify it's feed, speed, and op comment.
'//      Comments:   Using version X9 
 
' Constants
Public Const DEF_NOTEPAD = "C:\test\notepad.exe"
 
Const OP_FILE = "C:\Users\Public\Documents\shared mcamx9\mill\Ops\Threadmill_Jc.operations-9"
Const OP_NAME = "Thread Mill"
Const OP_NAME_DRILL = "Drilling Operation"
Const OP_COMMENT_DRILL = "Drilling Operation"
Const OP_COMMENT = "Threadmill 1/4-20 3x"
 
' Start Script
Call Main()
 
Sub Main()
 
Dim FSO, strShell, overrides
  
Set FSO = CreateObject("Scripting.FileSystemObject")
strShell = DEF_NOTEPAD
 
Call ShellAndWait (strShell, True) 
 
Set overrides = New McOverride
 
With overrides
       .FeedRatePercentOn = False
       .FeedRate = 80
       .SpindleSpeedPercentOn = False
       .SpindleSpeed = 80
End With


Call ZeroPts

Dim success
success = StartDBSearch(mc_alive, mc_pointtype)        

If success Then
    Do 
	       Dim Point
           Set Point = New McPt
           If GetPointData(GetEntityEptr, Point) = True Then
              Call AddDrillPoint(Point.X, Point.Y, -1) 
			  ShowString("Adding Point X:" + Cstr(Point.X) + " Y:" + Cstr(Point.Y) )  
           End If
    Loop While NextDBSearch   
End If  
  
If MakeOperationFromName(OP_FILE,OP_NAME_DRILL,OP_COMMENT_DRILL, overrides) <> mcOPERATION_INVALID Then
      ShowString("Drilling complete")
Else
      ShowString("Could not apply Drilling toolpath")
End If  
  
'If MakeOperationFromName(OP_FILE,OP_NAME,OP_COMMENT, overrides) <> mcOPERATION_INVALID Then
'      ShowString("Threadmilling complete")
'Else
'      ShowString("Could not apply Threadmilling toolpath")
'End If
 
    
' -- Clean up
Set FSO = Nothing
 
End Sub

[JCDFCM]

Mick,

 

  Thanks for the prompt support...not used to good CAM support...coming from ProEngineer. I tried attaching the file and received the following message:   Error You aren't permitted to upload this kind of file. The file was a generic threadmill .operations-9 file which I selected one point for geometry before exporting out.  Your new script gives me plenty to absorb and experiment with...curious on the threadmill conclusion.

 

Thanks, JCDFCM

[Mick from CNC Software Inc.]

JCDFCM,

 

It appears that importing a thread mill operation is currently broken in X9 and 2017 I'm afraid. It has been fixed internally but I am not sure if it will be part of any maintenance update for 2017 but I will see. I apologize for any inconvenience caused.

 

Edit: I would like to add the we are no longer actively developing our VBScript API and it will be deprecated at some point. The .NET API is the recommended choice in place of VBScript.

Edited August 3, 2016 by Mick from CNC Software Inc.

[JCDFCM]

Mick,

 

   That's ok, this gives me a reason to go full bore on .Net. I can use the VBScript for basic odds and ends but will pursue the .NET API. So basically I can accomplish the same functionality above, it just has to be a NET-Hook and the .NET API will be maturing in the future while VBScript will be phased out?

 

Thanks, JCDFCM

[Mick from CNC Software Inc.]

I am working on a new import operations example project and should have something uploaded in the next couple of days. I will let you know when its available.

 

Mick,

 

   That's ok, this gives me a reason to go full bore on .Net. I can use the VBScript for basic odds and ends but will pursue the .NET API. So basically I can accomplish the same functionality above, it just has to be a NET-Hook and the .NET API will be maturing in the future while VBScript will be phased out?

 

Thanks, JCDFCM