;*******************************************************************
;* Comando item
;* Este comando se usa para dibujar el circulo, la flecha, el numero y las
;* lineas correspondientes a un simbolo de item.
;*
;*
;*

(defun c:item ()
  ; !!!!!!!!!!!
  ;acordarme de quitar el osnap, commandecho etc.
  ;
  
  (setq osmode (getvar "osmode"))
  (setq cmdecho (getvar "cmdecho"))
  (setq gridmode (getvar "gridmoe"))
  (setvar "gridmode" 0)
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  
  (setq pi 3.141516)

    (setq escala (getdist "\nEscala: "))
    (while t
        (setq p1 nil)
        (setq p2 nil)
        (while (not p1) (setq p1 (getpoint "\nPunto: ")))
        (while (not p2) (setq p2 (getpoint "\nPunto: ")))
        (setq angulo (angle p1 p2))
        (command "INSERT" "FLECHA" p1 escala escala (+ 180 (/ (* 180.0 angulo) pi)))
        (command "line" p1 p2 "")
        (setq puntoAnterior2 p1)
        (setq puntoAnterior p2)
            (while puntoAnterior
                (setq punto (getpoint "\nPunto: "))
                (if (and punto puntoAnterior)
                    (command "line" punto puntoAnterior "")
                    (progn
                        (setq angulo (angle puntoAnterior2 puntoAnterior))
                        (setq numero (getint "\Numero: "))
                        (command "insert" "circulo" (polar puntoAnterior angulo escala) 
                                     escala escala 0 numero)
                     )
                 )
           (setq puntoAnterior2 puntoAnterior)
           (setq puntoAnterior punto)
           )
      )
    (setvar "gridmode" gridmode)
    (setvar "osmode" osmode)
    (setvar "cmdecho" cmdecho)
  )