多段线顶点的区分

jeike456

请教大家，下图中多段线圆处的顶点怎么和其他顶点分开来，

Gu_xl

2. 
   
3. ;;;enlwp  为多段线图元名 enarc 为园
   
4. ;;;测试 (tt (car (entsel "\n选择多段线"))(car (entsel "\n选择园")))
   
5. (defun tt (enlwp encircle / pp n p1 p2)
   
6.   (setq p (cdr (assoc 10 (entget encircle ))))
   
7.     (setq pp (vlax-curve-getclosestpointto enlwp (trans p 1 0))
   
8.           n (fix (vlax-curve-getparamatpoint enlwp pp))
   
9.           )
   
10.   (if (vlax-curve-isClosed enlwp)
    
11.   (setq nn (fix (1- (vlax-curve-getendParam enlwp))))
    
12.    (setq nn (fix (vlax-curve-getendParam enlwp)))
    
13.     )
    
14.     (setq p1 (vlax-curve-getPointAtParam enlwp n))
    
15.   (if (vlax-curve-isClosed enlwp)
    
16.     (progn
    
17.       (if (< n nn)
    
18.         (setq p2 (vlax-curve-getPointAtParam enlwp (1+ n)))
    
19.         (setq p2 (vlax-curve-getPointAtParam enlwp 0))
    
20.         )
    
21.       (if (< (distance p p1) (distance p p2))
    
22.         p1
    
23.         p2
    
24.         )
    
25.       )
    
26.     (progn
    
27.       (if (< n nn)
    
28.         (setq p2 (vlax-curve-getPointAtParam enlwp (1+ n)))
    
29.         (setq p2 (vlax-curve-getPointAtParam enlwp (1- n)))
    
30.         )
    
31.       (if (< (distance p p1) (distance p p2))
    
32.         p1
    
33.         p2
    
34.         )
    
35.       )
    
36.     )
    
37.   
    
38.   )
    

<br /> ;;;enlwp  为多段线图元名 enarc 为园<br /> ;;;测试 (tt (car (entsel "\n选择多段线"))(car (entsel "\n选择园")))<br /> (defun tt (enlwp encircle / pp n p1 p2)<br />   (setq p (cdr (assoc 10 (entget encircle ))))<br />     (setq pp (vlax-curve-getclosestpointto enlwp (trans p 1 0))<br />           n (fix (vlax-curve-getparamatpoint enlwp pp))<br />           )<br />   (if (vlax-curve-isClosed enlwp)<br />   (setq nn (fix (1- (vlax-curve-getendParam enlwp))))<br />    (setq nn (fix (vlax-curve-getendParam enlwp)))<br />     )<br />     (setq p1 (vlax-curve-getPointAtParam enlwp n))<br />   (if (vlax-curve-isClosed enlwp) <br />     (progn<br />       (if (< n nn)<br />         (setq p2 (vlax-curve-getPointAtParam enlwp (1+ n)))<br />         (setq p2 (vlax-curve-getPointAtParam enlwp 0))<br />         )<br />       (if (< (distance p p1) (distance p p2))<br />         p1<br />         p2<br />         )<br />       )<br />     (progn<br />       (if (< n nn)<br />         (setq p2 (vlax-curve-getPointAtParam enlwp (1+ n)))<br />         (setq p2 (vlax-curve-getPointAtParam enlwp (1- n)))<br />         )<br />       (if (< (distance p p1) (distance p p2))<br />         p1<br />         p2<br />         )<br />       )<br />     )<br />   <br />   )<br />