谁有90度检查的源码

xieeyawen

谁有90度检查的源码

yonglee9x

我也很关心

vivienluo

1. ;余弦函数求角度，再反余弦求度数
   
2. degree = axlRadToDeg(acos((LenA*LenA+LenB*LenB-LenC*LenC)/(2*LenA*LenB)))

复制代码

xieeyawen

vivienluo 发表于 2025-5-9 17:06

原来如此，感谢大佬解惑

xieeyawen

1. axlCmdRegister("cedg9" 'check_etch_degree90 ?cmdType "interactive")
   
2. procedure(check_etch_degree90()
   
3. let((
   
4.     l_clines
   
5.     log_file
   
6.     fileport
   
7.     clines
   
8.     a
   
9.     x1 x2 y1 y2
   
10.     lista
    
11.     slop
    
12.     s0 e0
    
13.     temp_b
    
14.     temp_e
    
15.                 )
    
16.                 axlSetFindFilter(?enabled '(noall clinesegs) ?onButtons        '(noall clinesegs))
    
17.                 l_clines=axlGetSelSet(axlAddSelectAll())
    
18.                 ;l_clines=axlGetSelSet(axlSingleSelectBox())
    
19.                 axlClearSelSet()
    
20.                 log_file = "./check_etch_degree.log"
    
21.                 fileport = outfile(log_file)   ;打开端口，新建log_file文件
    
22.                 temp_e=nil
    
23.                
    
24.                 temp_b=0
    
25.                 foreach(clines l_clines
    
26.                        a=clines->startEnd
    
27.                        x1=caar(a)
    
28.                        y1=cadar(a)
    
29.                        x2=caadr(a)
    
30.                        y2=cadadr(a) ;x1,y1,x2,y2为线的起点和终点坐标
    
31.                        s0=car(a) ;线的起点坐标
    
32.                        e0=cadr(a);线的终点坐标
    
33.                        slop=axlLineSlope(clines->startEnd)        ;斜率          
    
34.                        if(slop
    
35.                                then
    
36.              a = axlRadToDeg(atan(axlLineSlope(clines->startEnd))) ;获得每根线的角度值，以竖线为90度，倾斜到左边的线角度为-90到0度之间，倾斜到右边的线角度为0到90度之间，没有-90度这个值
    
37.                                else
    
38.                                 a = 90.00 ;斜率为nil就是90度
    
39.                                        );endif
    
40.                        lista=nil
    
41.                        lista=append1(lista ((x1+x2)/2))
    
42.                        lista=append1(lista ((y1+y2)/2)) ;线的中间左边
    
43.                        if(s0 == temp_e ;线的起点和前一段线的终点一致，则进行角度比较
    
44.                                then
    
45.                                cond(
    
46. 
    
47.                                ((a>0 && temp_b>=0) && ((a-temp_b)<=90.00) && ((a-temp_b)>0.00)
    
48.                                        fprintf(fileport "Degree : %.2f\t\t%L\t\t%s\n" a-temp_b lista clines~>net~>name) ;输出当前线和前一段线的夹角值，输出当前线的网络名及坐标
    
49.                                        axlHighlightObject(clines))        ;高亮当前线
    
50.                                ((a>=0 && temp_b>0) && ((temp_b-a)<=90.00) && ((temp_b-a)>0.00)
    
51.                                        fprintf(fileport "Degree : %.2f\t\t%L\t\t%s\n" temp_b-a lista clines~>net~>name)
    
52.                                        axlHighlightObject(clines))                                      
    
53.                                ((a>=0 && temp_b<=0) && ((180.00-a+temp_b)<=90.00) && ((180.00-a+temp_b)>0.00)
    
54.                                        fprintf(fileport "Degree : %.2f\t\t%L\t\t%s\n" 180.00-a+temp_b lista clines~>net~>name)
    
55.                                        axlHighlightObject(clines))                                              
    
56.                                ((a>0 && temp_b<=0) && ((a-temp_b)<=90.00) && ((a-temp_b)>0.00)
    
57.                                        fprintf(fileport "Degree : %.2f\t\t%L\t\t%s\n" a-temp_b lista clines~>net~>name)
    
58.                                        axlHighlightObject(clines))
    
59.                                ((a<0 && temp_b<=0) && ((temp_b-a)<=90.00) && ((temp_b-a)>0.00)
    
60.                                        fprintf(fileport "Degree : %.2f\t\t%L\t\t%s\n" temp_b-a lista clines~>net~>name)
    
61.                                        axlHighlightObject(clines))                                                                                     
    
62.                                ((a<=0 && temp_b<0) && ((a-temp_b)<=90.00) && ((a-temp_b)>0.00)
    
63.                                        fprintf(fileport "Degree : %.2f\t\t%L\t\t%s\n" a-temp_b lista clines~>net~>name)
    
64.                                        axlHighlightObject(clines))                                              
    
65.                                       
    
66. 
    
67.                                                                                                                                        
    
68.                                        );endcond
    
69.                                        );endif
    
70.                               
    
71.                                temp_b=a ;保存当前线的角度，用于下次的比较
    
72.                                temp_e=e0 ;保存当前线的终点坐标，用于下次的比较
    
73.                                );endforeach                     
    
74.                   close(fileport)
    
75.                         axlUIViewFileCreate(log_file "check_etch_degree.log" nil)
    
76.                         deleteFile(fileport)
    
77.         );endlet
    
78.         );procedure
    
79. 
    
80. 
    

复制代码

xieeyawen

yonglee9x 发表于 2025-5-6 14:56
我也很关心

看楼下我贴了代码，但是可能功能不是特别好，代码水平有限。

xieeyawen

vivienluo 发表于 2025-5-9 17:06

还是不会的，不过我自己在楼下写了一个，你看下有没有好办法优化，有些找不出来，另外有些45度的报出来，但是其实是没问题的