在autocad中编写一个autolisp程序，用多段线将数字有小到大连接起来

（defun c:connectnum (/ i j k p1 p2) (setq i 0 j 0 k 1) (while (<= i 10) ;循环10次连接1-10之间的数字 (setq p1 (list (+ i j) (+ k j))) ;设置起始点坐标 (setq p2 (list (+ i k) (+ k k))) ;设置结束点坐标 (command "_line" p1 p2 "") ;用多段线连接两个数字之间的直线 (setq j (+ 1 j)) ;j加一以便下一次循环时从新的起始位开始画多段线 (setq k (+ 1 k)) ;k加一以便下一次循环时从新的中止位开始画多段线 (setq i (+ 1 i)) ;i加一进行下一次循环 ) (princ) ;退出命令行界面 )