恕放之生命 发表于 2014-9-12 22:16:51

zhx5127 发表于 2014-9-12 21:15 static/image/common/back.gif
打开命令是多少呀

命令是:znno

香田里浪人 发表于 2014-9-13 08:32:12

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

恕放之生命 发表于 2014-9-13 09:09:43

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

不然如何叫智能。

香田里浪人 发表于 2014-9-13 20:20:07

本帖最后由 香田里浪人 于 2014-9-13 20:44 编辑

恕放之生命 发表于 2014-9-13 09:09 http://bbs.mjtd.com/static/image/common/back.gif
不然如何叫智能。

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

gzgbzh 发表于 2015-4-11 21:28:57

收藏了，谢谢楼主

峰峰兒 发表于 2015-4-12 07:15:09

dingtiedt 发表于 2015-9-2 10:06:00

本帖最后由 dingtiedt 于 2015-9-2 10:07 编辑

"连续版"的右键中止不了，ESC要两次，改了其中两句：(COMMAND "_INSERT" "no" (getpoint "\n编号插入点:") 1 1 0)
改为：
(while
(if
(/= nil (setq pt (getpoint "\n编号插入点:")))
   (progn
    (COMMAND "_INSERT" "no" pt 1 1 0)结尾改为：         (COMMAND "REGEN")
         (C:zn)
       )
    )
)
(command PAUSE)
(princ)
)

waterchen 发表于 2015-9-2 11:28:27

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

GamIng 发表于 2015-9-4 11:53:28

马克。好帖留名！

pengfei2010 发表于 2018-12-12 09:23:33

这个不错，学习一下
页: 1 [2] 3 4 5 6
查看完整版本: 智能编号(Lee Mac的完善版)