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

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

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

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

(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:00

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

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

[此贴子已经被作者于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))
)