Re: Looking for lisp routine

On Mon, 24 Nov 2003 22:53:19 GMT, "Duval" <[EMAIL PROTECTED]> wrote:

>Does anyone have any info on where to find a Lisp
>routine that will place a text Number everywhere I click
>and automatically increment the value for the next one.
>Mark
>

Just copy/paste the following in to a simple ASCII file with extention
LSP 
COUNT.LSP for example
Load to AutoCAD
Type COUNT at the command prompt 
Push ENTER and enjoy

Boba
--------------------------------------------------------------------------------------------------



;|To insert numbers in ascending order|;

(defun C:COUNT (/ count ip num)
(while (setq count (getint "\nEnter starting number: "))
       (while (setq ip (getpoint "\nPick insertion point: "))
              (setq num (itoa count) count (1+ count))
              (command "TEXT" ip "" "" num)
       );while
);while
(setq count nil ip nil num nil)
);end