AutoNumber Routine Help...

[akdrafter]

Hello All,
How do I get the following routine to "Cleanly" quit running when the user is done picking points for the incremental numbers by hitting enter. As it is now you have to hit "ESC" to end the routine and the routine basically works but if you hit enter without selecting a point it basically bombs.

Any help is appreciated and shall be noted in the final routine.

"Catch" Ya Later,
AKDRAFTER

(defun c:ABC (/)
(setq DIMSC(getvar "DIMSCALE"))
(setq HIT (* DIMSC 0.12500000))
(setq NBR (getint "Enter The First Number:"))
(setq X 1)
(while X
(setq PT (getpoint "\nSelect Point:"))
(command "text" "j" "BC" PT HIT "0.00000000" NBR)
(setq NBR (+ NBR 1))
)
)

 

[Rudy Tovar]

It's not a perfect world we live in.

I would suggest you use 'entmake' and have the text created to your specs.

If the user or anyone defines a height for the 'Textstyle' the utility will fail.

Hello All,
How do I get the following routine to "Cleanly" quit running when the user

is done picking points for the incremental numbers by hitting enter. As it is now you have to hit "ESC" to end the routine and the routine basically works but if you hit enter without selecting a point it basically bombs.

 

[akdrafter]

and how would I do such a thing?

"Catch" Ya Later,
AKDRAFTER