bryco disregard my error report it appears something happened to my test drawing that was causing the error. when i try it in a new drawing it works great so far. i will try to sort out what belongs on which layer now. while i'm doing that do you know what i could do about seperating the cyan lines which are created using the hatchtube subroutine i posted. can this be done just like we did the centerlines. This looks like the first instance the subroutine is being used so what do i put there and here to put it on shade1 or shade2 layer? thank you so much you've been a great help.
If T1 < (ThisDrawing.dblBoRUD / 2) Then
HatchTube zZ1, zZ2, T1, (MainAngle - (Pi / 2))
Else
HatchTube zZ1, zZ2, (ThisDrawing.dblBoRUD / 2), (MainAngle - (Pi / 2))
End If
If T1 >= ThisDrawing.dblBoRUD Then
HatchTube zZ4, zZ5, (ThisDrawing.dblBoRUD / 2), (MainAngle + (Pi / 2))
End If
If T1 < (ThisDrawing.dblBoRUD / 2) Then
HatchTube Z1, Z2, T1, (MainAngle - (Pi / 2))
Else
HatchTube Z1, Z2, (ThisDrawing.dblBoRUD / 2), (MainAngle - (Pi / 2))
End If
If T1 >= ThisDrawing.dblBoRUD Then
HatchTube Z4, Z5, (ThisDrawing.dblBoRUD / 2), (MainAngle + (Pi / 2))
End If
If T2 < (ThisDrawing.dblSunRUD / 2) Then
HatchTube zZ6, zZ7, T2, (MainAngle - (Pi / 2))
Else
HatchTube zZ6, zZ7, (ThisDrawing.dblSunRUD / 2), (MainAngle - (Pi / 2))
End If
If T2 >= ThisDrawing.dblSunRUD Then
HatchTube zZ9, zZ10, (ThisDrawing.dblSunRUD / 2), (MainAngle + (Pi / 2))
End If
If T2 < (ThisDrawing.dblSunRUD / 2) Then
HatchTube Z6, Z7, T2, (MainAngle - (Pi / 2))
Else
HatchTube Z6, Z7, (ThisDrawing.dblSunRUD / 2), (MainAngle - (Pi / 2))
End If
If T2 >= ThisDrawing.dblSunRUD Then
HatchTube Z9, Z10, (ThisDrawing.dblSunRUD / 2), (MainAngle + (Pi / 2))
End If