统计相同半径圆的

Comming

想自己写个统计相同半径圆的LSP,并标记,像图片那样,各位可否给个思路,谢谢!

ll_j

先拾取圆，然后得到所有半径构成的表，排序，再逐个统计。

Comming

ll_j 发表于 2012-11-29 11:24
先拾取圆，然后得到所有半径构成的表，排序，再逐个统计。

用什么函数对表排序和统计呢?

ll_j

Comming 发表于 2012-11-29 15:46
用什么函数对表排序和统计呢?

排序用vl-sort，统计需要自己写代码。排序的目的就是为了统计容易，比如按从大到小排序，则判断等于则累加，不等于则重起炉灶重复。

革天明

给你个思路，如何生成表格自己完成

(defun c:test1 ()
   ;;----通用函数-----
   ;;carrot1983  http://bbs.mjtd.com/forum.php?mod=viewthread&tid=64502
   ;;选择集->图元名表
   (defun ss->elst (ss / elst)
     (setq i 0)
     (repeat (sslength ss)
       (setq elst (cons (ssname ss i) elst)
             i         (1+ i)
       )
     )
     (reverse elst)
   )
   ;;定义一个函数，对表进行处理，返回表中元素重复的数目
   ;;革天明 2012年7月18日  明经通道
   ;;(n-n '(2 3 4 6 5 3 2 5 1 3 2 4 6 1 0))
   ;;((0 . 1) (1 . 2) (5 . 2) (6 . 2) (4 . 2) (3 . 3) (2 . 3))
   ;;(n-n '(1 2 1 2 (1 1) (1 2) (1 1) (1 2)))
   ;;(((1 2) . 2) ((1 1) . 2) (2 . 2) (1 . 2))
   ;;(n-n '("133" "afds" "afds" "abc" "g" "h" "ab" "abc" "123" ))
   ;;(("123" . 1) ("ab" . 1) ("h" . 1) ("g" . 1) ("abc" . 2) ("afds" . 2) ("133" . 1))
   ;;(n-n '(1 2 3 3 3 5 6 q q 明镜 不是 明经 也不是 明镜 44 44 8 8 6))
   ;;((8 . 2) (44 . 2) (也不是 . 1) (明经 . 1) (不是 . 1) (明镜 . 2) (Q . 2) (6 . 2) (5 . 1) (3 . 3) (2 . 1) (1 . 1))
   ;;       请注意，最后一个例子中q变成了Q，不知道原因，可能是那个表中元素类型太杂了吧
   (defun N-N (lst / lst1 lst2)
     (vl-load-com)
     ;;删除表中重复元素
     ;;Gu_xl口中的顾版  http://bbs.mjtd.com/forum.php?mod=viewthread&tid=92645
     ;;http://bbs.mjtd.com/forum.php?mo ... 16&page=1#pid537663
     (defun delsame (lst)
       (if lst
         (cons (car lst) (delsame (vl-remove (car lst) lst)))
       )
     )
     ;;返回表中元素的重复次数
     (defun repeatnum (x lst / n)
       (setq n (length lst))
       (- n (length (vl-remove x lst)))
     )
     (setq lst1 '())
     (foreach n (delsame lst)
       (setq lst2 (cons n (repeatnum n lst)))
       (setq lst1 (cons lst2 lst1))
     )
     lst1
   )
   (setq ss (ssget '((0 . "CIRCLE"))))
   (setq sslst (ss->elst ss))
   (setq        rndlst (mapcar '(lambda        (x)
                           (cdr (assoc 40 (entget x)))
                         )
                        sslst
                )
   )
   (setq rndlst1 (N-N rndlst))
   (setq        rndlst1        (vl-sort rndlst1
                          '(lambda (e1 e2)
                             (< (car e1) (car e2))
                           )
                 )
   )

)

目前的返回值是表
((1.79588 . 1) (1.82799 . 2) (2.2342 . 3) (2.94508 . 2) (3.0 . 1) (3.14819 . 1) (3.52073 . 1) (5.33786 . 1) (6.7132 . 1) (8.97051 . 1))
也就是说2.2342的圆有3个，其它类推
如何生成表格自己完成，同时请各位大侠完善一下我的自定义函数N-N，
(n-n '(1 2 3 3 3 5 6 q q 明镜 不是 明经 也不是 明镜 44 44 8 8 6))
   ;;((8 . 2) (44 . 2) (也不是 . 1) (明经 . 1) (不是 . 1) (明镜 . 2) (Q . 2) (6 . 2) (5 . 1) (3 . 3) (2 . 1) (1 . 1))
   ;;       请注意，最后一个例子中q变成了Q，不知道原因，可能是那个表中元素类型太杂了吧

不知道如何解决？

Comming

真的看不懂如何统计表中重复的元素@@!

自贡黄明儒

统计半径为50圆的数量(sslength (ssget (list (cons 0 "circle")(cons 40 50))))

革天明

Comming 发表于 2012-11-30 13:29
真的看不懂如何统计表中重复的元素@@!

我自定义的N-N函数就是求重复元素的个数的，返回的是重复元素与重复次数组成的点对，你根据返回的表来生成你想要的表格就成了

革天明

自贡黄明儒 发表于 2012-11-30 13:48
统计半径为50圆的数量(sslength (ssget (list (cons 0 "circle")(cons 40 50))))

使用mapcar加上lambda，再加上你的函数就可以了，不过我的是对表进行操作，你的是重复建立多个选择集，理论上你的方法会慢一些，

chpmould

程序的思路与“块统计”是相同的，你可以找个块统计的程序看看