求按列、行统计圆，并能给出数量

xyp1964

1. (defun c:tt ()
   
2.   "按行统计圆数量"
   
3.   (xyp-Start)
   
4.   (xyp-Ctbl (/ 3 3.))
   
5.   (if (setq ss(ssget '((0 . "CIRCLE"))))
   
6.     (setq lst(xyp-Ss2List ss)
   
7.           lst (mapcar '(lambda (x) (cadr (xyp-DXF 10 x))) lst)
   
8.           lst (xyp-list-count lst)
   
9.           dx  (+ (car (xyp-9pt ss 9)) 3)
   
10.           aa  (mapcar '(lambda (x)
    
11.                          (setq p1 (list dx (car x))
    
12.                                p2 (xyp-Pt2X p1 5)
    
13.                                s1 (xyp-Line p1 p2)
    
14.                                s2 (xyp-Text 4 p2 (itoa (cadr x)))
    
15.                          )
    
16.                        )
    
17.                       lst
    
18.               )
    
19.     )
    
20.   )
    
21.   (xyp-End)
    
22. )

(defun c:tt ()<br />   "按行统计圆数量"<br />   (xyp-Start)<br />   (xyp-Ctbl (/ 3 3.))<br />   (if (setq ss(ssget '((0 . "CIRCLE"))))<br />     (setq lst(xyp-Ss2List ss)<br />           lst (mapcar '(lambda (x) (cadr (xyp-DXF 10 x))) lst)<br />           lst (xyp-list-count lst)<br />           dx  (+ (car (xyp-9pt ss 9)) 3)<br />           aa  (mapcar '(lambda (x)<br />                          (setq p1 (list dx (car x))<br />                                p2 (xyp-Pt2X p1 5)<br />                                s1 (xyp-Line p1 p2)<br />                                s2 (xyp-Text 4 p2 (itoa (cadr x)))<br />                          )<br />                        )<br />                       lst<br />               )<br />     )<br />   )<br />   (xyp-End)<br /> )

搞搞

xyp1964 发表于 2023-4-22 16:50

能按列标数量吗？

xyp1964

搞搞 发表于 2023-4-22 20:20
能按列标数量吗？

搞搞

xyp1964 发表于 2023-4-23 22:38

这程序怎么用呢？谢谢