How to output all textblock used in board file

Hi David,

Thanks so much for your time in helping me out.

I tried your inputs and I got some error.

Can you please spare some time what I need to do in the code to avoid this error?

Command > skill '(load "tb.ils")'
E-
E- (00:00:21) skill '(load "tb.ils")'
E-                                  ^
E- SYNTAX ERROR found at line 1 column 34 of file tb.ils
W- *WARNING* (reader): suspicious newline found after the operator '
E- *Error* lineread/read: syntax error encountered in input
E- *Error* load: error while loading file - "tb.ils" at line 1
ERROR
Command > skill '(load "tb.ils")'
E-
E- (00:00:21) skill '(load "tb.ils")'
E-                                  ^
E- SYNTAX ERROR found at line 1 column 34 of file tb.ils
W- *WARNING* (reader): suspicious newline found after the operator '
E- *Error* lineread/read: syntax error encountered in input
E- *Error* load: error while loading file - "tb.ils" at line 1
ERROR
Command >

Best regards,

Eric

Based upon the error I think you may have used a word processor ( i.e. wordpad ) instead of a text editor ( i.e. notepad ) to create the file

Can you launch a Windows 'Command Prompt' session & issue the following commands shown in bold:

C:\temp>type tb.ils
procedure(report_tb()
let((l_textblocks line)
(l_textblocks = list())
foreach(symdef ((axlDBGetDesign)->symdefs)
foreach(child (symdef->children)
if((child->objType = ("text" && (child->textBlock))) then
(line = strcat((child->layer) " " (child->textBlock)))
unless(member(line l_textblocks)
(l_textblocks = cons(line l_textblocks))
)
)
)
)
foreach(text ((axlDBGetDesign)->text)
if((text->objType = ("text" && (text->textBlock))) then
(line = strcat((text->layer) " " (text->textBlock)))
unless(member(line l_textblocks)
(l_textblocks = cons(line l_textblocks))
)
)
)
foreach(tb sort(l_textblocks 'axlStrcmpAlpNum)
println(tb)
)
)
)

C:\temp>il_allegro
> load("tb.ils")
t
> load("tb.ils")
variable report_tb redefined
t
> pp report_tb
procedure(report_tb()
let((l_textblocks line)
(l_textblocks = list())
foreach(symdef
((axlDBGetDesign)->symdefs)
foreach(child
(symdef->children)
if((child->objType = ("text" && (child->textBlock))) then
(line = strcat((child->layer) " "
(child->textBlock)
))
unless(member(line l_textblocks)
(l_textblocks = cons(line l_textblocks))
)
)
)
)
foreach(text
((axlDBGetDesign)->text)
if((text->objType = ("text" && (text->textBlock))) then
(line = strcat((text->layer) " "
(text->textBlock)
))
unless(member(line l_textblocks)
(l_textblocks = cons(line l_textblocks))
)
)
)
foreach(tb
sort(l_textblocks
'axlStrcmpAlpNum
)
println(tb)
)
)
)
nil
> exit

C:\temp>