BRD导出单个symbol（大家来挑错版）！

vivienluo

neo.dong 发表于 2014-5-13 18:22
axlCmdRegister("lib"  'extract_lib)
procedure(extract_lib()
         let( (type_symbol lib_db pad_db d ...

1. /********************************************************/
   
2. /*               Title :  Export symbolp                */
   
3. /*     Execute Command :  export_symbol                 */
   
4. /*              Author :  VivienLuo                     */
   
5. /*       Creation Date :  2013-10-09                    */
   
6. /*               Update :                               */
   
7. /*               E-mail :  admin@allegro-skill.com      */
   
8. /********************************************************/
   
9. 
   
10. axlCmdRegister("export_symbol" 'export_symbol ?cmdType "interactive"
    
11.                  ?doneCmd 'exp_sym_done ?cancelCmd 'exp_sym_cancel)
    
12. defun(export_symbol ()
    
13. let((symbols comp exp_sym_popup savePath workDir)
    
14.     exp_sym_version("1.0");display version about this skill
    
15.     case(axlUIYesNoCancel("\n\312\307\267\361\321\241\324\361\265\274\263\366\277\342\302\267\276\266\243\277\n" "Export Symbol V1.0")
    
16.     (0
    
17.         savePath = "./"
    
18.     )
    
19.     (1        
    
20.         savePath = axlDMDirectoryBrowse("./" t ?title "Pick a directory - By Vivien Luo")
    
21.     )
    
22.     (2
    
23.         savePath = nil
    
24.     )
    
25.     );end case
    
26.     when(savePath
    
27.     exp_sym_popup = axlUIPopupDefine(nil (list
    
28.                     (list "Done" 'exp_sym_done )
    
29.                     (list "Cancel" 'exp_sym_cancel))
    
30.                     )
    
31.     axlUIPopupSet(exp_sym_popup)
    
32.     workDir = getWorkingDir()
    
33.     axlShell(strcat("cd " savePath))   
    
34.     notdone = t
    
35.     while(notdone
    
36.     axlClearSelSet()
    
37.     axlSetFindFilter(?enabled list("noall" "symbols") ?onButtons list("symbols"))
    
38.     axlSelect()
    
39.     symbols = axlGetSelSet()
    
40.     axlHighlightObject(symbols)
    
41.     foreach(sym symbols
    
42.         comp = sym->component
    
43.         axlWritePackageFile(sym->definition)
    
44.         when(isFile("./write_device.log")
    
45.             deleteFile("./write_device.log")
    
46.         );end when
    
47.         axlWriteDeviceFile(comp->compdef)
    
48.     );end foreach
    
49.     );end while
    
50.     axlShell(strcat("cd " workDir))
    
51.     );end when
    
52. );end let
    
53. );end defun
    
54. procedure(exp_sym_version(ver)
    
55.     axlUIWPrint(nil "= = = = = = Export Symbos Version %s  ^_^ = = = = = =" ver)
    
56.     axlUIWPrint(nil "= = = = = = By Vivien Luo 2013-10-09 = = = = = =")
    
57. );end procedure
    
58. procedure(exp_sym_done()
    
59.     notdone = nil
    
60.     axlFinishEnterFun()
    
61.     axlUIWPrint(nil "- Done -")
    
62. )
    
63. procedure(exp_sym_cancel()
    
64.     notdone = nil
    
65.     axlCancelEnterFun()
    
66.     axlUIWPrint(nil "- Cancel -")
    
67. )

复制代码

二月花开早

为什么大家整得这么复杂呢?我都是随便一个命令选中器件,然后用下面这个skill,就可以导出了
axlWritePackageFile(car(axlGetSelSet())->definition)
如果导出的库没有焊盘的那是因为库里没这个焊盘,要把导出的焊盘放到焊盘库路径下,然后再执行一次上面这行skill,就搞定了.

chuchiwolong

vivienluo 版主的很不错

young

功能很好用，但是能否像allegro自身的功能一样：鼠标滑过的时候对象就高亮一下？

chuankay

young 发表于 2015-12-29 13:46
功能很好用，但是能否像allegro自身的功能一样：鼠标滑过的时候对象就高亮一下？

可用比较笨的方法实现吧

hyper

vivienluo 发表于 2014-5-13 18:38

导出带有flash的焊盘会报错，打开封装，也会丢失带有flash的焊盘？？
E- (SPMHDB-274): Unable to load flash symbol 2 (Check PSMPATH setting for this symbol).
难道要像楼下说的这样操作
“如果导出的库没有焊盘的那是因为库里没这个焊盘,要把导出的焊盘放到焊盘库路径下,然后再执行一次上面这行skill,就搞定了.”

hyper

hyper 发表于 2017-7-4 12:48
导出带有flash的焊盘会报错，打开封装，也会丢失带有flash的焊盘？？
E- (SPMHDB-274): Unable to load  ...

还是会有这个错误
E- (SPMHDB-274): Unable to load flash symbol 2 (Check PSMPATH setting for this symbol).

lovezgyuan

二月花开早 发表于 2014-9-29 10:16
为什么大家整得这么复杂呢?我都是随便一个命令选中器件,然后用下面这个skill,就可以导出了
axlWritePackag ...

能说具体点吗？新手看不太清楚