home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / product.arc / MACRO23.MNU < prev    next >
Encoding:
Text File  |  1986-09-19  |  181 b   |  6 lines
  1. [RECTANGL]^C^C(Setq P1+
  2. (Getpoint "First point: "));\+
  3. (Setq P2 (Getpoint "Diagonal corner point: "));\+
  4. Line;!P1;(List (Car P2) (Cadr P1));+
  5. !P2;(List (Car P1) (Cadr P2));C;
  6.