（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) ;退出命令行界面 )