;; arc-radius.lsp
(defun arc
-radius
(/ GR LST PT
) ;|
*****************************************************************************************
by ElpanovEvgeniy
Demonstration, educational code
The program allows to choose an arc and dynamically to change its diameter,
Saving an initial and final angle, and centre point.
In the program direct editing DXF of codes of an arc.
Date of creation 03.22.2005
Last edition ---
(arc-radius)
*****************************************************************************************
|;
) ;_ setq
(princ "\n Select new radius ") ) ;_ while
) ;_ defun