[源代码}-sym的place_bound_top中心创建ref

王开鑫55

1. ;PACKAGE GEOMETRY/DISPLAY_TOP层sym的place_bound_top中心创建ref
   
2. 
   
3. (defun assembly ()
   
4. 
   
5. ; converts to current database units
   
6. ; ----------------------------------
   
7. 
   
8. min_width = axlMKSConvert(129 "MILS")
   
9. text_offset = axlMKSConvert(18 "MILS")
   
10. 
    
11. ; creates table
    
12. ; -------------
    
13. 
    
14. reftable = makeTable("retfable" nil)
    
15. 
    
16. ; defines text blocks
    
17. ; -------------------
    
18. 
    
19. rotate_no = make_axlTextOrientation(
    
20.                 ?textBlock "2", ?rotation 0.,
    
21.                 ?mirrored nil, ?justify "center")
    
22. rotate_yes = make_axlTextOrientation(
    
23.                 ?textBlock "2", ?rotation 270.,
    
24.                 ?mirrored nil, ?justify "center")
    
25. 
    
26. ; deletes text on package geometry/display_top
    
27. ; --------------------------------------------
    
28. 
    
29. drain()
    
30. axlClearSelSet()
    
31. vis_list = axlVisibleGet()
    
32. axlVisibleDesign(nil)
    
33. axlVisibleLayer("PACKAGE GEOMETRY/DISPLAY_TOP" t)
    
34. axlSetFindFilter(?enabled list("noall" "text")
    
35.         ?onButtons list("noall" "text"))
    
36. axlAddSelectAll()
    
37. axlDeleteObject(axlGetSelSet())
    
38. 
    
39. ; selects symbols
    
40. ; ---------------
    
41. 
    
42. axlClearSelSet()
    
43. axlVisibleDesign(nil)
    
44. axlVisibleLayer("PACKAGE GEOMETRY/ASSEMBLY_TOP" t)
    
45. axlSetFindFilter(?enabled list("noall" "symbols")
    
46.         ?onButtons list("noall" "symbols"))
    
47. axlAddSelectAll()
    
48. axlVisibleSet(vis_list)
    
49. symbol_db_list = axlGetSelSet()
    
50. axlClearSelSet()
    
51. foreach(symbol_db symbol_db_list
    
52.         refdes = symbol_db->refdes
    
53.         mir = symbol_db->isMirrored
    
54. 
    
55.         ; checks if symbol is mirrored
    
56.     ; ----------------------------
    
57. 
    
58.         if( eq(mir nil) then
    
59.                 children_db_list = symbol_db->children
    
60.         
    
61.                 ; checks if symbol has attached shapes
    
62.                 ; ------------------------------------
    
63. 
    
64.                 if( neq(children_db_list nil) then
    
65.                         foreach(children_db children_db_list
    
66.                                 isShape = children_db->objType
    
67.                                 shape_layer = children_db->layer
    
68.                                         if( equal(isShape "shape") then
    
69. 
    
70.                                                 ; checks if shape is on package geometry/place_bound_top
    
71.                                                 ; ------------------------------------------------------
    
72. 
    
73.                                                 if( equal(shape_layer "PACKAGE GEOMETRY/PLACE_BOUND_TOP") then
    
74.                                                         boundary = children_db->bBox
    
75.                                                         ref_exists = reftable[refdes]
    
76. 
    
77.                                                         ; checks if shape already exists for refdes
    
78.                                                         ; -----------------------------------------
    
79. 
    
80.                                                         if( equal(ref_exists nil) then
    
81. 
    
82.                                                                 ; adds refdes/boundary box to table
    
83.                                                                 ; ---------------------------------
    
84. 
    
85.                                                                 reftable[refdes] = boundary
    
86.                                                         else
    
87. 
    
88.                                                                 ; calculates maximum size box
    
89.                                                                 ; ----------------------------
    
90. 
    
91.                                                                 old_boundary = reftable[refdes]
    
92.                                                                 old_llx = caar(old_boundary)
    
93.                                                                 old_urx = caadr(old_boundary)
    
94.                                                                 old_ury = cadadr(old_boundary)
    
95.                                                                 old_lly = cadar(old_boundary)
    
96.                                                                 boundary = children_db->bBox
    
97.                                                                 llx = caar(boundary)
    
98.                                                                 urx = caadr(boundary)
    
99.                                                                 ury = cadadr(boundary)
    
100.                                                                 lly = cadar(boundary)
     
101.                                                                 llx = min(llx old_llx)
     
102.                                                                 urx = max(urx old_urx)
     
103.                                                                 ury = max(ury old_ury)
     
104.                                                                 lly = min(lly old_lly)
     
105.                                                                 boundary = list(llx:lly urx:ury)
     
106.                                                                 reftable[refdes] = boundary
     
107.                                                         ) ; end of if ref exists
     
108.                                                 ) ; end of package geometry
     
109.                                         ) ; end of is shape
     
110.                         ) ; end of foreach
     
111.                 ) ; end of if children
     
112.         ) ; end or if mir
     
113. ) ; end of foreach symbol_db
     
114. 
     
115. ; reads each refdes/boundary box pair
     
116. ; -----------------------------------
     
117. 
     
118. foreach( refdes reftable
     
119.         if( neq(refdes nil) then        
     
120.                 boundary = reftable[refdes]
     
121.                 llx = caar(boundary)
     
122.             urx = caadr(boundary)
     
123.             ury = cadadr(boundary)
     
124.             lly = cadar(boundary)
     
125.                  width = urx-llx
     
126.             refpos_x = (width/2)+llx
     
127.             height = ury-lly
     
128.             refpos_y = (height/2)+lly
     
129. 
     
130.                                         ; if width > 129 mils text is at 0 degrees
     
131.                                         ; ----------------------------------------
     
132.          
     
133.                     if((width > min_width) then
     
134. 
     
135.                         refpos_y = refpos_y - text_offset
     
136.                         refpos = refpos_x:refpos_y
     
137.                         axlDBCreateText(refdes , refpos , rotate_no ,
     
138.                                         "package geometry/display_top" )
     
139.                     else
     
140. 
     
141.                     ; if width <= 129 mils text is at 270 degrees
     
142.                     ; -------------------------------------------
     
143. 
     
144.                         refpos_x = refpos_x - text_offset
     
145.                         refpos = refpos_x:refpos_y
     
146.                         axlDBCreateText(refdes , refpos , rotate_yes ,
     
147.                                         "package geometry/display_top" ))
     
148. 
     
149.         ) ; end of if
     
150. ) ;end of foreach
     
151. axlVisibleLayer("PACKAGE GEOMETRY/DISPLAY_TOP" t)
     
152. 
     
153. ) ; end of function assembly
     
154. 
     
155. ; registers command assembly with Allegro
     
156. ; ---------------------------------------
     
157. 
     
158. axlCmdRegister( "assembly" `assembly)
     

复制代码

发电机

这个能不能弄说明，意义何在

王开鑫55

发电机 发表于 2018-1-18 18:29
这个能不能弄说明，意义何在

学习代码，

nanshao8860

楼主   SKILL学的怎么样

发电机

哦 原来是这样啊   楼主是高手不

eagle31

謝謝分享

yfchen1003

路过，谢谢！