changing point block to match elev of attribute

I have an interesting problem.
I use a lisp to import coordinate files from the survey crew. The lisp
inputs a block containing attributes for the Point number, Elevation and
description. I usually have to change all of these points to a 0 elevation
for drawing purposes.

Is there a lisp out there that will allow me to change the elevation of the
point block back to the elevation designated in the elevation attribute. Say
if the block it at 0 elevation, but the attribute says it is at 503.83
elevation. I'd like to be able to run a lisp that would place that block
back at the proper elevation in space.

maybe there is something out there that can be adapted to use my
attributes.

Attributes used are:
ELEV
POINT
DESC.

Thanks for any help.

 

Reactor_call_insertion
Check_block_name
Return_block_value
Validate_value
Vla-put-insertionpoint(safe-array substitute Z)

--
Rodolfo Tovar
www.Cadentity.com
AUTODESK
Authorized Developer
MASi
(Modulated Architectural Symbols Innovated)
Version 2.01

 

Thanks Terry....
I allways look in toolpac first. Guess I didn't look deep enough. I probably
need to memorize the manual!

Mike