autolisp画多段线方法之一

(defun c:ppll()

  (setq points (list (list 0 0) (list 10 10) (list 20 20)))

  (command "pline")

  (foreach n points (command (strcat (rtos (car n) 2 3) "," (rtos (cadr n) 2 3) ))) 

   (command "")

 )