skill program to fix off grid pin in symbol

You could do something like the following (you'll need to fill in some of the details)

;; open the symbol cellView, cv = the cellView ID

;; iterate over all shapes which are pins

foreach(fig setof(X cv~>shapes X~>pin)

  cond(

     ( member(fig~>objType list("rect" "ellipse))

        xy = centerBox(fig~>bBox)

    )

    ( ;; code to deal with other shapes

    )

   (t

     error("Unable to handle %L" fig~>objType)

  )

  ) ; ** cond **

  ;; now check that xCoord(xy) and yCoord(xy) are both on-grid and if not, put them on-grid

  ;; and update the figure location.  For a "rect", just find the bounding box width/height and

  ;; compute a new bounding box with the same width/height whose center is on-grid and then

  fig~>bBox = new_box

  ;; for other shapes you may need some other bits of code.

)