 ; Melon - draw in inches, create in millimeters.
 ; Copyright 1997, 2006 by Rocket Software Ltd.
 ; Also Si - scale from inches.

 (DEFUN C:SI (/ ss pa)
  (setq ss (ssget))
  (setq pa (getpoint "Base point: "))
  (command ".scale" ss "" pa 25.4)
 (princ))  

 (DEFUN C:MELON (/ pa pb dirr lenp len)
  (setq pa (getpoint "Start/base: "))
  (setq pb (Getpoint pa "\nDirection: "))
  (setq dirr (angle pa pb))
  (setq lenp (distance pa pb))
  (setq len (getdist pa (strcat "\nLength (" (rtos lenp 2 2) " inches): ")))
  (if (null len) (setq len lenp))
  (setq pb (polar pa dirr (* 25.4 len)))
  (command ".line" pa pb "")
 (princ))