auto numbering

can anyone point me to a free prog for sequential numbering with acad98lt

 

I use this to number my lots for subdivisions. You need to set text style
height to 0 (zero) to work
not a pretty program but it works.
****************************************************************************
(defun c:number ( / ocmd oblp odim )
(setq ocmd (getvar "cmdecho"))
(setq oblp (getvar "blipmode"))
(setq odim (getvar "dimzin"))
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(setvar "dimzin" 0)
(if (= nf nil) (setq nf 1))
(setq nt nf)
(setq nf (getint (strcat "\nLast No. Used: "
(itoa (1- nf)) ", Enter Starting Number: <"
(itoa nf) "> " )))
(if (= nf nil) (setq nf nt))
(setq ht (getreal "Enter Text Height <5>"))
(if (= ht nil) (setq ht 5.0 ))
(while
(setq p (getpoint "Pick Point"))
(command "text" "m" p ht "" nf)
(setq nf (1+ nf))
)
(setvar "cmdecho" ocmd)
(setvar "blipmode" oblp)
(setvar "dimzin" odim)
(prin1)
(princ)
); end defun
*********************************************************************

 

There's no LISP capability in native LT, I believe.

 

right on, nice little program...

 

how do i implement this, tried to define a button, but will not take it
i may be being thick, apologise if i am but i'm a novice at this sort of
thing

 

cut/paste everthing between the **** and the **** on to notepad and name it
number.LSP
then load aplication or drop it in the suite. then open a drawing & type
"number" at the command prompt. worked great for me.

 

TAP TAP TAP

IS THIS THING ON?

He's using LT. No LISP in LT.
--


MichaelB
www.michaelbulatovich.ca

 

ok,, maybe he should try a different LSP then. )

 

Limbo,

LT does not support the use of LISP programs such as the one that S.P.S.
posted, you need to use a macro or diesel unless you have a third party
application lisp enabler installed.

Try this assigned to a button:

ID_AUNUM
[Autonumber]*^C^Ctext;_m;\;;$M=$(getvar,USERI1);setvar;USERI1;$(+,1,$(getvar,USERI1))

I have not tested it on LT98 but it works on LT2000-2005.

 

What is that, Chip? Spanish? ; )

 

what is this supposed to do? all it does is prompt for a text string one
time.