;; numera.lsp
;;
;; Autor: Arch. Giuseppe Conte           Data: 29/30/2001
;;
;; Descrizione: Il programma inserisce una sequenza di numeri in progressione
;; aritmetica.
;;                         
;;------------------------------------------------------------------------

(prompt "Comando : numera")
(defun C:numera ( / ni nf px)

   (setvar "CMDECHO" 0)
   (setq ni (getdist "\nNumero iniziale:  ")   ;richiesta parametri utente 
         nf   (getdist "\nRagione:  ")
         px   (getpoint "\nPunto iniziale:  ")
   );setq calcoli
 
;   (command "_text" px "" (fix ni) "")    ;inserimento primo termine

        (WHILE (/= px nil)		;comincia il ciclo
		(if  (/= px nil)
			(progn         
	               	(command "_text" px "" (fix ni) "")   ;incrementa
                    	);end progn
		);end if
		(setq 	ni (+ ni nf)
			px (getpoint "\nPunto inserimento:  ")
		);setq
        );end while

   (setvar "CMDECHO" 1)
   (gc) (princ "\Comando: numera")
);defun
