Checking Arc in trace.

I wrote this example this morning while waiting for data from an engineer...

procedure((check_dp_arcs)
let((Cnt PathList ArcList)
(Cnt = 0)
foreach(dp (axlDBGetDesign)->diffpair
(PathList = list())
(ArcList = list())
if( equal((car(dp->groupMembers)->objType) "net") then
foreach(branch (car(dp->groupMembers)->branches)
(PathList = append(setof(c (branch->children) ((c->objType) == "path")) PathList))
)
else
foreach(net (car(dp->groupMembers)->groupMembers)
foreach(branch (net->branches)
(PathList = append(setof(c (branch->children) ((c->objType) == "path")) PathList))
)
)
)
if( equal((cadr(dp->groupMembers)->objType) "net") then
foreach(branch (cadr(dp->groupMembers)->branches)
(PathList = append(setof(c (branch->children) ((c->objType) == "path")) PathList))
)
else
foreach(net (cadr(dp->groupMembers)->groupMembers)
foreach(branch (net->branches)
(PathList = append(setof(c (branch->children) ((c->objType) == "path")) PathList))
)
)
)
foreach(path PathList
;(ArcList = append(setof(c (path->segments) ((c->objtype) == "arc")) ArcList))
foreach(seg path->segments
when(((seg->objType) == "arc")
(ArcList = cons(seg ArcList))
)
)
)
axlMsgPut("Net %s length PathList %d ArcList %d" car(dp->groupMembers)->name length(PathList) length(ArcList))
when(eq(length(ArcList) 0)
(axlHighlightObject car(dp->groupMembers) nil)
(axlHighlightObject cadr(dp->groupMembers) nil)
(Cnt++)
)
)
axlMsgPut("%d diffpairs highlighted" Cnt)
)
)

Thanks a lot

Hai David 

I Need an one more help I want to check the 90 deg bends in the  trace. if the trace has an 90 degree bend means have to highlight it.

Can you please recorrect the code.

Thanks 

vimal

I wrote some skill code for a previous employer that did this, it was pretty complex...

A simpler solution would be to use the 'acute angle' checks added in 17.2 to add drc flags to those locations

Hai David

Kindly Thanks for your reply but i have to check this in 16.6 tool is there a any other way to find it please guide me.