检查dummy symbols

xieeyawen

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