home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 168.img / ACAD3.ZIP / REF.LSP < prev    next >
Lisp/Scheme  |  1988-07-15  |  649b  |  19 lines
  1. ;                           REF.LSP
  2.  
  3. ; This is a useful routine for obtaining a relative point.
  4. ; It can be used whenever an AutoCAD command requests a point.
  5. ; Just enter "(ref)" in response to the "...point:" prompt, and
  6. ; enter the desired base (reference) point and the relative/polar
  7. ; offset from that point. For example:
  8.  
  9. ;    Command: LINE
  10. ;    From point: (ref)
  11. ;    Reference point: (...pick a point...)
  12. ;    Enter relative/polar coordinate (with @): @x,y or @dist<angle
  13. ;    To point:
  14.  
  15. (defun ref ()
  16.    (setvar "LASTPOINT" (getpoint "Reference point: "))
  17.    (getpoint "\nEnter relative/polar coordinates (with @): ") 
  18. )
  19.