;;;Geometric CALCULATOR macro for MEE (midpoint endpoint endpoint)
;;;Can be called transparently.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 4-22-97
;;;>		   EDITED: 12-21-2006
;;;
(defun c:mee ()
  (IF (< (GETVAR "osmode") 15400)
    (PROGN
      (princ "\nYou may want to turn OSNAP off. ")
      (princ)
    )
  )
  (if
    (member "geomcal.arx" (arx))
    (c:cal "MEE")
    (progn
      (if (arxload "geomcal")
        (c:cal "MEE")
        (progn
          (princ "\nFile GEOMCAL.ARX not loaded! ")
          (princ)
        )
      )
    )
  )
)
(defun c:iim ()
  (IF (< (GETVAR "osmode") 15400)
    (PROGN
      (princ "\nYou may want to turn OSNAP off. ")
      (princ)
    )
  )
  (if
    (member "geomcal.arx" (arx))
    (C:CAL "PLT(int,int,1/2)")
    (progn
      (if (arxload "geomcal")
        (c:cal "PLT(int,int,1/2)")
        (progn
          (princ "\nFile GEOMCAL.ARX not loaded! ")
          (princ)
        )
      )
    )
  )
)