Numera secuencialmente en Autocad
AutoCad
1.760 visualizaciones desde el 9 de Noviembre del 2020
Numera secuencialmente en Autocad, para diferenciar elementos.
Escribir en la linea de comando: "APPLOAD", cargar archivo numera.lsp
Para iniciar el programa escribir en la linea de comando: "numera".
Escribir en la linea de comando: "APPLOAD", cargar archivo numera.lsp
Para iniciar el programa escribir en la linea de comando: "numera".
(setq a0 (getint "Numero de Partida "))
(command "osnap" "off")
(while (setq p1 (getpoint "Presione el punto donde quiere el numero: "))
(setq t1 (itoa a0))
(command "donut" 50 49 p1 "")(terpri)
(command "-style" "STANDARD" "" 22 "" "" "" "" "")
(command "text" "J" "MC" p1 0 t1)
(setq a0 (+ a0 1))
(prin1)
)
)
(Defun c:numera ()
(setvar "cmdecho" 0)
(numera)
(setvar "cmdecho" 1)
(prin1)
)
(prompt "Programa creado por el Ing. Elmer Flores, para empezar escriba _numera_ y luego presionar intro")(prin1)