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



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

搞搞 发表于 2023-4-22 20:20:46

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


能按列标数量吗？

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

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


搞搞 发表于 2023-4-24 16:38:27

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


这程序怎么用呢？谢谢

183017064 发表于 2024-11-22 11:28:56

找了好久，终于找到这个功能了，谢谢哦大佬们的思路
页: 1 [2]
查看完整版本: 求按列、行统计圆，并能给出数量