设为首页收藏本站
开启辅助访问 切换到宽版

Cadence Skill 论坛

 找回密码
 立即注册

QQ登录

只需一步，快速开始

搜索
Cadence Skill 论坛»首页 › 初学乐园 › Skill教程 › 谁有90度检查的源码
12下一页
返回列表 发新帖
查看: 918|回复: 11

[求助] 谁有90度检查的源码

[复制链接]
发表于 2025-4-29 09:51:06 | 显示全部楼层 |阅读模式
谁有90度检查的源码
回复

使用道具 举报

发表于 2025-5-6 14:56:17 | 显示全部楼层

回帖奖励 +10 SKILL币

我也很关心
回复 支持 反对

使用道具 举报

发表于 2025-5-9 17:06:52 | 显示全部楼层
  1. ;余弦函数求角度，再反余弦求度数
  2. degree = axlRadToDeg(acos((LenA*LenA+LenB*LenB-LenC*LenC)/(2*LenA*LenB)))
复制代码

评分

参与人数 1SKILL币 +10 收起 理由
xieeyawen + 10

查看全部评分

回复 支持 反对

使用道具 举报

 楼主| 发表于 2025-5-12 08:44:40 | 显示全部楼层
vivienluo 发表于 2025-5-9 17:06

原来如此，感谢大佬解惑
回复 支持 反对

使用道具 举报

 楼主| 发表于 2025-5-15 16:40:42 | 显示全部楼层
本帖最后由 xieeyawen 于 2025-5-29 16:49 编辑
  1. 见楼下
复制代码
回复 支持 反对

使用道具 举报

 楼主| 发表于 2025-5-15 17:17:00 | 显示全部楼层
yonglee9x 发表于 2025-5-6 14:56
我也很关心

看楼下我贴了代码，但是可能功能不是特别好，代码水平有限。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2025-5-15 17:18:28 | 显示全部楼层
vivienluo 发表于 2025-5-9 17:06

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

使用道具 举报

 楼主| 发表于 2025-5-19 09:19:21 | 显示全部楼层
yonglee9x 发表于 2025-5-6 14:56
我也很关心

别人提供的思路：
获取cline seg的长度（axlMPythag），判断是首尾连接后，直接用勾股定理判断，会有一点误差，最长边需要加入误差冗余值（我设置的是0.01），因为小数点计算的时候会有点偏差
回复 支持 反对

使用道具 举报

 楼主| 发表于 2025-5-19 09:20:21 | 显示全部楼层
