钢筋表格批量计算插件

好梦压星河啊

我之前发现一个可以批量计算钢筋工程量的插件。只需要依次批量框选钢筋直径，单根长，和根数即可，即可批量输出总长，单位重，共重，所有钢筋共重，现在我把源码贴上来。
但有几个地方可以改进，我不知道怎么弄，希望大佬指教。
（非常需要）第一个：希望在框选钢筋直径时，如果存在钢筋符号，可以自动去除前面的钢筋符号，比如%%130，%%131,%%143等，然后再计算
（非常需要）第二个：希望输出钢筋共重的时候，可以处根据钢筋直径进行分类，比如直径8钢筋共重...，直径12钢筋共重...，并输出所有钢筋共重
（能实现最好）第三个：希望框选对象时，对象会高亮显示。
现在使用highlight实现的效果如下，

如何实现下图这个效果

源码如下

2. ;本程序为钢筋表计算程序，按提示框选数据
   
3. (defun c:gj ()
   
4.   (setvar "DIMZIN" 0)
   
5.   (setvar "BLIPMODE" 0)
   
6.   (setvar "HIGHLIGHT" 1)
   
7.   (setvar "CMDECHO" 0)
   
8.   (setvar 'osmode 0)
   
9.   (setq n 0)
   
10.   (setq n1 0)
    
11.   (setq j 0)
    
12.   (setq sum 1.0)
    
13.   (setq valve 0.0)
    
14.   (setq unit_weight (list))
    
15.   (setq cor_y (list))
    
16.   (prompt "\n选择第一列-直径｛mm｝: ")
    
17.   (setq s1 (ssget))
    
18.   (setq s1 (srrt s1))
    
19.   (setq n (sslength s1))
    
20.   ;;;(print n)
    
21.   (while (<= j (- n 1))
    
22.     (setq f (entget (ssname s1 j)))
    
23.     ;;;(print f)
    
24.     (setq bg (assoc '1 f))
    
25.     (setq dia (atof (cdr bg)))
    
26.     (setq zg (assoc '40 f))
    
27.     ;;;(print dia)
    
28.     (setq height (cdr zg))
    
29.     ;;;(print dia)
    
30.     (if  (/= dia 0)
    
31.       (progn
    
32.         (setq value (* 7850 (* 3.1415926 (/ (expt (/ dia 1000) 2) 4))))
    
33.         (setq value (atof (rtos value 2 3)))
    
34.         (setq unit_weight (cons value unit_weight))
    
35.         (setq y (nth 2 (assoc '10 f)))
    
36.         (setq n1 (+ n1 1))
    
37.         ;;;(print unit_weight)
    
38.         (setq cor_y (cons y cor_y))
    
39.       )
    
40.     )
    
41.     (setq j (+ j 1))
    
42.   )
    
43.   ;;;(print unit_weight)
    
44.   ;;;(print cor_y)
    
45.   (setq n2 0)
    
46.   (setq j 0)
    
47.   (setq unit_length (list))
    
48.   (prompt "\n选择第二列-单根长度｛mm｝: ")
    
49.   (setq s2 (ssget))
    
50.   (setq s2 (srrt s2))
    
51.   (setq n2 (sslength s2))
    
52.   (while (/= n1 n2)
    
53.     (print "直径个数与单根长度个数不符，请重选！！")
    
54.     (setq s2 (ssget))
    
55.     (setq n2 (sslength s2))
    
56.   )
    
57.   ;;;(print n2)
    
58.   (while (<= j (- n2 1))
    
59.     (setq f (entget (ssname s2 j)))
    
60.     (setq bg (assoc '1 f))
    
61.     (setq value (/ (atof (cdr bg)) 1000))
    
62.     (setq unit_length (cons value unit_length))
    
63.     ;;;(print unit_length)
    
64.     (setq j (+ j 1))
    
65.   )
    
66.   ;;;(print unit_length)
    
67.   (setq n3 0)
    
68.   (setq j 0)
    
69.   (setq total_number (list))
    
70.   (prompt "\n选择第三列-总根数: ")
    
71.   (setq s3 (ssget))
    
72.   (setq s3 (srrt s3))
    
73.   (setq n3 (sslength s3))
    
74.   (while (/= n1 n3)
    
75.     (print "直径个数与总根数个数不符，请重选！！")
    
76.     (setq s3 (ssget))
    
77.     (setq n3 (sslength s3))
    
78.   )
    
79.   ;;;(print n3)
    
80.   (while (<= j (- n3 1))
    
81.     (setq f (entget (ssname s3 j)))
    
82.     (setq bg (assoc '1 f))
    
83.     (setq value (atof (cdr bg)))
    
84.     (setq total_number (cons value total_number))
    
85.     ;;;(print total_number)
    
86.     (setq j (+ j 1))
    
87.   )
    
88.   (print total_number)
    
89.   (setq total_length (reverse (mapcar '* unit_length total_number)))
    
90.   (setq total_weight (mapcar '* total_length (reverse unit_weight)))
    
91.   (setq cor_y (reverse cor_y))
    
92.   (setq unit_weight (reverse unit_weight))
    
93.   ;;;(print total_length)
    
94.   ;;;(print total_weight)
    
95.   (setq n 0)
    
96.   (setq j 0)
    
97.   (setq x (nth 0 (getpoint "确定总长｛m｝写入点：")))
    
98.   ;;;(print x)
    
99.   (setq n (length total_length))
    
100.   (while (<= j (- n 1))
     
101.     (setq point (list x (nth j cor_y)))
     
102.     (command "text"
     
103.       point
     
104.       height
     
105.       0
     
106.       (rtos (nth j total_length) 2 1)
     
107.     )
     
108.     (setq j (+ j 1))
     
109.   )
     
110.   (setq n 0)
     
111.   (setq j 0)
     
112.   (setq x (nth 0 (getpoint "确定单位重｛kg/m｝写入点：")))
     
113.   ;;;(print x)
     
114.   (setq n (length unit_weight))
     
115.   (while (<= j (- n 1))
     
116.     (setq point (list x (nth j cor_y)))
     
117.     (command "text"
     
118.       point
     
119.       height
     
120.       0
     
121.       (rtos (nth j unit_weight) 2 3)
     
122.     )
     
123.     (setq j (+ j 1))
     
124.   )
     
125.   (setq n 0)
     
126.   (setq j 0)
     
127.   (setq x (nth 0 (getpoint "确定各钢筋总重｛kg｝写入点：")))
     
128.   ;;;(print x)
     
129.   (setq n (length total_weight))
     
130.   (while (<= j (- n 1))
     
131.     (setq point (list x (nth j cor_y)))
     
132.     (command "text"
     
133.       point
     
134.       height
     
135.       0
     
136.       (rtos (nth j total_weight) 2 1)
     
137.     )
     
138.     (setq j (+ j 1))
     
139.   )
     
140.   (setq point (getpoint "确定所有钢筋总质量｛kg｝写入点："))
     
141.   (command "text"
     
142.     point
     
143.     height
     
144.     0
     
145.     (rtos (apply '+ total_weight) 2 1)
     
146.   )
     
147.   (setvar 'osmode 487)
     
148. )
     
149. (defun srrt (sss / srt n se1 se2 y1 y2 j)
     
150.   (setq srt (ssadd))
     
151.   (setq n (sslength sss))
     
152.   (repeat n
     
153.     (if  (/= n 0)
     
154.       (progn
     
155.         (setq se1 (ssname sss 0))
     
156.         (setq y1 (nth 2 (assoc '10 (entget se1))))
     
157.         (setq j 1)
     
158.         (setq n (sslength sss))
     
159.         (repeat  (- n 1)
     
160.           (setq se2 (ssname sss j))
     
161.           (setq y2 (nth 2 (assoc '10 (entget se2))))
     
162.           (if (> y2 y1)
     
163.             (progn
     
164.               (setq se1 se2)
     
165.               (setq y1 y2)
     
166.             )
     
167.           )
     
168.           (setq j (+ j 1))
     
169.         )
     
170.         (ssadd se1 srt)
     
171.         (ssdel se1 sss)
     
172.         ;;;(print (sslength sss))
     
173.       )
     
174.     )
     
175.   )
     
176.   (setq sss srt)
     
177. )
     
178. 
     
179. 
     
180. 
     
181. 
     
182. 
     

;本程序为钢筋表计算程序，按提示框选数据<br /> (defun c:gj ()<br />   (setvar "DIMZIN" 0)<br />   (setvar "BLIPMODE" 0)<br />   (setvar "HIGHLIGHT" 1)<br />   (setvar "CMDECHO" 0)<br />   (setvar 'osmode 0)<br />   (setq n 0)<br />   (setq n1 0)<br />   (setq j 0)<br />   (setq sum 1.0)<br />   (setq valve 0.0)<br />   (setq unit_weight (list))<br />   (setq cor_y (list))<br />   (prompt "\n选择第一列-直径｛mm｝: ")<br />   (setq s1 (ssget))<br />   (setq s1 (srrt s1))<br />   (setq n (sslength s1))<br />   ;;;(print n) <br />   (while (<= j (- n 1))<br />     (setq f (entget (ssname s1 j)))<br />     ;;;(print f)<br />     (setq bg (assoc '1 f))<br />     (setq dia (atof (cdr bg)))<br />     (setq zg (assoc '40 f))<br />     ;;;(print dia)<br />     (setq height (cdr zg))<br />     ;;;(print dia)<br />     (if  (/= dia 0)<br />       (progn<br />         (setq value (* 7850 (* 3.1415926 (/ (expt (/ dia 1000) 2) 4))))<br />         (setq value (atof (rtos value 2 3)))<br />         (setq unit_weight (cons value unit_weight))<br />         (setq y (nth 2 (assoc '10 f)))<br />         (setq n1 (+ n1 1))<br />         ;;;(print unit_weight)<br />         (setq cor_y (cons y cor_y))<br />       )<br />     )<br />     (setq j (+ j 1))<br />   )<br />   ;;;(print unit_weight)<br />   ;;;(print cor_y)<br />   (setq n2 0)<br />   (setq j 0)<br />   (setq unit_length (list))<br />   (prompt "\n选择第二列-单根长度｛mm｝: ")<br />   (setq s2 (ssget))<br />   (setq s2 (srrt s2))<br />   (setq n2 (sslength s2))<br />   (while (/= n1 n2)<br />     (print "直径个数与单根长度个数不符，请重选！！")<br />     (setq s2 (ssget))<br />     (setq n2 (sslength s2))<br />   )<br />   ;;;(print n2) <br />   (while (<= j (- n2 1))<br />     (setq f (entget (ssname s2 j)))<br />     (setq bg (assoc '1 f))<br />     (setq value (/ (atof (cdr bg)) 1000))<br />     (setq unit_length (cons value unit_length))<br />     ;;;(print unit_length)<br />     (setq j (+ j 1))<br />   )<br />   ;;;(print unit_length)<br />   (setq n3 0)<br />   (setq j 0)<br />   (setq total_number (list))<br />   (prompt "\n选择第三列-总根数: ")<br />   (setq s3 (ssget))<br />   (setq s3 (srrt s3))<br />   (setq n3 (sslength s3))<br />   (while (/= n1 n3)<br />     (print "直径个数与总根数个数不符，请重选！！")<br />     (setq s3 (ssget))<br />     (setq n3 (sslength s3))<br />   )<br />   ;;;(print n3)<br />   (while (<= j (- n3 1))<br />     (setq f (entget (ssname s3 j)))<br />     (setq bg (assoc '1 f))<br />     (setq value (atof (cdr bg)))<br />     (setq total_number (cons value total_number))<br />     ;;;(print total_number)<br />     (setq j (+ j 1))<br />   )<br />   (print total_number)<br />   (setq total_length (reverse (mapcar '* unit_length total_number)))<br />   (setq total_weight (mapcar '* total_length (reverse unit_weight)))<br />   (setq cor_y (reverse cor_y))<br />   (setq unit_weight (reverse unit_weight))<br />   ;;;(print total_length)<br />   ;;;(print total_weight)<br />   (setq n 0)<br />   (setq j 0)<br />   (setq x (nth 0 (getpoint "确定总长｛m｝写入点：")))<br />   ;;;(print x)<br />   (setq n (length total_length))<br />   (while (<= j (- n 1))<br />     (setq point (list x (nth j cor_y)))<br />     (command "text"<br />       point<br />       height<br />       0<br />       (rtos (nth j total_length) 2 1)<br />     )<br />     (setq j (+ j 1))<br />   )<br />   (setq n 0)<br />   (setq j 0)<br />   (setq x (nth 0 (getpoint "确定单位重｛kg/m｝写入点：")))<br />   ;;;(print x)<br />   (setq n (length unit_weight))<br />   (while (<= j (- n 1))<br />     (setq point (list x (nth j cor_y)))<br />     (command "text"<br />       point<br />       height<br />       0 <br />       (rtos (nth j unit_weight) 2 3)<br />     )<br />     (setq j (+ j 1))<br />   )<br />   (setq n 0)<br />   (setq j 0)<br />   (setq x (nth 0 (getpoint "确定各钢筋总重｛kg｝写入点：")))<br />   ;;;(print x)<br />   (setq n (length total_weight))<br />   (while (<= j (- n 1))<br />     (setq point (list x (nth j cor_y)))<br />     (command "text"<br />       point<br />       height<br />       0<br />       (rtos (nth j total_weight) 2 1)<br />     )<br />     (setq j (+ j 1))<br />   )<br />   (setq point (getpoint "确定所有钢筋总质量｛kg｝写入点："))<br />   (command "text"<br />     point<br />     height<br />     0<br />     (rtos (apply '+ total_weight) 2 1)<br />   )<br />   (setvar 'osmode 487)<br /> )<br /> (defun srrt (sss / srt n se1 se2 y1 y2 j)<br />   (setq srt (ssadd))<br />   (setq n (sslength sss))<br />   (repeat n<br />     (if  (/= n 0)<br />       (progn<br />         (setq se1 (ssname sss 0))<br />         (setq y1 (nth 2 (assoc '10 (entget se1))))<br />         (setq j 1)<br />         (setq n (sslength sss))<br />         (repeat  (- n 1)<br />           (setq se2 (ssname sss j))<br />           (setq y2 (nth 2 (assoc '10 (entget se2))))<br />           (if (> y2 y1)<br />             (progn<br />               (setq se1 se2)<br />               (setq y1 y2)<br />             )<br />           )<br />           (setq j (+ j 1))<br />         )<br />         (ssadd se1 srt)<br />         (ssdel se1 sss)<br />         ;;;(print (sslength sss))<br />       )<br />     )<br />   )<br />   (setq sss srt)<br /> )<br /> <br /> <br /> <br /> <br /> <br />

好梦压星河啊

希望大佬指点一下

好梦压星河啊

没有大佬看到吗？

好梦压星河啊

计算钢筋工程量还是很有用的

好梦压星河啊

我已经解决了第一个自动替换钢筋符号的问题，剩余第二第三个问题，希望大佬指导