;;;Change arcs into polylines.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 10-1-98
;;;>		   EDITED: 05-06-2001
;;;
(DEFUN C:ARCTOPL ()
  (SETQ arcss (SSGET '((0 . "ARC"))))
  (IF arcss
    (PROGN
      (SETQ arcsslen (SSLENGTH arcss)
	    sscount  0
      ) ;_ end of setq
      (WHILE (< sscount arcsslen)
	(SETQ currarc (SSNAME arcss sscount))
	(COMMAND ".pedit" currarc "y" "")
	(SETQ sscount (1+ sscount))
      ) ;_ end of while
    ) ;_ end of progn
  ) ;_ end of if
) ;_ end of defun

;|«Visual LISP© Format Options» (72 2 40 2 T "end of " 60 9 2 0 0 T T nil T)
 ***Don't add text below the comment!***|;