智能编号(Lee Mac的完善版)

恕放之生命

zhx5127 发表于 2014-9-12 21:15
打开命令是多少呀

命令是:znno

香田里浪人

不错，删除中间部分，还能重新自动修改编号。

恕放之生命

香田里浪人 发表于 2014-9-13 08:32
不错，删除中间部分，还能重新自动修改编号。

不然如何叫智能。

香田里浪人

恕放之生命 发表于 2014-9-13 09:09
不然如何叫智能。

总体评价是不错，美中不足是点
一下要按一次回车才能继续，建议修改一下，使之能够连续点。其实很简单，只要将
(COMMAND "REGEN")
(princ)
)
;;------------------------------------------------------------;;
;;                         End of File                        ;;
;;------------------------------------------------------------;;
改为
(COMMAND "REGEN")
(C:Znno)
)
;;------------------------------------------------------------;;
;;                         End of File                        ;;
;;------------------------------------------------------------;;
即可。

gzgbzh

收藏了，谢谢楼主

dingtiedt

"连续版"的右键中止不了，ESC要两次，改了其中两句：

2. (COMMAND "_INSERT" "no" (getpoint "\n编号插入点:") 1 1 0)
   
3. 改为：
   
4. (while
   
5. (if
   
6.   (/= nil (setq pt (getpoint "\n编号插入点:")))
   
7.    (progn
   
8.     (COMMAND "_INSERT" "no" pt 1 1 0)

(COMMAND "_INSERT" "no" (getpoint "\n编号插入点:") 1 1 0)<br /> 改为：<br /> (while <br /> (if<br />   (/= nil (setq pt (getpoint "\n编号插入点:")))<br />    (progn<br />     (COMMAND "_INSERT" "no" pt 1 1 0)

结尾改为：

2.          (COMMAND "REGEN")
   
3.          (C:zn)
   
4.        )
   
5.     )
   
6.   )
   
7.   (command PAUSE)
   
8.   (princ)
   
9. )

         (COMMAND "REGEN")<br />          (C:zn)<br />        )<br />     )<br />   )<br />   (command PAUSE)<br />   (princ)<br /> )

waterchen

这个不支持字母吧，还有如果修改了其中某个序号，其它的也不会跟着调整吧。

GamIng

马克。好帖留名！

pengfei2010

这个不错，学习一下