设为首页收藏本站
在线咨询
eetop公众号 创芯大讲堂 创芯人才网
切换到宽版

EETOP 创芯网论坛 (原名：电子顶级开发网)

手机号码，快捷登录

手机号码，快捷登录

找回密码

  登录   注册  

快捷导航
创芯云服务  : 创芯大讲堂  | 创芯人才网 | 数字IC职业培训  EETOP诚邀线上IC培训讲师!
搜帖子
EETOP 创芯网论坛 (原名：电子顶级开发网)»论坛 › IC 设计及制造（半导体、微电子） › Analog Layout（版图） › Layout讨论区 › 连接两条或两组垂直的线
返回列表 发新帖
查看: 1065|回复: 1

[原创] 连接两条或两组垂直的线

[复制链接]
yangwgtop
发表于 2023-6-11 17:51:49 | 显示全部楼层 |阅读模式

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？注册

x
1）先选两个垂直线头，再命令。
2）先命令，再两次by line 选择两组垂直线。靠近by line的端改变。
初始连线，如果已连接，就去线头。未连接，就连接上。




  1. hiSetBindKeys( "layout" list(list("<Key>W" "stretchpath()")))

  3. procedure(stretchpath_tmp1(obj)
  4.         part_s = geGetSelSetFigPoint(obj)
  5.         part_s_s=reverse(part_s)
  6.         obj_xy1=nil
  7.         obj_xy2=nil
  8.         when(obj~>objType == "path" && car(part_s) && !nth(1 part_s)
  9.                 obj_xy1=car(obj~>points)
  10.                 obj_xy2=nth(1 obj~>points)
  11.         );when
  12.         when(obj~>objType == "path" && car(part_s_s) && !nth(1 part_s_s)
  13.                 obj_xy1=car(reverse(obj~>points))
  14.                 obj_xy2=nth(1 reverse(obj~>points))
  15.         );when
  16.         when(obj~>objType == "pathSeg" && car(part_s) && !cadr(part_s)
  17.                 obj_xy1=obj~>beginPt
  18.                 obj_xy2=obj~>endPt
  19.         );when
  20.         when(obj~>objType == "pathSeg" && cadr(part_s) && !car(part_s)
  21.                 obj_xy1=obj~>endPt
  22.                 obj_xy2=obj~>beginPt
  23.         );when
  24. );pro

  26. procedure(stretchpath_tmp2(obj P0)
  27.         obj_xy1=nil
  28.         obj_xy2=nil
  29.         if(obj~>objType == "path" then
  30.                 tmp_obj_xyA=car(obj~>points)
  31.                 tmp_obj_xyB=car(reverse(obj~>points))
  32.                 SpaceA=expt((xCoord(tmp_obj_xyA) - xCoord(P0)) 2) + expt((yCoord(tmp_obj_xyA) - yCoord(P0)) 2)
  33.                 SpaceB=expt((xCoord(tmp_obj_xyB) - xCoord(P0)) 2) + expt((yCoord(tmp_obj_xyB) - yCoord(P0)) 2)
  34.                 if(SpaceA>SpaceB then
  35.                         obj_xy1=tmp_obj_xyB
  36.                         obj_xy2=nth(1 reverse(obj~>points))
  37.                 else
  38.                         obj_xy1=tmp_obj_xyA
  39.                         obj_xy2=nth(1 obj~>points)
  40.                 );if
  41.         else
  42.                 tmp_obj_xyA=obj~>beginPt
  43.                 tmp_obj_xyB=obj~>endPt
  44.                 SpaceA=expt((xCoord(tmp_obj_xyA) - xCoord(P0)) 2) + expt((yCoord(tmp_obj_xyA) - yCoord(P0)) 2)
  45.                 SpaceB=expt((xCoord(tmp_obj_xyB) - xCoord(P0)) 2) + expt((yCoord(tmp_obj_xyB) - yCoord(P0)) 2)
  46.                 if(SpaceA>SpaceB then
  47.                         obj_xy1=tmp_obj_xyB
  48.                         obj_xy2=tmp_obj_xyA
  49.                 else
  50.                         obj_xy1=tmp_obj_xyA
  51.                         obj_xy2=tmp_obj_xyB
  52.                         );if
  53.                 );if
  54. );pro

  56. procedure(stretchpath()
  57. let((cv nets obj obj1 obj2 P2 P1 P0 obj1_xy1 obj1_xy2 obj2_xy1 obj2_xy2
  58. Hline Hline_xy1 Hline_xy2 Hpart_s Vline Vline_xy1 Vline_xy2 Vpart_s
  59. part_s2 part_s1 new_point Htmp_points Htmp_points_s Vtmp_points Vtmp_points_s
  60. obj_xy1 obj_xy2 tmp_obj_xyA tmp_obj_xyB)


  63.         cv = geGetEditCellView()
  64.         nets = geGetSelSet()

  66.         when(length(nets)==0
  67.                 obj_in1 = geGetSortedSelectByLine()
  68.                 P1=hiGetPoint(hiGetCurrentWindow())
  69.                 P1=geWindowToEditPoint(hiGetCurrentWindow(),P1)
  70.                 print(P1)
  71.                 obj_in2 = geGetSortedSelectByLine()
  72.                 P2=hiGetPoint(hiGetCurrentWindow())
  73.                 P2=geWindowToEditPoint(hiGetCurrentWindow(),P2)
  74.                 print(P2)
  75.        
  76.                 netslist = mapcar('list obj_in1 obj_in2)
  77. printf("\n")
  78. print(netslist)

  80.                 foreach(net netslist
  81.                 obj1 = caar(net)
  82.                 stretchpath_tmp2(obj1 P1)
  83.                 obj1_xy1=obj_xy1
  84.                 obj1_xy2=obj_xy2        
  85.                 obj2 = caadr(net)
  86.                 stretchpath_tmp2(obj2 P2)
  87.                 obj2_xy1=obj_xy1
  88.                 obj2_xy2=obj_xy2

  90.                 Hline=nil
  91.                 Vline=nil
  92.                 when(xCoord(obj1_xy1)==xCoord(obj1_xy2) && yCoord(obj2_xy1)==yCoord(obj2_xy2)
  93.                         Hline=obj2
  94.                         Hline_xy1=obj2_xy1
  95.                         Hline_xy2=obj2_xy2
  96.                         Hpart_s=part_s2
  97.                         Vline=obj1
  98.                         Vline_xy1=obj1_xy1
  99.                         Vline_xy2=obj1_xy2
  100.                         Vpart_s=part_s1
  101.                         );when
  102.                 when(yCoord(obj1_xy1)==yCoord(obj1_xy2) && xCoord(obj2_xy1)==xCoord(obj2_xy2)
  103.                         Hline=obj1
  104.                         Hline_xy1=obj1_xy1
  105.                         Hline_xy2=obj1_xy2
  106.                         Hpart_s=part_s1
  107.                         Vline=obj2
  108.                         Vline_xy1=obj2_xy1
  109.                         Vline_xy2=obj2_xy2
  110.                         Vpart_s=part_s2
  111.                         );when

  113.                 if(xCoord(Hline_xy2) < xCoord(Vline_xy1) then
  114.                         s_width=Vline~>width/2
  115.                 else
  116.                         s_width=-(Vline~>width/2)
  117.                 );if
  118.                 new_point=list(xCoord(Vline_xy1)+s_width yCoord(Hline_xy1))
  119.                 if(Hline~>objType == "path" then
  120.                         Htmp_points=Hline~>points
  121.                         Htmp_points_s=reverse(Htmp_points)
  122.                         if(car(Htmp_points)==Hline_xy1 then
  123.                                 Hline~>points=rplaca(Htmp_points new_point)
  124.                         else
  125.                                 Hline~>points=reverse(rplaca(Htmp_points_s new_point))
  126.                         );if
  127.                 else ;objType == "path"
  128.                         if(Hline~>beginPt==Hline_xy1 then
  129.                                 Hline~>beginPt=new_point
  130.                         else
  131.                                 Hline~>endPt=new_point
  132.                         );if
  133.                 );if

  135.                 if(yCoord(Vline_xy2) < yCoord(Hline_xy1) then
  136.                         s_width=Hline~>width/2
  137.                 else
  138.                         s_width=-(Hline~>width/2)
  139.                         );if
  140.                 new_point=list(xCoord(Vline_xy1) yCoord(Hline_xy1)+s_width)
  141.                 if(Vline~>objType == "path" then
  142.                         Vtmp_points=Vline~>points
  143.                         Vtmp_points_s=reverse(Vtmp_points)
  144.                         if(car(Vtmp_points)==Vline_xy1 then
  145.                                 Vline~>points=rplaca(Vtmp_points new_point)
  146.                         else
  147.                                 Vline~>points=reverse(rplaca(Vtmp_points_s new_point))
  148.                         );if
  149.                 else ;objType == "path"
  150.                         if(Vline~>beginPt==Vline_xy1 then
  151.                                 Vline~>beginPt=new_point
  152.                         else
  153.                                 Vline~>endPt=new_point
  154.                                 );if
  155.                         );if
  156.                 );foreach
  157.         );when ==0


  160.         when(length(nets)==2
  161.                 obj1_xy1=nil
  162.                 obj1_xy2=nil
  163.                 obj2_xy1=nil
  164.                 obj2_xy2=nil
  165.                 obj1=nth(0 nets)
  166.                 stretchpath_tmp1(obj1)
  167.                 part_s1=part_s
  168.                 obj1_xy1=obj_xy1
  169.                 obj1_xy2=obj_xy2
  170.                 obj2=nth(1 nets)
  171.                 stretchpath_tmp1(obj2)
  172.                 part_s2=part_s
  173.                 obj2_xy1=obj_xy1
  174.                 obj2_xy2=obj_xy2

  176.                 Hline=nil
  177.                 Vline=nil
  178.                 when(xCoord(obj1_xy1)==xCoord(obj1_xy2) && yCoord(obj2_xy1)==yCoord(obj2_xy2)
  179.                         Hline=obj2
  180.                         Hline_xy1=obj2_xy1
  181.                         Hline_xy2=obj2_xy2
  182.                         Hpart_s=part_s2
  183.                         Vline=obj1
  184.                         Vline_xy1=obj1_xy1
  185.                         Vline_xy2=obj1_xy2
  186.                         Vpart_s=part_s1
  187.                         );when
  188.                 when(yCoord(obj1_xy1)==yCoord(obj1_xy2) && xCoord(obj2_xy1)==xCoord(obj2_xy2)
  189.                         Hline=obj1
  190.                         Hline_xy1=obj1_xy1
  191.                         Hline_xy2=obj1_xy2
  192.                         Hpart_s=part_s1
  193.                         Vline=obj2
  194.                         Vline_xy1=obj2_xy1
  195.                         Vline_xy2=obj2_xy2
  196.                         Vpart_s=part_s2
  197.                         );when

  199.                 if(xCoord(Hline_xy2) < xCoord(Vline_xy1) then
  200.                         s_width=Vline~>width/2
  201.                 else
  202.                         s_width=-(Vline~>width/2)
  203.                 );if
  204.                 new_point=list(xCoord(Vline_xy1)+s_width yCoord(Hline_xy1))
  205.                 if(Hline~>objType == "path" then
  206.                         Htmp_points=Hline~>points
  207.                         Htmp_points_s=reverse(Htmp_points)       
  208.                         if(car(Hpart_s) then
  209.                                 Hline~>points=rplaca(Htmp_points new_point)
  210.                         else;car(Hpart_s)
  211.                                 Hline~>points=reverse(rplaca(Htmp_points_s new_point))
  212.                                 );if
  213.                 else ;objType == "path"
  214.                         if(car(Hpart_s) then
  215.                                 Hline~>beginPt=new_point
  216.                         else;car(Hpart_s)
  217.                                 Hline~>endPt=new_point
  218.                                 );if
  219.                         );if

  221.                 if(yCoord(Vline_xy2) < yCoord(Hline_xy1) then
  222.                         s_width=Hline~>width/2
  223.                 else
  224.                         s_width=-(Hline~>width/2)
  225.                         );if
  226.                 new_point=list(xCoord(Vline_xy1) yCoord(Hline_xy1)+s_width)               
  227.                 if(Vline~>objType == "path" then
  228.                         Vtmp_points=Vline->points
  229.                         Vtmp_points_s=reverse(Vtmp_points)
  230.                         if(car(Vpart_s) then
  231.                                 Vline~>points=rplaca(Vtmp_points new_point)
  232.                         else;car(Vpart_s)
  233.                                 Vline~>points=reverse(rplaca(Vtmp_points_s new_point))
  234.                                 );if
  235.                 else ;objType == "path"
  236.                         if(car(Vpart_s) then
  237.                                 Vline->beginPt=new_point
  238.                         else;car(Hpart_s)
  239.                                 Vline->endPt=new_point
  240.                                 );if
  241.                         );if
  242.         );when ==2
  243. );let
  244. );pro







复制代码
回复

举报

星海
发表于 2023-7-20 09:53:44 | 显示全部楼层
本帖最后由 星海 于 2023-7-20 10:01 编辑

怎么用不了
*Error* eval: undefined function - stretchpath    出现这个错
回复 支持 反对

举报

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

本版积分规则

关闭

站长推荐 上一条 /2 下一条

小黑屋| 关于我们| 联系我们| 在线咨询| 隐私声明| EETOP 创芯网
( 京ICP备:10050787号 京公网安备:11010502037710 )

GMT+8, 2024-4-28 12:21 , Processed in 0.016387 second(s), 6 queries , Gzip On, Redis On.

eetop公众号 创芯大讲堂 创芯人才网
快速回复 返回顶部 返回列表