VB-Mcleads does not take in Arcradius Value

[keqian]

Hi, I wrote a VB program to automatically chain the contour with leadin and leadout values.

 

In the program, I give the values of the leadin and leadout values for both lines and arcs. After running & chaining a contour, I see, from the "Operation Manager", that it only takes in the values for lines and also Arcsweep, but no ArcRadius (which remain zero no matter what I do, even if I give a specific value like, Leadin.ArcRadius =.1).

 

Can anybody point out if there is something wrong in my program or there is a bug in VB that prevents it importing the ArcRadius value.

 

To test, make a chain on any lines or closed shape and check the result in "Operations Manager". When done. double-click the "Parameters", and then click "leadIn/Out" to see if there is value in "Radius" part (should be non-zero).

 

Thanks for helping

 

Kevin Qian

 

code:

---

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

'Apt_test

 

Call Main()

 

sub Main()

 

Dim tool_dia

Dim leadin

dim leadout

 

tool_dia=.3125

 

AskForChain("chain please")

 

Set leadin = New McLeads

leadin.Useline = 1 'Use a line For leading In/out

leadin.LineLength = tool_dia/2 'leadin length

leadin.LineTangent = 1 'Is the line Tangent Or Perpendicular?

leadin.LineRampHeight = 0 'Height of lead In/out Line (defining a ‘ramp’)

leadin.UseArc = 1 'Use an arc For leading In/out

leadin.ArcRadius=tool_dia/2 'Radius of lead In/out arc, **** NOT WORKING, ArcRadius does not take any value ****

leadin.ArcSweep = 1.57079633 'Angular sweep of lead In/out arc, 1.57079633 works out to be 90 degree

leadin.ArcHelixHeight = 0 'Height of lead In/out Arc (defining a helix

 

set leadout = new mcleads

leadout.UseLine = 1

leadout.LineLength = tool_dia/4

leadout.LineTangent = 1

leadout.LineRampheight = 0

leadout.UseArc = 1

leadout.ArcRadius=tool_dia/4 'Radius of lead In/out arc, **** NOT WORKING ****

leadout.ArcSweep = 1.57079633

leadout.ArcHelixHeight = 0

 

Call SetEntry(0,0,leadin) '1st zero for mid pt of contour, 2nd zero for overlap

Call SetExit(leadout)

Call MakeContour("",tool_dia,0,0,mctool_flat,mcCUTTER_COMP_LEFT,mcCUTTER_ROLL_SHARP,100)

 

end sub

 

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

---

[Roger Martin from CNC Software]

Tech Support Question #1

 

What version of Mastercam are you running?

[keqian]

I use Mastercam X4 MU3

 

Thanks

[Roger Martin from CNC Software]

I've determined that the 'Arc' settings of MCLeads are not getting into the operation's parameters, but you already know that.

The issue is not in your Script code, but in the VBS interface with Mastercam.

This issue has been logged (ref:#00081822) and will be corrected in X5.

[keqian]

Thanks