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

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

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

命令是:znno

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

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

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

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

不然如何叫智能。

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

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

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

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

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

收藏了，谢谢楼主

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

提示: 作者被禁止或删除内容自动屏蔽

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

本帖最后由 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

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

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

马克。好帖留名！

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

这个不错，学习一下

账号		自动登录	找回密码
密码			注册

[源码] 智能编号(Lee Mac的完善版)

点评

本帖子中包含更多资源

峰峰兒峰峰兒当前离线积分 10947 明经币个注册时间 2010-8-7 在线时间小时威望金钱个贡献激情	发表于 2015-4-12 07:15 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