导出单个&多个选择元件封装（源码）

laikelang

支持多选、Find面板过滤功能。导出器件保存在当前工作目录下。


axlCmdRegister( "libbypick" '_ExportLibByPick)

defun( _ExportLibByPick ()
prog(( l_ok, l_sym, l_fg, def)

  axlSetFindFilter( ?enabled list( "NOALL" "SYMBOLS" "NAMEFORM")
                    ?onButtons list( "NOALL" "SYMBOLS"))
  axlSelect()
  l_ok = nil
  l_sym = axlGetSelSet()
  while( l_sym
         l_ok = append1( l_ok, car( l_sym))
         def = car( l_sym) -> definition
         l_fg = nil
         foreach( symbol l_sym
                  if( symbol -> definition != def then
                      l_fg = append1( l_fg, symbol)
                    );end-if
                );end-foreach
         if( l_fg then
             l_sym = l_fg
           else
             l_sym = nil
           );end-if     
       );end-while
  foreach( symbol l_ok
           axlWritePackageFile( symbol -> definition)
           if( symbol -> component then
               axlWriteDeviceFile( symbol -> component -> compdef)
             );end-if           
         );end-foreach
  axlClearSelSet()      
);end-prog
);end-defun

deargds

感谢分享

menghunabc

学习了，谢谢啊

lidin

好东西，收藏了

whitehorse

学习了 ~ thanks a lot ~

navywhj

这个很好用，谢谢！！！！

glater

这个功能真的很好！

hdy783

谢谢太好了

飞天

重谢

l8877l

谢谢了 非常的有用啊 感谢楼主

hyper311

导不出带有FLASH焊盘的封装，E- (SPMHDB-274): Unable to load flash symbol 2 (Check PSMPATH setting for this symbol).

九月

谢谢分享