[编程申请]：eachy斑竹请进

txzjtxzj

eachy，如何把您的排序函数运用到下面的程序，请帮忙修改一下程序，能和你的排序函数结合起来

2. 
   
3. (Defun c:SB (/ ss sscnt slist sname blkattlist blkattval newval k1 k2 d pre sub)
   
4. (setvar "cmdecho" 0)
   
5. (command ".undo" "BE")
   
6. (princ "\n批量修改属性块值自动编号")
   
7. (setq ss (ssget '((0 . "INSERT"))))
   
8. 
   
9. 
   
10. (progn
    
11.              (initget "0 1")
    
12.              (setq k1 (getkword "\n[0 -按行/1 -按列]:"))
    
13.            )
    
14.            (progn
    
15.              (initget "1 2 3 4")
    
16.              (setq k2
    
17.                     (getkword
    
18.                       "\n[1-左上至右下/2-右上至左下/3-右下至左上/4-左下至右上]:"
    
19.                     )
    
20.              )
    
21.            )
    
22.            (setq d (getdist "\n输入允许误差: "))
    
23.       )
    
24. 
    
25. 
    
26. 
    
27. 
    
28. (setq sscnt (sslength ss) nno 0)
    
29. (setq pd1 (cdr (assoc 10 (entget (ssname ss 0)))))
    
30. (setq pd2 (cdr (assoc 10 (entget (ssname ss 1)))))
    
31. (setq ang_pd (angle pd1 pd2))
    
32. 
    
33. (cond ((= ang_pd (* pi 0.5))(sort_nam_Y_mi_ma)) ((= ang_pd (* pi 1.5))(sort_nam_Y_mi_ma))
    
34. ((or (/= ang_pd (* pi 0.5)) (/= ang_pd (* pi 1.5))) (sort_nam_X_mi_ma))
    
35. )
    
36. 
    
37.   (ea:sort_entity elst (atoi k1) (atoi k2) d)
    
38.                )
    
39. 
    
40. 
    
41. 
    
42. 
    
43. (setq attrib_val (getstring "\n输入起始值:"))
    
44. (setq ascii_val (ascii attrib_val))
    
45. (if (= attrib_val "") (progn (command ".undo" "E") (exit)))
    
46. (while (< nno sscnt)
    
47. (setq sname (nth nno list_ent))
    
48. (setq slist (entget sname))
    
49. (if (assoc 66 slist)
    
50. (progn
    
51. (setq blkattlist (entget (entnext sname)))
    
52. (setq newval
    
53. (cond
    
54. ((< (atoi attrib_val) 3000) (itoa (+ (atoi attrib_val) nno)))
    
55. )
    
56. )
    
57. 
    
58. (setq blkattlist (subst (cons 1 newval) (assoc 1 blkattlist) blkattlist))
    
59. (entmod blkattlist)
    
60. (entupd sname)
    
61. );progn
    
62. );if
    
63. (setq nno (1+ nno))
    
64. );while
    
65. (command ".undo" "E")
    
66. (setvar "cmdecho" 1)
    
67. (princ)
    
68. )
    
69. 
    
70. ;-----------------------------------------------
    
71. ;;;;;;;;;根据X坐标从小到大将所选图元排序;;;;;;;;
    
72. ;-----------------------------------------------
    
