home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / cad / may93.zip / TIP867.LSP < prev    next >
Lisp/Scheme  |  1993-05-12  |  3KB  |  68 lines
  1. ; TIP867.LSP  [BASEPT.LSP]
  2. ;   Distance from a Base Point   (c)1993, Bill Bratt
  3.    
  4.    (defun C:basept ()
  5.      (START_FUNCTION)
  6.      (prompt "\nOSNAP is set at NEAREST")
  7.      (setvar "osmode" 512 ) 
  8.      (setq getdim_base_pnt (getpoint 
  9.               "\nPick a BASE point to get a distance from: \n\n"))
  10.      (setq basept_string (getstring 5 
  11.               "\nType description of location of BASEPT (or press enter): "))
  12.      (mnu)
  13.      (END_FUNCTION)
  14.    )
  15.    ; ***********************************************************
  16.    ;                           DDDD.LSP
  17.    ;********************************************************************
  18.    (defun C:dddd ()   ; FROM BASE POINT
  19.      (START_FUNCTION)
  20.      (setq save_osmode (getvar "osmode"))
  21.      (prompt "\nOSNAP is set at PERPENDICULAR")
  22.      (setvar "osmode" 128 ) 
  23.      (prompt "\nLocation of BASEPT is: ") (princ basept_string)
  24.      (setq getdim_next_pnt (getpoint 
  25.    "\nPick a point to get a distance from the BASEPT: \n\n" getdim_base_pnt))
  26.      (setq dist_1 (distance  getdim_base_pnt getdim_next_pnt))
  27.      (MNU)
  28.      (prompt "\nThe distance from the BASEPT is: ")(prompt (rtos dist_1 4 6))
  29.      (END_FUNCTION)
  30.    )
  31.    ;****************************************************************
  32.    (defun START_FUNCTION ()
  33.      (graphscr)
  34.      (setq cl (getvar "clayer"))
  35.      (setq save_cmde (getvar "cmdecho"))
  36.      (setq save_blip (getvar "blipmode"))
  37.      (setq save_ortho (getvar "orthomode"))
  38.      (setq save_osmode (getvar "osmode"))
  39.      (setvar "cmdecho" 0)
  40.      (setvar "blipmode" 0)
  41.      (setvar "orthomode" 0)             ;Ortho off
  42.      (setvar "osmode" 0)   ; NONE
  43.      (mnu)
  44.    )   ;END OF FUNCTION
  45.    ;****************************************************************
  46.    (defun END_FUNCTION ()
  47.      (setvar "cmdecho" save_cmde )
  48.      (setvar "blipmode" save_blip )
  49.      (setvar "orthomode" save_ortho )
  50.      (setvar "osmode" save_osmode )
  51.      (princ)
  52.    )   ; END OF FUNCTION
  53.    ;****************************************************************
  54.    (defun MNU ()
  55.      (setvar "osmode" save_osmode )
  56.      (princ "\nMNU OPTIONS: ")   
  57.      (princ "\nBASEPT - Base point.    DDDD -  Gets a distance FROM BASEPT.")
  58.      (princ)
  59.     )   ;End of Function
  60.    ;****************************************************************
  61.    (defun C:MNU ()
  62.      (setq save_osmode (getvar "osmode"))
  63.      (MNU)
  64.      (princ)
  65.    )   ;End of Function
  66.      (princ)
  67.    ; ***********************************************************
  68.