hdlyt11 发表于 2010-5-7 11:30:00

[求助]文本编号

<!--Element not supported - Type: 8 Name: #comment--><div>&nbsp;有没有这样的小程序，把说明重编号，就是写说明的时候都是考过来改的，改完以后那1，2，3都是乱的，就想用个小程序直接重编，这样就不用输1，2，3这样一个一个编了,附件中为修改前和修改后的文本，也就是序号重排序，但是可以处理数字后面带文本的情况，而不是纯数字。</div>

hdlyt11 发表于 2010-5-10 12:29:00

<p>这个程序我已经有了思路，还希望高手们指点</p><p>(defun C:test (/ ss s1)</p><p>(setq&nbsp;ss (ssget '((0 . "TEXT"))))；选择多个单行文字</p><p>(setq s1 (substr ss 1 1))；提取每个单行文字的第一个字</p><p>(if (= s1 "~*[~`--9]*")；加入第一个是数字，则参与排序</p><p>(progn&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ；排序函数</p><p>&nbsp;;;按照内容排序(应该将数字从1按降序排列）</p><p>&nbsp;&nbsp;&nbsp;&nbsp; (setq S2 (SORT-SE S1 1 nil nil nil))<br/>&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq I 0)<br/>&nbsp;&nbsp;&nbsp;&nbsp; (repeat (sslength S2)<br/>&nbsp; (princ "\n")<br/>&nbsp; (princ (cdr (assoc 1 (entget (ssname S2 I)))))<br/>&nbsp; (setq I (1+ I))<br/>&nbsp;&nbsp;&nbsp;&nbsp; )</p><p>)</p><p>)</p>
页: [1]
查看完整版本: [求助]文本编号