creating moslabel

Thanks.

   But that code gives correct result when i am executing one mos at a time and if also i am removing car syntax then it is giving errors like canot take cdr of atom.But this code is working fine for single mos.

I was looking at the code on a handheld device and didn't spot that the calculation for h1 and h2 also had an extra unnecessary car() included. Here's a modified version of the code which makes the calculation of h1 and h2 more readable (by not using complex car/cdr combinations) and also works. I also added a conditional statement to ensure that it doesn't break if you have selected something that doesn't have a name attribute:

 procedure(moslabel()
  cv=geGetWindowCellView()
  x=geGetSelectedSet()
  foreach(obj x  
    c_name=obj~>name
    ; conditional which ensures code does
    ; not break if selected object is not an instance
    when(c_name
      points=centerBox(obj~>bBox)
      a=obj~>bBox
      h1=yCoord(upperRight(a))
      h2=yCoord(lowerLeft(a))
      h=abs(difference(h1 h2)/10)
      dbCreateLabel(cv list("text" "drawing") points c_name "centerCenter" "R90" "roman" h)
      )
    )
)

Regards,

Andrew.

thanks andrew.

I got the required result.