Autolisp 4: How to Draw Rectangle with Polylines by Using Autolisp

Autolisp 4: How to Draw Rectangle with Polylines by Using Autolisp

Sample code:

(defun c:drawpolyline1()
(setq point1 (list 0 0))
(setq point2 (list 0 500))
(setq point3 (list 500 500))
(setq point4 (list 500 0))
(command "pline" point1 point2 point3 point4 "c" )
)

(defun c:drawpolyline2()
(setq a 10)
(repeat 50
(setq point1 (list (+ 0 a ) (+ 0 a )))
(setq point2 (list (+ 0 a ) (+ 500 a )))
(setq point3 (list (+ 500 a ) (+ 500 a )))
(setq point4 (list (+ 500 a ) (+ 0 a )))
(command "pline" point1 point2 point3 point4 "c" )
(setq a (+ a 10))
) )

(defun c:drawpolyline3()
(setq a 10)
(repeat 50
(setq point1 (list (- 0 a ) (- 0 a )))
(setq point2 (list (- 0 a ) (+ 500 a )))
(setq point3 (list (+ 500 a ) (+ 500 a )))
(setq point4 (list (+ 500 a ) (- 0 a )))
(command "pline" point1 point2 point3 point4 "c" )
(setq a (+ a 10))
) )