请教关于两条相交的metal，使用脚本重叠区域的设置

西瓜土豆 · 发表于 2023-6-6 11:38:16

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

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

x

之前在论坛里面搬运的别人的脚本，目前有点自己的小想法，想让修边重叠区域的面积为1/4（使2根metal正好对准对方的中点），这样手动打孔放置的时候可以放置到中心点，不用再肉眼对准，希望有大神可以指点更改的方法，谢谢~

登录/注册后可看大图

procedure(Metal_X_Metal()
let((OBJ1 OBJ2 obj1 obj2 Vline Hline HW VW HBP VBP xHBP yHEP xVBP yVBP xVEP yVEP
   Space1 Space2 Space3 Space4 )

OBJ1=geGetSortedSelectByLine()
OBJ2=geGetSortedSelectByLine()
Setlist=mapcar('list OBJ1 OBJ2)
foreach(Set Setlist
  if(caar(Set)~>objType=="pathSeg"
   then obj1 =car(leConvertShapeToPathSeg(leConvertShapeToPolygon(caar(Set))))
   dbDeleteObject(caar(Set))
   else obj1 =car(leConvertShapeToPathSeg(leConvertShapeToPolygon(caar(Set))))
)

  if(caadr(Set)~>objType=="pathSeg"
   then obj2 =car(leConvertShapeToPathSeg(leConvertShapeToPolygon(caadr(Set))))
   dbDeleteObject(caadr(Set))
   else obj2 =car(leConvertShapeToPathSeg(leConvertShapeToPolygon(caadr(Set))))
   )
  if(xCoord(obj1~>beginPt)==xCoord(obj1~>endPt)&&yCoord(obj2~>beginPt)==yCoord(obj2~>endPt)
  then Vline=obj1 Hline=obj2)
  if(xCoord(obj2~>beginPt)==xCoord(obj2~>endPt)&&yCoord(obj1~>beginPt)==yCoord(obj1~>endPt)
  then Vline=obj2 Hline=obj1)

HW=Hline~>width/2 VW=Vline~>width/2
HBP=Hline~>beginPt  HEP=Hline~>endPt
VBP=Vline~>beginPt  VEP=Vline~>endPt

xHBP=xCoord(HBP)  yHBP=yCoord(HBP)
xHEP=xCoord(HEP)  yHEP=yCoord(HEP)
xVBP=xCoord(VBP)  yVBP=yCoord(VBP)
xVEP=xCoord(VEP)  yVEP=yCoord(VEP)

Space1=expt((xHBP-xVBP) 2)+expt((yHBP-yVBP) 2)
Space2=expt((xHBP-xVEP) 2)+expt((yHBP-yVEP) 2)
Space3=expt((xHEP-xVBP) 2)+expt((yHEP-yVBP) 2)
Space4=expt((xHEP-xVEP) 2)+expt((yHEP-yVEP) 2)

cond(
(min(Space1 Space2 Space3 Space4)==Space1
dbSetPathSegPoints(Hline list(xVBP-VW yHBP) HEP)
dbSetPathSegPoints(Vline list(xVBP yHBP-HW) VEP)
)
(min(Space1 Space2 Space3 Space4)==Space2
dbSetPathSegPoints(Hline list(xVBP-VW yHBP) HEP)
dbSetPathSegPoints(Vline VBP list(xVEP yHEP+HW))
)
(min(Space1 Space2 Space3 Space4)==Space3
dbSetPathSegPoints(Hline HBP list(xVBP+VW yHEP))
dbSetPathSegPoints(Vline list(xVBP yHBP-HW) VEP)
)
(min(Space1 Space2 Space3 Space4)==Space4
dbSetPathSegPoints(Hline HBP list(xVBP+VW yHEP))
dbSetPathSegPoints(Vline VBP list(xVEP yHEP+HW))
))
CorePoint=list(xVBP yHBP)
LeftDown=list(xVBP-VW yHBP-HW) LeftUp=list(xVBP-VW yHBP+HW)
RightDown=list(xVBP+VW yHBP-HW) RightUp=list(xVBP+VW yHBP+HW)
)
)
)