求助 圆按从小到大排列,显示统计信息

tempasdf

各位:
        本人小白一名, 现在想统计圆的数量,并按从小到大排列显示直径信息及数量 例: 共14个 Φ5*1 Φ5.8*3 Φ9.9*10
在论坛找了一下现在只完成了按半径从小到大排序的图元名,后面怎么通过图元名将半径信息 相同半径数量累计给完成了?

1. (defun c:zzzCircle ()
   
2.   (vl-load-com)
   
3.   (setq ss (ssget (list (cons 0 "CIRCLE"))))
   
4. 
   
5.   
   
6.   (setq i 0 n (sslength ss) get nil)
   
7.   (repeat n
   
8.       (setq get (cons (ssname ss i) get))
   
9.       (setq i (1+ i))
   
10.    );(repeat n
    
11.    
    
12.   (setq get (vl-sort get '(lambda(a b)
    
13.               (< (cdr (assoc 40 (entget a)))
    
14.                  (cdr (assoc 40 (entget b)))
    
15.                           )
    
16.               )
    
17.             )
    
18.    );(setq get (vl-sort get '(lambda(a b)
    
19. 
    
20. 
    
21.   )
    

(defun c:zzzCircle ()<br />   (vl-load-com)<br />   (setq ss (ssget (list (cons 0 "CIRCLE"))))<br /> <br />   <br />   (setq i 0 n (sslength ss) get nil)<br />   (repeat n<br />       (setq get (cons (ssname ss i) get))<br />       (setq i (1+ i))<br />    );(repeat n<br />    <br />   (setq get (vl-sort get '(lambda(a b)<br />               (< (cdr (assoc 40 (entget a)))<br />                  (cdr (assoc 40 (entget b)))<br />                           )<br />               )<br />             )<br />    );(setq get (vl-sort get '(lambda(a b)<br /> <br /> <br />   )<br />

飞雪神光

1. (defun c:zzzCircle (/ bf-list-item-num d get i n num ss str)
   
2.   (vl-load-com)
   
3.         (defun BF-list-item-num        (lst / l2 tmp tmp1)
   
4.                 (while
   
5.                         (setq l2  
   
6.                                 (cons
   
7.                                         (list
   
8.                                                 (setq tmp1 (car lst))
   
9.                                                 (- (length lst) (length (setq tmp (vl-remove tmp1 lst)))))
   
10.                                         l2)
    
11.                                 lst tmp
    
12.                         )
    
13.                 )
    
14.                 (reverse l2)
    
15.         )
    
16.   (setq ss (ssget (list (cons 0 "CIRCLE"))))
    
17.         (setq i 0 n (sslength ss) get nil)
    
18.   (repeat n
    
19.                 (setq get (cons (cdr (assoc 40 (entget (ssname ss i)))) get))
    
20.                 (setq i (1+ i))
    
21.         )
    
22.         (setq get (vl-sort get '(lambda (a b) (< a b))))
    
23.         (setq str "" n 0)
    
24.         (foreach a (BF-list-item-num get)
    
25.                 (setq
    
26.                         d (car a)
    
27.                         num (cadr a)
    
28.                         n (+ num n)
    
29.                         str (strcat str " Φ" (vl-princ-to-string d) "*" (itoa num))
    
30.                 )
    
31.         )
    
32.         (alert (strcat "共" (itoa n) "个" str))
    
33.         (princ)
    
34. )

(defun c:zzzCircle (/ bf-list-item-num d get i n num ss str)<br />   (vl-load-com)<br />         (defun BF-list-item-num        (lst / l2 tmp tmp1)<br />                 (while<br />                         (setq l2  <br />                                 (cons<br />                                         (list <br />                                                 (setq tmp1 (car lst))<br />                                                 (- (length lst) (length (setq tmp (vl-remove tmp1 lst)))))<br />                                         l2)<br />                                 lst tmp<br />                         )<br />                 )<br />                 (reverse l2)<br />         )<br />   (setq ss (ssget (list (cons 0 "CIRCLE"))))<br />         (setq i 0 n (sslength ss) get nil)<br />   (repeat n<br />                 (setq get (cons (cdr (assoc 40 (entget (ssname ss i)))) get))<br />                 (setq i (1+ i))<br />         )<br />         (setq get (vl-sort get '(lambda (a b) (< a b))))<br />         (setq str "" n 0)<br />         (foreach a (BF-list-item-num get)<br />                 (setq<br />                         d (car a)<br />                         num (cadr a)<br />                         n (+ num n)<br />                         str (strcat str " Φ" (vl-princ-to-string d) "*" (itoa num))<br />                 )<br />         )<br />         (alert (strcat "共" (itoa n) "个" str))<br />         (princ)<br /> )

vitalgg

2. (progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))
   
3. (stat:stat (mapcar '(lambda(x)(entity:getdxf x 40))(pickset:to-list (ssget '((0 . "circle"))))))

(progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))<br /> (stat:stat (mapcar '(lambda(x)(entity:getdxf x 40))(pickset:to-list (ssget '((0 . "circle"))))))

tempasdf

vitalgg 发表于 2024-10-22 18:47

感谢恢复 ,但这个需要联网调用函数吧,想要不用联网的

vitalgg

tempasdf 发表于 2024-10-22 18:51
感谢恢复 ,但这个需要联网调用函数吧,想要不用联网的

看源码。自己按需组合函数。
可以安装 到本地。

tempasdf

飞雪神光 发表于 2024-10-22 19:15

感谢回复, 有个小bug 就是 部分圆统计时会出现 Φ4.2*2 Φ42.*2的情况,  实际应该是Φ4.2*4
参照论坛其他网友在代码修改了一下 解决了

(setq get (cons (atof (rtos (cdr (assoc 40 (entget (ssname ss i)))) 2 2)) get))

还有一个bug 是显示的是半径 这个也改了一下
str (strcat str " Φ" (vl-princ-to-string (* 2 d)) "*" (itoa num))