Buenos días.
Estoy creando una pequeña rutina pero ando un poco atascado, ya que soy muy novato.
Alguien puede ayudar a como hacer que numere consecutivamente?
Muchas gracias de antemano.
Código: Seleccionar todo
(defun c:crealinea (/ p1 p3 pf ID)
(WHILE
(setq p1 (getpoint "\nIndica Inicio de la Linea: "))
(setq pf (getpoint p1 "\nIndica Fin de la Linea: "))
(setq p3 (polar pf (angle pf p1) 10))
(setq ID "1")
(entmake (list '(0 . "LINE");;;
'(6 . "BYLAYER");;;TIPO LINEA (TIENE QUE ESTAR CARGADA EN EL DIBUJO)
'(8 . "nueva");;;NOMBRE CAPA
(cons 10 p1)
(cons 11 p3)
(cons 39 0.0)
(cons 62 256);;;COLOR
(cons 210 (list 0.0 0.0 1.0))
))
;;;(defun creacirculo(/ c1)
;;;(setq c1 (getpoint "\nIndica el Centro del Circulo: "))
(entmake (list '(0 . "CIRCLE") ;***
'(6 . "BYLAYER")
'(8 . "0")
(cons 10 pf) ;***
(cons 39 0.0)
(cons 40 10.0) ;***
(cons 62 256)
(cons 210 (list 0.0 0.0 1.0))))
(entmake (list '(0 . "TEXT") ;***
(cons 1 ID) ;***
(cons 6 "BYLAYER")
(cons 7 "STANDARD") ;***
(cons 8 "0")
(cons 10 pf) ;***
(cons 11 pf) ;***
(cons 39 0.0)
(cons 40 8.0) ;***
(cons 41 1.0)
(cons 50 0.0)
(cons 51 0.0)
(cons 62 256)
(cons 71 0)
(cons 72 4)
(cons 73 0)
(cons 210 (list 0.0 0.0 1.0))))
)
(princ)
)