Thread support depth call for macro

[Alan Lowbands]

Good morning All,

Does anyone know what the call-up is for thread 'Support' depth ?
The code below 'kind off' works on blind holes but falls down when the hole depth is 'Up to Next'

i've searched the v5Automation but can't find how to change from Dimension to Support.

----------------------------------------------------------------------------
oHole1.ThreadSide = catRightThreadSide
oHole1.ThreadingMode = catThreadedHoleThreading
oHole1.CreateStandardThreadDesignTable catHoleMetricThickPitch
Set strParam1 = oHole1.HoleThreadDescription
strParam1.Value = oHoleSize
oHole1.ThreadDepth.Value = oDepth 'Thread depth same as hole depth
'oHole1.ThreadDepth.Value = oTDepth 'Thread depth different to hole depth
-----------------------------------------------------------------------------

thanks for any pointers

 

[Alan Lowbands]

Sorry, missed a bit out.

----------------------------------------------------------
oHole1.BottomLimit.LimitMode = catOffsetLimit
oHole1.BottomLimit.Dimension.Value = oDepth
If oDepth = 0 then oHole1.BottomLimit.LimitMode = catUpThruNextLimit
oHole1.ThreadSide = catRightThreadSide
oHole1.ThreadingMode = catThreadedHoleThreading
oHole1.CreateStandardThreadDesignTable catHoleMetricThickPitch
Set strParam1 = oHole1.HoleThreadDescription
strParam1.Value = oHoleSize

oHole1.ThreadDepth.Value = oDepth 'Thread depth same as hole depth
'oHole1.ThreadDepth.Value = oTDepth 'Thread depth different to hole depth - turn on input box
-----------------------------------------------------------------------