查找线自相交[原创.附源码]

tryhi

2. (setq rrno1 5)
   
3. ;;函数名：zjhy（自交画圆）
   
4. ;;功能：在多段线是线自相交处画圆圈标注      
   
5. ;;注：多段线为纯线段，不含弧线
   
6. (defun c:zjhy(/ $i $j jiaodian lss nn ns os pt1 pt2 pt3 pt4)
   
7.   (setq lss (Vertexs (car(entsel))));获取定点表
   
8.   (setq rrno1 (ureal 0 "" "输入圆圈半径" rrno1))
   
9.   (setq nn 0)
   
10. (setq os (getvar "osmode"))
    
11.   (setvar "osmode" 0)(setvar "CMDECHO" 0)
    
12.   (setq ns (length lss));返回顶点个数
    
13.   (setq $i 0);循环初始
    
14.   (setq $j 2);嵌套循环初始
    
15.   (repeat (- ns 1);循环从第一点到倒数第二点
    
16.     (repeat (if(= $i 0)(1-(- ns $j))(- ns $j));循环到第一点(首点除外)
    
17.       (setq pt1(nth $i lss));0
    
18.       (setq pt2(nth (1+ $i) lss));1
    
19.       (setq pt3(nth $j lss));2
    
20.       (setq pt4(nth (if(=(1+ $j)ns)0(1+ $j)) lss));3（超过最后一个点跳到第一点）
    
21.       (setq jiaodian(inters pt1 pt2 pt3 pt4));判断线段相交
    
22.       (if jiaodian(command "CIRCLE" jiaodian rrno1));画圆
    
23.       (if jiaodian(setq nn(1+ nn)));计数
    
24.       (setq $j (1+ $j))
    
25.     )
    
26.     (setq $i (1+ $i))
    
27.     (setq $j (+ 2 $i))
    
28.   )
    
29.   (setvar "osmode" os)
    
30.   (princ "\n共找到") (princ nn)(princ "个自相交点。")
    
31.   (prin1)
    
32.   )
    
33. (prompt
    
34.   "\n******* zjhy[自交画圆]命令加载完成！*******------tryhi----2015-9-10"
    
35. )(prin1)
    
36. ;;返回多段线顶点表         
    
37.   (defun Vertexs (s1 / lst);
    
38.     (setq  lst (entget s1)
    
39.       lst (vl-remove-if-not '(lambda (x) (= (car x) 10)) lst)
    
40.       lst (mapcar 'cdr lst)
    
41.     )
    
42.   )
    
43. ;;                  实型数输入格式化                           
    
44. (defun ureal (bit kwd msg def / inp)
    
45.   (if def
    
46.     (setq msg (strcat "\n" msg "<" (rtos def 2) ">: ") bit (* 2 (fix (/ bit 2))))
    
47.     (setq msg (strcat "\n" msg ": "))
    
48.   )
    
49.   (initget bit kwd)
    
50.   (setq inp (getreal msg))
    
51.   (if inp inp def)
    
52. )
    

(setq rrno1 5)<br /> ;;函数名：zjhy（自交画圆） <br /> ;;功能：在多段线是线自相交处画圆圈标注       <br /> ;;注：多段线为纯线段，不含弧线<br /> (defun c:zjhy(/ $i $j jiaodian lss nn ns os pt1 pt2 pt3 pt4)<br />   (setq lss (Vertexs (car(entsel))));获取定点表<br />   (setq rrno1 (ureal 0 "" "输入圆圈半径" rrno1))<br />   (setq nn 0)<br /> (setq os (getvar "osmode"))<br />   (setvar "osmode" 0)(setvar "CMDECHO" 0)<br />   (setq ns (length lss));返回顶点个数<br />   (setq $i 0);循环初始<br />   (setq $j 2);嵌套循环初始<br />   (repeat (- ns 1);循环从第一点到倒数第二点<br />     (repeat (if(= $i 0)(1-(- ns $j))(- ns $j));循环到第一点(首点除外)<br />       (setq pt1(nth $i lss));0<br />       (setq pt2(nth (1+ $i) lss));1<br />       (setq pt3(nth $j lss));2<br />       (setq pt4(nth (if(=(1+ $j)ns)0(1+ $j)) lss));3（超过最后一个点跳到第一点）<br />       (setq jiaodian(inters pt1 pt2 pt3 pt4));判断线段相交<br />       (if jiaodian(command "CIRCLE" jiaodian rrno1));画圆<br />       (if jiaodian(setq nn(1+ nn)));计数<br />       (setq $j (1+ $j))<br />     )<br />     (setq $i (1+ $i))<br />     (setq $j (+ 2 $i))<br />   )<br />   (setvar "osmode" os)<br />   (princ "\n共找到") (princ nn)(princ "个自相交点。")<br />   (prin1)<br />   )<br /> (prompt<br />   "\n******* zjhy[自交画圆]命令加载完成！*******------tryhi----2015-9-10"<br /> )(prin1)<br /> ;;返回多段线顶点表          <br />   (defun Vertexs (s1 / lst);<br />     (setq  lst (entget s1)<br />       lst (vl-remove-if-not '(lambda (x) (= (car x) 10)) lst)<br />       lst (mapcar 'cdr lst)<br />     )<br />   )<br /> ;;                  实型数输入格式化                           <br /> (defun ureal (bit kwd msg def / inp)<br />   (if def<br />     (setq msg (strcat "\n" msg "<" (rtos def 2) ">: ") bit (* 2 (fix (/ bit 2))))<br />     (setq msg (strcat "\n" msg ": "))<br />   )<br />   (initget bit kwd)<br />   (setq inp (getreal msg))<br />   (if inp inp def)<br /> )<br />

479274135

海哥  厉害  顶顶顶  过来学习下

ketxu

You havn't checked  segment is a arc curve case

高大宝

谢谢楼主的分享，我把他转换为C#代码试试看

j15tty

谢谢，虽然不是C#，但是做法学会了

434939575

支持原创

dingtiedt

支持一下！

杜阳

支持  原创   源码   

ynhh

感谢大师的分享

pengfei2010

回帖是一种美德！感谢楼主的无私分享 谢谢

pengfei2010

回帖是一种美德！感谢楼主的无私分享 谢谢