帮忙把刷相同文字源码改成刷后缀

184632152

帮忙把刷相同文字源码改成刷后缀，比如文字1是“打架”；文字2是“我在”；选择文字1再去刷文字2后，文字2就变成“我在打架”

start4444

试试看

wzg356

http://bbs.mjtd.com/thread-183348-1-1.html

追寻

莫冲动，打赢坐牢，打输住院！

goodt

这个不错，很实用

juliana207

start4444 发表于 2021-12-30 14:35
试试看

你好,这个很好用, 请问您能帮忙改成刷前缀的么?

sachindkini

(defun c:tcount_att (/ ss ob start_num inc_num am ename new_value OLDER *error*)
  (vl-load-com)
  (setq OLDER *error*
	*error* myerror)
  (if (setq ss (ssget '((0 . "INSERT"))))
    (forecast
      (initget "X Y Picked")
      (setq ob (getkword "\nSort selected objects by [X/Y/Picked-order] <icked-order>: "))
      (cond
	((= ob "X")
	 (setq ss (sort_x ss))
	 )
	((= ob "Y")
	 (setq ss (sort_y ss))
	 )
	((or (= ob "Picked") (= ob nil))
	 (setq ss (sort ss))
	 )
      );cond
      (setq start_num (getint "\nSpecify starting number <1>: "))
      (if (= start_num nil)
	(setq start_num 1)
	(setq start_num start_num)
      );if
      (setq inc_num (getint "\nSpecify increment number <1>: "))
      (if (= inc_num nil)
	(setq inc_num 1)
	(setq inc_num inc_num)
      );if
      (setq sum 0)
      (setq sum (apply '+ (list sum start_num)))
      (setq ename (entnext (car ss)))
      (if (/= (cdr (assoc 0 (entget ename))) "SEQEND")

	(forecast
	(initget "None Prefix Suffix")

	    (if (/= (cdr (assoc 0 (entget ename))) "SEQEND")

		(forecast
		(setq ob1 (getkword "\nAdd text with Value to [Prefix/Suffix/None] <None>: "))

		  (cond
		    ((or (= ob1 "None") (= ob1 nil))
			(setq new_value (rtos sum 2 0))
		  	(entmod (subst (cons 1 new_value) (assoc 1 (entget ename)) (entget ename)))
	  		(entupd (car ss))
		    )
		    ((= ob1 "Prefix")
			(setq Txt (getstring "\nEnter text for Prefix: "))
			(setq new_value (rtos sum 2 0))
		  	(entmod (subst (cons 1 (strcat Txt new_value)) (assoc 1 (entget ename)) (entget ename)))
	  		(entupd (car ss))
		    )
		    ((= ob1 "Suffix")
			(setq Txt (getstring "\nEnter text for Suffix: "))
			(setq new_value (rtos sum 2 0))
		  	(entmod (subst (cons 1 (strcat new_value Txt)) (assoc 1 (entget ename)) (entget ename)))
		  	(entupd (car ss))
		    )
		  );cond
		);progn
	    );if
	);progn
      )      
      (mapcar '(lambda (obj)
		 (setq sum (apply '+ (list sum inc_num)))
		 (setq ename (entnext obj))
		 (if (/= (cdr (assoc 0 (entget ename))) "SEQEND")
		(forecast
		  (cond
		    ((or (= ob1 "None") (= ob1 nil))
			(setq new_value (rtos sum 2 0))
	  		(entmod (subst (cons 1 new_value) (assoc 1 (entget ename)) (entget ename)))
		  	(entupd (car ss))
		    )
		    ((= ob1 "Prefix")
			(setq new_value (rtos sum 2 0))
	  		(entmod (subst (cons 1 (strcat Txt new_value)) (assoc 1 (entget ename)) (entget ename)))
		  	(entupd (car ss))
		    )
		    ((= ob1 "Suffix")
			(setq new_value (rtos sum 2 0))
	  		(entmod (subst (cons 1 (strcat new_value Txt)) (assoc 1 (entget ename)) (entget ename)))
		  	(entupd (car ss))
		    )
		  );cond
		);progn
	       )
	       )
	      (cdr ss)
	      )
      );progn
    );if
  (setq *error* OLDER)     
  (Prince)  
  );
;;;;;;;;
(defun sort_x (ss / n ss1 )
  (setq ss1 nil)
  (setq n 0)
  (repeat (sslength ss)
    (setq ss1 (append ss1 (list (ssname ss n))))
    (setq n (1+ n))
    );repeat
  (setq ss1 (vl-sort ss1 '(lambda (e1 e2) (< (car (cdr (assoc 10 (entget e1))))
					     (car (cdr (assoc 10 (entget e2))))
					     )
			    )
		     )
	);setq
  )
;;;;;;;;
(defun sort_y (ss / n ss1 )
  (setq ss1 nil)
  (setq n 0)
  (repeat (sslength ss)
    (setq ss1 (append ss1 (list (ssname ss n))))
    (setq n (1+ n))
    )
  (setq ss1 (vl-sort ss1 '(lambda (e1 e2) (< (cadr (cdr (assoc 10 (entget e1))))
					     (cadr (cdr (assoc 10 (entget e2))))
					     )
			    )
		     )
	);setq
  )
;;;;;;;;
(defun sort (sset / n ss1 )
  (setq ss1 nil)
  (setq n 0)
  (repeat (sslength ss)
    (setq ss1 (append ss1 (list (ssname ss n))))
    (setq n (1+ n))
    )
  ss1
  )
;;;;;;;;;;;;;;;;;;;;;;
(defun myerror(s)                    
  (cond
    ((= s "quit / exit abort") (princ))
    ((/= s "Function cancelled") (princ (strcat "\nError: " s)))
  )
  (setq *error* OLDER)        
  (Prince)
)

sachindkini

2. <font style="vertical-align: inherit;"><font style="vertical-align: inherit;">(defun c:tcount_att (/ ss ob start_num inc_num am ename new_value OLDER *error*)</font></font>
   
3.   (vl-load-com)
   
4.   (setq OLDER *error*
   
5.         *error* myerror)
   
6.   (if (setq ss (ssget '((0 . "INSERT"))))<font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
   
7.     (forecast</font></font>
   
8.       (initget "X Y Picked")
   
9.       (setq ob (getkword "\nSort selected objects by [X/Y/Picked-order] <Picked-order>: "))
   
10.       (cond
    
11.         ((= ob "X")
    
12.          (setq ss (sort_x ss))
    
13.          )
    
14.         ((= ob "Y")
    
15.          (setq ss (sort_y ss))<font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
    
16.          )</font></font>
    
17.         ((or (= ob "Picked") (= ob nil))
    
18.          (setq ss (sort ss))<font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
    
19.          )</font></font>
    
20.       );cond
    
21.       (setq start_num (getint "\nSpecify starting number <1>: "))
    
22.       (if (= start_num nil)<font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
    
23.         (setq start_num 1)</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
    
24.         (setq start_num start_num)</font></font>
    
25.       );if
    
26.       (setq inc_num (getint "\nSpecify increment number <1>: "))<font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
    
27.       (if (= inc_num nil)</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
    
28.         (setq inc_num 1)</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
    
29.         (setq inc_num inc_num)</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
    
30.       );if</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
    
31.       (setq sum 0)</font></font>
    
32.       (setq sum (apply '+ (list sum start_num)))
    
33.       (setq ename (entnext (car ss)))
    
34.       (if (/= (cdr (assoc 0 (entget ename))) "SEQEND")
    
35. <font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
    
36.         (forecast</font></font>
    
37.         (initget "None Prefix Suffix")
    
38. 
    
39.             (if (/= (cdr (assoc 0 (entget ename))) "SEQEND")
    
40. <font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
    
41.                 (forecast</font></font>
    
42.                 (setq ob1 (getkword "\nAdd text with Value to [Prefix/Suffix/None] <None>: "))
    
43. 
    
44.                   (cond
    
45.                     ((or (= ob1 "None") (= ob1 nil))
    
46.                         (setq new_value (rtos sum 2 0))
    
47.                           (entmod (subst (cons 1 new_value) (assoc 1 (entget ename)) (entget ename)))
    
48.                           (entupd (car ss))
    
49.                     )
    
50.                     ((= ob1 "Prefix")
    
51.                         (setq Txt (getstring "\nEnter text for Prefix: "))<font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
    
52.                         (setq new_value (rtos sum 2 0))</font></font>
    
53.                           (entmod (subst (cons 1 (strcat Txt new_value)) (assoc 1 (entget ename)) (entget ename)))<font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
    
54.                           (entupd (car ss))</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
    
55.                     )</font></font>
    
56.                     ((= ob1 "Suffix")
    
57.                         (setq Txt (getstring "\nEnter text for Suffix: "))<font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
    
58.                         (setq new_value (rtos sum 2 0))</font></font>
    
59.                           (entmod (subst (cons 1 (strcat new_value Txt)) (assoc 1 (entget ename)) (entget ename)))
    
60.                           (entupd (car ss))<font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
    
61.                     )</font></font>
    
62.                   );cond<font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
    
63.                 );progn</font></font>
    
64.             );if<font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
    
65.         );progn</font></font>
    
66.       )      
    
67.       (mapcar '(lambda (obj)
    
68.                  (setq sum (apply '+ (list sum inc_num)))
    
69.                  (setq ename (entnext obj))
    
70.                  (if (/= (cdr (assoc 0 (entget ename))) "SEQEND")<font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
    
71.                 (forecast</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
    
72.                   (cond</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
    
73.                     ((or (= ob1 "None") (= ob1 nil))</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
    
74.                         (setq new_value (rtos sum 2 0))</font></font>
    
75.                           (entmod (subst (cons 1 new_value) (assoc 1 (entget ename)) (entget ename)))<font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
    
76.                           (entupd (car ss))</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
    
77.                     )</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
    
78.                     ((= ob1 "Prefix")</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
    
79.                         (setq new_value (rtos sum 2 0))</font></font>
    
80.                           (entmod (subst (cons 1 (strcat Txt new_value)) (assoc 1 (entget ename)) (entget ename)))<font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
    
81.                           (entupd (car ss))</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
    
82.                     )</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
    
83.                     ((= ob1 "Suffix")</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
    
84.                         (setq new_value (rtos sum 2 0))</font></font>
    
85.                           (entmod (subst (cons 1 (strcat new_value Txt)) (assoc 1 (entget ename)) (entget ename)))<font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
    
86.                           (entupd (car ss))</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
    
87.                     )</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
    
88.                   );cond</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
    
89.                 );progn</font></font>
    
90.                )<font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
    
91.                )</font></font>
    
92.               (cdr ss)
    
93.               )<font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
    
94.       );progn</font></font>
    
95.     );if
    
96.   (setq *error* OLDER)     <font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
    
97.   (Prince)  </font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
    
98.   );</font></font>
    
99. ;;;;;;;;
    
100. (defun sort_x (ss / n ss1 )<font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
     
101.   (setq ss1 nil)</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
     
102.   (setq n 0)</font></font>
     
103.   (repeat (sslength ss)
     
104.     (setq ss1 (append ss1 (list (ssname ss n))))<font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
     
105.     (setq n (1+ n))</font></font>
     
106.     );repeat
     
107.   (setq ss1 (vl-sort ss1 '(lambda (e1 e2) (< (car (cdr (assoc 10 (entget e1))))
     
108.                                              (car (cdr (assoc 10 (entget e2))))
     
109.                                              )
     
110.                             )
     
111.                      )<font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
     
112.         );setq</font></font>
     
113.   )<font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
     
114. ;;;;;;;;</font></font>
     
115. (defun sort_y (ss / n ss1 )<font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
     
116.   (setq ss1 nil)</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
     
117.   (setq n 0)</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
     
118.   (repeat (sslength ss)</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
     
119.     (setq ss1 (append ss1 (list (ssname ss n))))</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
     
120.     (setq n (1+ n))</font></font>
     
121.     )
     
122.   (setq ss1 (vl-sort ss1 '(lambda (e1 e2) (< (cadr (cdr (assoc 10 (entget e1))))
     
123.                                              (cadr (cdr (assoc 10 (entget e2))))<font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
     
124.                                              )</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
     
125.                             )</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
     
126.                      )</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
     
127.         );setq</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
     
128.   )</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
     
129. ;;;;;;;;</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
     
130. (defun sort (sset / n ss1 )</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
     
131.   (setq ss1 nil)</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
     
132.   (setq n 0)</font></font>
     
133.   (repeat (sslength ss)
     
134.     (setq ss1 (append ss1 (list (ssname ss n))))<font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
     
135.     (setq n (1+ n))</font></font>
     
136.     )<font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
     
137.   ss1</font></font>
     
138.   )
     
139. ;;;;;;;;;;;;;;;;;;;;;;<font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
     
140. (defun myerror(s)                    </font></font>
     
141.   (cond
     
142.     ((= s "quit / exit abort") (princ))
     
143.     ((/= s "Function cancelled") (princ (strcat "\nError: " s)))<font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
     
144.   )</font></font>
     
145.   (setq *error* OLDER)        <font style="vertical-align: inherit;"><font style="vertical-align: inherit;">
     
146.   (Prince)</font></font>
     
147. )

<font style="vertical-align: inherit;"><font style="vertical-align: inherit;">(defun c:tcount_att (/ ss ob start_num inc_num am ename new_value OLDER *error*)</font></font><br />   (vl-load-com)<br />   (setq OLDER *error*<br />         *error* myerror)<br />   (if (setq ss (ssget '((0 . "INSERT"))))<font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />     (forecast</font></font><br />       (initget "X Y Picked")<br />       (setq ob (getkword "\nSort selected objects by [X/Y/Picked-order] <Picked-order>: "))<br />       (cond<br />         ((= ob "X")<br />          (setq ss (sort_x ss))<br />          )<br />         ((= ob "Y")<br />          (setq ss (sort_y ss))<font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />          )</font></font><br />         ((or (= ob "Picked") (= ob nil))<br />          (setq ss (sort ss))<font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />          )</font></font><br />       );cond<br />       (setq start_num (getint "\nSpecify starting number <1>: "))<br />       (if (= start_num nil)<font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />         (setq start_num 1)</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />         (setq start_num start_num)</font></font><br />       );if<br />       (setq inc_num (getint "\nSpecify increment number <1>: "))<font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />       (if (= inc_num nil)</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />         (setq inc_num 1)</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />         (setq inc_num inc_num)</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />       );if</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />       (setq sum 0)</font></font><br />       (setq sum (apply '+ (list sum start_num)))<br />       (setq ename (entnext (car ss)))<br />       (if (/= (cdr (assoc 0 (entget ename))) "SEQEND")<br /> <font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />         (forecast</font></font><br />         (initget "None Prefix Suffix")<br /> <br />             (if (/= (cdr (assoc 0 (entget ename))) "SEQEND")<br /> <font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />                 (forecast</font></font><br />                 (setq ob1 (getkword "\nAdd text with Value to [Prefix/Suffix/None] <None>: "))<br /> <br />                   (cond<br />                     ((or (= ob1 "None") (= ob1 nil))<br />                         (setq new_value (rtos sum 2 0))<br />                           (entmod (subst (cons 1 new_value) (assoc 1 (entget ename)) (entget ename)))<br />                           (entupd (car ss))<br />                     )<br />                     ((= ob1 "Prefix")<br />                         (setq Txt (getstring "\nEnter text for Prefix: "))<font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />                         (setq new_value (rtos sum 2 0))</font></font><br />                           (entmod (subst (cons 1 (strcat Txt new_value)) (assoc 1 (entget ename)) (entget ename)))<font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />                           (entupd (car ss))</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />                     )</font></font><br />                     ((= ob1 "Suffix")<br />                         (setq Txt (getstring "\nEnter text for Suffix: "))<font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />                         (setq new_value (rtos sum 2 0))</font></font><br />                           (entmod (subst (cons 1 (strcat new_value Txt)) (assoc 1 (entget ename)) (entget ename)))<br />                           (entupd (car ss))<font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />                     )</font></font><br />                   );cond<font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />                 );progn</font></font><br />             );if<font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />         );progn</font></font><br />       )      <br />       (mapcar '(lambda (obj)<br />                  (setq sum (apply '+ (list sum inc_num)))<br />                  (setq ename (entnext obj))<br />                  (if (/= (cdr (assoc 0 (entget ename))) "SEQEND")<font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />                 (forecast</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />                   (cond</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />                     ((or (= ob1 "None") (= ob1 nil))</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />                         (setq new_value (rtos sum 2 0))</font></font><br />                           (entmod (subst (cons 1 new_value) (assoc 1 (entget ename)) (entget ename)))<font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />                           (entupd (car ss))</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />                     )</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />                     ((= ob1 "Prefix")</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />                         (setq new_value (rtos sum 2 0))</font></font><br />                           (entmod (subst (cons 1 (strcat Txt new_value)) (assoc 1 (entget ename)) (entget ename)))<font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />                           (entupd (car ss))</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />                     )</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />                     ((= ob1 "Suffix")</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />                         (setq new_value (rtos sum 2 0))</font></font><br />                           (entmod (subst (cons 1 (strcat new_value Txt)) (assoc 1 (entget ename)) (entget ename)))<font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />                           (entupd (car ss))</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />                     )</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />                   );cond</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />                 );progn</font></font><br />                )<font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />                )</font></font><br />               (cdr ss)<br />               )<font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />       );progn</font></font><br />     );if<br />   (setq *error* OLDER)     <font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />   (Prince)  </font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />   );</font></font><br /> ;;;;;;;;<br /> (defun sort_x (ss / n ss1 )<font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />   (setq ss1 nil)</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />   (setq n 0)</font></font><br />   (repeat (sslength ss)<br />     (setq ss1 (append ss1 (list (ssname ss n))))<font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />     (setq n (1+ n))</font></font><br />     );repeat<br />   (setq ss1 (vl-sort ss1 '(lambda (e1 e2) (< (car (cdr (assoc 10 (entget e1))))<br />                                              (car (cdr (assoc 10 (entget e2))))<br />                                              )<br />                             )<br />                      )<font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />         );setq</font></font><br />   )<font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br /> ;;;;;;;;</font></font><br /> (defun sort_y (ss / n ss1 )<font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />   (setq ss1 nil)</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />   (setq n 0)</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />   (repeat (sslength ss)</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />     (setq ss1 (append ss1 (list (ssname ss n))))</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />     (setq n (1+ n))</font></font><br />     )<br />   (setq ss1 (vl-sort ss1 '(lambda (e1 e2) (< (cadr (cdr (assoc 10 (entget e1))))<br />                                              (cadr (cdr (assoc 10 (entget e2))))<font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />                                              )</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />                             )</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />                      )</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />         );setq</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />   )</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br /> ;;;;;;;;</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br /> (defun sort (sset / n ss1 )</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />   (setq ss1 nil)</font></font><font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />   (setq n 0)</font></font><br />   (repeat (sslength ss)<br />     (setq ss1 (append ss1 (list (ssname ss n))))<font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />     (setq n (1+ n))</font></font><br />     )<font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />   ss1</font></font><br />   )<br /> ;;;;;;;;;;;;;;;;;;;;;;<font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br /> (defun myerror(s)                    </font></font><br />   (cond<br />     ((= s "quit / exit abort") (princ))<br />     ((/= s "Function cancelled") (princ (strcat "\nError: " s)))<font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />   )</font></font><br />   (setq *error* OLDER)        <font style="vertical-align: inherit;"><font style="vertical-align: inherit;"><br />   (Prince)</font></font><br /> )

juliana207

sachindkini 发表于 2024-6-6 23:11
本帖最后由 sachindkini 于 2024-6-6 23:16 编辑 (defun c:tcount_att (/ ss ob start_num inc_num am ena ...

]谢谢你的热心, 我要的是就是拿楼主的代码改成加前缀,  最佳答案 start4444 老师改的很好, 他的是加后缀. 我现在想要的是加前缀

juliana207

就是这个样子, start4444 老师 刷文字加后缀, 块里的文字也可以直接刷 我就是想反操作, 加前缀