Hex.bas
If you know how to use the scripts, here ia a hex.bas to use
'HexFlat.bas
UnselectAll
R=2.0*25.4
Ask Header="Hexagon by Flats",Output,Cancel=canc,\
"Distance Across Flats"=R
If canc=1 Then
Exit
Endif
R=R/1.732049
I=R*COS(1.0471976)
J=R*SIN(1.0471976)
PointCoordinates X = R, Y = 0, Z = 0
PointCoordinates X = I, Y = J, Z = 0
PointCoordinates X =-I, Y = J, Z = 0
PointCoordinates X =-R, Y = 0, Z = 0
PointCoordinates X =-I, Y =-J, Z = 0
PointCoordinates X = I, Y =-J, Z = 0
Close
LineJoin
ViewAll
Mark
"I'll keep my gun, my ammo, my money, my freedom and you can keep the "CHANGE" !