检查dummy symbols
axlCmdRegister("check_dummy_symbols" 'check_dummy_symbols)defun(check_dummy_symbols ()
let((syms sym i)
log_filea = "./dummy_symbols.log"
symb_fileport = outfile(log_filea)
syms = axlDBGetDesign()->symbols
i=0
foreach(sym syms
;when(car(list(sym))->refdes == nil
when(sym->refdes == nil && (nindex(upperCase(sym->name) "MECH")==nil) && (nindex(upperCase(sym->name) "TECH")==nil)
i++
axlHighlightObject(sym)
fprintf(symb_fileport "%L %L\n" sym->refdes sym->xy)
);end when
);end foreach
fprintf(symb_fileport "total %L dummy_symbols" i)
close(symb_fileport)
axlUIViewFileCreate(log_filea "dummy_symbols check" nil)
deleteFile(log_filea)
);end let
);end defun
页:
[1]