Auto Number Lisp Program

[Steve Harwell]

Does anyone have a Lisp Program foir Auto-numbering for ACAD R14.

ACAD supplied one but it doesn't work

Thanks

[Gary Ponting]

Here you go. Don't know where I got it so I can't credit the author. I
use it for doing terminal blocks and such. It allows for a prefix. The
text style must also be predefined.

good luck
Gary

-----------Cut Line--------------

; ANUM.lsp
; This function automatically numbers text
(print"Initial Load - Please Wait")

(Defun C:ANUM ()
(Setq ST (Getstring "\nEnter String Prefix: ")) ; Input values
(Setq A (Getint "\nEnter starting number: "))
(Setq B (Getint "\nEnter ending number: "))
(Setq P1 (Getpoint "\nEnter starting point: "))
(Setq C (Getdist "\nDistance between numbers: "))
(Setq A1 (Getangle P1 "\nAngle to run numbers: "))
(Setq T1 (Getstring "\nText insertion type?
<Center, Middle, Right or Start Point
default>: "))
(If (> A B) (Setq E -1) (Setq E 1)) ; test ascending or
descending
(If (= T1 "")
(Progn
(Repeat (+ 1 (Abs (- A B)))
(Setq F (Itoa A))
(Setq F1 (Strcat ST F))
(Command "Text" P1 0 F1)
(Setq A (+ A E))
(Setq P1 (Polar P1 A1 C))
)
)
(Progn
(Repeat (+ 1 (Abs (- A B)))
(Setq F (Itoa A))
(Setq F1 (Strcat ST F))
(Command "Text" T1 P1 0 F1)
(Setq A (+ A E))
(Setq P1 (Polar P1 A1 C))
)
)
)
)
(C:ANUM)

-----------Cut Line--------------

[pres...@powerlisp.com]

I am not exactly sure what you want this program to do, but we have a program
that roughly fits your description. It may be found at
http://www.powerlisp.com/sharewarepages/labeltext.htm. I hope that it meets
your needs.

Stephen L. Bowen
President, PowerLISP Solutions
www.powerlisp.com

In article <35EE1A14...@nfesc.navy.mil>,

Steve Harwell <sha...@nfesc.navy.mil> wrote:
> Does anyone have a Lisp Program foir Auto-numbering for ACAD R14.
>
> ACAD supplied one but it doesn't work
>
> Thanks
>
>

-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum

[XG]

Steve Harwell escreveu na mensagem <35EE1A14...@nfesc.navy.mil>...

>Does anyone have a Lisp Program foir Auto-numbering for ACAD R14.
>
>ACAD supplied one but it doesn't work
>
>Thanks
>

Autodesk Express Tools have a routine that do it and is called "TCOUNT".
These tools are an improvement of Release 14 AutoCAD Bonus Tools and they
have among them very, very, interesting routines for other things.
I sincerely hope in a near future to see them as part of the AutoCAD or
products such as Desktop family.
By the way...
Congratulations AUTODESK for the progress been maid in the last 6 months.
XG