统计圆直径数量弹窗

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. )

复制代码