统计圆直径数量弹窗

admin

1. (defun c:tt (/ AS D DD DNS FS GET GV K KS LEN NN S ST)
   
2.   (princ "\n功能 [统计圆直径数量弹窗]")
   
3.   (setq gv (getvar "dimzin"))
   
4.   (setvar 'dimzin 8)
   
5.   (if (setq get (ssget '((0 . "CIRCLE"))))
   
6.     (progn
   
7.       (setq Len (sslength get) k 1)
   
8.       (repeat Len
   
9.   (setq nn (ssname get (setq Len (1- Len)))
   
10.         as (cdr (assoc 40 (entget nn)))
    
11.   as (atof (rtos as 2 2))
    
12.   )
    
13.   (if (null (setq dd (assoc as Dns)))
    
14.     (setq Dns (cons (list as k) Dns))
    
15.     (setq Dns (subst (list as (1+ (cadr dd))) (assoc as Dns) Dns))
    
16.   )      
    
17.       )
    
18.       (foreach x Dns
    
19.   (setq d   (car x)
    
20.         s   (cadr x)
    
21.         st (strcat "直径"
    
22.        (rtos (* d 2) 2 2)
    
23.        ",数量"
    
24.        (rtos s 2 2)
    
25.        "\n"
    
26.      )
    
27.         ks (cons (list st) ks)
    
28.   )
    
29.       )
    
30.       (setq fs (apply 'strcat (mapcar 'car ks)))
    
31.       (alert fs)
    
32.     )
    
33.   )
    
34.   (setvar 'dimzin gv)
    
35.   (princ)
    
36. )

复制代码