在使用连线脚本时报错can't take car of atom：0x78f0a2ed

verweiledoch

在使用站内大佬的连线脚本时遇到报错can't take car of atom：0x78f0a2ed

无论是path线还是pathseg都报一样的错，要怎么解决呢

原帖https://bbs.eetop.cn/thread-888538-1-1.html

光非

verweiledoch 发表于 2024-11-15 13:07
layer那一行是已经改过的，服务器上的代码没法复制到帖子里

我试了下你贴出来的脚本，并没有说的这个error，估计是你哪里抄错了，删掉9、10、14、19行，能正常连线并打孔

verweiledoch

使用的skill代码如下

1. procedure( ContInOrder()
   
2. prog( ( OBJ1 OBJ2 obj1 obj2 Vline Hline HW VW HBP VBP xHBP yHBP xHEP yHEP xVBP yVBP xVEP yVEP
   
3.       Space1 Space2 Space3 Space4 LeftDown LeftUp RightUp RightDown TechFile CGroupId
   
4.       MyViaOptions Window Num1 Num2 BigNum SmallNum NEWVIAS)
   
5. 
   
6. OBJ1 = geGetSortedSelectByLine()
   
7. OBJ2 = geGetSortedSelectByLine()
   
8. Setlist = mapcar('list OBJ1 OBJ2)
   
9. F1=car(OBJ1) L1=cadr(OBJ1)
   
10. F2=car(OBJ2) L2=cadr(OBJ2)
    
11. foreach(Set Setlist
    
12. if(caar(Set)~>objType == "pathSeg"
    
13. then obj1 = car(leConvertShapeToPathSeg(leConvertShapeToPolygon( caar(Set))) )
    
14.      dbDeleteObject(caar(Set))
    
15. else obj1 = car(leConvertShapeToPathSeg(leConvertShapeToPolygon( caar(Set))) )
    
16. );
    
17. if(caadr(Set)~>objType == "pathSeg"
    
18. then obj2 = car(leConvertShapeToPathSeg(leConvertShapeToPolygon(caadr(Set))) )
    
19.      dbDeleteObject(caadr(Set))
    
20. else obj2 = car(leConvertShapeToPathSeg(leConvertShapeToPolygon(caadr(Set))) )
    
21. );if   ***IC617 SKILL BUG.Delete extra pathSeg ***
    
22. if(xCoord(obj1~>beginPt)==xCoord(obj1~>endPt) && yCoord(obj2~>beginPt)==yCoord(obj2~>endPt)
    
23. then  Vline = obj1 Hline = obj2);if
    
24. if(xCoord(obj2~>beginPt)==xCoord(obj2~>endPt) && yCoord(obj1~>beginPt)==yCoord(obj1~>endPt)
    
25. then  Vline = obj2 Hline = obj1);if
    
26. 
    
27. HW  = Hline~>width/2  VW  = Vline~>width/2
    
28. HBP = Hline~>beginPt  HEP = Hline~>endPt
    
29. VBP = Vline~>beginPt  VEP = Vline~>endPt
    
30. 
    
31. xHBP=xCoord(HBP) yHBP=yCoord(HBP)
    
32. xHEP=xCoord(HEP) yHEP=yCoord(HEP)
    
33. xVBP=xCoord(VBP) yVBP=yCoord(VBP)
    
34. xVEP=xCoord(VEP) yVEP=yCoord(VEP)
    
35. Space1 = expt((xHBP-xVBP) 2) + expt((yHBP - yVBP) 2)
    
36. Space2 = expt((xHBP-xVEP) 2) + expt((yHBP - yVEP) 2)
    
37. Space3 = expt((xHEP-xVBP) 2) + expt((yHEP - yVBP) 2)
    
38. Space4 = expt((xHEP-xVEP) 2) + expt((yHEP - yVEP) 2)
    
39. 
    
40. cond(
    
41. (min(Space1 Space2 Space3 Space4) == Space1
    
42. dbSetPathSegPoints(Hline list(xVBP-VW yHBP) HEP)
    
43. dbSetPathSegPoints(Vline list(xVBP yHBP-HW) VEP)
    
44. ; println("1")  shape  L
    
45. );
    
46. (min(Space1 Space2 Space3 Space4) == Space2
    
47. dbSetPathSegPoints(Hline list(xVBP-VW yHBP) HEP)
    
48. dbSetPathSegPoints(Vline VBP list(xVEP yHEP+HW))
    
49. ; println("2")  shape  F
    
50. );
    
51. (min(Space1 Space2 Space3 Space4) == Space3
    
52. dbSetPathSegPoints(Hline HBP list(xVBP+VW yHEP))
    
53. dbSetPathSegPoints(Vline list(xVBP yHBP-HW) VEP)
    
54. ; println("3")  shape _|
    
55. );
    
56. (min(Space1 Space2 Space3 Space4) == Space4
    
57. dbSetPathSegPoints(Hline HBP list(xVBP+VW yHEP))
    
58. dbSetPathSegPoints(Vline VBP list(xVEP yHEP+HW))
    
59. ; println("4")  shape  7
    
60. );
    
61. );cond
    
62. ;CorePoint = list(xVBP yHBP)
    
63. LeftDown =list(xVBP-VW yHBP-HW)  LeftUp =list(xVBP-VW yHBP+HW)  
    
64. RightDown=list(xVBP+VW yHBP-HW)  RightUp=list(xVBP+VW yHBP+HW)
    
65. 
    
66. TechFile = techGetTechFile(geGetEditRep())
    
67. CGroupId = cstFindConstraintGroupIn(TechFile "virtuosoDefaultSetup")
    
68. MyViaOptions = viaGetViaOptions(CGroupId)
    
69. MyViaOptions~>automatic~>minNumCuts= 2
    
70. Window = deGetCellView()
    
71. NEWVIAS = viaGenerateViasInArea(Window list(LeftDown LeftUp RightUp RightDown) MyViaOptions)
    
72. /*************Delete extra Vias***********/
    
73.   BigNum = max(MetalLayerNumber(obj1~>layerName) MetalLayerNumber(obj2~>layerName))
    
74. SmallNum = min(MetalLayerNumber(obj1~>layerName) MetalLayerNumber(obj2~>layerName))
    
75. 
    
76. for(j 0 j=length(NEWVIAS)
    
77. if(setof(x nth(j NEWVIAS)~>viaHeader~>master~>shapes~>layerName
    
78.          MetalLayerNumber(x)<SmallNum-1||MetalLayerNumber(x)>BigNum+1);setof
    
79. then dbDeleteObject(nth(j NEWVIAS))
    
80. );if
    
81. );for
    
82. /***********Delete extra Vias************/
    
83. );foreach
    
84. );let
    
85. );procedure
    
86. 
    
87. /**********Number***********/
    
88. procedure(MetalLayerNumber( MetalLayerName )
    
89. let((MetalList MetalNum)
    
90. MetalList=list("ACT" "GATE" "CT" "M1" "M2" "MV1" "TV" "TM3" )
    
91. for(i 1 length(MetalList)
    
92. if(nth(i-1 MetalList)== MetalLayerName
    
93. then
    
94. MetalNum=i);if
    
95. );for
    
96. MetalNum
    
97. );let
    
98. );proc
    
99. 
    
100. 
     
101. 
     
102. 
     
103. 
     
104. 
     

复制代码

光非

把原帖的前几楼都看下

verweiledoch

光非 发表于 2024-11-15 10:45
把原帖的前几楼都看下

原楼主的回复都已经看过了

光非

verweiledoch 发表于 2024-11-15 11:28
原楼主的回复都已经看过了

那你里面这个layer的层次也都没有改动啊，你这是更新后的？更新的是在101楼

verweiledoch

layer那一行是已经改过的，服务器上的代码没法复制到帖子里