skill错误问题

jinglong1995

运行下面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()")

amodaman

这个脚本我跑了一下，除了热键定义的不工作之外，其他的功能没问题啊。

还有一个小问题是pathSeg这种图形类型不支持。

amodaman

附件显示， 没啥问题

jinglong1995

amodaman 发表于 2020-6-10 20:59
附件显示， 没啥问题

脑壳痛，我这就报错，很烦。

amodaman

你是怎么运行的?

1）确保当前窗口是一个layout view的窗口吗？
2）是否有写权限？
3）硬盘空间是否还有剩余？
4）版图上是不是有图形？
5）有没有选择一个图形（Selection Set是否为空）？
6）techFile 属性是不是正确附加在库上面了？

aixingril

会不会你的版图格点设置最小不是0.001，比如是0.005。

scmyhbj

快捷键那里“layout"应该是大写”Layout"吧？

jfxyl

在你的环境里 roundCoord( point  这个函数调用时有个point为nil。你自己看看哪个调用roundCoord时point没有弄对

泡泡峰

代码升级一下，是不是可以检查全图呢，现在好像只能检查线在不在格点上

happydayTT

这应该试工艺不一样的原因