;                                                                      :
; 3DTOOLS.LSP  by Michael Bulatovich     June 25, 2002                 :
;                 www.michaelbulatovich.ca                             ;
;                                                                      ;
;           A collection of helper functions to speed up               :
;           drawing 3D models                                          :
;                                                                      :
;           June 25, 2002                                              :
;                                                                      :

(defun c:xy		;returns a point at the current elevation with the X and Y of a point picked
       (/ elev xy newpoint)		
  (setq elev (getvar "elevation"))					
  (setq xy (getpoint ".XY of:"))
  (setq newpoint (list
    (car xy)
    (cadr xy)
    elev
    ))
	
)

(defun c:elv (/ msg)	;set the current elevation to match a point picked
  (prompt "Set elevation to match the following point")
  (setvar "elevation" (caddr(getpoint)))
  (setq msg (rtos(getvar "elevation")))
  (prompt (strcat "\n[Elevation has been set to " msg ".]"))
  (princ)
  )

(defun c:th (/ el1 el2 msg)	;set the current thickness to the difference of two points picked
  (prompt "Pick two elevations defining the required thickness in the Z direction")
  (setq el1 (caddr (getpoint "\nFirst elevation:")))
  (setq el2 (caddr (getpoint "       Second elevation:")))
  (setvar "thickness" (- el2 el1))
  (setq msg (rtos(getvar "thickness")))
  (prompt (strcat "\n[Thickness has been set to " msg ".]"))
  (princ))