Voidadd for silk

1392431396

axlCmdRegister("Voidadd" 'void_C)

procedure(void_C()

(prog ()


axlSetFindFilter(?enabled list("noall" "shapes")
                  ?onButtons list("noall" "shapes"))
                  
  _shape=axlGetSelSet(axlSelect(?prompt "Select shape ."))               
     shapeID = car(_shape)
when( _shape
     axlSetFindFilter(?enabled list("noall" "pins")
                  ?onButtons list("noall" "pins"))
  
     pinSlect = axlGetSelSet(axlSelect())
   
;axlClearSelSet()
foreach(pin pinSlect

            when( car(pinSlect)->objType="pin"
                s=5.0
                polydbid = axlPolyFromDB(car(pinSlect), ?layer car(car(pinSlect)->startEnd) ?padType 'REGULAR)
                exp_poly = (axlPolyExpand polydbid s 'ALL_ARC)
                a=car(exp_poly)->bBox
               

   
    if(axlGeoPointInShape(car(a) shapeID) && axlGeoPointInShape(cadr(a) shapeID)
       then  axlHighlightObject(pin)
       a=car(exp_poly)->bBox
                 ll  = car(a)
                ur  = cadr(a)
                llx = caar(a)
                lly = cadar(a)
                urx = caadr(a)
                ury = cadadr(a)
                path = axlPathStart(list(ll (urx:lly) ur (llx:ury) ))
                voidpath = axlPathLine(path, 0.0, ll)
               
               
                axlDBCreateVoid(shapeID voidpath)
          return(voidpath)
       )
)      
)      
)

axlDBCreateVoid(shapeID voidpath)

)
)   

目前只能是点中shape后再点击pin做出一块void，如何实现当选择shape时，程式自己判断shape上面的pin是否在上面，并自动全部做出void @[url=][url=mailto:void@@deargds]@deargds[/url][/url]

deargds

仅供参考

1. procedure(void_C()
   
2. 
   
3. (prog ()
   
4. 
   
5. 
   
6. axlSetFindFilter(?enabled list("noall" "shapes")
   
7.                   ?onButtons list("noall" "shapes"))
   
8.                   
   
9.   _shape=axlGetSelSet(axlSelect(?prompt "Select shape ."))               
   
10.      shapeID = car(_shape)
    
11. when( _shape
    
12.      axlSetFindFilter(?enabled list("noall" "pins")
    
13.                   ?onButtons list("noall" "pins"))
    
14.   
    
15.     axlVisibleLayer("PIN/TOP" t);此处可以根据SHAPE进行判断
    
16.         axlClearSelSet()
    
17.         pinSlect = axlGetSelSet(axlSingleSelectBox(shapeID->bBox))
    
18.         axlClearSelSet()
    
19.    
    
20. ;axlClearSelSet()
    
21. foreach(pin pinSlect
    
22.         when( pin->objType="pin"
    
23.                
    
24.                 s=5.0
    
25.                 polydbid = axlPolyFromDB(pin, ?layer car(pin->startEnd) ?padType 'REGULAR)
    
26.                 println(polydbid)
    
27.                 exp_poly = (axlPolyExpand polydbid s 'ALL_ARC)
    
28.                 a=car(exp_poly)->bBox
    
29.            
    
30.                 axlHighlightObject(pin)
    
31.                 a=car(exp_poly)->bBox
    
32.                  ll  = car(a)
    
33.                 ur  = cadr(a)
    
34.                 llx = caar(a)
    
35.                 lly = cadar(a)
    
36.                 urx = caadr(a)
    
37.                 ury = cadadr(a)
    
38.                 voidpath = axlPathStart(list(ll (urx:lly) ur (llx:ury) ))
    
39.                 voidpath = axlPathLine(voidpath, 0.0, ll)               
    
40.                 axlDBCreateVoid(shapeID voidpath)
    
41.                 shapeID = car(axlDBCreateCloseShape( shapeID))
    
42. )      
    
43. )      
    
44. )
    
45. )
    
46. )

复制代码

GSO_library

Good idea

chrysalis

这个代码的功能是选择被shape覆盖的pin，然后以pin边缘扩展5mil在shape上面开窗吧？
有没有考虑到shape和pin都是异形时候的情况？

1392431396

chrysalis 发表于 2016-12-20 10:41
这个代码的功能是选择被shape覆盖的pin，然后以pin边缘扩展5mil在shape上面开窗吧？
有没有考虑到shape和p ...

从简单的开始

chrysalis

1392431396 发表于 2016-12-20 11:56
从简单的开始

那就把findfilter设置为pins，以shape的bbox框选一次，就可以得到一堆pin，再一个个判断筛选处理

1392431396

chrysalis 发表于 2016-12-20 13:43
那就把findfilter设置为pins，以shape的bbox框选一次，就可以得到一堆pin，再一个个判断筛选处理

可以写代码出来吗，我写的有问题，执行不出来啊

lovesweet33

谢谢分享。。。

1392431396

deargds 发表于 2016-12-23 17:34

感谢deargds

shenjing845250

谢谢分享

lovesweet33

谢谢分享

gdm0121

请问这个skill调用的指令是什么？

1392431396

gdm0121 发表于 2017-1-3 12:00
请问这个skill调用的指令是什么？

axlCmdRegister("Voidadd" 'void_C)

1392431396

deargds 发表于 2016-12-23 17:34
仅供参考

1. axlCmdRegister("voidcreate" 'create_void)
   
2. 
   
3. procedure(create_void()
   
4. create_void_form()
   
5. axlSetFindFilter(?enabled `("NOALL" "shapes") ?onButtons `("shapes"))
   
6. axlClearSelSet()
   
7. 
   
8. cline_list=nil
   
9. while( axlSelect()
   
10. ls=axlGetSelSet()
    
11. a=car(ls)
    
12. if( a->objType=="poly" then
    
13. a=nthelem(2 parseString(a->layer "/"))
    
14. else
    
15. a=nthelem(2 parseString(car(a->startEnd) "/"))
    
16. )
    
17. if( a=="Silkscreen_Top" then
    
18. layer=nthelem(2 layer_list)
    
19. axlFormListSelect(fs "layer_name" layer)
    
20. else
    
21. if( a=="Silkscreen_Bottom" then
    
22. layer=nthelem(length(layer_list)-1 layer_list)
    
23. axlFormListSelect(fs "layer_name" layer)
    
24. )
    
25. )
    
26. )
    
27. axlFinishEnterFun()
    
28. 
    
29. )
    
30. 
    
31. 
    
32. 
    
33. defun( create_void_form ()
    
34. create_void_file="./create_void_form.form"
    
35. voidport=outfile(create_void_file "w")
    
36. if( car(axlDBGetDesignUnits())=="mils" then
    
37. s="mil"
    
38. else
    
39. s="mm"
    
40. )
    
41. if(voidport != nil then
    
42. fprintf(voidport "FILE_TYPE=FORM_DEFN VERSION=2\n")
    
43. fprintf(voidport "FORM\n")
    
44. fprintf(voidport "FIXED\n")
    
45. fprintf(voidport "PORT 40 60\n")
    
46. fprintf(voidport "HEADER \"fanout BBvia\"\n")
    
47. fprintf(voidport "TILE\n")
    
48. fprintf(voidport "\n")
    
49. 
    
50. fprintf(voidport "TEXT \"Select Layer\"\n")
    
51. fprintf(voidport "TLOC 1 1\n")
    
52. fprintf(voidport "ENDTEXT\n")
    
53. fprintf(voidport "\n")
    
54. 
    
55. fprintf(voidport "FIELD layer_name\n")
    
56. fprintf(voidport "FLOC 10 1\n")
    
57. fprintf(voidport "LIST \"\" 18 5\n")
    
58. fprintf(voidport "ENDFIELD\n")
    
59. fprintf(voidport "\n")
    
60. 
    
61. 
    
62. fprintf(voidport "GROUP \"Select One Model\"\n")
    
63. fprintf(voidport "GLOC 1 11\n")
    
64. fprintf(voidport "GSIZE 20 7\n")
    
65. fprintf(voidport "ENDGROUP\n")
    
66. fprintf(voidport "\n")
    
67. fprintf(voidport "FIELD ByPin\n")
    
68. fprintf(voidport "FLOC 2 13\n")
    
69. fprintf(voidport "CHECKLIST \" ByPin\" \"model\"\n")
    
70. fprintf(voidport "ENDFIELD\n")
    
71. fprintf(voidport "\n")
    
72. fprintf(voidport "FIELD BySymbol\n")
    
73. fprintf(voidport "FLOC 10 13\n")
    
74. fprintf(voidport "CHECKLIST \" BySymbol\" \"model\"\n")
    
75. fprintf(voidport "ENDFIELD\n")
    
76. fprintf(voidport "\n")
    
77. 
    
78. /* fprintf(voidport "FIELD xw\n")
    
79. fprintf(voidport "FLOC 5 13\n")
    
80. fprintf(voidport "REALFILLIN 6 3\n")
    
81. fprintf(voidport "ENDFIELD\n")
    
82. fprintf(voidport "\n")
    
83. */
    
84. fprintf(voidport "FIELD um\n")
    
85. fprintf(voidport "FLOC 2 15\n")
    
86. fprintf(voidport "REALFILLIN 6 6\n")
    
87. fprintf(voidport "ENDFIELD\n")
    
88. fprintf(voidport "\n")
    
89. /*
    
90. fprintf(voidport "TEXT \"W\"\n")
    
91. fprintf(voidport "TLOC 13 13\n")
    
92. fprintf(voidport "ENDTEXT\n")
    
93. fprintf(voidport "\n")
    
94. */
    
95. fprintf(voidport "TEXT \"%s\"\n" s)
    
96. fprintf(voidport "TLOC 13 15\n")
    
97. fprintf(voidport "ENDTEXT\n")
    
98. fprintf(voidport "\n")
    
99. 
    
100. fprintf(voidport "FIELD add_void\n")
     
101. fprintf(voidport "FLOC 1 19\n")
     
102. fprintf(voidport "MENUBUTTON \"add void\" 15 3\n")
     
103. fprintf(voidport "ENDFIELD\n")
     
104. fprintf(voidport "\n")
     
105. 
     
106. /* fprintf(voidport "FIELD add_L\n")
     
107. fprintf(voidport "FLOC 1 22\n")
     
108. fprintf(voidport "MENUBUTTON \"add line keepout\" 15 3\n")
     
109. fprintf(voidport "ENDFIELD\n")
     
110. fprintf(voidport "\n")
     
111. */
     
112. fprintf(voidport "ENDTILE\n")
     
113. fprintf(voidport "ENDFORM\n")
     
114. else
     
115. printf("ERROR,can't create form file!")
     
116. )
     
117. close(voidport)
     
118. ;axlFormCreate('fs clear_RF_file '("msgLines" 0) 'do_clear_RF nil nil )
     
119. axlMiniStatusLoad( 'fs create_void_file 'do_create_void t )
     
120. 
     
121. a=axlLayerGet("Board Geometry/Silkscreen_Top")
     
122. s=""
     
123. layer_list=nil
     
124. while( s!=nil
     
125. s=a->name
     
126. layer_list=append1(layer_list s)
     
127. s=a->nextLayer
     
128. if( s!=nil then
     
129. nextlayer=strcat("Board Geometry" "/" s)
     
130. a=axlLayerGet(nextlayer)
     
131. )
     
132. )
     
133. 
     
134. 
     
135. layer=nthelem(2 layer_list)
     
136. axlFormListDeleteAll(fs "layer_name")
     
137. axlFormSetField(fs "layer_name" layer_list)
     
138. axlFormListSelect(fs "layer_name" layer)
     
139. axlFormSetField(fs "xws" t)
     
140. if( boundp('xs)==nil then
     
141. xs="2.0"
     
142. xum="5"
     
143. )
     
144. axlFormSetField(fs "xw" xs)
     
145. axlFormSetField(fs "um" xum)
     
146. axlFormDisplay(fs)
     
147. if(isFile( create_void_file) then
     
148. deleteFile(create_void_file)
     
149. )
     
150. )
     
151. 
     
152. defun( do_create_void (voidport)
     
153. case( voidport->curField
     
154. ("layer_name"
     
155. layer=voidport->curValue
     
156. )
     
157. ("xw"
     
158. xs=voidport->curValue
     
159. )
     
160. ("um"
     
161. xum=voidport->curValue
     
162. )
     
163. ("BySymbol"
     
164. 
     
165. (prog ()
     
166. 
     
167. 
     
168. axlSetFindFilter(?enabled list("noall" "shapes")
     
169. ?onButtons list("noall" "shapes"))
     
170. 
     
171. _shape=axlGetSelSet(axlSelect(?prompt "Select shape ."))
     
172. shapeID = car(_shape)
     
173. when( _shape
     
174. axlSetFindFilter(?enabled list("noall" "symbols")
     
175. ?onButtons list("noall" "symbols"))
     
176. 
     
177. axlVisibleLayer("PIN/TOP" t)
     
178. axlClearSelSet()
     
179. symbolSelect = axlGetSelSet(axlSingleSelectBox(shapeID->bBox))
     
180. ;symbolID = car(symbolSelect)
     
181. axlClearSelSet()
     
182. 
     
183. ;axlClearSelSet()
     
184. foreach(symbol symbolSelect
     
185. when( symbol->objType="symbol"
     
186. sym_bBox = axlDBGetSymbolBodyExtent(symbol)
     
187. mypath = axlPathStart( list(car(sym_bBox) caadr(sym_bBox):cadar(sym_bBox) cadr(sym_bBox) caar(sym_bBox):cadadr(sym_bBox)))
     
188. mypath = axlPathLine(mypath, 0.0, car(sym_bBox))
     
189. ss=0
     
190. polydbid = axlPolyFromDB(mypath )
     
191. println(polydbid)
     
192. exp_poly = (axlPolyExpand polydbid ss 'ALL_ARC)
     
193. a=car(exp_poly)->bBox
     
194. 
     
195. ;axlHighlightObject(pin)
     
196. ;a=car(exp_poly)->bBox
     
197. ll = car(a)
     
198. ur = cadr(a)
     
199. llx = caar(a)
     
200. lly = cadar(a)
     
201. urx = caadr(a)
     
202. ury = cadadr(a)
     
203. 
     
204. 
     
205. 
     
206. voidpath = axlPathStart(list(ll (urx:lly) ur (llx:ury) ))
     
207. voidpath = axlPathLine(voidpath, 0.0, ll)
     
208. axlDBCreateVoid(shapeID voidpath)
     
209. shapeID = car(axlDBCreateCloseShape( shapeID))
     
210. )
     
211. )
     
212. )
     
213. )
     
214. )
     
215. )
     
216. )

复制代码

我想新增模式选择进行操作，请帮忙看看怎么修改，@deargds@XYX365
1.选择一个丝印层进行挖空
2.选择模式等待挖空
3.按钮执行