home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 15 / CD_ASCQ_15_070894.iso / vrac / mar94cad.zip / RECTANG1.LSP < prev    next >
Lisp/Scheme  |  1994-02-15  |  520b  |  16 lines
  1. ;  RECTANG1.LSP program to draw a rectangle with lower left and
  2. ;  upper right points.
  3. ;       (c)1994, Anthony Hotchkiss and CADalyst
  4. ;
  5. (defun rectang1  ()
  6.    (setq  pt1  (getpoint  "\nLower left point:")
  7.          pt3  (getpoint  "\nUpper right point:")
  8.              p2x  (car  pt3)
  9.              p2y  (cadr  pt1)
  10.              pt2  (list  p2x  p2y)
  11.              pt4  (list  (car  pt1)  (cadr  pt3))
  12.    ) ;  end of point assignments
  13.    (command  "line"  pt1  pt2  pt3  pt4  "c")
  14. );  end of defun rectang1
  15.  
  16.