直线和圆的交点打断

chpmould

请教:
   lisp如何实现先求出直线和圆的交点,然后打断圆...效果如下图片

陈貌

按TR 然后双挤右键或是空格键，点击不要的线条，效果就出来了

chpmould

陈貌 发表于 2011-5-7 23:26
按TR 然后双挤右键或是空格键，点击不要的线条，效果就出来了

我是想求直线和圆的交点,然后按交点打断...

Gu_xl

回复 chpmould 的帖子

1. (defun c:tt (/ cir curve pl pts el sta enda cp p1 p2)
   
2.   (while (and
   
3.            (setq cir (car (entsel "\n选择圆：")))
   
4.            (setq curve (car (entsel "\n选择分割曲线：")))
   
5.          ) ;_ and
   
6.     (setq pl (vlax-invoke
   
7.                (vlax-ename->vla-object cir)
   
8.                'IntersectWith
   
9.                (vlax-ename->vla-object curve)
   
10.                acExtendNone
    
11.              ) ;_ vlax-invoke
    
12.     ) ;_ setq
    
13.     (while pl
    
14.       (setq pts        (append pts (list (list (car pl) (cadr pl) (caddr pl))))
    
15.             pl        (cdr (cdr (cdr pl)))
    
16.       ) ;_ setq
    
17.     ) ;_ while
    
18.     (if        (> (length pts) 1)
    
19.       (progn
    
20. 
    
21.         (setq el   (entget cir)
    
22.               cp   (cdr (assoc 10 el))
    
23.               p1   (car pts)
    
24.               p2   (last pts)
    
25.               sta  (angle cp p1)
    
26.               enda (angle cp p2)
    
27.               el   (vl-remove-if
    
28.                      '(lambda (x) (or (= -1 (car x)) (= 0 (car x))))
    
29.                      el
    
30.                    ) ;_ vl-remove-if
    
31.               el   (append
    
32.                      (list '(0 . "ARC"))
    
33.                      el
    
34.                      (list '(100 . "AcDbArc") (cons 50 sta) (cons 51 enda))
    
35.                    ) ;_ append
    
36.         ) ;_ setq
    
37.         (entmake el)
    
38.         (entdel cir)
    
39.       ) ;_ progn
    
40.     ) ;_ if
    
41. 
    
42.   ) ;_ while
    
43. ) ;_ defun
    

(defun c:tt (/ cir curve pl pts el sta enda cp p1 p2)<br />   (while (and<br />            (setq cir (car (entsel "\n选择圆：")))<br />            (setq curve (car (entsel "\n选择分割曲线：")))<br />          ) ;_ and<br />     (setq pl (vlax-invoke<br />                (vlax-ename->vla-object cir)<br />                'IntersectWith<br />                (vlax-ename->vla-object curve)<br />                acExtendNone<br />              ) ;_ vlax-invoke<br />     ) ;_ setq<br />     (while pl<br />       (setq pts        (append pts (list (list (car pl) (cadr pl) (caddr pl))))<br />             pl        (cdr (cdr (cdr pl)))<br />       ) ;_ setq<br />     ) ;_ while<br />     (if        (> (length pts) 1)<br />       (progn<br /> <br />         (setq el   (entget cir)<br />               cp   (cdr (assoc 10 el))<br />               p1   (car pts)<br />               p2   (last pts)<br />               sta  (angle cp p1)<br />               enda (angle cp p2)<br />               el   (vl-remove-if<br />                      '(lambda (x) (or (= -1 (car x)) (= 0 (car x))))<br />                      el<br />                    ) ;_ vl-remove-if<br />               el   (append<br />                      (list '(0 . "ARC"))<br />                      el<br />                      (list '(100 . "AcDbArc") (cons 50 sta) (cons 51 enda))<br />                    ) ;_ append<br />         ) ;_ setq<br />         (entmake el)<br />         (entdel cir)<br />       ) ;_ progn<br />     ) ;_ if<br /> <br />   ) ;_ while<br /> ) ;_ defun<br />

chpmould

Gu_xl 发表于 2011-5-8 17:44
回复 chpmould 的帖子

版主，我测试了一下，有时打不断，有时侯打断的位置不对。。。

Gu_xl

回复 chpmould 的帖子

还需要判断分割曲线的走向，顺时针或逆时针！圆弧的方向始终是逆时针，本程序仅仅只是按曲线逆时针走向来计算的！判断曲线逆时针、顺时针你在论坛搜一下，有很多示例代码！

chpmould

Gu_xl 发表于 2011-5-8 20:52
回复 chpmould 的帖子

还需要判断分割曲线的走向，顺时针或逆时针！圆弧的方向始终是逆时针，本程序仅仅只 ...

谢谢！
    不知版主是否有求直线和圆交点的函数例子，我主要是想学习下如何求直线和圆交点

Gu_xl

回复 chpmould 的帖子

两条曲线求交点在4楼的代码中已经给出来了！没有看懂代码吗？求交点使用函数'IntersectWith
，代码中pts就是交点的点表！

chpmould

Gu_xl 发表于 2011-5-10 00:22
回复 chpmould 的帖子

两条曲线求交点在4楼的代码中已经给出来了！没有看懂代码吗？求交点使用函数'Inters ...

很少用VL，还没有完全看明白，我再去看函数手册研究一下你的代码。。。

墨者

谢谢楼主分享