Fixing an old LISP - PUTPT

[Dinah]

I am using AutoCAD 2023.  I have a LISP named PUTPT that was created in 1994.  It is no longer working efficiently, but I'm struggling with how to repair or recreate it.

It is being using to manually input elevation points to a 2D drawing (engineer survey of a foundation).  Once these points are added to the drawing, they are converted to variance amounts using another LISP which is working fine.

The PUTPT LISP works fine until I get to the part of the LIPS that adds the elevation value.  I add the value and then is brings up the DATA dialogue box and the value has to be entered again, basically negating the efficiency of using the LISP.  Below is the description of the LISP.

 

This routine places the block "data" in the drawing
; and prompts you for the elevation.  You are allowed 
; to enter an initial fudge factor which will be applied
; to the elevation.  A <cr> at the insertion prompt 
; kills the program.
;

 

I've tried bypassing the LISP and just using the DATA block but it adds too many steps to the process and the font of the elevation is too large.   I've attached the file for the LISP.  If anyone has any ideas of how to fix this so I can enter the elevation value and bypass the DATA dialogue box or any ideas on how to streamline the process of adding the elevation point to my drawings, I would be very grateful.

PUTPT.LSP

[mhupp]

Looks like your inserting a block "data" with an attribute. It might have more then one now? can you attach the block?

 

--edit

might just need to set attdia to 0  ?

(setvar 'attdia 0)

 

 

Edited November 1, 2022 by mhupp

[Dinah]

Thank you so much!!! mhupp, that appears to have fixed my problem.  You are the best!