EDA365电子工程师网

标题: Voidadd for silk [打印本页]
作者: 1392431396    时间: 2016-12-19 21:53
标题: Voidadd for silk
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]
作者: GSO_library    时间: 2016-12-20 09:48
Good idea
作者: chrysalis    时间: 2016-12-20 10:41
这个代码的功能是选择被shape覆盖的pin，然后以pin边缘扩展5mil在shape上面开窗吧？
有没有考虑到shape和pin都是异形时候的情况？
作者: 1392431396    时间: 2016-12-20 11:56
chrysalis 发表于 2016-12-20 10:41
这个代码的功能是选择被shape覆盖的pin，然后以pin边缘扩展5mil在shape上面开窗吧？
有没有考虑到shape和p ...

从简单的开始
作者: chrysalis    时间: 2016-12-20 13:43
1392431396 发表于 2016-12-20 11:56
从简单的开始

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

可以写代码出来吗，我写的有问题，执行不出来啊
作者: lovesweet33    时间: 2016-12-22 22:11
谢谢分享。。。
作者: deargds    时间: 2016-12-23 17:34
本帖最后由 deargds 于 2016-12-24 11:39 编辑

仅供参考
  1. procedure(void_C()

  3. (prog ()


  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. )
复制代码


作者: 1392431396    时间: 2016-12-23 18:07
deargds 发表于 2016-12-23 17:34

感谢deargds
作者: shenjing845250    时间: 2016-12-26 12:34
谢谢分享
作者: lovesweet33    时间: 2016-12-27 22:56
谢谢分享
作者: gdm0121    时间: 2017-1-3 12:00
请问这个skill调用的指令是什么？
作者: 1392431396    时间: 2017-1-3 14:03
gdm0121 发表于 2017-1-3 12:00
请问这个skill调用的指令是什么？

axlCmdRegister("Voidadd" 'void_C)
作者: 1392431396    时间: 2017-1-9 11:13
deargds 发表于 2016-12-23 17:34
仅供参考
  1. axlCmdRegister("voidcreate" 'create_void)

  3. procedure(create_void()
  4. create_void_form()
  5. axlSetFindFilter(?enabled `("NOALL" "shapes") ?onButtons `("shapes"))
  6. axlClearSelSet()

  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()

  29. )



  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")

  50. fprintf(voidport "TEXT \"Select Layer\"\n")
  51. fprintf(voidport "TLOC 1 1\n")
  52. fprintf(voidport "ENDTEXT\n")
  53. fprintf(voidport "\n")

  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")


  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")

  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")

  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")

  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 )

  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. )


  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. )

  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"

  165. (prog ()


  168. axlSetFindFilter(?enabled list("noall" "shapes")
  169. ?onButtons list("noall" "shapes"))

  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"))

  177. axlVisibleLayer("PIN/TOP" t)
  178. axlClearSelSet()
  179. symbolSelect = axlGetSelSet(axlSingleSelectBox(shapeID->bBox))
  180. ;symbolID = car(symbolSelect)
  181. axlClearSelSet()

  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

  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)



  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.按钮执行







欢迎光临 EDA365电子工程师网 (https://bbs.elecnest.cn/) Powered by Discuz! X3.2