[求助]文本编号

hdlyt11

有没有这样的小程序，把说明重编号，就是写说明的时候都是考过来改的，改完以后那1，2，3都是乱的，就想用个小程序直接重编，这样就不用输1，2，3这样一个一个编了,也就是序号重排序，但是可以处理数字后面带文本的情况，而不是纯数字。

artemis_rin

很强大啊~~多谢院长~~

xyp1964

编号排版：

icefire

应该很好实现的，

hdlyt11

院长真是无处不在啊，您的工具箱我在用，就是您那个工具箱中的文字编号程序，但是只想要单个程序，不知道有哪位好心人帮忙

hdlyt11

院长那个功能并是能满足要求，我的目的是要求选择多个单行文字的第一个图元（也就是序号数字），然后进行降序排列。

faith66

楼上的"请先学好语文"再说话，在xyp1964回复帖子下面已经写了－－－－－－－－－

没有最好，只有更好！
-----------------------------
xyp1964@sina.com 网络U盘(工具箱下载)：http://xyp1964.ys168.com QQ群:24942984

能看懂中文，语文水平过关的人都明白应该怎么找到相关解决问题的程序了吧！！！！

 

hdlyt11

院长人挺好的，给大家提供一个免费的功能强大的工具箱，我本人还是很尊重他的，毕竟保护自己的劳动成果无可厚非，这个应该都理解。

hdlyt11

这个程序我已经有了思路，还希望高手们指点

(defun C:test (/ ss s1)

(setq ss (ssget '((0 . "TEXT"))))；选择多个单行文字

(setq s1 (substr ss 1 1))；提取每个单行文字的第一个字

(if (= s1 "~*[~`--9]*")；加入第一个是数字，则参与排序

(progn                 ；排序函数

 ;;按照内容排序(应该将数字从1按降序排列）

     (setq S2 (SORT-SE S1 1 nil nil nil))
 
     (setq I 0)
     (repeat (sslength S2)
  (princ "\n")
  (princ (cdr (assoc 1 (entget (ssname S2 I)))))
  (setq I (1+ I))
     )

)

)