"D3@Sketch1" = "Width_flats@Sketch1" / 2
"D4@Sketch1" = "D3@Sketch1"
"D5@Sketch1" = "D4@Sketch1"
"Thread_minor@ThreadCosmetic" = "Minor_dia@BodySke"
"D1@Sketch3" = "Width_flats@Sketch1" / 2
"D1@Sketch4" = "Width_flats@Sketch1"
'
' all thread representations...
"Thread_length@ThreadCosmetic" = "Length@BodySke" - "Advance@BodySke"
'
' schematic
"Thread_minor@ThdSchSke" = "Minor_dia@BodySke"
"Diameter@ThdSchSke" = "Diameter@BodySke"
"Overcut@ThdSchSke" = "Diameter@BodySke" * 1.25
'
"Start@ThdSchSke" = "Head_ht@BaseHead" + "Length@BodySke" - "Thread_length@ThreadCosmetic"  '---Non-countersunk---
'
"Num_threads@ThdSchPat" = int( "Thread_length@ThreadCosmetic" / "Advance@BodySke" + 0.999 )  + 1
"Advance@ThdSchPat" = "Thread_length@ThreadCosmetic" /  ("Num_threads@ThdSchPat" - 1) 'relax it
'
"Num_threads@ThdSchPat" = "Num_threads@ThdSchPat" - sgn( "Num_threads@ThdSchPat" - 1) '---chamfered tips only---