Trying to adjust point marker location

[CyberAngel]

We use point styles with markers (which are blocks) instead of separate entities (which are also blocks) to show utility equipment like hydrants and valves. At least, the surveyors do. The engineers turn off the markers and insert blocks nearby to reduce clutter.

 

That seems clunky to me. I would like to be able to offset a marker, the way you can rotate a marker, and put it somewhere nearby. I get that you can't just add a property to a Civil3D object, so we'd add user-defined properties for X and Y. So far so good. Where I get stuck is changing the position of the marker in relation to the point. You can change the insertion point of the block, but that applies to every instance. Dynamic blocks might work, but there would have to be a way to protect the dynamic parameters and actions from anyone who tries to change the block. You'd have to adjust the rotation every time you changed the position, and vice versa.

 

It seems like more trouble than it's worth, but if there's something simple I'm missing, I'd appreciate any suggestions.

[BIGAL]

This is cut out of a CIV3D lisp for write text height of a cogo point. 

(alert "Pick CIV3D points press ESC or pick nothing to exit")
  (while (setq obj (vlax-ename->vla-object  (car (entsel))))
 ; vl 3d point convert to plain lisp 
  (setq pt1 (vlax-safearray->list (vlax-variant-value (vlax-get-property obj "Location"))))

Not sure but you may be able to put "Location".

[CyberAngel]

I can get the marker location using your code, BigAL, but I can't set it. The closest I came up with is this statement:

 

(vlax-put-property obj "Location" (vlax-3d-point <northing> <easting> <elevation>))

 

but I get error: Automation Error. The parameter is incorrect.  I see that a lot doing VLA code. Maybe there's another step  to get the right variant format?