command for box with automatic cross lines

[double_u_d]

Hello, i was wondering if anyone knows if there's a command out there, or lisp routine, or anything else that draws a rectangle and automatically draws cross lines from corner to corner. I draw a lot of these and it would be great if such a thing existed. Any feedback is welcome. Thanks

[tedg]

Hello, i was wondering if anyone knows if there's a command out there, or lisp routine, or anything else that draws a rectangle and automatically draws cross lines from corner to corner. I draw a lot of these and it would be great if such a thing existed. Any feedback is welcome. Thanks

Quick one, you can change the command etc.
This is just basic, taken from a post here in AUGI, can't rembember when

(defun c:box-cross (/ Point1 Point2 Point3 Point4)
  (setq Point1 (getpoint "\nPick first corner of rectangle: ")
 )
  (setq Point2 (getpoint "\nPick second corner of rectangle: ")
 )
  (setq Point3 (list (nth 0 Point1) (nth 1 Point2)
       )
 )
  (setq Point4 (list (nth 0 Point2) (nth 1 Point1)
       )
 )
  (command "._rectang" Point1 Point2 "._line" Point1 Point2 "" "._line" Point3 Point4 "")
)

[double_u_d]

Great, thanks, i'll give that a shot.

[dkoch]

Quick one, you can change the command etc.
This is just basic, taken from a post here in AUGI, can't rembember when

(defun c:box-cross (/ Point1 Point2 Point3 Point4)
  (setq Point1 (getpoint "\nPick first corner of rectangle: ")
 )
  (setq Point2 (getpoint "\nPick second corner of rectangle: ")
 )
  (setq Point3 (list (nth 0 Point1) (nth 1 Point2)
       )
 )
  (setq Point4 (list (nth 0 Point2) (nth 1 Point1)
       )
 )
  (command "._rectang" Point1 Point2 "._line" Point1 Point2 "" "._line" Point3 Point4 "")
)

If you replace the second getpoint with getcorner Point1, you will get rectangular rubber band lines extending from the first point chosen, just like the RECTANG command.

 (setq Point2 (getcorner Point1 "\nPick second corner of rectangle: ")