[原创]：也发自动编号

ak50

我自己编的哈

1. (defun c:sz (/ shuz th p1)
   
2.   (setq shuz (getint "\n输入初始号码:"))
   
3.   (setq th (getint "\n要添加的编号高度:"))
   
4.   (setq wenz (getstring "\n编号非文字部分:"))
   
5.   (setq shuz (- shuz 1))
   
6.   (while t
   
7.     (if (/= wenz nil)
   
8.       (progn
   
9.         (setq shuz (+ shuz 1))
   
10.         (setq tx (rtos shuz 2 0))
    
11.         (setq p1 (getpoint "\n输入位置:"))
    
12.         (setq shuchu (strcat (substr wenz 1) (substr tx 1)))
    
13.         (command "text" "j" "m" p1 th 0 shuchu "\e")
    
14.       )
    
15.       (progn
    
16.         (setq shuz (+ shuz 1))
    
17.         (setq tx (rtos shuz 2 0))
    
18.         (setq p1 (getpoint "\n输入位置:"))
    
19.         (setq shuchu (substr tx 1))
    
20.         (command "text" "j" "m" p1 th 0 shuchu "\e")
    
21.       )
    
22.     )
    
23.   )
    
24. )
    
25. 
    

(defun c:sz (/ shuz th p1)<br />   (setq shuz (getint "\n输入初始号码:"))<br />   (setq th (getint "\n要添加的编号高度:"))<br />   (setq wenz (getstring "\n编号非文字部分:"))<br />   (setq shuz (- shuz 1))<br />   (while t<br />     (if (/= wenz nil)<br />       (progn<br />         (setq shuz (+ shuz 1))<br />         (setq tx (rtos shuz 2 0))<br />         (setq p1 (getpoint "\n输入位置:"))<br />         (setq shuchu (strcat (substr wenz 1) (substr tx 1)))<br />         (command "text" "j" "m" p1 th 0 shuchu "\e")<br />       )<br />       (progn<br />         (setq shuz (+ shuz 1))<br />         (setq tx (rtos shuz 2 0))<br />         (setq p1 (getpoint "\n输入位置:"))<br />         (setq shuchu (substr tx 1))<br />         (command "text" "j" "m" p1 th 0 shuchu "\e")<br />       )<br />     )<br />   )<br /> )<br /> <br />

ysp1111

好东西，楼主把其他的都贴出来撒

zqb05

好多这样的插件
下载下来看看好不好用

金鹅起飞

楼主给个介绍呀，怎么个自动的？

zjsmlzp

在2005里用不了！什么原因？:P:P