rem Written by Brian Ott & Hans Winkler
int lth_nocl
double arc_rad, size_tol

:start

if (lth_nocl == 0)
    lth_nocl = 1
  if (size_tol == 0)
      size_tol = .0001
    if (arc_rad == 0)
        arc_rad = .500
      if (arc_rad == 0)
          arc_rad = .500

:get_arcradius
GETFLT "Enter the Radius of Arc(s) to search:", arc_rad, arc_rad, "Prog Info"
   if ((@key == -3) || (@key == -2))
        goto exit
     if (@key == 1)
         reg_code = 1
       if (@key == 1)
           goto reg_screen

:get_tol
GETFLT "Enter the maximum Tolerance(±):", size_tol, size_tol
   if (@key == -3)
       goto exit
     if (@key == -2)
         goto get_arcradius

:change_linewidth
GETINT "Enter a new Linewidth:", lth_nocl, lth_nocl
        
      if (@key == -3)
          goto exit
        if (@key == -2)
            goto get_tol
          if ((lth_nocl < 1) || (lth_nocl > 15))
               goto witdth_error
      if ((lth_nocl == 1) || (lth_nocl == 3) || (lth_nocl == 5) || (lth_nocl == 7) ||\
         (lth_nocl == 9) || (lth_nocl == 11) || (lth_nocl == 13) || (lth_nocl == 15))
          goto pick_arcs
:witdth_error
        pause "Only odd #'s are valid: 1 thru 15..<ENTER>"
        goto change_linewidth

:pick_arcs
GETMENU "Choose Arc(s) to be changed",\
"Single", "Chain", "Window", "Polygon", "Group", "Plane", "All Dsp",,,,3
        if (@key == -3)
            goto exit
           if (@key == -2)
               goto change_linewidth

DEFATTR linewidth       

:selection
SET mask, 3
GETENTM @key, element

        if (@key == -2)
            goto pick_arcs

modarc = 0
quant = 0

:entities
if ((quant = quant+1) > element)
 goto exit1

GETNEXT enttype, ,id

rad = @fltdat[3]
t1 = .000000000000001

if (((rad - arc_rad) <= (0 + size_tol + t1)) && ((rad - arc_rad) >= (0 - size_tol - t1)))
goto process
goto entities

:process
modarc = modarc + 1
SETATTR id, lth_nocl
goto entities


:exit1

DRAWENT -1
pause " '%d' Arc(s) with a Radius of %f ±%f", modarc, arc_rad, size_tol

:exit

:sec_exit

CLEAR modarc, quant, element, enttype, id, rad, t1

exit