跪求一个CAD里排序号的小软件！！

shun876

跪求一个CAD里排序号的小软件！！就是比如阵列10排10列的1，要把这些1从1排到100这些数字，一个一个改太烦了！！！！

lzu1797

Express的TCOUNT有你要的效果

不過有些難以控制..

jaminth

2. (defun c:mn ( / i n newt nn oldt oor osn pref ss ssdata ssn suff)
3.   (setvar "cmdecho" 0)
4.   (setq osn (getvar "osmode"))
5.   (setq oor (getvar "orthomode" ))
6.   (setvar "osmode" 0)
7.   (setvar "orthomode" 0)
8. ;;;---------------------------------
9.   (princ "\nSelect Text(s) to be Edit: ")
10.   (setq ss (ssget (list (cons 0 "text"))))
11.   (setq i 0)
12.   (setq n (getreal "\nEnter the first calculation number<1>:"))
13.   (if (null n)
14.     (setq n 1)
15.   )
16.   (setq pref (getstring "\nEntern the prefix or null [Enter]:"))
17.   (setq suff (getstring "\nEntern the suffix or null [Enter]:"))
18.   (repeat (sslength ss)
19.     (if (< n 10)
20.       (setq nn (strcat pref "0" (rtos n) suff))
21.       (setq nn (strcat pref (rtos n) suff))
22.     )
23.     (setq ssn (ssname ss i))
24.     (setq ssdata (entget ssn))
25.     (setq oldt (assoc 1 ssdata))
26.     (setq newt (cons 1 nn))
27.     (setq ssdata (subst newt oldt ssdata))
28.     (entmod ssdata)
29.     (setq n (1+ n))
30.     (setq i (1+ i))
31.   )
32. ;;;----------------------------------------------------
33.   (setvar "osmode" osn)
34.   (setvar "orthomode" oor)
35.   (prin1)
36. )

(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 [Enter]:"))   (setq suff (getstring "\nEntern the suffix or null [Enter]:"))   (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) )

xiaomeng20

谢谢楼上的提供代码。

jaminth

改进改进

打望地球

请问楼上是用什么记事本打开的啊？可以按语法作色？

haiya139

太专业了，看不懂啊

ckfq

jaminth发表于2007-8-31 7:56:00(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\" )) 

jaminth大师编写的这小程序,可以很方便地快速为数字排序, 非常感谢和佩服!

   请教大师:

1.  排序是从下至上,数字从小到大排序的,能不能改为从上至下,数字从小到大排序?

2. 排序时,只能更改单行文本数字,不能更改多行文本数字, 可否改进一下?

3. 看不懂程序, 盼能解释一下程序中各字符的含义?  即使粗略注释一下也好?

4. (这个问题与本程序无关)窗选表格中的数字不能一次窗选完成, 如表格中1--50格的这连续的50个数字,要窗选几次才能完成.这是CAD故障吗?

jaminth

输入APPLOAD加载mn.fas文件后,请输入mnhelp先查看使用说明.