请高手编一lisp程序，自动修改为连续的数字！！

wyu · 发表于 2002-10-17 20:49

欲修改若干文字，将其改为连续的数字，如：选取第一文字，将其改为“45”，选取第二个文字就自动改为“46”，选取第三个文字就自动改为“47”,不用手工输入数字，依此类推。急急急！！！在此先谢谢了！！！！

dbczhaoy · 发表于 2002-10-17 21:39

(defun c:test()
  (setq shuz (getint"\n输入初始号码:"))
  (setq shuz (- shuz 1))
  (while t
  (setq shuz (+ shuz 1))
  (setq txtf (rtos shuz 2 0))
  (setq obj_temp (car (entsel "\n选择文本:")))
  (setq ed (entget obj_temp))
  (setq ed (subst (cons 1 txtf) (assoc 1 ed) ed))
  (entmod ed))
)

wyu · 发表于 2002-10-17 22:25

试用了一下，效果挺好，谢谢了！！只是觉得在没有选中文字时，提示错误并退出，使用不太方便。能否再改进一下，在没有选中文字时，继续显示选择文字，只有在按右键时才推出。

dbczhaoy · 发表于 2002-10-18 11:59

本帖最后由作者于 2002-10-18 11:59:05 编辑

[此贴子已经被作者于2002-10-17 22:59:12编辑过]

(defun c:test()
  (setq shuz (getint"\n输入初始号码:"))
  (setq shuz (- shuz 1))
  (while t
  (setq shuz (+ shuz 1))
  (setq txtf (rtos shuz 2 0))
  (setq obj_temp (car (entsel "\n选择文本:")))
  (if( null  obj_temp)
(setq obj_temp (car (entsel "\n选择文本:")))
  )
  (setq ed (entget obj_temp))
  (setq ed (subst (cons 1 txtf) (assoc 1 ed) ed))
  (entmod ed))
)

雷 · 发表于 2002-10-18 20:22

这样是不是很烦，你的意思是不是将所有的数字文本（或某一层上的数字文本）都加上某个常数？

wyu · 发表于 2002-10-18 23:42

谢谢了！！！雕虫小技解决了我的大问题，如没这个程序我的工作量就太大了。
好像只能进行一个错误处理，应该加个循环，但这我已经够用了。
会编程真是好，我将努力学习。

一个初学者

wyu · 发表于 2002-10-18 23:46

将所有的数字文本（或某一层上的数字文本）都加上某个常数，这个办法很好，有异曲同工之妙，感谢提醒，这能实现吗？请帮忙！！！！

123abc · 发表于 2002-10-20 23:17

cy956 · 发表于 2002-10-21 11:12

雷 · 发表于 2002-10-22 18:45

本帖最后由作者于 2002-10-22 18:45:06 编辑

将(setq obj_temp (car (entsel "\n选择文本:")))改
(while (
= (setq obj_temp (car (entsel "\n选择文本:"))) nil)

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

请高手编一lisp程序，自动修改为连续的数字！！

是不是这样的？

谢谢！！！能否再改进一下？

你自己加上错误处理就行了。下面的代码仅供参考！

这样是不是很烦？

谢谢了！！！雕虫小技解决了我的大问题，如没这个我程序我的工作量就太大了。

是有点麻烦。

请按这个思路编程，谢谢！！

还有一种涉及排序，即依照当前值的大小重新排序。

试试