I creeated Text(drawing) in mos , I want to auto attatch it

james0933

I uesd the skill see below :
but When I load "CCSattachLabels.il"  in  CIW
there are the syntax error  

                               
登录/注册后可看大图

  syntax error ( in line 5 column 3 of file) ,  What is the problem ?


procedure( CCSattachLabels()
   let( (cv allLabels x1 y1 box inst)
      cv=geGetWindowCellView()
      allLabels=setof(x cv~>shapes x~>objType=="label")
      foreach( label allLabels
         x1=car(label~>xy)
         y1=cadr(label~>xy)
         box=list(x1:y1 x1+0.001:y1+0.001)
         inst=car(dbProduceOverlapInst(cv box))
         leAttachFig(label inst)
         printf("Attached label %s at %L to inst %s\n" label~>theLabel label~>xy inst~>name)
      ) ;foreach
   ) ;let
) ;procedure

sfxyzhf

load & work ok
No problem.

sfxyzhf

if no inst under the label ?
use unless to box the last 2 code line

unless(inst==nil

)