Highlight location xy in rpt file

 Hi! thank for your reply, but my problem is when I check a location, and then for example  I repair it, when return to report file ,  I don't know which location I have checked, so I wan to make the location xy with others color like  the way "dangling line report" of allegro do.

 here my code :

...................

foreach(via allViasInDesign
viaLocation = sprintf(nil "%L:%L" car(via->xy) cadr(via->xy))
start_layer_via = car(via->startEnd)
end_layer_via = cadr(via->startEnd)
net_name_via = via->net->name
via_name = via->name
list_layer = list()
;list_layer = nil
via_connects = axlDBGetConnect(via t)

;fprintf(writeOutFile, "%s %s %s %s\n",  via_name, start_layer_via, end_layer_via, viaLocation )

foreach(via_connect via_connects
type_obj = via_connect->objType

case(type_obj
 ("pin"
   pin_layer = car(via_connect->startEnd)
   list_layer = cons(pin_layer, list_layer)
   ;fprintf(writeOutFile, "%s, %L\n", via_connect->objType, list_layer)
 ); end case pin

 ("via"
   ;via_layer = via_connect->startEnd
   via_layer = car(via_connect->startEnd)
   list_layer = cons(via_layer, list_layer)
   via_layer = cadr(via_connect->startEnd)
   list_layer = cons(via_layer, list_layer)
   if(cadr(via_connect->startEnd) = "ETCH/AL2" then
   list_layer = cons("ETCH/AL1", list_layer)
   else
   list_layer = list_layer
   ); end if
   ;fprintf(writeOutFile, "%s, %L\n", via_connect->objType, list_layer)
 ); end case via

 ("shape"
   shape_layer = via_connect->layer
   list_layer = cons(shape_layer, list_layer)
   ;fprintf(writeOutFile, "%s, %L\n", via_connect->objType, list_layer)
 ); end case shape

 ("path"
   path_layer = via_connect->layer
   list_layer = cons(path_layer, list_layer)
   ;fprintf(writeOutFile, "%s, %L\n", via_connect->objType, list_layer)
 ); end case path-cline
); end case all
);end foreach via_connect

a1 = length(member(start_layer_via, list_layer))
a2 = length(member(end_layer_via, list_layer))

if( a1 == 0 || a2 == 0 then
fprintf(writeOutFile, "%-18s%-18s(%-s)\n", start_layer_via, end_layer_via, viaLocation)
);end if
);end foreach via allViasInDesign

...........................................

Tks.

Luan

 

 Hi! thank for your reply, but my problem is when I check a location, and then for example  I repair it, when return to report file ,  I don't know which location I have checked, so I wan to make the location xy with others color like  the way "dangling line report" of allegro do.

 here my code :

...................

foreach(via allViasInDesign
viaLocation = sprintf(nil "%L:%L" car(via->xy) cadr(via->xy))
start_layer_via = car(via->startEnd)
end_layer_via = cadr(via->startEnd)
net_name_via = via->net->name
via_name = via->name
list_layer = list()
;list_layer = nil
via_connects = axlDBGetConnect(via t)

;fprintf(writeOutFile, "%s %s %s %s\n",  via_name, start_layer_via, end_layer_via, viaLocation )

foreach(via_connect via_connects
type_obj = via_connect->objType

case(type_obj
 ("pin"
   pin_layer = car(via_connect->startEnd)
   list_layer = cons(pin_layer, list_layer)
   ;fprintf(writeOutFile, "%s, %L\n", via_connect->objType, list_layer)
 ); end case pin

 ("via"
   ;via_layer = via_connect->startEnd
   via_layer = car(via_connect->startEnd)
   list_layer = cons(via_layer, list_layer)
   via_layer = cadr(via_connect->startEnd)
   list_layer = cons(via_layer, list_layer)
   if(cadr(via_connect->startEnd) = "ETCH/AL2" then
   list_layer = cons("ETCH/AL1", list_layer)
   else
   list_layer = list_layer
   ); end if
   ;fprintf(writeOutFile, "%s, %L\n", via_connect->objType, list_layer)
 ); end case via

 ("shape"
   shape_layer = via_connect->layer
   list_layer = cons(shape_layer, list_layer)
   ;fprintf(writeOutFile, "%s, %L\n", via_connect->objType, list_layer)
 ); end case shape

 ("path"
   path_layer = via_connect->layer
   list_layer = cons(path_layer, list_layer)
   ;fprintf(writeOutFile, "%s, %L\n", via_connect->objType, list_layer)
 ); end case path-cline
); end case all
);end foreach via_connect

a1 = length(member(start_layer_via, list_layer))
a2 = length(member(end_layer_via, list_layer))

if( a1 == 0 || a2 == 0 then
fprintf(writeOutFile, "%-18s%-18s(%-s)\n", start_layer_via, end_layer_via, viaLocation)
);end if
);end foreach via allViasInDesign

...........................................

Tks.

Luan