;; | ----------------------------------------------------------------------------
;; | GE_GetEndChord
;; | ----------------------------------------------------------------------------
;; | Function : Returns the chord distance given by the start and end points.
;; | Arguments:
;; |           'CenPt' - Center point of the arc
;; |           'rad'   - Radius of the arc
;; |           'sa'    - Start Angle
;; |           'ea'    - End   Angle
;; | Action   : Returns the chord formed by the end points of the arc
;; | Updated  : October 24, 1999
;; | e-mail   : rakesh.rao@4d-technologies.com
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun GE_GetEndChord ( CenPt rad sa ea / p1 p2 EndChord )

(setq
	p1 (polar CenPt sa rad)
	p2 (polar CenPt ea rad)
	EndChord (distance p1 p2)
)
EndChord
)