删除没有网络的线头-源码分享（转载）

邓阿斌

procedure( _rm_nc_clines()        let(list(l_clines, cline cline_count rm_cline_count )          l_nc_vias=list()          cline_count = 0          rm_cline_count = 0          axlClearSelSet()          axlSetFindFilter(?enabled '("NOALL"  "CLINES" invisible) ?onButtons '("CLINES"))          axlAddSelectAll()        ;select all of the clines in the design          l_clines = axlGetSelSet()        ;put the clines in a list          cline_count = axlGetSelSetCount()          printf("%d clines found in the design.\n" cline_count)          axlClearSelSet()          ;step through the cline list looking for unconnected cline.          foreach(cline l_clines            if(cline->net->name==nil then              ;found an unconnected cline              axlDeleteObject(cline)        ;delete the cline              rm_cline_count++                ;increment the counter            );endif          );end foreach          printf("%d unconnected vias removed.\n" rm_cline_count)        );end let);end procaxlCmdRegister("rmc" '_rm_nc_clines)

同时想说一下，网站的贡献太难获得了能不能改的好一点