;                                                                      :
;           Y.LSP  by Michael Bulatovich   www.michaelbulatovich.ca    :
;                                                                      ;
;           Filters for x, provides y from keyboard                    :
;           entry, and sets Z to zero.                                 :
;                                                                      :
;           July 4th, 2002                                             :
;                                                                      :

(defun c:y
       (/ xz newpoint contype inchfactor)
  
  (if (equal firsttime nil)
    (progn
      (initget 1 "Meters Feet")
      (setq contype
	     (getkword
	       "Specify Unit System: <M>eters/<F>eet:"))
      (if (equal contype "Meters")
	(setq factor 1))
      (if (equal contype "Feet")
	(progn
	  (initget 1 "F I")
	  (setq	inchfactor
		 (getkword
		   "Do you want to enter <F>eet or <I>nches?"))
	  (if (equal inchfactor "I")	    
	    (setq factor 1)
	    (setq factor 12))))
    (setq firsttime 1)))
  (setq xz (getpoint ".XZ of:"))
  (setq y (* factor (getreal "Specify value of Y:")))
  
  (setq newpoint
	 (list
    	(car xz)  y 0)
	)
  )					;end of defun