[编程交流] 按4点绘制矩形

(defun c:v(
        /
        lastkleur)
(setq lastcolor (getvar "cecolor"))
(setvar "cecolor" "22")
(princ "\ngive 4 coreners :")
(command "solid" pause pause pause pause "")
(setvar "cecolor" lastcolor ) 
(princ)
)

(defun c:test (/ lastkleur)
 (setq lastcolor (getvar "cecolor"))
 (setvar "cecolor" "22")
 (princ "\give 4 corners :")
 (setq a (getpoint "\nspecify first point:"))
 (setq b (getpoint "\nspecify second point:"))
 (setq c (getpoint "\nspecify third point:"))
 (setq d (getpoint "\nspecify fourth point:"))
 (command "pline" a b d c "close" "")
 (command "solid" a b c d "")
 (setvar "cecolor" lastcolor)
 (princ)
 )