73. (defun sort_nam_X_mi_ma ()
    
74. (setq n (sslength ss))
    
75. (setq list_ent nil)
    
76. (setq m 0)
    
77. (while (< m n)
    
78. (setq list_ent (append list_ent (list (ssname ss m))))
    
79. (setq m (1+ m))
    
80. )
    
81. (setq l 0)
    
82. (setq m 1)
    
83. (while (< l n)
    
84. (setq b (nth l list_ent))
    
85. (while (< m n)
    
86. (setq c (nth m list_ent))
    
87. (if (< (nth 1 (assoc 10 (entget c))) (nth 1 (assoc 10 (entget b))))
    
88. (progn
    
89. (setq list_ent (subst 'aa (nth l list_ent) list_ent))
    
90. (setq list_ent (subst 'bb (nth m list_ent) list_ent))
    
91. (setq list_ent (subst c 'aa list_ent))
    
92. (setq list_ent (subst b 'bb list_ent))
    
93. (setq b c)   
    
94. 
    
95. 
    
96. )
    
97. )
    
98. (setq m (1+ m))
    
99. )
    
100. (setq l (1+ l))
     
101. (setq m (1+ l))
     
102. )
     
103. );end defun
     
104. 
     
105. 
     
106. ;-----------------------------------------------
     
107. ;;;;;;;;;根据Y坐标从小到大将所选图元排序;;;;;;;;
     
108. ;-----------------------------------------------
     
109. (defun sort_nam_Y_mi_ma ()
     
110. (setq n (sslength ss))
     
111. (setq list_ent nil)
     
112. (setq m 0)
     
113. (while (< m n)
     
114. (setq list_ent (append list_ent (list (ssname ss m))))
     
115. (setq m (1+ m))
     
116. )
     
117. (setq l 0)
     
118. (setq m 1)
     
119. (while (< l n)
     
120. (setq b (entget (nth l list_ent)))
     
121. (while (< m n)
     
122. (setq c (entget (nth m list_ent)))
     
123. (if (< (nth 2 (assoc '10 c)) (nth 2 (assoc '10 b)))
     
124. (progn
     
125. (setq list_ent (subst 'aa (nth l list_ent) list_ent))
     
126. (setq list_ent (subst 'bb (nth m list_ent) list_ent))
     
127. (setq list_ent (subst c 'aa list_ent))
     
128. (setq list_ent (subst b 'bb list_ent))
     
129. (setq b c)
     
130. )
     
131. )
     
132. (setq m (1+ m))
     
133. )
     
134. (setq l (1+ l))
     
135. (setq m (1+ l))
     
136. )
     
137. );end defun

<br /> (Defun c:SB (/ ss sscnt slist sname blkattlist blkattval newval k1 k2 d pre sub)<br /> (setvar "cmdecho" 0)<br /> (command ".undo" "BE")<br /> (princ "\n批量修改属性块值自动编号")<br /> (setq ss (ssget '((0 . "INSERT"))))<br /> <br /> <br /> (progn<br />              (initget "0 1")<br />              (setq k1 (getkword "\n[0 -按行/1 -按列]:"))<br />            )<br />            (progn<br />              (initget "1 2 3 4")<br />              (setq k2<br />                     (getkword<br />                       "\n[1-左上至右下/2-右上至左下/3-右下至左上/4-左下至右上]:"<br />                     )<br />              )<br />            )<br />            (setq d (getdist "\n输入允许误差: "))<br />       )<br /> <br /> <br /> <br /> <br /> (setq sscnt (sslength ss) nno 0)<br /> (setq pd1 (cdr (assoc 10 (entget (ssname ss 0)))))<br /> (setq pd2 (cdr (assoc 10 (entget (ssname ss 1)))))<br /> (setq ang_pd (angle pd1 pd2))<br /> <br /> (cond ((= ang_pd (* pi 0.5))(sort_nam_Y_mi_ma)) ((= ang_pd (* pi 1.5))(sort_nam_Y_mi_ma))<br /> ((or (/= ang_pd (* pi 0.5)) (/= ang_pd (* pi 1.5))) (sort_nam_X_mi_ma))<br /> )<br /> <br />   (ea:sort_entity elst (atoi k1) (atoi k2) d)<br />                )<br /> <br /> <br /> <br /> <br /> (setq attrib_val (getstring "\n输入起始值:"))<br /> (setq ascii_val (ascii attrib_val))<br /> (if (= attrib_val "") (progn (command ".undo" "E") (exit)))<br /> (while (< nno sscnt)<br /> (setq sname (nth nno list_ent))<br /> (setq slist (entget sname))<br /> (if (assoc 66 slist)<br /> (progn<br /> (setq blkattlist (entget (entnext sname)))<br /> (setq newval<br /> (cond<br /> ((< (atoi attrib_val) 3000) (itoa (+ (atoi attrib_val) nno)))<br /> )<br /> )<br /> <br /> (setq blkattlist (subst (cons 1 newval) (assoc 1 blkattlist) blkattlist))<br /> (entmod blkattlist)<br /> (entupd sname)<br /> );progn<br /> );if<br /> (setq nno (1+ nno))<br /> );while<br /> (command ".undo" "E")<br /> (setvar "cmdecho" 1)<br /> (princ)<br /> )<br /> <br /> ;-----------------------------------------------<br /> ;;;;;;;;;根据X坐标从小到大将所选图元排序;;;;;;;;<br /> ;-----------------------------------------------<br /> (defun sort_nam_X_mi_ma ()<br /> (setq n (sslength ss))<br /> (setq list_ent nil)<br /> (setq m 0)<br /> (while (< m n)<br /> (setq list_ent (append list_ent (list (ssname ss m))))<br /> (setq m (1+ m))<br /> )<br /> (setq l 0)<br /> (setq m 1)<br /> (while (< l n)<br /> (setq b (nth l list_ent))<br /> (while (< m n)<br /> (setq c (nth m list_ent))<br /> (if (< (nth 1 (assoc 10 (entget c))) (nth 1 (assoc 10 (entget b))))<br /> (progn<br /> (setq list_ent (subst 'aa (nth l list_ent) list_ent))<br /> (setq list_ent (subst 'bb (nth m list_ent) list_ent))<br /> (setq list_ent (subst c 'aa list_ent))<br /> (setq list_ent (subst b 'bb list_ent))<br /> (setq b c)   <br /> <br /> <br /> )<br /> )<br /> (setq m (1+ m))<br /> )<br /> (setq l (1+ l))<br /> (setq m (1+ l))<br /> )<br /> );end defun<br /> <br /> <br /> ;-----------------------------------------------<br /> ;;;;;;;;;根据Y坐标从小到大将所选图元排序;;;;;;;;<br /> ;-----------------------------------------------<br /> (defun sort_nam_Y_mi_ma ()<br /> (setq n (sslength ss))<br /> (setq list_ent nil)<br /> (setq m 0)<br /> (while (< m n)<br /> (setq list_ent (append list_ent (list (ssname ss m))))<br /> (setq m (1+ m))<br /> )<br /> (setq l 0)<br /> (setq m 1)<br /> (while (< l n)<br /> (setq b (entget (nth l list_ent)))<br /> (while (< m n)<br /> (setq c (entget (nth m list_ent)))<br /> (if (< (nth 2 (assoc '10 c)) (nth 2 (assoc '10 b)))<br /> (progn<br /> (setq list_ent (subst 'aa (nth l list_ent) list_ent))<br /> (setq list_ent (subst 'bb (nth m list_ent) list_ent))<br /> (setq list_ent (subst c 'aa list_ent))<br /> (setq list_ent (subst b 'bb list_ent))<br /> (setq b c)<br /> )<br /> )<br /> (setq m (1+ m))<br /> )<br /> (setq l (1+ l))<br /> (setq m (1+ l))<br /> )<br /> );end defun

eachy

看不懂你的程序要做什么，首先属性块选择应该是

1. (ssget '((0 . "insert") (66 . 1)))

复制代码

可以直接过滤出来，不用后面再判断，浪费时间。
2
属性块标号可以使用我写的编号程序http://www.xdcad.net/forum/showt ... y=&pagenumber=1

这个程序是你写的吗，括号都不对