;*******************************************************************
:* Comando : ican
;* Comentarios : esta funcion se usa para insertar simbolos
;* unilineales en una forma mas natural que con el comando insert.
;* Se usa basicamente para los bloques de simbolos
;*******************************************************************
;
; Change Log
;
; 14/10/94 C.Perigault  Creacion
;
(defun c:ican()
   (setq nombre (getstring "\nNombre del equipo: "))
   (setq path   (getenv "SUBCAN")) 
   ; SUBCAN varible del sistema que posee el path dondo se encuentran 
   ; los dibujos de canalizacion  
   
   ; vemos si el bloque existe en el dibujo
   ; de no ser asi lo buscamos en el disco
   (if (tblsearch "BLOCK" nombre)
     (progn
       (setvar "TEXTEVAL" 1)
       (command "INSERT" nombre pause)
       (setvar "TEXTEVAL" 0)
     ); progn
     ; buscamo el dibujo en el disco
     (if (findfile (strcat path "\\" nombre ".dwg"))
       (progn
	 (setvar "TEXTEVAL" 1)
	 (command "INSERT" (strcat path "\\" nombre ".dwg")  pause 1 1 pause)
	 (setvar "TEXTEVAL" 0)
       ); progn
       (princ (strcat "\nEl equipo: " nombre " no se encuentra" ))
    ); if
   ); if
); defun
