;**************************************************************************
;* Comando : linea ()
;* Comentarios: se usa para calcular el largo de una linea. Solo puede
;* usarse con entidades de tipo linea.
;**************************************************************************
(defun c:linea ()
 (setq numeroDeConductores (getreal "\nIngrese numero de conductores :"))
 (princ "\nSeleccione circuito: ")
 (setq conjunto (ssget))
 (setq n (sslength conjunto))
 (setq i 0)
 (setq largo 0)
 (while (< i n)
    (setq entidad (entget (ssname conjunto i)))
    (if (equal (cdr (assoc 0 entidad)) "LINE" )
	(progn
	    (setq p1 (cdr (assoc 10 entidad)))
	    (setq p2 (cdr (assoc 11 entidad)))
	    (setq largo (+ largo (distance p1 p2)))))
    (setq i (+ i 1)))

 (princ "\nLargo : ") (princ largo)
 (princ "\nLargo * ")(princ numeroDeConductores)(princ " conductores = ")
 (princ (* largo numeroDeConductores))(princ " "))

