;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 01-10-2005
;;;
(DEFUN C:XYDIST ()
  (IF C:GENT
    NIL
    (LOAD "GENT")
  ) ;_ end of IF
  (C:GENT)
  (SETQ entdist (DISTANCE (LIST (CADR (ASSOC 10 EDATA)) (CADDR (ASSOC 10 EDATA)))
                          (LIST (CADR (ASSOC 11 EDATA)) (CADDR (ASSOC 11 EDATA)))
                ) ;_ end of DISTANCE
  ) ;_ end of SETQ
  (SETQ xscl entdist)
  (IF (WCMATCH (CDR(ASSOC 8 EDATA)) "*@@##P")
    (SETQ yscl (ATOI(SUBSTR(CDR(ASSOC 8 EDATA))(-(STRLEN(CDR(ASSOC 8 EDATA)))2)2)))
  )
  (PRINC (STRCAT "\nLength of " (CDR (ASSOC 0 edata)) " in X-Y Plane is: " (RTOS entdist 2 3)))
  (IF C:XYSCL NIL (LOAD "XYSCL"))
  (IF C:XYSCL (C:XYSCL))
  (PRINC)
) ;_ end of DEFUN

;|«Visual LISP© Format Options»
(120 2 15 2 T "end of " 100 9 2 0 nil nil nil T T)
;*** DO NOT add text below the comment! ***|;