COMENTARIO"
Publicado por VGAETE (83 intervenciones) el 11/04/2002 01:10:45
Este es otro modelo:
(defun c:nmasuno (/)
(prompt
"\nNMASUNO Version 1.0 2002 \npor VGaete / SpeedCAD. \[email protected] / [email protected] "
)
(setvar "OSMODE" 0)
(setvar "BLIPMODE" 0)
(setvar "cmdecho" 0) ;;;Esto lo hago para que no me aparesca el comando texto todas la veces que escribe un texto
(setq a (getreal "\nIngrese Valor a Incrementar: ")
b (1+ a)
c (1+ b)
d (1+ c)
e (1+ d)
f (1+ e)
g (1+ f)
h (1+ g)
i (1+ h)
j (1+ i)
)
(command "text" "j" "m" pause 2.5 0 (rtos a 2 2))
(command "text" "j" "m" pause 2.5 0 (rtos b 2 2))
(command "text" "j" "m" pause 2.5 0 (rtos c 2 2))
(command "text" "j" "m" pause 2.5 0 (rtos d 2 2))
(command "text" "j" "m" pause 2.5 0 (rtos e 2 2))
(command "text" "j" "m" pause 2.5 0 (rtos f 2 2))
(command "text" "j" "m" pause 2.5 0 (rtos g 2 2))
(command "text" "j" "m" pause 2.5 0 (rtos h 2 2))
(command "text" "j" "m" pause 2.5 0 (rtos i 2 2))
(command "text" "j" "m" pause 2.5 0 (rtos j 2 2))
(prin1)
)
Saludos VGAETE .....:-)
(defun c:nmasuno (/)
(prompt
"\nNMASUNO Version 1.0 2002 \npor VGaete / SpeedCAD. \[email protected] / [email protected] "
)
(setvar "OSMODE" 0)
(setvar "BLIPMODE" 0)
(setvar "cmdecho" 0) ;;;Esto lo hago para que no me aparesca el comando texto todas la veces que escribe un texto
(setq a (getreal "\nIngrese Valor a Incrementar: ")
b (1+ a)
c (1+ b)
d (1+ c)
e (1+ d)
f (1+ e)
g (1+ f)
h (1+ g)
i (1+ h)
j (1+ i)
)
(command "text" "j" "m" pause 2.5 0 (rtos a 2 2))
(command "text" "j" "m" pause 2.5 0 (rtos b 2 2))
(command "text" "j" "m" pause 2.5 0 (rtos c 2 2))
(command "text" "j" "m" pause 2.5 0 (rtos d 2 2))
(command "text" "j" "m" pause 2.5 0 (rtos e 2 2))
(command "text" "j" "m" pause 2.5 0 (rtos f 2 2))
(command "text" "j" "m" pause 2.5 0 (rtos g 2 2))
(command "text" "j" "m" pause 2.5 0 (rtos h 2 2))
(command "text" "j" "m" pause 2.5 0 (rtos i 2 2))
(command "text" "j" "m" pause 2.5 0 (rtos j 2 2))
(prin1)
)
Saludos VGAETE .....:-)
Valora esta pregunta
0