如查统计只有两个点的封闭多段线内的圆，

邹锋

由一条直线，一个圆弧组成或者由两条圆弧组成的封闭多义线内有N个圆，如何统计，，之前遇到都是多段线有多个点，用WP 窗选可以，但这次出错了
，

yxp

我也不会，关注中...

sen.sam

论坛上的一段代码，对整个多段线进行分段。对于复杂的多段线，想要精确点速度快点就判断出多段线上的圆弧，只对圆弧进行分段，直线段不分段。不过对于你所提的比较特定的情况应该是够用的。

1. (defun sele_in (line_ent / end i lineobj num plst start)
   
2.   (vl-load-com)
   
3.   (setq   lineObj (vlax-ename->vla-object line_ent)
   
4.   start (vlax-curve-getStartParam lineObj)
   
5.   end (vlax-curve-getEndParam lineObj)
   
6.   i 0
   
7.   )
   
8.   (while (< i (setq num 100))
   
9.     (setq plst (append
   
10.      plst
    
11.      (list (vlax-curve-getPointAtParam lineObj (* i (/
    
12.                    (- end
    
13.                       start
    
14.                    ) num
    
15.                 )
    
16.                  )
    
17.            )
    
18.      )
    
19.          )
    
20.     i (1+ i)
    
21.     )
    
22.   )
    
23. 
    
24. (ssget "WP" plst '((-4 . "<OR")(0 . "CIRCLE")(0 . "LWPOLYLINE")(-4 . "OR>")))
    
25. 
    
26. )

(defun sele_in (line_ent / end i lineobj num plst start)<br />   (vl-load-com)<br />   (setq   lineObj (vlax-ename->vla-object line_ent)<br />   start (vlax-curve-getStartParam lineObj)<br />   end (vlax-curve-getEndParam lineObj)<br />   i 0<br />   )<br />   (while (< i (setq num 100))<br />     (setq plst (append<br />      plst<br />      (list (vlax-curve-getPointAtParam lineObj (* i (/<br />                    (- end<br />                       start<br />                    ) num<br />                 )<br />                  )<br />            )<br />      )<br />          )<br />     i (1+ i)<br />     )<br />   )<br /> <br /> (ssget "WP" plst '((-4 . "<OR")(0 . "CIRCLE")(0 . "LWPOLYLINE")(-4 . "OR>")))<br /> <br /> )

cable2004

我用的是面域法！