;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 3-3-2001
;;;>		   EDITED: 03-03-2001
;;;
(DEFUN C:XNGELLIP ()
  (SETQ old_osmode (GETVAR "osmode"))
  (c:mss)
  (dimscl)
  (SETQ ell_size (ureal 1 "" (STRCAT "Pipe size for all " assoc_val " text?") (IF ell_size ell_size 2)))
  (SETQ p_depth (ureal 1 "" "Pipe depth?" (IF p_depth p_depth 3.0)))
  (SETQ ell_wid (MAX (/ dimsc 24.0)(/ ell_size 24.0)))
  (SETQ sscnt 0)
  (WHILE
    (< sscnt (SSLENGTH SS))
    (COMMAND ".ELLIPSE"
             (POLAR(CDR(ASSOC 11(ENTGET(SSNAME SS SSCNT))))(* 1.5 pi)(*(+ 6.5 p_depth)v_fact))
             (STRCAT "@0," (RTOS(- 0(*(/ ell_size 12.00)v_fact))2 2))
             (STRCAT "@" (RTOS ell_wid 2 2) ",0")
    )
    (SETQ SSCNT (1+ SSCNT))
  )
  (SETVAR "osmode" old_osmode)
)