求助关于AddPinToFloatingWire.il

YuSHL

请教大佬们，我先用schHiCreateWireStubs() create wires to symbol，然后选中wire线再用这个脚本发现没有创建Pin，是在哪出问题呢？

1. /* abAddPinToFloatingWire.il
   
2. 
   
3. Author     A.D.Beckett
   
4. Group      Custom IC (UK), Cadence Design Systems Ltd.
   
5. Language   SKILL
   
6. Date       Dec 02, 2020
   
7. Modified   
   
8. By         
   
9. 
   
10. Add a pin to any selected floating wire. Usage:
    
11. 
    
12. abAddPinToFloatingWire()
    
13. abAddPinToFloatingWire(?direction "input")
    
14. 
    
15. The default is to add inputOutput pins unless the ?direction
    
16. is specified
    
17. 
    
18. ***************************************************
    
19. 
    
20. SCCS Info: @(#) abAddPinToFloatingWire.il 12/02/20.10:59:59 1.1
    
21. 
    
22. */
    
23. 
    
24. /********************************************************************
    
25. *                                                                   *
    
26. *         abAddPinToFloatingWire([?direction "inputOutput"]         *
    
27. *                      [?pinUsage "schematic"]                      *
    
28. *                      [?wires geGetSelSet()]                       *
    
29. *                                 )                                 *
    
30. *                                                                   *
    
31. *   Take the selected wires (or wires passed in) and add pins to    *
    
32. *  the floating end of that wire, based on the net information on   *
    
33. *   the wire. The pin direction can be specified as an argument,    *
    
34. *  and the pins to use are looked up using schPinMasters (the same  *
    
35. * as the schematic editor create pin command uses to seed the form) *
    
36. *                                                                   *
    
37. ********************************************************************/
    
38. 
    
39. procedure(abAddPinToFloatingWire([url=home.php?mod=space&uid=316438]@key[/url] (direction "input") (orientation "R90")
    
40.         (pinUsage "schematic")
    
41.         (wires geGetSelSet()))
    
42.     let((netName cvId pinUnderneath pinOptions pinMasterInfo offsheet
    
43.             pinMaster wireUnderneath)
    
44.         ;----------------------------------------------------------------
    
45.         ; Determine the pin master to use given the direction
    
46.         ; and pinUsage (normally schematic)
    
47.         ;----------------------------------------------------------------
    
48.         offsheet=cadr(assoc(pinUsage car(schPinMasters)))
    
49.         pinOptions=foreach(mapcar (usageInfo pinInfo)
    
50.                 car(schPinMasters)
    
51.                 cddr(assoc(direction schPinMasters))
    
52.             cons(car(usageInfo) pinInfo)
    
53.         )
    
54.         pinMasterInfo=cdr(assoc(pinUsage pinOptions))
    
55.         if(pinMasterInfo then
    
56.             pinMaster=dbOpenCellViewByType(
    
57.                 car(pinMasterInfo) cadr(pinMasterInfo) caddr(pinMasterInfo)
    
58.             )
    
59.             unless(pinMaster
    
60.                 error("Could not open pin master %L\n" pinMasterInfo)
    
61.             )
    
62.         else
    
63.             error("Could not find pin master for direction %L usage %L\n"
    
64.                 direction pinUsage)
    
65.         )
    
66.         ;----------------------------------------------------------------
    
67.         ; Determine cellView to create in from one of the wires
    
68.         ;----------------------------------------------------------------
    
69.         cvId=car(wires)~>cellView
    
70.         ;----------------------------------------------------------------
    
71.         ; Visit each wire and check that it's actually a wire (in case you
    
72.         ; have selected other things on the schematic
    
73.         ;----------------------------------------------------------------
    
74.         foreach(wire wires
    
75.             when(wire~>objType=="line" || wire~>objType=="path"
    
76.                 netName=wire~>net~>name
    
77.                 if(netName then
    
78.                     foreach(point wire~>points
    
79.                         pinUnderneath=dbShapeQuery(
    
80.                             cvId
    
81.                             "pin"
    
82.                             list(point point)
    
83.                         )
    
84.                         ;------------------------------------------------
    
85.                         ; Find any wires underneath that aren't this wire
    
86.                         ;------------------------------------------------
    
87.                         wireUnderneath=setof(
    
88.                             shapeUnderneath
    
89.                             dbShapeQuery(
    
90.                                 cvId
    
91.                                 "wire"
    
92.                                 list(point point)
    
93.                                 0
    
94.                                 0
    
95.                             )
    
96.                             shapeUnderneath!=wire
    
97.                         )
    
98.                         unless(pinUnderneath || wireUnderneath
    
99.                             schCreatePin(
    
100.                                 cvId
     
101.                                 pinMaster
     
102.                                 netName
     
103.                                 direction
     
104.                                 offsheet
     
105.                                 point
     
106.                                 orientation
     
107.                             )
     
108.                         )
     
109.                     )
     
110.                 else
     
111.                     warn("Selected wire does not have net name yet\n")
     
112.                 )
     
113.             )
     
114.         )
     
115.         dbClose(pinMaster)
     
116. 
     
117.         t
     
118.     )
     
119. )
     
120. hiSetBindKey( "Schematics" "<Key>F7" "abAddPinToFloatingWire()")
     
121. 
     

复制代码

dugucloud

适当print一些重要的中间结果看看？

YuSHL

dugucloud 发表于 2023-11-16 14:07
适当print一些重要的中间结果看看？

好的， 谢谢