yonglee9x 发表于 2025-5-6 14:56
我也很关心
  1. axlCmdRegister("cedg9" 'check_etch_degree90 ?cmdType "interactive")
  2. procedure(check_etch_degree90()
  3.                 (setq curVisible9 (axlVisibleGet))  ;保存当前的显示层
  4.     (axlVisibleDesign nil);隐藏显示层
  5.     (axlClearSelSet)
  6.                 prog( ( layername
  7.                        layerlist
  8.                        layername
  9.                        LayerType
  10.                        )
  11.          layerlist = axlGetParam("paramLayerGroup:ETCH")->groupMembers
  12.        
  13.         foreach( layername layerlist LayerType=axlDBGetLayerType(layername)
  14.                                                
  15.                 if(        LayerType != "PLANE"  
  16.                         then
  17.                         sprintf(ss "ETCH/%s" layername)
  18.                         axlVisibleLayer(ss, t)               
  19.                         axlVisibleLayer("PIN/TOP", t)
  20.                         axlVisibleLayer("PIN/BOTTOM", t)
  21.                         axlVisibleLayer("VIA CLASS/TOP", t)
  22.                         axlVisibleUpdate(t)        ))
  23.                         num=0.6
  24.                         c=0
  25.                         i = 0
  26.                        
  27.         interface()
  28.         form_angle = (axlFormCreate (gensym) "./angle.form" `("E" "OUTER") 'Callback  t)
  29.         axlFormDisplay(form_angle)
  30.         axlFormSetField(form_angle , "widths" ,num)
  31.                         );ENDPROG               
  32.                         );ENDprocedure  
  33.                
  34. procedure(numb( )
  35. prog(()       
  36.         axlClearSelSet()
  37.         axlVisibleDesign(nil)
  38.         layerlist = axlGetParam("paramLayerGroup:ETCH")->groupMembers
  39.        
  40. foreach( layername layerlist
  41.         LayerType=axlDBGetLayerType(layername)
  42.                
  43.                 if(        LayerType!="PLANE"  
  44.                         then
  45.                         sprintf(ss "ETCH/%s" layername)
  46.                         axlVisibleLayer(ss, t)
  47.                        
  48.                         axlVisibleLayer("PIN/TOP", t)
  49.                         axlVisibleLayer("PIN/BOTTOM", t)
  50.                         axlVisibleLayer("VIA CLASS/TOP", t)
  51.                         axlVisibleUpdate(t)        )
  52.                         );endforeach
  53.                                
  54.                 num=axlFormGetField(form_angle, "widths")
  55.                 num=atof(num)       
  56.         axlSetFindFilter(?enabled list( "noall" "Clines")  ?onButtons list("noall" "Clines"))
  57.                         axlAddSelectAll()
  58.                         clines=axlGetSelSet()
  59.                        
  60.                                 c1=0
  61.                                 x = nil
  62.                                 i = 0
  63.                                 alllist1=nil
  64.                         foreach(cline  clines
  65.                        
  66.                                         segs=cline->segments
  67.                                         n=length(segs)
  68.                                                
  69.                                 when((n>1)
  70.                                         for(i 1 n-1
  71.                                                 seg1=nthelem(i segs)
  72.                                                 seg2=nthelem(i+1 segs)
  73.                                                                
  74.                                                 wid1=seg1->width
  75.                                                 wid2=times(wid1 num)
  76.                                                                
  77.                                                 start1=nthelem(1 seg1->startEnd)
  78.                                                 end1=nthelem(2 seg1->startEnd)
  79.                                                 end2=nthelem(2 seg2->startEnd)
  80.                                                                
  81.                                                 len1=axlDistance(start1 end1)
  82.                                                 len2=axlDistance(end1 end2)
  83.                                                                        
  84.                                         when((len1>wid2)&&(len2>wid2)               
  85.                                                         x1=nthelem(1 start1)
  86.                                                         y1=nthelem(2 start1)
  87.                                                         x2=nthelem(1 end1)
  88.                                                         y2=nthelem(2 end1)
  89.                                                         x3=nthelem(1 end2)
  90.                                                         y3=nthelem(2 end2)
  91.                         if((expt((x1-x2) 2)+expt((y1-y2) 2)+expt((x3-x2) 2)+expt((y3-y2) 2)>=expt((x3-x1) 2)+expt((y3-y1) 2))
  92.                                                         then
  93.                                                         axlHighlightObject(seg1 nil)
  94.                                                         axlHighlightObject(seg2 nil)       
  95.                             layers=seg1->layer
  96.                                 alllist1=append1(alllist1 list(layers end1))
  97.                                
  98.                                         c1++)
  99.                                         );endwhen
  100.                                         )
  101.                                         ));endforeach

  103.         axlFormSetField(form_angle , "total_count" ,c1)
  104.         axlFormSetField(form_angle , "nonce" ,i)
  105.         axlClearSelSet()                                   
  106.         )
  107.         )               
  108. ;*****************************************               
  109. procedure(one_count()
  110. prog(()
  111.        
  112. if((axlFormGetField(form_angle, "check_1")==t)&&(axlFormGetField(form_angle, "check_2")==t) then
  113.         alllist=append(alllist1 alllist2)
  114.         c=c1+c2
  115.         else
  116. if(axlFormGetField(form_angle, "check_1")==t  then
  117.         alllist=alllist1
  118.         c=c1
  119.         else
  120. if(axlFormGetField(form_angle, "check_2")==t  then
  121.         alllist=alllist2
  122.         c=c2
  123.         )))
  124.         axlVisibleDesign(nil)
  125.         alist=nthelem(i alllist)
  126.         cpoint=nthelem(2 alist)
  127.         llayer=nthelem(1 alist)
  128.        
  129.                 xx1 = car(cpoint)
  130.                 yy1 = cadr(cpoint)
  131.                 axlVisibleLayer("PIN/TOP", t)
  132.                 axlVisibleLayer("PIN/BOTTOM", t)
  133.                 axlVisibleLayer("VIA CLASS/TOP", t)
  134.                 axlVisibleLayer(llayer, t)
  135.                
  136.                 pcbunit = car(axlDBGetDesignUnits())
  137. if(("millimeters" == pcbunit)
  138.                 then
  139.                
  140.                 xx2 = xx1+1.27
  141.                 yy2 = yy1+1.27
  142.                 xx1 = xx1-1.27
  143.                 yy1 = yy1-1.27
  144.         axlWindowBoxSet( list(xx1:yy1 xx2:yy2))       
  145. else   
  146.                 xx2 = xx1+50
  147.                 yy2 = yy1+50
  148.                 xx1 = xx1-50
  149.                 yy1 = yy1-50
  150.         axlWindowBoxSet( list(xx1:yy1 xx2:yy2))
  151.        
  152.         axlClearSelSet()
  153.         )))
  154. ;******************************************       
  155.        
  156.         defun(interface ()       
  157.         FORMFILE_90angle = outfile("./angle90.form")       
  158.        
  159.           fprintf(FORMFILE_90angle "FILE_TYPE=FORM_DEFN VERSION=2\n")      
  160.     fprintf(FORMFILE_90angle "FORM\n")                                 
  161.     fprintf(FORMFILE_90angle "FIXED\n")                                 
  162.     fprintf(FORMFILE_90angle "PORT 23 11\n")                        
  163.     fprintf(FORMFILE_90angle "HEADER "Check Right Angle"\n")
  164.     fprintf(FORMFILE_90angle "\n")     
  165.     fprintf(FORMFILE_90angle "TILE\n")   
  166.        
  167.           fprintf(FORMFILE_90angle "GROUP "check list"blue_a\n")
  168.           fprintf(FORMFILE_90angle "GLOC 1 0\n")           
  169.           fprintf(FORMFILE_90angle "GSIZE 22 10\n")         
  170.           fprintf(FORMFILE_90angle "ENDGROUP\n")  
  171.        
  172.           fprintf(FORMFILE_90angle "FIELD check_1\n")      
  173.     fprintf(FORMFILE_90angle "FLOC 2 2\n")
  174.     fprintf(FORMFILE_90angle "CHECKLIST "right angle"\n")  
  175.     fprintf(FORMFILE_90angle "ENDFIELD\n")
  176.        
  177.           fprintf(FORMFILE_90angle "FIELD check_2\n")      
  178.     fprintf(FORMFILE_90angle "FLOC 2 4\n")
  179.     fprintf(FORMFILE_90angle "CHECKLIST "small corner"\n")  
  180.     fprintf(FORMFILE_90angle "ENDFIELD\n")
  181.        
  182.           fprintf(FORMFILE_90angle "FIELD bmpos1\n")
  183.           fprintf(FORMFILE_90angle "TLOC 16 2\n")
  184.           fprintf(FORMFILE_90angle "THUMBNAIL"d:/os1.bmp" \n")
  185.           fprintf(FORMFILE_90angle "FSIZE 2 2\n" )
  186.           fprintf(FORMFILE_90angle "ENDFIELD\n\n")
  187.        
  188.           fprintf(FORMFILE_90angle "FIELD bmpos2\n")
  189.           fprintf(FORMFILE_90angle "TLOC 16 4\n")
  190.           fprintf(FORMFILE_90angle "THUMBNAIL"d:/os2.bmp" \n")
  191.           fprintf(FORMFILE_90angle "FSIZE 2 2\n" )
  192.           fprintf(FORMFILE_90angle "ENDFIELD\n\n")
  193.        
  194.        
  195.           fprintf(FORMFILE_90angle "TEXT "total:" \n")
  196.     fprintf(FORMFILE_90angle "TLOC  1 11\n")            
  197.     fprintf(FORMFILE_90angle "ENDTEXT\n\n")
  198.        
  199.           fprintf(FORMFILE_90angle "TEXT "currently:\n")
  200.     fprintf(FORMFILE_90angle "TLOC  11 11\n")            
  201.     fprintf(FORMFILE_90angle "ENDTEXT\n\n")
  202.    
  203.        
  204.           fprintf(FORMFILE_90angle "TEXT " " total_count\n")
  205.           fprintf(FORMFILE_90angle "TLOC 5 11\n")
  206.           fprintf(FORMFILE_90angle "STRFILLIN 4 5\n")
  207.           fprintf(FORMFILE_90angle "ENDTEXT\n")
  208.                
  209.     fprintf(FORMFILE_90angle "TEXT " " nonce\n")
  210.                 fprintf(FORMFILE_90angle "TLOC 18 11\n")
  211.                 fprintf(FORMFILE_90angle "STRFILLIN 4 5\n")
  212.                 fprintf(FORMFILE_90angle "ENDTEXT\n")
  213.                        
  214.                 fprintf(FORMFILE_90angle "TEXT " " widths\n")
  215.                 fprintf(FORMFILE_90angle "TLOC 10 7\n")
  216.                 fprintf(FORMFILE_90angle "STRFILLIN 3 3\n")
  217.                 fprintf(FORMFILE_90angle "ENDTEXT\n")
  218.                
  219.           fprintf(FORMFILE_90angle "FIELD up\n")  
  220.     fprintf(FORMFILE_90angle "FLOC 1 15\n")
  221.     fprintf(FORMFILE_90angle "MENUBUTTON "prev.." 4 3\n")  
  222.     fprintf(FORMFILE_90angle "ENDFIELD\n")
  223.        
  224.           fprintf(FORMFILE_90angle "FIELD next_to\n")      
  225.     fprintf(FORMFILE_90angle "FLOC 10 15\n")
  226.     fprintf(FORMFILE_90angle "MENUBUTTON "next.." 4 3\n")  
  227.     fprintf(FORMFILE_90angle "ENDFIELD\n")
  228.    
  229.     fprintf(FORMFILE_90angle "FIELD Done\n")      
  230.     fprintf(FORMFILE_90angle "FLOC 17 15\n")
  231.     fprintf(FORMFILE_90angle "MENUBUTTON "Bye" 4 3\n")  
  232.     fprintf(FORMFILE_90angle "ENDFIELD\n")
  233.        
  234.           fprintf(FORMFILE_90angle "FIELD check\n")      
  235.     fprintf(FORMFILE_90angle "FLOC 15 7\n")
  236.     fprintf(FORMFILE_90angle "MENUBUTTON "check" 3 3\n")  
  237.     fprintf(FORMFILE_90angle "ENDFIELD\n")
  238.        
  239.           fprintf(FORMFILE_90angle "\n")
  240.     fprintf(FORMFILE_90angle "ENDTILE\n")
  241.     fprintf(FORMFILE_90angle "\n")
  242.     fprintf(FORMFILE_90angle "ENDFORM\n")
  243.        
  244.     close(FORMFILE_90angle)
  245.     deleteFile("angle90.form")
  246.        
  247. );endprocedure

  249.     (procedure  Callback(form_angle)  
  250.     (prog (cpoint)        
  251.     case( form_angle->curField      
  252.             
  253.                         ("up"
  254.                         i--
  255.                         if((i<1) then
  256.                         i=c)
  257.                         one_count()
  258.                         axlFormSetField(form_angle , "nonce" ,i)
  259.                        
  260.                         if((i<1)
  261.                         i=c)
  262.                         t)
  263.                        
  264.                         ("next_to"
  265.                         i++
  266.                         if((i>c)
  267.                         i=1)
  268.             one_count()
  269.                         axlFormSetField(form_angle , "nonce" ,i)
  270.                         t)
  271.                        
  272.                         ("Done"
  273.                         (axlVisibleSet curVisible9)  ;还原保存的显示层
  274.       (axlVisibleUpdate t);还原保存的显示层
  275.       axlFormClose(form_angle)
  276.                         t)                       
  277.                        
  278.                        
  279.                         ("check"
  280.                        
  281. if((axlFormGetField(form_angle, "check_1")==t)&&(axlFormGetField(form_angle, "check_2")==t)
  282.             then
  283.                         numb()
  284.                         shortline()
  285.                         c=c1+c2
  286.                         axlFormSetField(form_angle , "total_count" ,c1+c2)
  287.                 else
  288. if(axlFormGetField(form_angle, "check_1")==t  then
  289.                         numb()
  290.                         c=c1
  291.                 else       
  292. if(axlFormGetField(form_angle, "check_2")==t  then
  293.                         shortline()
  294.                         c=c2
  295.                         )
  296.                 t)))
  297.                        
  298.                 )))       
  299.                
  300.                
  301. procedure(shortline()
  302. prog( (m
  303.        num
  304.        layerlist
  305.        layername
  306.        LayerType
  307.        clines
  308.        cline
  309.        segs

  311.        n
  312.        i
  313.        ss
  314.        end1 end2 end3
  315.        seg1 seg2 seg3 wid1 wid2 len2
  316.        x1 x2 x3 x4 y1 y2 y3 y4
  317.        start1
  318.       
  319.        )                       
  320. num=axlFormGetField(form_angle, "widths")
  321. num=atof(num)
  322.         axlVisibleDesign(nil)
  323.         layerlist = axlGetParam("paramLayerGroup:ETCH")->groupMembers
  324.         foreach( layername layerlist
  325.                 LayerType=axlDBGetLayerType(layername)
  326.                
  327.                 if(        LayerType!="PLANE"  
  328.                         then
  329.                         sprintf(ss "ETCH/%s" layername)
  330.                         axlVisibleLayer(ss, t)
  331.                         axlVisibleLayer("PIN/TOP", t)
  332.                         axlVisibleLayer("PIN/BOTTOM", t)
  333.                         axlVisibleLayer("VIA CLASS/TOP", t)
  334.                         axlVisibleUpdate(t)        ))
  335.         axlSetFindFilter(?enabled list( "noall" "Clines")  ?onButtons list("noall" "Clines"))
  336.                 axlAddSelectAll()
  337.                 clines=axlGetSelSet()
  338.                         c2=0
  339.                         i=0       
  340.                         alllist2=nil
  341.                 foreach(cline  clines
  342.                                         segs=cline->segments
  343.                                         n=length(segs)
  344.                                                
  345.                                 when((n>3)
  346.                                         for(i 2 n-2
  347.                                                         seg1=nthelem(i segs)
  348.                                                         seg2=nthelem(i+1 segs)
  349.                                                         seg3=nthelem(i+2 segs)
  350.                                                        
  351.                                                         wid1=seg1->width
  352.                                                         wid2=times(wid1 num)
  353.                                                                
  354.                                                         start1=nthelem(1 seg1->startEnd)
  355.                                                         end1=nthelem(2 seg1->startEnd)
  356.                                                         end2=nthelem(2 seg2->startEnd)
  357.                                                         end3=nthelem(2 seg3->startEnd)
  358.                                                        
  359.                                                         ;len1=axlDistance(start1 end1)
  360.                                                         len2=axlDistance(end1 end2)
  361.                                                         ;len3=axlDistance(end2 end3)
  362.                                                         ;len2<wid2
  363.                                                        
  364.                                                         x1=nthelem(1 start1)
  365.                                                         y1=nthelem(2 start1)
  366.                                                         x2=nthelem(1 end1)
  367.                                                         y2=nthelem(2 end1)
  368.                                                         x3=nthelem(1 end2)
  369.                                                         y3=nthelem(2 end2)
  370.                                                         y4=nthelem(2 end3)
  371.                                                         x4=nthelem(1 end3)
  372.                                                        
  373. m=((x2-x1)*(x4-x3)+(y2-y1)*(y4-y3))/(sqrt(expt((x2-x1) 2)+expt((y2-y1) 2))*sqrt(expt((x4-x3) 2)+expt((y4-y3) 2)))
  374.                        
  375. if(((cos(3.1415926*91/180)<m)&&(m<cos(3.1415926*89/180)))&&(len2<wid2)
  376.                                        
  377.                                                         then
  378.                                                         axlHighlightObject(seg1 nil)
  379.                                                         axlHighlightObject(seg2 nil)
  380.                                                         axlHighlightObject(seg3 nil)                                                       
  381.                                         layers=seg2->layer
  382.                                         alllist2=append1(alllist2 list(layers end1))
  383.                                        
  384.                                         c2++)
  385.                                         ))       
  386.                                         );endforeach               
  387.        
  388.     axlFormSetField(form_angle , "total_count" ,c2)
  389.         axlFormSetField(form_angle , "nonce" ,i)
  390.         axlClearSelSet()
  391.                         );ENDPROG               
  392.                         );ENDprocedure
复制代码
回复 支持 反对

使用道具 举报

 楼主| 发表于 2025-5-19 09:21:09 | 显示全部楼层
xieeyawen 发表于 2025-5-19 09:20

找到别人写的代码，使用还不错
回复 支持 反对

使用道具 举报

下一页 »
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|小黑屋|手机版|网站地图|Cadence Skill 论坛 ( 蜀ICP备13024417号 )

GMT+8, 2025-11-4 13:45 , Processed in 0.502623 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表