skill错误问题

jinglong1995 · 发表于 2020-6-10 15:52:52

运行下面skill脚本时提示错误ERROR PLUS ： can't handle (nil + 0.001)
脚本作用：解决版图不在格点问题
procedure( putOnGrid()
let((gridField putOnGridForm)
hiCreateForm('putOnGridForm "Put On Grid Form"
      "putOnGridCB(putOnGridForm->gridField->value)"
      list(hiCreateStringField( ?name 'gridField
   ?prompt "Enter Grid value"
   ?value "0.1"
         )
      )
      ""
)
hiDisplayForm(putOnGridForm)
)
)

procedure(putOnGridCB(grid)
prog( (compFactor cv saveLayer theta p obj path loc error_cmd units rep)
if(!(rep = geGetEditRep()) then
   hiDisplayModelessDBox('formHandle "Put On Grid"
   "A cellView must be opened."
   "" "")
   return()
)
if( geGetSelSet() == nil then
   hiDisplayModelessDBox('formHandle "Put On Grid"
   "Nothing has been selected \n
   Program works on only selected objects"
   "" "")
   return()
)
compFactor = 1 / rep~>DBUPerUU
units = rep~>userUnits
if(!compFactor  then
   hiDisplayModelessDBox('formHandle "Put On Grid"
                              "The CellView does not have the DBUPerUU property defined"

                              "" "")
   return()
)

grids = parseString(grid)
xgrid = evalstring(nth(0 grids))
if(! numberp(xgrid) then
   printf("Grid must be a number.\n")
   return()
)
if(! (ygrid = nth(1 grids)) then
   ygrid = xgrid
else
   ygrid = evalstring(ygrid)
   if(! numberp(ygrid) then
      printf("Grid must be a number.\n")
      ygrid = xgrid
   )
)
printf("Snapping x-coordinates to nearest %f %s.\n" float(xgrid) units)
printf("Snapping y-coordinates to nearest %f %s.\n" float(ygrid) units)

cv = geGetEditRep()

foreach( obj geGetSelSet()
   case( obj~>shape
  (("rectangle" "dot")
   path = obj~>bBox
   path = list( lowerLeft(path)
list(xCoord(upperRight(path)) yCoord(lowerLeft(path)))
upperRight(path)
list(xCoord(lowerLeft(path)) yCoord(upperRight(path))))
  )
  (("polygon" "path" "line")
   path = obj~>path
  )
  ("label"
   path = list(roundCoord(obj~>xy xgrid ygrid))
  )
  (t
   sprintf(error_cmd "Cannot handle \"%s\" object types."
   obj~>objType)
               hiDisplayModelessDBox('formHandle "Put On Grid"
                              error_cmd
                              "" "")
               return()
  )
   )

   newpath=nil
   foreach( pt path
  newpath=cons(roundCoord(pt xgrid ygrid) newpath)
   )
   path=newpath
   case( obj~>shape
  (("rectangle" "polygon" "dot")
   geSelectObject(dbCreatePolygon(cv obj~>lpp path))
   dbDeleteObject(obj)
  )
  ("line"
geSelectObject(dbCreateLine(cv obj~>lpp path))
dbDeleteObject(obj)
  )
  ("path"
geSelectObject(dbCreatePath(cv obj~>lpp path obj~>width))
dbDeleteObject(obj)
  )
  ("label"
geSelectObject(dbCreateLabel(cv obj~>lpp obj~>xy
   obj~>theLabel obj~>justify obj~>orient
   obj~>font obj~>height
   )
)
dbDeleteObject(obj)
  )
  (t
error("Put On Grid: Encountered unknown shape")
return()
  )
   )
)
)
)

procedure( roundCoord( point xgrid ygrid )
prog( (x y)
x=round((xCoord(point) + compFactor) / xgrid) * xgrid
y=round((yCoord(point) + compFactor) / ygrid) * ygrid
return(list( x y ))
)
)
hiSetBindKey("Layout" "<Key>BackSpace" "putOnGrid()")