统计封闭多线段内圆的数量

1681008

ZZXXQQ 发表于 2014-11-27 20:41
将程序中'((0 . "CIRCLE"))改成'((0 . "INSERT"))即可

大神点评“论坛有，找找看。”

只找着了统计相同矩形数量的lsp （http://bbs.mjtd.com/forum.php?mod=viewthread&tid=102361）

能否实现统计封闭多线段内各相同圆的数量呢？
万分感谢！

fan_zh

2. ;;;统计相同矩形边长的数量.
   
3. ;;;编写日期2013-07-05
   
4. ;;;编写: CADMAN
   
5. ;;;子函数 （求矩形边长）   
   
6. ;(defun qbc (pts / b h)
   
7. ;(setq b (distance (car pts) (cadddr pts)))
   
8. ;(setq h (distance (car pts) (cadr pts)))
   
9. ;(cons (max b h) (min b h))
   
10. ;);结束qbc
    
11. (defun c:tg ( / bclst pts ss el bc_new i p2 p3 m x1 x2)
    
12. (princ "\n请框选:")
    
13. (setq ss (ssget '((0 . "circle"))))
    
14. (setq i 0 bclst nil pts nil)
    
15. (repeat (sslength ss)
    
16.   (setq el (entget (ssname ss i)))
    
17.   (setq pts nil)
    
18.   (foreach pt el (if (= (car pt) 40) (setq pts (cons (cdr pt) pts))))      
    
19.   (setq bclst (cons pts bclst))
    
20.   (setq i (1+ i))
    
21. );repeat
    
22. (setq bc_new nil)
    
23. (while bclst
    
24.   (setq m (car bclst) x1 (length bclst))
    
25.   (setq bclst (vl-remove m bclst))
    
26.   (setq x2 (length bclst))
    
27.   (setq n (- x1 x2))
    
28.   (setq bc_new (cons (list m n) bc_new))
    
29. )
    
30. (setq p2 (getpoint "\起始位置"))
    
31. (setq p3 (polar p2 0 3000))
    
32. (command "_.TEXT" "c" (polar p2 (* pi 0.5) 800) "300" "0" "半径");指定书写标题的位置
    
33. (command "_.TEXT" "c" (polar p3 (* pi 0.5) 800) "300" "0" "数量")
    
34. (foreach bg bc_new                                                      ;设定重复次数为新表的长度
    
35.   (command "_.TEXT" "c" p2 "300" "0" (strcat (rtos (car (car bg)) 2)))      
    
36.   (command "_.TEXT" "c" p3 "300" "0" (cadr bg))
    
37.   (setq p2 (polar p2 (* pi 1.5) 800))
    
38.   (setq p3 (polar p2 0 3000))
    
39. )
    
40. (princ)
    
41. )
    

;;;统计相同矩形边长的数量.<br /> ;;;编写日期2013-07-05<br /> ;;;编写: CADMAN<br /> ;;;子函数 （求矩形边长）    <br /> ;(defun qbc (pts / b h)<br /> ;(setq b (distance (car pts) (cadddr pts)))<br /> ;(setq h (distance (car pts) (cadr pts)))<br /> ;(cons (max b h) (min b h))<br /> ;);结束qbc<br /> (defun c:tg ( / bclst pts ss el bc_new i p2 p3 m x1 x2)<br /> (princ "\n请框选:")<br /> (setq ss (ssget '((0 . "circle"))))<br /> (setq i 0 bclst nil pts nil)<br /> (repeat (sslength ss)<br />   (setq el (entget (ssname ss i)))<br />   (setq pts nil)<br />   (foreach pt el (if (= (car pt) 40) (setq pts (cons (cdr pt) pts))))       <br />   (setq bclst (cons pts bclst))<br />   (setq i (1+ i))<br /> );repeat<br /> (setq bc_new nil)<br /> (while bclst<br />   (setq m (car bclst) x1 (length bclst))<br />   (setq bclst (vl-remove m bclst))<br />   (setq x2 (length bclst))<br />   (setq n (- x1 x2))<br />   (setq bc_new (cons (list m n) bc_new))<br /> )<br /> (setq p2 (getpoint "\起始位置"))<br /> (setq p3 (polar p2 0 3000))<br /> (command "_.TEXT" "c" (polar p2 (* pi 0.5) 800) "300" "0" "半径");指定书写标题的位置<br /> (command "_.TEXT" "c" (polar p3 (* pi 0.5) 800) "300" "0" "数量")<br /> (foreach bg bc_new                                                      ;设定重复次数为新表的长度<br />   (command "_.TEXT" "c" p2 "300" "0" (strcat (rtos (car (car bg)) 2)))       <br />   (command "_.TEXT" "c" p3 "300" "0" (cadr bg))<br />   (setq p2 (polar p2 (* pi 1.5) 800))<br />   (setq p3 (polar p2 0 3000))<br /> )<br /> (princ)<br /> )<br />

lpl

fan_zh 发表于 2014-11-28 13:32
;;;统计相同矩形边长的数量.
;;;编写日期2013-07-05
;;;编写: CADMAN

美中不足就是，不是以表格样式进行统计

1681008

fan_zh 发表于 2014-11-28 13:32

请教下大神，框选范围怎么改成封闭多线段范围呢？
因为多数情况下圆种类、数量要统计的范围，都是用封闭多线段来划分的不规则图形，不好框选，
如果改成统计所选封闭多线段范围内各种圆的直径、数量并列表，就方便很多了。万分谢谢！谢谢！！

gzsod

找个钣金类的圆统计标注  找不到