用lisp编程能不能实现这样的功能？

hpy · 发表于 2003-8-15 14:10:00

用DTEXT命令写一组数据 1，2，3，4，5，6，7，8，9，10，......，n
1. 如果其中的任意一个数据加上一个数后，其后面的数据自动加上相同的数。比如第一个数1加上1后，后面的数自动变为3，4，5，6，7，8，9，10，......，n+1
2. 如果在任意两个数之间插入一个数，比如在4和5之间插入5，则后面的数自动变为6，7，8，9，......

前生 · 发表于 2003-8-15 16:01:00

可以.

hpy · 发表于 2003-8-15 16:12:00

请问如何实现？能麻烦你编一下程码？先谢谢了！

龙龙仔 · 发表于 2003-8-18 12:30:00

;|数字插入的问题
有很多单行文本是有一定数字排列的，比如下面
ab-1,ab-2,ab-3.....（每一个是一个单独的文本）
由于修改的原因想插入一个，使以前的数字依次向后推移，怎么解决？
就是说要把ab-2改为ab-3,ab-3改为ab-4,ab-4改为ab-5......
斑竹能否编个程序方便解决这个问题。|;
;;USAGEtt )
;;USAGEtt "-" 1 "+")
(defun TT (TEX GAIN MARK / SS N TE TTE POS)
  (setq SS (ssget '((0 . "TEXT"))))
  (if SS
(progn
   (setq N 0)
   (repeat (sslength SS)
      (if
      (wcmatch
         (setq TE (cdr (assoc 1 (setq TTE (entget (ssname SS N))))))
         (strcat "*" TEX "*")
      )
         (progn
         (setq POS (vl-string-position (ascii TEX) TE))
         (setq TE
                  (strcat
                  (substr TE 1 (+ POS 1))
                  (rtos
                     ((eval (read MARK)) (atof (substr TE (+ POS 2))) GAIN)
                  )
                  )
         )
         (entmod (setq TTE (subst (cons 1 TE) (assoc 1 TTE) TTE)))
         )
      )
      (setq N (1+ N))
   )
)
  )
  (princ)
)

hpy · 发表于 2003-8-18 16:59:00

非常感谢龙龙仔的热心！使用了你的程序后觉得与我希望的功能有点差距。斑竹的程序功能是先给定一个数值，然后选择文本进行改变（如果文本分布在整个图形中，则须一个一个选择）。
不好意思!我没有把问题表达清楚。我希望的程序功能是这样的：通过一个程序写出一组数据（为单行文本）1，2，3，4，5，6，7，8，9，10，...... ，n 以后由于修改的原因，希望达到以下两个目的：
1. 如果其中的任意一个数据加上一个数后，其后面的数据自动加上相同的数。比如第一个数1加上1后，后面的数自动变为3，4，5，6，7，8，9，10，......，n+1
2. 如果在任意两个数之间插入一个数，比如在4和5之间插入5，则后面的数自动变为6，7，8，9，......
我希望改动了一个数后，后面的数字自动改变，而不需进行选择。不知这个问题能不能解决?!
再次谢谢龙龙仔！谢谢所有热心的朋友！期待你们的帮助!

用lisp编程能不能实现这样的功能？

发表回复

精选推荐