[编程交流] 用Lisp语言绘制多边形

(defun c:Test (/ a b c)
 (initget 6)
 (if (and (setq a (getdist "\nSpecify length of side A: "))
          (progn (initget 6) (setq b (getdist "\nSpecify length of side B: ")))
          (progn (initget 6) (setq c (getdist "\nSpecify length of side C: ")))
     )
   (command "_.pline"
            "_non"
            (list 0. a 0.)
            "_non"
            '(0. 0. 0.)
            "_non"
            (list c 0. 0.)
            "_non"
            (list c b 0.)
            "_close"
   )
 )
 (princ)
)