求點擊 兩條cline, 使他們的延長線相交, 生成一條線

mmmmyuitian

主要用於快捷修改十度走線的時候,  如圖所示

chuankay

貌似很厉害！！

vivienluo

主要是如何判断两条线段的交点位置。。。。

vivienluo

楼主是否需要该功能。


代码存在一些不足，由于是浮点运算，计算的结果存在一定的误差。

下面贴出源代码。代码没经过优化，如果需要的话，你自己可以修改修改。

1. axlCmdRegister( "cline_intsec" 'cline_intsec ?cmdType "interactive")
   
2. 
   
3. defun(cline_intsec ()
   
4.         cline1 = nil
   
5.         axlClearSelSet()
   
6.         axlSetFindFilter( ?enabled list("noall" "CLINESEGS") ?onButtons list("noall" "CLINESEGS"))
   
7.         axlSingleSelectPoint()
   
8.         cline1 = car(axlGetSelSet())
   
9.         axlClearSelSet()
   
10.         axlHighlightObject(cline1)
    
11.         when(cline1
    
12.                 axlSetFindFilter( ?enabled list("noall" "CLINESEGS") ?onButtons list("noall" "CLINESEGS"))
    
13.                 axlSingleSelectPoint()
    
14.                 cline2 = car(axlGetSelSet())
    
15.                 axlClearSelSet()
    
16.                 axlDehighlightObject(cline1)
    
17.         )
    
18.         when(cline1 && cline2 && cline1->layer == cline2->layer
    
19.                 point = axl_ol_ol2(cline1->startEnd cline2->startEnd)
    
20.                 a = car(cline1->startEnd)
    
21.                 b = cadr(cline1->startEnd)
    
22.                 c = car(cline2->startEnd)
    
23.                 d = cadr(cline2->startEnd)
    
24.                 crossP = cross(a b c d)
    
25.                 newLineOne = list(crossP car(point))
    
26.                 newLineTwo = list(crossP cadr(point))
    
27.                 axlDBCreateLine(newLineOne cline1->width cline1->layer )
    
28.                 axlDBCreateLine(newLineTwo cline2->width cline2->layer )
    
29.         )
    
30. );end defun
    
31. 
    
32. defun(cross (a b c d)
    
33.         p = nil
    
34.     denominator = (yCoord(b) - yCoord(a))*(xCoord(d) - xCoord(c)) - (xCoord(a) - xCoord(b))*(yCoord(c) - yCoord(d));  
    
35.     when(denominator != 0  
    
36.                p = t  
    
37.     )
    
38.    when(p   
    
39.     x =  ( (xCoord(b) - xCoord(a)) * (xCoord(d) - xCoord(c)) * (yCoord(c) - yCoord(a)) + (yCoord(b) - yCoord(a)) * (xCoord(d) - xCoord(c)) * xCoord(a) - (yCoord(d) - yCoord(c)) * (xCoord(b) - xCoord(a)) * xCoord(c) ) / denominator ;  
    
40.     y = -( (yCoord(b) - yCoord(a)) * (yCoord(d) - yCoord(c)) * (xCoord(c) - xCoord(a)) + (xCoord(b) - xCoord(a)) * (yCoord(d) - yCoord(c)) * yCoord(a) - (xCoord(d) - xCoord(c)) * (yCoord(b) - yCoord(a)) * yCoord(c) ) / denominator;  
    
41.     p = list(x y)
    
42.     );end when
    
43.          p
    
44. );end defun

复制代码

mmmmyuitian

謝謝 非常感謝版主 這樣很好了  我下來 好好學習一下

jackzz

vivi斑斑 好生厉害

笨笨猪

感谢分享。。。。

duan

704624688@qq.com

似梦似醒

感谢分享。。。。

limeitian101

好生厉害···········