统计相同半径圆的
想自己写个统计相同半径圆的LSP,并标记,像图片那样,各位可否给个思路,谢谢!先拾取圆，然后得到所有半径构成的表，排序，再逐个统计。 ll_j 发表于 2012-11-29 11:24 static/image/common/back.gif
先拾取圆，然后得到所有半径构成的表，排序，再逐个统计。
用什么函数对表排序和统计呢? Comming 发表于 2012-11-29 15:46 static/image/common/back.gif
用什么函数对表排序和统计呢?
排序用vl-sort，统计需要自己写代码。排序的目的就是为了统计容易，比如按从大到小排序，则判断等于则累加，不等于则重起炉灶重复。 本帖最后由 革天明 于 2012-11-29 17:37 编辑
给你个思路，如何生成表格自己完成
(defun c:test1 ()
;;----通用函数-----
;;carrot1983http://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，不知道原因，可能是那个表中元素类型太杂了吧
不知道如何解决？ 真的看不懂如何统计表中重复的元素@@! 统计半径为50圆的数量(sslength (ssget (list (cons 0 "circle")(cons 40 50)))) Comming 发表于 2012-11-30 13:29 static/image/common/back.gif
真的看不懂如何统计表中重复的元素@@!
我自定义的N-N函数就是求重复元素的个数的，返回的是重复元素与重复次数组成的点对，你根据返回的表来生成你想要的表格就成了 自贡黄明儒 发表于 2012-11-30 13:48 static/image/common/back.gif
统计半径为50圆的数量(sslength (ssget (list (cons 0 "circle")(cons 40 50))))
使用mapcar加上lambda，再加上你的函数就可以了，不过我的是对表进行操作，你的是重复建立多个选择集，理论上你的方法会慢一些， 程序的思路与“块统计”是相同的，你可以找个块统计的程序看看