[求助]：兄弟姐妹们，快来帮帮看这样的程序思路

寒光四射

有一幅大图，里面是很多的小幅，小幅长宽250M X 250M
要求编号从1到160，转下一行161到320，再转 一直到16000
大图左上角坐标是X=350000，Y=2965000
朋友门，现在是：编号怎样才能自动加上去啊
希望帮帮忙，谢谢

温柔女神

如果会做第一行，那么麻烦一点，也能同样方法做第二行了
比如，(setq  m 0 )
(where m<161
(setq m (1+m))
(command "text" "" m) ;;怎样把阿拉伯字写上去，是个难点
第二行

setq  m 160 )
(where m<321
(setq m (1+m))


哎哟，我也不会啊，希望高手来救救我们这些新人啊

寒光四射

爱哟，没有人回答

f5612140

2. 
   
3. (defun c:num()
   
4. (setvar "cmdecho" 0)
   
5. (setq os (getvar "osmode"))
   
6. (setvar "osmode" 0)
   
7. (setq pt '(350000 29650000))
   
8. (setq pt (mapcar '+ pt '(+125 -125)))
   
9. (setq m 1)
   
10. (while (<= m 16000)
    
11.    (command "text" "m" pt "" "" (rtos m 2 0))
    
12.    (if (/= (rem m 160) 0)
    
13.      (setq pt (mapcar '+ pt '(250 0)))
    
14.      (setq pt (mapcar '+ pt '(-39750 -250)))
    
15.    )
    
16.    (setq m (+ m 1))
    
17. )
    
18. (setvar "osmode" os)
    
19. (prin1)
    
20. )
    
21. ;textsize控制字高

<br /> (defun c:num()<br /> (setvar "cmdecho" 0)<br /> (setq os (getvar "osmode")) <br /> (setvar "osmode" 0)<br /> (setq pt '(350000 29650000))<br /> (setq pt (mapcar '+ pt '(+125 -125)))<br /> (setq m 1)<br /> (while (<= m 16000)<br />    (command "text" "m" pt "" "" (rtos m 2 0))<br />    (if (/= (rem m 160) 0)<br />      (setq pt (mapcar '+ pt '(250 0)))<br />      (setq pt (mapcar '+ pt '(-39750 -250)))<br />    )<br />    (setq m (+ m 1))<br /> )<br /> (setvar "osmode" os)<br /> (prin1) <br /> )<br /> ;textsize控制字高

寒光四射

一个非常有用的程序，谢谢f5612140  的提供，
它可以改起始点坐标，改总数量，改网格大小来满足自己的需要，高手

给你说一下，(setq pt '(350000 29650000)) 后面的一个坐标不小心多一个零，
我们国家坐标好象都是：X 六位数，Y 七位数，