跪求一个CAD里排序号的小软件！！
跪求一个CAD里排序号的小软件！！就是比如阵列10排10列的1，要把这些1从1排到100这些数字，一个一个改太烦了！！！！ <p>Express的TCOUNT有你要的效果</p><p>不過有些難以控制..</p><p></p> (defun c:mn ( / i n newt nn oldt oor osn pref ss ssdata ssn suff)(setvar "cmdecho" 0)
(setq osn (getvar "osmode"))
(setq oor (getvar "orthomode" ))
(setvar "osmode" 0)
(setvar "orthomode" 0)
;;;---------------------------------
(princ "\nSelect Text(s) to be Edit: ")
(setq ss (ssget (list (cons 0 "text"))))
(setq i 0)
(setq n (getreal "\nEnter the first calculation number<1>:"))
(if (null n)
(setq n 1)
)
(setq pref (getstring "\nEntern the prefix or null :"))
(setq suff (getstring "\nEntern the suffix or null :"))
(repeat (sslength ss)
(if (< n 10)
(setq nn (strcat pref "0" (rtos n) suff))
(setq nn (strcat pref (rtos n) suff))
)
(setq ssn (ssname ss i))
(setq ssdata (entget ssn))
(setq oldt (assoc 1 ssdata))
(setq newt (cons 1 nn))
(setq ssdata (subst newt oldt ssdata))
(entmod ssdata)
(setq n (1+ n))
(setq i (1+ i))
)
;;;----------------------------------------------------
(setvar "osmode" osn)
(setvar "orthomode" oor)
(prin1)
) <p>谢谢楼上的提供代码。</p> 改进改进 请问楼上是用什么记事本打开的啊？可以按语法作色？ 太专业了，看不懂啊 本帖最后由 作者 于 2008-11-10 16:16:50 编辑 <br /><br /> jaminth发表于2007-8-31 7:56:00static/image/common/back.gif(defun c:mn ( / i n newt nn oldt oor osn pref ss ssdata ssn suff) (setvar \"cmdecho\" 0) (setq osn (getvar \"osmode\")) (setq oor (getvar \"orthomode\" ))
<p><strong><em>jaminth大师</em></strong>编写的这小程序,可以很方便地快速为数字排序, 非常感谢和佩服!</p><p> 请教大师: </p><p>1. 排序是从下至上,数字从小到大排序的,能不能改为从上至下,数字从小到大排序?</p><p>2. 排序时,只能更改单行文本数字,不能更改多行文本数字, 可否改进一下?</p><p>3. 看不懂程序, 盼能解释一下程序中各字符的含义? 即使粗略注释一下也好?</p><p>4. (这个问题与本程序无关)窗选表格中的数字不能一次窗选完成, 如表格中1--50格的这连续的50个数字,要窗选几次才能完成.这是CAD故障吗?</p><p></p> <p>输入APPLOAD加载mn.fas文件后,请输入mnhelp先查看使用说明.</p><p></p>
页:
[1]