Skill code for Off Grid errors

Here is the code from CCSputRodMppOnGrid.  I don't have a copy with all the disclaimers but to summarize, you should use this at your own risk.

procedure(CCSputRodMppOnGrid(cv rodId)

let( (shpIds compFactor path xgrid ygrid newpath obj1)

xgrid = ygrid = 0.005

;compFactor = 1 / cv~>DBUPerUU

compFactor = 0

;; Compile a list of all MPP shapes including the master path

shpIds=cons(rodId~>dbId rodId~>subShapes)

;; Find out coordinates of all the existing MPP shapes

foreach( obj shpIds

case( obj~>objType

(("rect")

path = obj~>bBox

path = list( lowerLeft(path)

list(xCoord(upperRight(path)) yCoord(lowerLeft(path)))

upperRight(path)

list(xCoord(lowerLeft(path)) yCoord(upperRight(path))))

)

("path"

/* In case of path create a dummy shape because don't want to modify the MPP shapes. And the code will be converting the path to polygon. */

obj1=dbCopyFig(obj cv)

obj1=dbConvertPathToPolygon(obj1)

path=obj1~>path

)

("polygon"

path = obj~>path

)

) ;case

;; newpath will store coordinates rounded to grid. Need to be reinitialized in every loop.

newpath=nil

;; Round all the coordinates to grid

foreach( pt path

newpath=cons(roundCoord(pt xgrid ygrid compFactor) newpath)

) ;foreach

;; Create new shapes on the rounded coordinates

path=newpath

case( obj~>objType

("path"

dbCreatePolygon(cv obj~>lpp path)

dbDeleteObject(obj1)

)

(("rect" "polygon")

dbCreatePolygon(cv obj~>lpp path)

)

) ;case

) ;foreach

;; Delete the ROD MPP

dbDeleteObject(rodId~>dbId)

t

) ;let

) ;proc

procedure( roundCoord( point xgrid ygrid compFactor )

let( (x y)

x=round((xCoord(point) + compFactor) / xgrid) * xgrid

y=round((yCoord(point) + compFactor) / ygrid) * ygrid

list( x y )

) ;let

) ;procedure