Los bloques incluidos en este programa son bloques dinámicos con distintas propiedades y visualizaciones para adaptarse a las necesidades del dibujo.
Comandos en AutoCAD Utilice SIMDETSEC en la línea de comandos para ejecutar la aplicación en AutoCAD. Caracteristicas El programa usa el Objeto "ObjectDBX.AxDbDocument", para obtener e insertar los bloques de símbolos contenidos en el archivo Simbolos_dbx.dwg.
Configuración Los archivos han de estar en una ruta de AutoCAD válida. (ver Ordenación y carga de nuestros archivos de programación en AutoCAD)
En nuestro caso la ruta para estas utilidades la he colocado en el directorio "Simbolos" dentro de nuestro proyecto: "LaMarmita\Simbolos", y he añadido la ruta parcial de carga al código de "LaMarmita.mnl":
;;Carga de funciones de La Marmita:
(setq MiListLISP
'("jlgg_Auxiliares.lsp"
;;simbolos:
"Simbolos\\InsertEscalasGRP.lsp"
"Simbolos\\SimbDetallesSecciones.lsp"
;;Utiles:
"Utiles\\UCSAux.lsp"))Puede cambiarse la configuración del programa editando el mismo al principio de la sección MAIN:
;;--------------------------------- MAIN --------------------------------------
;;Variables Globales:
(setq $NameFileDat$ "Simbolos_dbx.dwg") ;;Nombre de la base de datos
(setq $LayerSimbolo$ "ARQ_Simbolos") ;;Nombre de capa para las escalas
(setq $SubPath$ "Simbolos\\")- $NameFileDat$: asigna el nombre del archivo que contiene los bloques de símbolos.
- $LayerSimbolo$: asigna la capa donde se insertarán los bloques de símbolos en AutoCAD.
- $SubPath$: asigna el sub-directorio donde buscar el archivo de bloques (Simbolos_dbx.dwg).
$SubPath$ puede cambiarse si se aloja en una ruta principal por:
(setq $SubPath$ "")(setq $SubPath$ "MiRuta1\\MiRuta2\\..\\")
El archivo de simbolos (Simbolos_dbx.dwg) es un archivo de Autocad
(dwg) que contiene los bloques de simbolos,
este se puede abrir con Autocad y editarse para añadir mas símbolos o
modificar las existentes (bajo la responsabilidad del usuario), personalmente
recomiendo hacer una copia de seguridad del archivo antes de modificarlo.
Nota: En el archivo de símbolos existen otro tipo de bloques que utilizaremos mas adelante con otro programa.(¡no borrarlos!). |
Ejemplo:Esto hara que el programa localize la foto y la muestre en el cuadro de dialogo.
Nombre de bloque Archivo de foto SIM_DET_012 SIM_DET_012.SLD
Nota: Mientras el archivo de escalas este abierto, el programa no funcionará, devolverá un error:
Select all
;;********************************* C:SIMDETSEC ****************************************
;;Revisiones:
;; Versión 1.3.0
;; José Luis García Galán 05/2015 para LaMarmita
;; Versión 1.2.0
;; José Luis García Galán 11/11/14
;; Versión 1.1.9
;; José Luis García Galán 27/05/11
;;
;;PROGRAMA DE INSERCION DE SIMBOLOS DE DETALLE, SECCION Y OTROS
;;**************************************************************************************
(defun C:SIMDETSEC (/ ;|Registro|; BLK_SIMB ESC_SDS
;|GLOBALES|; $NameFileDat$ $PathFileDat$ $LstSimbsDS$ $SubPath$
$LayerSimbolo$ SDS_Ins atribs
;|funciones|; SimbDetSec_DLG *error*
SimbToActiveDoc OpenDrawingDBX GetSimbsSDSInDWGDat
GetVal_Reg_SDS
)
;;--------------------------------- GetVal_Reg_SDS -------------------------------------------
;;Datos de usuario para el programa SIMDETSEC obtenidos y guardados en el registro de Windows
;; (mapcar (function (lambda (x) (set (read (car x)) (cadr x)))) (GetVal_Reg_SDS))
;;--------------------------------------------------------------------------------------------
(defun GetVal_Reg_SDS ( / LisVal RetVal lis_fle)
(setq LisVal (list ;;'("MinHoja" "0.35" t) ;;example Force Write
'("blk_simb" "SIM_SEC_01_1TXT")
'("esc_SDS" "1.000000")
))
(setq RetVal (jlgg-GetVal_Reg_Command LisVal "SimDetSec"))
);c.defun
;;----------------------------- GetSimbsSDSInDWGDat --------------------------------------
;;
;; (GetSimbsSDSInDWGDat "T:\\ACAD2005\\AppsAc2005\\Registro\\Final\\ESCALAS.dwg")
;;----------------------------------------------------------------------------------------
(defun GetSimbsSDSInDWGDat ( / ObjDbx ObjBlocks Each ListResult BlkName Description strEscala n)
(cond
((not (setq ObjDbx (OpenDrawingDBX $PathFileDat$)))
(setq ListResult (list "*error*"))
)
(T
(setq ObjBlocks (vla-get-Blocks ObjDbx))
;- - - - - - - - - - - - - - - - - - - - - - - - - - -
(vlax-for Each ObjBlocks
;(vlax-dump-Object Each)
(cond
((and
(not (vl-catch-all-error-p
(setq BlkName (vl-catch-all-apply (function vla-get-Name) (list Each)))))
(wcmatch (strcase BlkName) "SIM_DET*,SIM_SEC*")
);c.and
(setq ListResult (cons BlkName ListResult))
)
)
);c.vlax-for
(jlgg-release-object (list ObjDbx ObjBlocks))
;- - - - - - - - - - - - - - - - - - - - - - - - - - -
)
);c.cond
(setq ListResult (vl-sort ListResult (function (lambda (e1 e2) (< e1 e2)))))
);c.defun
;;------------------------ OpenDrawingDBX ------------------------------------------
;; Abrir un archivo de Autocad sín necesidad de abrirlo en Autocad
;; Carga de la intrfaz y comprobaciones de apertura
;; Ejemplo: (setq a (OpenDrawingDBX "E:\\PROGRAMACION\\UTAS\\Ejemplo_UTA1.dbx"))
;; devuelve: VLA-OBJECT IAxDbDocument
;;----------------------------------------------------------------------------------
(defun OpenDrawingDBX (filename / FullPathFile checkFile ObjDbx release)
(cond
((or (not filename)
(/= (type filename) 'STR))
(alert "ERROR:\nArgumento para la ruta de archivo No Valido.")
)
((not (setq FullPathFile (findfile filename)))
(alert
(strcat "El Archivo de Datos: \n[ " filename " ]"
"\n\n No se encontro."
" Compruebe la ruta del archivo."))
)
;;Comprobamos la carga de la interfaz
((not
(vl-catch-all-apply (function (lambda ()
;;Obtención de la Interfaz del Objeto: ObjectDBX
(setq ObjDbx (vlax-create-object
(if (< (setq release (atoi (getvar "ACADVER"))) 16)
"ObjectDBX.AxDbDocument"
(strcat "ObjectDBX.AxDbDocument." (itoa release)))))))))
(alert
(strcat "No se pudo obtener la interfaz de [ObjectDBX]"
"\nConsulte al programador."))
(jlgg-release-object (list ObjDbx))
(setq ObjDbx nil)
)
;; el archivo esta abierto por otro usuario (solo lectura) o esta dañado
((vl-catch-all-error-p
(vl-catch-all-apply 'vla-open (list ObjDbx FullPathFile)))
(alert
(strcat "El Archivo de Datos: "
(vl-filename-base FullPathFile) (vl-filename-extension FullPathFile) "\n"
"\n No se pudo abrir para su uso."
"\n Compruebe si el archivo esta en uso o dañado."
"\n Despues, Pruebe a ejecutar el comando de nuevo."))
(jlgg-release-object ObjDbx)
(setq ObjDbx nil)
)
)
ObjDbx
);c.defun
;;------------------------------- SimbToActiveDoc ---------------------------------------------
;; Carga el bloque de Escala al dibujo actual
;; strNameBlk: Nombre del bloque a pasar al documento actual
;;---------------------------------------------------------------------------------------------
(defun SimbToActiveDoc (strNameBlk / RetVal ObjDbx ActiveDoc ActdBlksCol DBXModelSP Obj n
;|Funciones|; MakeCopyObj)
;;------------------------------- MakeCopyObj ----------------------------------------
;;Función que copia un objeto del documento en archivo al documento activo de Autocad
;;------------------------------------------------------------------------------------
(defun MakeCopyObj (Obj / NewObj)
(cond
((and
(not (vl-catch-all-error-p
(setq NewObj (vl-catch-all-apply
(function vla-CopyObjects)
(list ObjDbx
(vlax-safearray-fill
(vlax-make-safearray vlax-vbObject '(0 . 0))
(list Obj)
)
ActdBlksCol)))
))
NewObj
)
(setq RetVal T)
;;(setq NewObj (car (vlax-safearray->list (vlax-variant-value NewObj))))
)
);c.cond
RetVal
);c.defun
;;------------------------- MAIN -------------------------------------------
(setq ActiveDoc (vla-get-ActiveDocument (vlax-get-acad-object)))
(setq ActdBlksCol (vla-get-Blocks ActiveDoc))
(cond
((not (setq ObjDbx (OpenDrawingDBX $PathFileDat$)))
(setq RetVal nil)
)
(T
(setq DBXBlocks (vla-get-Blocks ObjDbx)) ;blocks Colection en Dibujo de datos de bloques
(setq Obj (vla-item DBXBlocks strNameBlk))
(setq RetVal (MakeCopyObj Obj))
)
);c.cond
;- - - - - - - - - - - - - - - - - - - - - - - - - - -
(jlgg-release-object (list ActiveDoc ActdBlksCol ObjDbx DBXBlocks))
RetVal
);c.defun
;;------------------------------------------- SimbDetSec_DLG -------------------------------------
;; funcion de opciones del programa en cuadro de dialogo
;;------------------------------------------------------------------------------------------------
(defun SimbDetSec_DLG (/ ;|Registro|; blk_simb esc_SDS
FichDlg idxDlg accion retVal pos
;|Funciones|; WriteDialogSimb_DET-SEC do_lst_simb do_img_SDS img_SDS SDS_DLG_ok do_num im_col Do_Dec
;|Funciones Imagen|; vectors_SIM_SEC_BRAZO vectors_SIM_SEC_01_2TXT vectors_SIM_SEC_01_1TXT
vectors_SIM_DET_TIT_01_1TXT vectors_SIM_DET_TIT_01_2TXT
vectors_SIM_DET_Solape_Planos vectors_SIM_DET_01_2TXT vectors_SIM_DET_01_1TXT
vectors_SIM_DET_02_2TXT vectors_SIM_DET_02_1TXT
)
;;----------------------------- WriteDialogSimb_DET-SEC -----------------------------------
;; Definir archivo de cuadro de dialogo
;;-----------------------------------------------------------------------------------------
(DEFUN WriteDialogSimb_DET-SEC ( / dir FichDlg openFile)
(setq dir (getvar "TEMPPREFIX"))
(setq FichDlg (strcat dir "$simbdetsec$.dcl"))
(cond
(T ;;Forzar reescribir el cuadro (programando)
;;((not (findfile FichDlg))
(setq openFile (open FichDlg "w"))
(write-line "// ---------------------------------------------------------------" openFile)
(write-line "// CUADRO DE DIALOGO DE SIMBOLS DE DETALLE Y SECCIONES" openFile)
(write-line "// ---------------------------------------------------------------" openFile)
(write-line "simbdetsec : dialog {" openFile)
(write-line " label = \"simbolos de detalle y secciones\";" openFile)
(write-line " : column {" openFile)
(write-line " : boxed_column {" openFile)
(write-line " label = \"Opciones:\";" openFile)
(write-line " //children_alignment = centered;" openFile)
(write-line " //fixed_height = true;" openFile)
(write-line " : image_button {" openFile)
(write-line " key = \"img_SDS\";" openFile)
(write-line " width = 38;" openFile)
(write-line " height = 10.0;" openFile)
(write-line " fixed_width = true;" openFile)
(write-line " color = graphics_background;" openFile)
(write-line " //color = dialog_background;" openFile)
(write-line " aspect_ratio = 1.0;" openFile)
(write-line " }" openFile)
(write-line " : popup_list {" openFile)
(write-line " key = \"lst_simb\";" openFile)
(write-line " }//c.popup_list" openFile)
(write-line " : spacer {height=0.5;}" openFile)
(write-line " : edit_box {" openFile)
(write-line " horizontal_margin = none;" openFile)
(write-line " label = \"&Escala: \";" openFile)
(write-line " key = \"esc_SDS\";" openFile)
(write-line " edit_width = 8;" openFile)
(write-line " fixed_width = true;" openFile)
(write-line " value = \"1.0\";" openFile)
(write-line " }" openFile)
(write-line " : spacer {height=0.05;}" openFile)
(write-line " }//c.boxed_column" openFile)
(write-line " }//c.column" openFile)
(write-line " : spacer {height=0.1;}" openFile)
(write-line " //spacer_1;" openFile)
(write-line " ok_cancel_err;" openFile)
(write-line "}" openFile)
(close openFile)
)
);c.cond
FichDlg
);c.defun
;;_____________________________________________________________
;; accion de chequeo de numeros
;;(ACTION_TILE "esc_SDS" "(do_num $key \"Altura de Texto \" 6)")
(defun do_num ( ll mens cod / r)
(if (setq r (jlgg-test_numr (get_tile ll) mens cod)) ; si es valida
(progn
(set_tile "error" "")
(set (read ll) r)
(set_tile ll (rtos r 2 4))
);c.prg
(progn
(mode_tile ll 2)(mode_tile ll 3)
)
);c.if
)
;;____________________________________________________________
;;testeo de aceptar
(defun SDS_DLG_ok()
(cond
((not (jlgg-test_numr (get_tile "esc_SDS") "Valor de Escala " 6)))
(t (setq pos_Dlg_SDS (done_dialog 1)))
);c.cond
);c.defun
;;____________________________________________________________
;;define el tipo de cota
(defun do_lst_simb (Val)
(setq blk_simb (nth Val $LstSimbsDS$))
(img_SDS)
)
(defun do_img_SDS (/ i )
(setq i (vl-position blk_simb $LstSimbsDS$))
(if (not (setq blk_simb (nth (1+ i) $LstSimbsDS$)))
(setq blk_simb (car $LstSimbsDS$))
)
(set_tile "lst_simb" (itoa (vl-position blk_simb $LstSimbsDS$)))
(img_SDS)
)
;;____________________________________________________________
(defun img_SDS (/ long alto f)
(start_image "img_SDS")
(setq long (dimx_tile "img_SDS")
alto (dimy_tile "img_SDS")
);c.s.
(fill_image 0 0 long alto -2)
(if (boundp (READ (strcat "vectors_" blk_simb )))
(eval (read (strcat "(vectors_" blk_simb ")")))
;;else
(if (setq f (findfile (strcat $SubPath$ blk_simb ".sld")))
(slide_image 0 0 long alto f)
;(slide_image 0 0 long alto (strcat $SubPath$ "simbolos(" blk_simb ")")) ;para biblioteca "slb"
)
)
(end_image)
);c.defun
;;
;;Vectores de imagen:
;;Imagen del simbolo "SIM_DET_02_1TXT"
(defun vectors_SIM_DET_02_1TXT ()
(mapcar 'vector_image; Color 251
(list 107 107 107 107 107 107 107 107 107 107 107 107 107 107 109 115 119 121 123 125 127 128 129 130 132 133 133 134 135 136 137 137 138 138 139 139 140 140 141 141 141 141 142 142 142 142 142 142 142 142 143 142 142 142 142 142 142 142 142 141 141 141 140 140 140 139 139 138 138 137 136 136 135 134 133 132 131 130 129 127 126 124 122 120 117 113 107 107 107 107 107 107 107 107 107 107 107 107 107 107 107)
(list 15 16 18 17 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115)
(list 108 109 111 110 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 157 156 155 154 153 152 151 150 149 148 147 146 145 144 143 142 141 140 139 138 137 136 135 134 133 132 131 130 129 128 127 126 125 124 123 122 121 120 119 118 117 116 115 114 113 112 111 110 109 108 107)
(list 15 16 18 17 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115)
(list 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251)
);mapcar
(mapcar 'vector_image; Color 7
(list 107 107 108 108 109 109 110 110 111 111 112 113 113 114 114 115 115 116 116 117 117 118 118 119 119 120 120 121 121 122 122 123 123 124 124 125 125 126 126 126 127 127 128 128 129 129 130 130 131 131 131 132 132 133 133 133 134 134 134 135 135 136 136 136 137 137 137 137 138 138 138 138 139 139 139 139 140 140 140 140 140 141 141 141 141 141 141 141 142 142 142 142 142 142 142 142 142 142 142 142 142 142 143 143 142 142 142 142 142 142 142 142 142 142 142 142 142 142 141 141 141 141 141 141 141 140 140 140 140 140 139 139 139 139 138 138 138 138 137 137 137 137 136 136 136 135 135 135 134 134 133 133 133 132 132 131 131 131 130 130 129 129 128 128 127 127 126 126 125 125 124 124 123 123 122 122 121 121 120 120 119 119 118 118 117 117 116 116 115 115 114 114 113 113 112 111 111 110 110 109 109 108 108 107 107 106 106 105 105 104 103 103 102 102 101 101 100 100 99 99 98 98 97 97 96 96 95 95 94 94 93 93 92 92 91 91 90 90 89 89 88 88 87 87 86 86 86 85 85 84 84 83 83 82 82 82 81 81 80 80 80 79 79 79 78 78 78 77 77 77 76 76 76 76 75 75 75 75 74 74 74 74 73 73 73 73 73 73 72 72 72 72 72 72 72 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 72 72 72 72 72 72 72 73 73 73 73 73 73 74 74 74 74 75 75 75 75 76 76 76 76 77 77 77 78 78 78 79 79 79 80 80 81 81 82 82 83 83 84 84 85 85 86 86 86 87 87 88 88 89 89 90 90 91 91 92 92 93 93 94 94 95 95 96 96 97 97 98 98 99 99 100 100 101 101 102 102 103 103 104 105 105 106 106 107 107 107 107)
(list 29 29 29 29 29 29 29 29 29 29 29 30 30 30 30 30 30 30 30 31 31 31 31 31 31 32 32 32 32 32 33 33 33 33 34 34 34 34 35 35 35 36 36 36 37 37 38 38 38 39 39 39 40 40 41 41 41 42 42 43 43 44 44 45 45 46 46 47 47 47 48 48 49 49 50 50 51 51 52 52 53 53 54 54 55 55 56 56 57 57 58 59 59 60 60 61 61 62 62 63 63 64 64 65 66 66 67 67 68 68 69 69 70 70 71 71 72 72 73 73 74 74 75 75 76 77 77 78 78 79 79 79 80 80 81 81 82 82 83 83 84 84 85 85 86 86 86 87 88 88 89 89 89 90 90 91 91 91 92 92 93 93 94 94 94 94 95 95 96 96 96 96 97 97 97 97 98 98 98 98 98 98 99 99 99 99 99 99 100 100 100 100 100 100 100 100 100 101 101 101 101 101 101 101 101 101 101 101 101 101 101 101 100 100 100 100 100 100 100 100 100 100 99 99 99 99 99 99 98 98 98 98 98 97 97 97 97 96 96 96 96 95 95 95 95 94 94 94 93 93 93 92 92 91 91 90 90 90 89 89 88 88 88 87 87 86 86 86 85 85 84 84 83 83 82 82 81 81 80 80 79 79 79 78 78 77 76 76 75 75 74 74 73 73 72 72 71 71 70 70 69 69 68 68 67 67 66 65 65 64 64 63 63 62 62 61 61 60 60 59 59 58 58 57 56 56 55 55 54 54 53 53 52 52 51 51 50 50 49 49 48 48 47 47 47 46 46 46 45 44 44 43 43 43 42 42 42 41 41 40 40 39 39 38 38 37 37 36 36 36 35 35 35 35 34 34 34 34 33 33 33 33 32 32 32 32 31 31 31 31 31 31 30 30 30 30 30 30 30 30 29 29 29 29 29 29 29 29 29 29 29 101 116 14 14)
(list 107 108 108 109 109 110 110 111 111 112 113 113 114 114 115 115 116 116 117 117 118 118 119 119 120 120 121 121 122 122 123 123 124 124 125 125 126 126 126 127 127 128 128 129 129 130 130 131 131 131 132 132 133 133 133 134 134 134 135 135 136 136 136 137 137 137 137 138 138 138 138 139 139 139 139 140 140 140 140 140 141 141 141 141 141 141 141 142 142 142 142 142 142 142 142 142 142 142 142 142 142 143 143 143 143 142 142 142 142 142 142 142 142 142 142 142 142 142 142 141 141 141 141 141 141 141 140 140 140 140 140 139 139 139 139 138 138 138 138 137 137 137 137 136 136 136 135 135 135 134 134 133 133 133 132 132 131 131 131 130 130 129 129 128 128 127 127 126 126 125 125 124 124 123 123 122 122 121 121 120 120 119 119 118 118 117 117 116 116 115 115 114 114 113 113 112 111 111 110 110 109 109 108 108 107 107 106 106 105 105 104 103 103 102 102 101 101 100 100 99 99 98 98 97 97 96 96 95 95 94 94 93 93 92 92 91 91 90 90 89 89 88 88 87 87 86 86 86 85 85 84 84 83 83 82 82 82 81 81 80 80 80 79 79 79 78 78 78 77 77 77 76 76 76 76 75 75 75 75 74 74 74 74 73 73 73 73 73 73 72 72 72 72 72 72 72 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 72 72 72 72 72 72 72 73 73 73 73 73 73 74 74 74 74 75 75 75 75 76 76 76 76 77 77 77 78 78 78 79 79 79 80 80 81 81 82 82 83 83 84 84 85 85 86 86 86 87 87 88 88 89 89 90 90 91 91 92 92 93 93 94 94 95 95 96 96 97 97 98 98 99 99 100 100 101 101 102 102 103 103 104 105 105 106 106 107 107 157 157 107)
(list 29 29 29 29 29 29 29 29 29 29 30 30 30 30 30 30 30 30 31 31 31 31 31 31 32 32 32 32 32 33 33 33 33 34 34 34 34 35 35 35 36 36 36 37 37 38 38 38 39 39 39 40 40 41 41 41 42 42 43 43 44 44 45 45 46 46 47 47 47 48 48 49 49 50 50 51 51 52 52 53 53 54 54 55 55 56 56 57 57 58 59 59 60 60 61 61 62 62 63 63 64 64 65 65 65 67 67 68 68 69 69 70 70 71 71 72 72 73 73 74 74 75 75 76 76 76 78 78 79 79 79 80 80 81 81 82 82 83 83 84 84 85 85 86 86 86 87 87 87 88 88 89 90 90 90 90 91 92 92 92 92 93 93 94 94 95 95 95 95 96 96 96 96 97 97 97 97 98 98 98 98 99 99 99 99 99 99 100 100 100 100 100 100 100 100 100 100 100 101 101 101 101 101 101 101 101 101 101 101 101 101 101 101 100 100 100 100 100 100 100 100 100 100 99 99 99 99 99 99 98 98 98 98 98 97 97 97 97 96 96 96 96 95 95 95 95 94 94 94 93 93 93 92 92 91 91 90 90 90 89 89 88 88 88 87 87 86 86 86 85 85 84 84 83 83 82 82 81 81 80 80 79 79 79 78 78 77 76 76 75 75 74 74 73 73 72 72 71 71 70 70 69 69 68 68 67 67 66 65 65 64 64 63 63 62 62 61 61 60 60 59 59 57 57 57 56 56 55 55 54 54 53 53 52 52 51 51 50 50 49 49 48 48 47 47 47 46 45 45 45 44 44 43 43 43 42 41 41 40 40 39 39 38 38 37 37 37 37 36 36 36 35 35 34 34 34 34 33 33 33 33 32 32 32 32 32 32 31 31 31 31 31 31 30 30 30 30 30 30 30 30 29 29 29 29 29 29 29 29 29 29 116 65 65 29)
(list 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7)
);mapcar
(mapcar 'vector_image; Color 30
(list 175 180 180 167 167 175)
(list 48 26 26 31 31 48)
(list 193 193 185 185 180 180)
(list 28 28 10 10 33 33)
(list 30 30 30 30 30 30)
);mapcar
(mapcar 'vector_image; Color 3
(list 120 117 115 93 100 103 105 106 107 106 105 103 100 93 93)
(list 55 58 59 75 75 74 72 70 62 60 58 56 55 55 55)
(list 120 120 117 100 103 105 106 107 107 107 106 105 103 100 93)
(list 75 55 58 75 74 72 70 67 67 62 60 58 56 55 75)
(list 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3)
);mapcar
)
;;Imagen del simbolo "SIM_DET_02_2TXT"
(defun vectors_SIM_DET_02_2TXT ()
(mapcar 'vector_image; Color 251
(list 107 107 107 107 107 107 107 107 107 107 107 107 107 107 107 115 118 121 123 125 126 128 129 130 131 132 133 134 135 136 136 137 138 138 139 139 140 140 140 141 141 141 142 142 142 142 142 142 142 142 143 142 142 142 142 142 142 142 142 141 141 141 140 140 140 139 139 138 138 137 136 136 135 134 133 132 131 130 129 128 126 124 123 120 118 114 107 107 107 107 107 107 107 107 107 107 107 107 107 107 107 71)
(list 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 65)
(list 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 156 155 154 153 152 151 150 149 148 147 146 145 144 143 142 141 140 139 138 137 136 135 134 133 132 131 130 129 128 127 126 125 124 123 122 121 120 119 118 117 116 115 114 113 112 111 110 109 108 107 143)
(list 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 65)
(list 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251)
);mapcar
(mapcar 'vector_image; Color 7
(list 107 107 108 108 109 109 110 110 111 111 112 113 113 114 114 115 115 116 116 117 117 118 118 119 119 120 120 121 121 122 122 123 123 124 124 125 125 126 126 126 127 127 128 128 129 129 130 130 131 131 131 132 132 133 133 133 134 134 134 135 135 136 136 136 137 137 137 137 138 138 138 138 139 139 139 139 140 140 140 140 140 141 141 141 141 141 141 141 142 142 142 142 142 142 142 142 142 142 142 142 142 142 143 143 142 142 142 142 142 142 142 142 142 142 142 142 142 142 141 141 141 141 141 141 141 140 140 140 140 140 139 139 139 139 138 138 138 138 137 137 137 137 136 136 136 135 135 135 134 134 133 133 133 132 132 131 131 131 130 130 129 129 128 128 127 127 126 126 125 125 124 124 123 123 122 122 121 121 120 120 119 119 118 118 117 117 116 116 115 115 114 114 113 113 112 111 111 110 110 109 109 108 108 107 107 106 106 105 105 104 103 103 102 102 101 101 100 100 99 99 98 98 97 97 96 96 95 95 94 94 93 93 92 92 91 91 90 90 89 89 88 88 87 87 86 86 86 85 85 84 84 83 83 82 82 82 81 81 80 80 80 79 79 79 78 78 78 77 77 77 76 76 76 76 75 75 75 75 74 74 74 74 73 73 73 73 73 73 72 72 72 72 72 72 72 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 72 72 72 72 72 72 72 73 73 73 73 73 73 74 74 74 74 75 75 75 75 76 76 76 76 77 77 77 78 78 78 79 79 79 80 80 81 81 82 82 83 83 84 84 85 85 86 86 86 87 87 88 88 89 89 90 90 91 91 92 92 93 93 94 94 95 95 96 96 97 97 98 98 99 99 100 100 101 101 102 102 103 103 104 105 105 106 106 107 107 107 107)
(list 29 29 29 29 29 29 29 29 29 29 29 30 30 30 30 30 30 30 30 31 31 31 31 31 31 32 32 32 32 32 33 33 33 33 34 34 34 34 35 35 35 36 36 36 37 37 38 38 38 39 39 39 40 40 41 41 41 42 42 43 43 44 44 45 45 46 46 47 47 47 48 48 49 49 50 50 51 51 52 52 53 53 54 54 55 55 56 56 57 57 58 59 59 60 60 61 61 62 62 63 63 64 64 65 66 66 67 67 68 68 69 69 70 70 71 71 72 72 73 73 74 74 75 75 76 77 77 78 78 79 79 79 80 80 81 81 82 82 83 83 84 84 85 85 86 86 86 87 88 88 89 89 89 90 90 91 91 91 92 92 93 93 94 94 94 94 95 95 96 96 96 96 97 97 97 97 98 98 98 98 98 98 99 99 99 99 99 99 100 100 100 100 100 100 100 100 100 101 101 101 101 101 101 101 101 101 101 101 101 101 101 101 100 100 100 100 100 100 100 100 100 100 99 99 99 99 99 99 98 98 98 98 98 97 97 97 97 96 96 96 96 95 95 95 95 94 94 94 93 93 93 92 92 91 91 90 90 90 89 89 88 88 88 87 87 86 86 86 85 85 84 84 83 83 82 82 81 81 80 80 79 79 79 78 78 77 76 76 75 75 74 74 73 73 72 72 71 71 70 70 69 69 68 68 67 67 66 65 65 64 64 63 63 62 62 61 61 60 60 59 59 58 58 57 56 56 55 55 54 54 53 53 52 52 51 51 50 50 49 49 48 48 47 47 47 46 46 46 45 44 44 43 43 43 42 42 42 41 41 40 40 39 39 38 38 37 37 36 36 36 35 35 35 35 34 34 34 34 33 33 33 33 32 32 32 32 31 31 31 31 31 31 30 30 30 30 30 30 30 30 29 29 29 29 29 29 29 29 29 29 29 101 116 14 14)
(list 107 108 108 109 109 110 110 111 111 112 113 113 114 114 115 115 116 116 117 117 118 118 119 119 120 120 121 121 122 122 123 123 124 124 125 125 126 126 126 127 127 128 128 129 129 130 130 131 131 131 132 132 133 133 133 134 134 134 135 135 136 136 136 137 137 137 137 138 138 138 138 139 139 139 139 140 140 140 140 140 141 141 141 141 141 141 141 142 142 142 142 142 142 142 142 142 142 142 142 142 142 143 143 143 143 142 142 142 142 142 142 142 142 142 142 142 142 142 142 141 141 141 141 141 141 141 140 140 140 140 140 139 139 139 139 138 138 138 138 137 137 137 137 136 136 136 135 135 135 134 134 133 133 133 132 132 131 131 131 130 130 129 129 128 128 127 127 126 126 125 125 124 124 123 123 122 122 121 121 120 120 119 119 118 118 117 117 116 116 115 115 114 114 113 113 112 111 111 110 110 109 109 108 108 107 107 106 106 105 105 104 103 103 102 102 101 101 100 100 99 99 98 98 97 97 96 96 95 95 94 94 93 93 92 92 91 91 90 90 89 89 88 88 87 87 86 86 86 85 85 84 84 83 83 82 82 82 81 81 80 80 80 79 79 79 78 78 78 77 77 77 76 76 76 76 75 75 75 75 74 74 74 74 73 73 73 73 73 73 72 72 72 72 72 72 72 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 71 72 72 72 72 72 72 72 73 73 73 73 73 73 74 74 74 74 75 75 75 75 76 76 76 76 77 77 77 78 78 78 79 79 79 80 80 81 81 82 82 83 83 84 84 85 85 86 86 86 87 87 88 88 89 89 90 90 91 91 92 92 93 93 94 94 95 95 96 96 97 97 98 98 99 99 100 100 101 101 102 102 103 103 104 105 105 106 106 107 107 157 157 107)
(list 29 29 29 29 29 29 29 29 29 29 30 30 30 30 30 30 30 30 31 31 31 31 31 31 32 32 32 32 32 33 33 33 33 34 34 34 34 35 35 35 36 36 36 37 37 38 38 38 39 39 39 40 40 41 41 41 42 42 43 43 44 44 45 45 46 46 47 47 47 48 48 49 49 50 50 51 51 52 52 53 53 54 54 55 55 56 56 57 57 58 59 59 60 60 61 61 62 62 63 63 64 64 65 65 65 67 67 68 68 69 69 70 70 71 71 72 72 73 73 74 74 75 75 76 76 76 78 78 79 79 79 80 80 81 81 82 82 83 83 84 84 85 85 86 86 86 87 87 87 88 88 89 90 90 90 90 91 92 92 92 92 93 93 94 94 95 95 95 95 96 96 96 96 97 97 97 97 98 98 98 98 99 99 99 99 99 99 100 100 100 100 100 100 100 100 100 100 100 101 101 101 101 101 101 101 101 101 101 101 101 101 101 101 100 100 100 100 100 100 100 100 100 100 99 99 99 99 99 99 98 98 98 98 98 97 97 97 97 96 96 96 96 95 95 95 95 94 94 94 93 93 93 92 92 91 91 90 90 90 89 89 88 88 88 87 87 86 86 86 85 85 84 84 83 83 82 82 81 81 80 80 79 79 79 78 78 77 76 76 75 75 74 74 73 73 72 72 71 71 70 70 69 69 68 68 67 67 66 65 65 64 64 63 63 62 62 61 61 60 60 59 59 57 57 57 56 56 55 55 54 54 53 53 52 52 51 51 50 50 49 49 48 48 47 47 47 46 45 45 45 44 44 43 43 43 42 41 41 40 40 39 39 38 38 37 37 37 37 36 36 36 35 35 34 34 34 34 33 33 33 33 32 32 32 32 32 32 31 31 31 31 31 31 30 30 30 30 30 30 30 30 29 29 29 29 29 29 29 29 29 29 116 65 65 29)
(list 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7)
);mapcar
(mapcar 'vector_image; Color 30
(list 175 180 180 167 167 175)
(list 48 26 26 31 31 48)
(list 193 193 185 185 180 180)
(list 28 28 10 10 33 33)
(list 30 30 30 30 30 30)
);mapcar
(mapcar 'vector_image; Color 3
(list 117 115 113 96 103 105 106 107 106 105 103 96 96 119 117 115 94 100 103 105 106 107 106 105 103 100 94 94)
(list 73 75 76 81 81 80 79 76 74 73 73 73 73 39 42 42 58 58 57 55 53 46 43 42 40 39 39 39)
(list 117 117 115 103 105 106 107 107 107 106 105 103 96 119 119 117 100 103 105 106 107 107 107 106 105 103 100 94)
(list 88 73 75 81 80 79 78 78 76 74 73 73 88 58 39 42 58 57 55 53 51 51 46 43 42 40 39 58)
(list 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3)
);mapcar
)
;;Imagen del simbolo "SIM_SEC_BRAZO"
(defun vectors_SIM_SEC_BRAZO ()
(mapcar 'vector_image; Color 251
(list 88 89 90 91 92 93 94 95 96 97 98 99 197 198 199 200 201 202 203 204)
(list 85 82 80 78 75 73 70 68 65 63 61 58 71 71 71 71 71 71 71 71)
(list 88 89 90 91 92 93 94 95 96 97 98 99 197 198 199 200 201 202 203 204)
(list 87 87 87 87 87 87 87 87 87 87 87 87 106 106 106 106 106 106 106 106)
(list 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251)
);mapcar
(mapcar 'vector_image; Color 30
(list 170 162 162 175 175 170)
(list 51 34 34 29 29 51)
(list 175 175 180 180 188 188)
(list 35 35 13 13 30 30)
(list 30 30 30 30 30 30)
);mapcar
(mapcar 'vector_image; Color 7
(list 87 87 100 17 121 196 196 205 196)
(list 87 87 56 106 106 71 71 71 106)
(list 107 100 100 100 205 196 205 205 205)
(list 87 56 106 106 106 106 71 106 106)
(list 7 7 7 7 7 7 7 7 7)
);mapcar
)
;;Imagen del simbolo "SIM_SEC_02"
(defun vectors_SIM_SEC_02 ()
(mapcar 'vector_image; Color 251
(list 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50)
(list 71 71 70 70 69 68 68 67 66 66 65 65 64 63 63 62 61 61 60 60 59 58 58 57 57 56 55 55 54)
(list 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50)
(list 72 72 72 72 72 72 72 72 72 72 72 72 72 72 72 72 72 72 72 72 72 72 72 72 72 72 72 72 72)
(list 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251)
);mapcar
(mapcar 'vector_image; Color 30
(list 171 164 164 177 177 171)
(list 67 49 49 44 44 67)
(list 176 176 182 182 189 189)
(list 51 51 28 28 46 46)
(list 30 30 30 30 30 30)
);mapcar
(mapcar 'vector_image; Color 7
(list 50 35 50 19 18 50)
(list 87 87 54 73 72 54)
(list 197 50 50 50 82 81)
(list 87 87 102 54 72 73)
(list 7 7 7 7 7 7)
);mapcar
)
;;Imagen del simbolo "SIM_SEC_01_2TXT"
(defun vectors_SIM_SEC_01_2TXT ()
(mapcar 'vector_image; Color 251
(list 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 201 202 203 204 205 206 207 21)
(list 82 81 80 79 78 77 76 75 74 73 72 71 70 69 68 67 66 65 64 63 62 61 60 59 58 57 56 55 54 53 52 51 50 49 48 47 46 45 44 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 55 55 55 55 55 55 55 83)
(list 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 201 202 203 204 205 206 207 77)
(list 83 83 83 83 83 83 83 83 83 83 83 79 74 71 69 68 66 65 64 63 62 61 60 59 59 58 58 57 57 56 56 56 55 55 55 55 55 55 55 55 55 55 55 55 55 55 56 56 56 57 57 57 58 58 59 60 61 61 62 63 64 66 67 69 71 73 76 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83 83)
(list 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251)
);mapcar
(mapcar 'vector_image; Color 30
(list 174 166 166 179 179 174)
(list 53 36 36 31 31 53)
(list 179 179 184 184 192 192)
(list 37 37 15 15 32 32)
(list 30 30 30 30 30 30)
);mapcar
(mapcar 'vector_image; Color 7
(list 49 49 50 50 51 51 52 52 53 53 54 54 55 55 56 56 57 57 58 58 59 59 60 60 61 61 61 62 62 63 63 64 64 65 65 66 66 67 67 67 68 68 68 69 69 69 70 70 70 71 71 71 71 72 72 72 73 73 73 74 74 74 74 74 75 75 75 75 75 75 76 76 76 76 76 76 76 76 76 77 77 77 77 77 77 77 77 77 77 77 77 77 76 76 76 76 76 76 76 76 76 75 75 75 75 75 75 74 74 74 74 73 73 73 73 72 72 72 72 71 71 71 71 70 70 70 69 69 69 68 68 67 67 67 66 66 65 65 65 64 64 63 63 62 62 61 61 61 60 60 59 59 58 58 57 57 56 56 55 55 54 54 53 53 52 52 51 51 50 50 49 49 48 48 47 47 46 46 45 45 44 44 43 43 42 42 41 41 40 40 39 39 38 38 37 37 36 36 36 35 35 34 34 34 33 33 32 32 31 31 30 30 30 29 29 29 28 28 28 27 27 27 26 26 25 25 25 25 24 24 24 24 24 23 23 23 23 22 22 22 22 22 22 22 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 22 22 22 22 22 22 22 22 23 23 23 23 24 24 24 24 25 25 25 25 26 26 26 27 27 27 28 28 28 29 29 29 30 30 30 31 31 32 32 33 33 34 34 35 35 36 36 36 37 37 38 38 39 39 40 40 41 41 42 42 43 43 44 44 45 45 46 46 47 47 48 48 77 49 9 9 77 201 201 208 201)
(list 55 55 55 55 55 55 55 55 55 55 55 55 55 55 55 56 56 56 56 56 56 57 57 57 57 57 58 58 58 58 59 59 59 60 60 60 61 61 61 62 62 62 63 63 63 64 64 64 65 65 65 66 66 67 67 68 68 69 69 70 70 71 71 72 72 72 73 73 74 74 75 75 76 76 77 77 78 78 79 79 80 80 81 81 82 82 83 83 84 84 85 85 86 86 87 87 88 88 89 89 90 91 91 91 92 92 93 94 94 94 95 96 96 96 97 97 97 98 98 99 99 99 100 100 100 101 101 101 102 103 103 103 103 104 104 104 105 105 105 106 106 107 107 107 107 107 107 108 108 108 108 108 109 109 109 109 110 110 110 110 110 110 110 110 110 110 110 110 111 111 111 111 111 111 111 110 110 110 110 110 110 110 110 110 110 110 110 109 109 109 109 109 108 108 108 108 108 107 107 107 107 107 106 106 106 106 105 105 104 104 104 103 103 103 103 102 102 101 101 101 100 100 99 99 98 98 97 97 97 96 96 95 95 94 94 93 93 92 92 91 91 90 90 89 89 88 88 87 87 86 86 85 85 84 84 83 83 82 82 81 81 80 80 79 79 78 78 77 77 76 76 76 75 75 74 74 73 73 73 72 71 71 71 70 69 69 69 68 67 67 67 66 66 66 65 64 64 64 63 63 63 62 62 62 61 61 61 61 60 60 59 59 59 59 58 58 58 57 57 57 57 57 57 56 56 56 56 56 56 55 55 55 55 55 55 55 55 55 55 55 55 55 55 83 43 83 83 83 55 55 55 83)
(list 49 50 50 51 51 52 52 53 53 54 54 55 55 56 56 57 57 58 58 59 59 60 60 61 61 61 62 62 63 63 64 64 65 65 66 66 67 67 67 68 68 68 69 69 69 70 70 70 71 71 71 71 72 72 72 73 73 73 74 74 74 74 74 75 75 75 75 75 75 76 76 76 76 76 76 76 76 76 77 77 77 77 77 77 77 77 77 77 77 77 77 77 77 76 76 76 76 76 76 76 76 76 75 75 75 75 75 75 74 74 74 74 73 73 73 73 72 72 72 72 71 71 71 71 70 70 70 69 69 69 68 68 67 67 67 66 66 65 65 65 64 64 63 63 62 62 61 61 61 60 60 59 59 58 58 57 57 56 56 55 55 54 54 53 53 52 52 51 51 50 50 49 49 48 48 47 47 46 46 45 45 44 44 43 43 42 42 41 41 40 40 39 39 38 38 37 37 36 36 36 35 35 34 34 34 33 33 32 32 31 31 30 30 30 29 29 29 28 28 28 27 27 27 26 26 25 25 25 25 24 24 24 24 24 23 23 23 23 22 22 22 22 22 22 22 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 22 22 22 22 22 22 22 22 23 23 23 23 24 24 24 24 25 25 25 25 26 26 26 27 27 27 28 28 28 29 29 29 30 30 30 31 31 32 32 33 33 34 34 35 35 36 36 36 37 37 38 38 39 39 40 40 41 41 42 42 43 43 44 44 45 45 46 46 47 47 48 48 49 88 88 49 21 208 201 208 208 208)
(list 55 55 55 55 55 55 55 55 55 55 55 55 55 55 56 56 56 56 56 56 57 57 57 57 57 58 58 58 58 59 59 59 60 60 60 61 61 61 62 62 62 63 63 63 64 64 64 65 65 65 66 66 67 67 68 68 69 69 70 70 71 71 72 72 72 73 73 74 74 75 75 76 76 77 77 78 78 79 79 80 80 81 81 82 82 83 83 84 84 85 85 86 86 87 87 88 88 89 89 90 90 90 91 92 92 93 93 93 94 95 95 95 96 97 97 97 98 98 99 99 99 100 100 100 101 101 101 102 102 102 103 103 104 104 104 105 105 105 106 106 106 106 107 107 107 107 108 108 108 108 108 109 109 109 109 109 109 110 110 110 110 110 110 110 110 110 110 110 110 111 111 111 111 111 111 111 110 110 110 110 110 110 110 110 110 110 110 110 109 109 109 109 109 108 108 108 108 108 107 107 107 107 107 106 106 106 106 105 105 104 104 104 103 103 103 103 102 102 101 101 101 100 100 99 99 98 98 97 97 97 96 96 95 95 94 94 93 93 92 92 91 91 90 90 89 89 88 88 87 87 86 86 85 85 84 84 83 83 82 82 81 81 80 80 79 79 78 78 77 77 76 76 76 75 75 74 74 73 72 72 72 71 70 70 70 69 68 68 68 67 67 67 66 65 65 65 64 64 64 63 63 63 62 62 62 61 61 60 60 60 60 59 59 58 58 58 58 58 57 57 57 57 56 56 56 56 56 56 55 55 55 55 55 55 55 55 55 55 55 55 55 55 55 83 83 43 83 83 83 55 83 83)
(list 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7)
);mapcar
(mapcar 'vector_image; Color 3
(list 66 64 63 50 42 42 32 36 38 38 38 38 38 36 32 32 59 57 56 38 40 42 45 47 49 48 47 46 41 40 39 38 38 38 40 42 45 47)
(list 90 91 91 95 100 90 95 95 94 93 91 91 90 90 90 90 62 64 65 75 77 78 78 77 73 72 71 70 68 68 67 65 64 64 62 62 62 62)
(list 66 66 64 58 48 42 36 38 38 38 38 38 38 38 36 32 59 59 57 40 42 45 47 49 49 49 48 47 46 41 40 39 38 40 42 45 47 49)
(list 100 90 91 95 100 100 95 94 94 94 93 91 91 90 90 100 78 62 64 77 78 78 77 75 75 73 72 71 70 68 68 67 65 62 62 62 62 64)
(list 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3)
);mapcar
)
;;Imagen del simbolo "SIM_SEC_01_1TXT"
(defun vectors_SIM_SEC_01_1TXT ()
(mapcar 'vector_image; Color 251
(list 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 205 206 207 208 209 210 211)
(list 84 83 82 81 80 79 78 77 76 75 74 73 72 71 70 69 68 67 66 65 64 63 62 61 60 59 58 57 56 55 54 53 52 51 50 49 48 47 46 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 57 57 57 57 57 57 57)
(list 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 205 206 207 208 209 210 211)
(list 85 85 85 85 85 85 85 85 85 85 85 81 76 74 72 70 68 67 66 65 64 63 62 62 61 60 60 59 59 59 58 58 58 57 57 57 57 57 57 57 57 57 57 57 57 58 58 58 58 59 59 60 60 61 61 62 63 64 65 66 67 68 69 71 73 75 79 85 85 85 85 85 85 85 85 85 85 85 85 85 85 85 85 85 85 85)
(list 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251 251)
);mapcar
(mapcar 'vector_image; Color 30
(list 169 162 162 175 175 169)
(list 51 34 34 29 29 51)
(list 174 174 180 180 187 187)
(list 35 35 13 13 30 30)
(list 30 30 30 30 30 30)
);mapcar
(mapcar 'vector_image; Color 7
(list 54 54 55 55 56 56 57 57 58 58 59 59 60 60 61 61 62 62 63 63 63 64 64 65 65 66 66 67 67 68 68 69 69 69 70 70 71 71 72 72 72 73 73 73 74 74 74 75 75 75 76 76 76 77 77 77 77 78 78 78 78 79 79 79 79 80 80 80 80 80 81 81 81 81 81 81 81 81 81 81 82 82 82 82 82 82 82 82 82 82 82 82 82 81 81 81 81 81 81 81 81 81 80 80 80 80 80 79 79 79 79 79 78 78 78 78 77 77 77 76 76 76 75 75 74 74 73 73 72 72 71 71 70 70 70 69 69 69 68 68 67 67 66 66 65 65 64 64 63 63 62 62 61 61 60 60 59 59 58 58 57 57 56 56 55 55 54 54 53 53 52 52 51 51 50 50 49 49 49 48 48 47 47 46 46 45 45 44 44 43 43 42 42 41 41 40 40 39 39 38 38 37 37 37 36 36 35 35 35 34 34 34 33 33 33 32 32 32 32 31 31 31 30 30 30 29 29 29 29 28 28 28 28 28 27 27 27 27 27 27 27 26 26 26 26 26 26 26 26 26 26 26 26 26 26 26 26 26 26 26 26 26 26 26 26 26 26 26 26 27 27 27 27 27 27 28 28 28 28 28 29 29 29 29 29 30 30 30 31 31 31 32 32 32 33 33 34 34 35 35 36 36 37 37 37 38 38 38 39 39 40 40 41 41 42 42 43 43 44 44 44 45 45 46 46 47 47 48 48 49 49 50 50 51 51 52 52 53 53 82 54 14 14 82 205 205 212 205)
(list 57 57 57 57 57 57 57 57 57 57 57 57 58 58 58 58 58 58 58 58 59 59 59 59 59 60 60 60 60 61 61 61 61 62 62 62 63 63 63 64 64 64 65 65 65 66 66 66 67 67 67 68 68 69 69 70 70 70 71 71 72 72 73 73 74 74 75 75 76 76 77 77 78 78 79 79 80 80 81 81 82 82 83 83 84 84 85 85 86 86 87 87 88 89 89 89 90 90 91 91 92 92 93 93 94 94 95 96 96 96 97 97 98 98 98 99 100 100 100 101 101 102 103 103 104 104 105 105 106 106 107 107 107 107 108 108 108 108 109 109 109 109 110 110 110 110 111 111 111 111 112 112 112 112 112 112 112 112 112 112 113 113 113 113 113 113 113 113 113 113 113 113 113 113 113 113 113 112 112 112 112 112 112 112 112 112 111 111 111 111 111 110 110 110 110 109 109 109 109 108 108 108 107 107 107 106 106 106 105 105 105 104 104 104 103 103 103 102 102 102 101 101 100 100 99 99 98 98 97 97 96 96 95 95 95 94 94 93 93 92 92 91 91 90 90 89 89 88 88 87 87 86 86 85 85 84 84 83 83 82 82 81 81 80 80 79 79 78 78 77 77 76 76 75 75 74 74 73 73 73 72 72 71 71 71 70 69 69 68 68 68 67 67 67 66 66 65 65 64 64 63 63 62 62 62 62 61 61 61 61 60 60 60 60 59 59 59 59 59 58 58 58 58 58 58 58 58 57 57 57 57 57 57 57 57 57 57 57 57 85 45 85 85 85 57 57 57 85)
(list 54 55 55 56 56 57 57 58 58 59 59 60 60 61 61 62 62 63 63 63 64 64 65 65 66 66 67 67 68 68 69 69 69 70 70 71 71 72 72 72 73 73 73 74 74 74 75 75 75 76 76 76 77 77 77 77 78 78 78 78 79 79 79 79 80 80 80 80 80 81 81 81 81 81 81 81 81 81 81 82 82 82 82 82 82 82 82 82 82 82 82 82 82 82 81 81 81 81 81 81 81 81 81 80 80 80 80 80 79 79 79 79 79 78 78 78 78 77 77 77 76 76 76 75 75 74 74 73 73 72 72 71 71 70 70 70 69 69 69 68 68 67 67 66 66 65 65 64 64 63 63 62 62 61 61 60 60 59 59 58 58 57 57 56 56 55 55 54 54 53 53 52 52 51 51 50 50 49 49 49 48 48 47 47 46 46 45 45 44 44 43 43 42 42 41 41 40 40 39 39 38 38 37 37 37 36 36 35 35 35 34 34 34 33 33 33 32 32 32 32 31 31 31 30 30 30 29 29 29 29 28 28 28 28 28 27 27 27 27 27 27 27 26 26 26 26 26 26 26 26 26 26 26 26 26 26 26 26 26 26 26 26 26 26 26 26 26 26 27 27 27 27 27 27 28 28 28 28 28 29 29 29 29 29 30 30 30 31 31 31 32 32 32 33 33 34 34 35 35 36 36 37 37 37 38 38 38 39 39 40 40 41 41 42 42 43 43 44 44 44 45 45 46 46 47 47 48 48 49 49 50 50 51 51 52 52 53 53 54 93 93 54 26 212 205 212 212 212)
(list 57 57 57 57 57 57 57 57 57 57 57 58 58 58 58 58 58 58 58 59 59 59 59 59 60 60 60 60 61 61 61 61 62 62 62 63 63 63 64 64 64 65 65 65 66 66 66 67 67 67 68 68 69 69 70 70 70 71 71 72 72 73 73 74 74 75 75 76 76 77 77 78 78 79 79 80 80 81 81 82 82 83 83 84 84 85 85 86 86 87 87 88 88 88 89 90 90 91 91 92 92 93 93 94 94 95 95 95 96 97 97 98 98 98 99 99 99 100 101 101 102 102 102 103 103 104 104 105 105 106 106 107 107 108 108 108 108 109 109 109 109 110 110 110 110 111 111 111 111 111 111 112 112 112 112 112 112 112 112 113 113 113 113 113 113 113 113 113 113 113 113 113 113 113 113 113 113 113 112 112 112 112 112 112 112 112 112 111 111 111 111 111 110 110 110 110 109 109 109 109 108 108 108 107 107 107 106 106 106 105 105 105 104 104 104 103 103 103 102 102 102 101 101 100 100 99 99 98 98 97 97 96 96 95 95 95 94 94 93 93 92 92 91 91 90 90 89 89 88 88 87 87 86 86 85 85 84 84 83 83 82 82 81 81 80 80 79 79 78 78 77 77 76 76 75 75 74 74 73 73 73 72 72 71 70 70 70 69 69 68 68 68 67 66 66 65 65 64 64 63 63 63 63 62 62 62 62 61 61 61 61 60 60 60 60 59 59 59 59 59 58 58 58 58 58 58 58 58 57 57 57 57 57 57 57 57 57 57 57 85 85 45 85 85 85 57 85 85)
(list 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7)
);mapcar
(mapcar 'vector_image; Color 3
(list 64 62 61 43 45 47 50 52 54 53 52 51 46 45 44 43 43 43 45 47 50 52)
(list 77 79 80 91 92 93 93 92 88 87 86 85 84 83 82 81 79 79 78 77 77 78)
(list 64 64 62 45 47 50 52 54 54 54 53 52 51 46 45 44 43 45 47 50 52 54)
(list 93 77 79 92 93 93 92 91 91 88 87 86 85 84 83 82 81 78 77 77 78 79)
(list 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3)
);mapcar
)
;;Imagen del simbolo "SIM_DET_TIT_01_1TXT"
(defun vectors_SIM_DET_TIT_01_1TXT ()
(mapcar 'vector_image; Color 30
(list 175 167 167 180 180 175)
(list 48 31 31 26 26 48)
(list 180 180 185 185 193 193)
(list 33 33 10 10 28 28)
(list 30 30 30 30 30 30)
);mapcar
(mapcar 'vector_image; Color 7
(list 73 18 73 18 18)
(list 86 113 58 58 58)
(list 211 73 73 73 18)
(list 86 113 113 58 113)
(list 7 7 7 7 7)
);mapcar
(mapcar 'vector_image; Color 3
(list 207 207 208 209 210 211 210 209 208 207 206 205 205 205 205 205 206 199 199 201 202 202 202 201 199 199 197 196 196 196 196 196 197 191 190 189 178 173 172 171 157 157 157 157 152 151 150 149 148 148 148 148 148 149 150 151 152 153 145 141 140 139 138 137 136 136 136 137 138 139 140 141 142 133 132 131 130 129 129 129 129 129 130 131 132 133 121 122 123 124 126 126 126 125 123 122 121 121 122 123 124 126 114 114 114 114 211 210 209 207 205 203 203 193 193 195 197 198 199 198 197 195 193 192 191 190 190 190 191 192 191 185 185 185 185 185 185 179 178 176 175 173 173 173 173 173 175 176 178 179 161 162 163 165 167 168 169 168 167 165 163 162 161 161 155 155 155 155 155 155 150 149 147 147 147 141 139 137 136 135 134 134 134 135 136 137 139 141 123 123 125 127 129 130 129 128 125 123 123 123 123 125 127 129 117 116 114 113 111 111 111 111 111 113 114 116 117 118 119 111 97 102 104 105 106 107 106 105 104 102 97 97 55 53 52 36 41 43 44 45 46 45 44 43 41 36 36)
(list 92 92 92 93 94 96 100 101 101 101 101 100 98 96 94 94 93 92 92 93 94 96 98 101 101 101 101 100 98 96 94 94 93 92 94 94 104 92 94 94 101 95 96 95 101 101 101 101 100 99 98 97 97 96 95 95 96 95 92 101 101 101 101 100 99 98 98 97 96 95 95 96 95 101 101 101 101 100 99 98 97 97 96 95 95 96 100 101 101 101 100 100 99 98 98 98 97 97 96 95 95 96 101 97 92 92 68 66 65 65 66 68 65 65 65 65 66 67 69 72 74 74 74 74 72 70 69 69 67 66 63 66 61 60 60 62 61 74 74 74 74 72 70 69 67 67 66 65 65 66 72 74 74 74 74 72 69 67 66 65 65 66 67 65 66 61 60 60 62 61 65 66 67 67 65 74 74 74 74 72 70 69 69 67 66 65 65 66 72 74 74 74 74 72 70 70 69 68 67 66 66 65 65 66 74 74 74 74 72 70 69 67 67 66 65 65 66 66 68 69 74 74 74 72 71 66 64 62 61 60 60 60 79 81 81 93 93 92 91 89 84 82 81 79 79 79 79)
(list 207 208 209 210 211 211 211 210 209 208 207 206 205 205 205 206 207 199 201 202 202 202 202 202 201 199 199 197 196 196 196 197 199 191 191 190 185 173 173 172 157 157 157 157 153 152 151 150 149 148 148 148 149 150 151 152 153 153 145 142 141 140 139 138 137 136 137 138 139 140 141 142 142 134 133 132 131 130 129 129 129 130 131 132 133 134 122 123 124 126 126 126 126 126 125 123 122 122 123 124 126 126 119 117 119 114 211 211 210 209 207 205 203 193 195 197 198 199 199 199 198 197 195 193 192 191 190 191 192 193 197 185 185 185 186 186 185 181 179 178 176 175 173 173 173 175 176 178 179 181 162 163 165 167 168 169 169 169 168 167 165 163 162 161 155 155 155 156 156 155 152 150 149 147 147 142 141 139 137 136 135 134 135 136 137 139 141 142 123 125 127 129 130 130 130 129 128 125 123 123 125 127 129 130 119 117 116 114 113 111 111 111 113 114 116 117 118 119 119 119 102 104 105 106 107 107 107 106 105 104 102 97 55 55 53 41 43 44 45 46 46 46 45 44 43 41 36)
(list 92 92 93 94 96 98 98 100 101 101 101 101 100 98 96 93 92 92 93 94 96 98 100 100 101 101 101 101 100 98 96 93 92 101 92 94 91 101 92 94 101 95 96 96 100 101 101 101 101 100 99 98 96 95 95 96 97 101 101 100 101 101 101 101 100 99 97 96 95 95 96 97 101 100 101 101 101 101 100 99 98 96 95 95 96 97 101 101 101 101 101 100 100 99 98 98 98 96 95 95 96 97 101 97 92 101 74 68 66 65 65 66 74 65 65 66 67 69 70 70 72 74 74 74 74 72 70 67 66 65 60 74 61 61 61 61 62 72 74 74 74 74 72 70 69 66 65 65 66 67 74 74 74 74 72 70 70 69 67 66 65 65 66 79 74 61 61 61 61 62 65 65 66 69 74 72 74 74 74 74 72 70 67 66 65 65 66 67 74 74 74 74 72 72 72 70 70 69 68 67 65 65 66 67 72 74 74 74 74 72 70 69 66 65 65 66 66 68 69 69 74 74 72 71 69 69 66 64 62 61 60 74 93 79 81 93 92 91 89 87 87 84 82 81 79 79 93)
(list 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3)
);mapcar
)
;;Imagen del simbolo "SIM_DET_TIT_01_2TXT"
(defun vectors_SIM_DET_TIT_01_2TXT ()
(mapcar 'vector_image; Color 30
(list 175 168 168 181 181 175)
(list 45 28 28 23 23 45)
(list 181 181 186 186 193 193)
(list 29 29 7 7 24 24)
(list 30 30 30 30 30 30)
);mapcar
(mapcar 'vector_image; Color 7
(list 207 207 208 209 210 210 210 209 208 207 206 205 204 204 204 205 206 198 198 199 200 201 202 201 200 199 198 197 196 196 196 196 196 197 191 189 188 177 173 171 170 157 157 157 156 156 157 157 157 156 156 152 151 150 149 148 148 148 148 148 149 150 151 152 153 145 140 140 138 137 137 136 136 136 137 137 138 140 140 141 133 132 131 130 129 128 128 128 129 130 131 132 133 121 122 123 124 125 126 125 125 122 122 121 121 122 123 124 125 113 113 113 113 210 210 208 206 205 203 203 193 193 195 196 198 198 198 196 195 193 192 190 190 190 190 190 192 191 185 184 184 185 185 184 179 178 176 174 173 172 172 172 173 174 176 178 179 160 162 163 165 166 168 168 168 166 165 163 162 160 160 155 154 154 155 155 154 150 148 147 146 146 140 139 137 136 134 134 134 134 134 136 137 139 140 122 123 125 127 129 130 129 128 124 123 122 122 123 125 127 129 117 116 114 112 111 110 110 110 111 112 114 116 117 118 118 110 97 102 104 105 106 106 106 105 104 102 97 97 68 14 68 14 14)
(list 85 85 85 86 87 89 90 94 94 94 94 92 90 89 89 87 86 85 85 85 86 87 89 92 94 94 94 94 92 90 89 87 87 86 85 86 87 97 85 86 87 93 93 94 94 94 88 88 89 89 89 94 94 94 94 93 92 91 89 89 89 88 88 89 88 85 94 94 94 94 93 92 91 91 89 89 88 88 89 88 94 94 94 94 93 92 91 91 89 89 88 88 89 93 94 94 94 94 92 92 91 91 90 89 89 89 88 88 89 94 89 85 85 60 58 58 58 58 60 58 58 58 58 58 60 62 63 66 67 67 66 65 63 62 60 60 58 56 58 54 54 53 54 54 66 67 67 66 65 63 62 62 60 58 58 58 58 65 66 67 67 66 63 62 60 58 58 58 58 60 58 58 54 54 53 54 54 58 58 60 62 58 66 67 67 66 65 63 62 60 60 58 58 58 58 65 66 67 67 66 64 63 62 62 61 60 60 58 58 58 58 66 67 67 66 65 63 62 62 60 58 58 58 58 59 60 62 67 67 66 65 62 58 56 55 54 53 53 53 78 106 51 51 51)
(list 207 208 209 210 210 210 210 210 209 208 207 206 205 204 205 206 207 198 199 200 201 202 202 202 201 200 199 198 197 196 196 196 197 198 191 191 189 185 173 173 171 157 157 157 157 157 157 157 157 157 157 153 152 151 150 149 148 148 148 149 150 151 152 153 153 145 141 140 140 138 137 137 136 137 137 138 140 140 141 141 134 133 132 131 130 129 128 129 130 131 132 133 134 122 123 124 125 126 126 126 125 125 122 122 122 123 124 125 126 119 117 119 113 210 210 210 208 206 205 203 193 195 196 198 198 198 198 198 196 195 193 192 190 190 190 192 193 197 185 184 185 186 186 185 180 179 178 176 174 173 172 173 174 176 178 179 180 162 163 165 166 168 168 168 168 168 166 165 163 162 160 155 154 155 156 156 155 152 150 148 147 146 142 140 139 137 136 134 134 134 136 137 139 140 142 123 125 127 129 130 130 130 129 128 124 123 123 125 127 129 130 118 117 116 114 112 111 110 111 112 114 116 117 118 118 118 118 102 104 105 106 106 106 106 106 105 104 102 97 211 68 68 68 14)
(list 85 85 86 87 89 90 92 92 94 94 94 94 92 90 87 86 85 85 85 86 87 89 90 90 92 94 94 94 94 92 90 89 86 85 94 85 86 83 94 85 86 93 94 94 94 93 88 89 89 89 88 93 94 94 94 94 93 92 91 89 88 88 89 89 94 94 93 94 94 94 94 93 92 89 89 88 88 89 89 94 93 94 94 94 94 93 92 89 89 88 88 89 89 94 94 94 94 93 93 92 92 91 91 90 89 88 88 89 89 94 89 85 94 67 60 58 58 58 58 67 58 58 58 60 62 63 65 65 66 67 67 66 65 63 62 58 58 53 67 54 53 54 54 54 65 66 67 67 66 65 63 60 58 58 58 58 60 66 67 67 66 65 65 63 62 60 58 58 58 58 72 67 54 53 54 54 54 58 58 58 60 67 65 66 67 67 66 65 63 62 58 58 58 58 60 66 67 67 66 65 65 64 63 62 62 61 58 58 58 58 60 65 66 67 67 66 65 63 60 58 58 58 58 59 60 62 62 67 66 65 64 64 62 58 56 55 54 53 67 78 106 106 51 106)
(list 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7)
);mapcar
(mapcar 'vector_image; Color 251
(list 14)
(list 78)
(list 68)
(list 78)
(list 251)
);mapcar
(mapcar 'vector_image; Color 3
(list 59 57 56 42 34 34 23 28 29 30 30 30 29 28 23 23 50 48 47 32 36 38 40 40 41 40 40 38 36 32 32)
(list 87 88 89 93 97 87 92 92 92 90 89 88 87 87 87 87 58 60 60 72 72 71 68 68 63 61 60 58 58 58 58)
(list 59 59 57 51 40 34 28 29 30 30 30 30 30 29 28 23 50 50 48 36 38 40 40 41 41 41 40 40 38 36 32)
(list 97 87 88 93 97 97 92 92 91 91 90 89 88 87 87 97 72 58 60 72 71 70 70 66 66 63 61 60 58 58 72)
(list 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3)
);mapcar
)
;;Imagen del simbolo "SIM_DET_Solape_Planos"
(defun vectors_SIM_DET_Solape_Planos ()
(mapcar 'vector_image; Color 30
(list 174 167 167 180 180 174)
(list 48 31 31 26 26 48)
(list 180 180 185 185 192 192)
(list 32 32 10 10 27 27)
(list 30 30 30 30 30 30)
);mapcar
(mapcar 'vector_image; Color 20
(list 8 26 8 203 184 184 8 26 8 203 184 184)
(list 72 64 72 64 72 72 81 89 81 89 81 81)
(list 26 45 45 221 203 221 26 45 45 221 203 221)
(list 64 72 72 72 64 72 89 81 81 81 89 81)
(list 20 20 20 20 20 20 20 20 20 20 20 20)
);mapcar
(mapcar 'vector_image; Color 7
(list 8)
(list 77)
(list 221)
(list 77)
(list 7)
);mapcar
(mapcar 'vector_image; Color 3
(list 139 139 142 143 143 143 142 142 140 140 139 139 139 139 139 142 143 143 143 142 142 140 140 139 139 139 126 126 126 126 126 126 126 126 126 126 123 123 123 123 123 122 122 122 122 122 122 122 119 114 114 102 102 103 104 105 105 105 105 105 104 103 102 101 101 100 100 100 100 100 101 101 98 93 93 87 89 86 81 81 74 77 78 79 79 79 78 77 74 74 153 153 153 153 146 149 150 150 150 150 150 149 146 146 140 141 139 134 134 128 130 130 131 131 132 131 131 130 130 128 128 127 127 126 126 126 127 127 128 120 120 121 123 124 124 124 124 123 121 120 120 120 120 120 120 121 123 124 107 107 107 107 100 102 103 104 104 104 104 104 103 102 100 100 87 88 86 80 80 80 80 78 73 73 70 70 65 65 126 126 126 126 123 123 123 123 123 122 122 122 122 122 122 122 119 114 114 102 102 103 104 105 105 105 105 105 104 103 102 101 101 100 100 100 100 100 101 101 98 93 93 87 89 86 81 81 74 77 78 79 79 79 78 77 74 74 153 153 153 153 146 149 150 150 150 150 150 149 146 146 140 141 139 134 134 128 130 130 131 131 132 131 131 130 130 128 128 127 127 126 126 126 127 127 128 120 120 121 123 124 124 124 124 123 121 120 120 120 120 120 120 121 123 124 107 107 107 107 100 102 103 104 104 104 104 104 103 102 100 100 87 88 86 80 80 80 80 78 73 73 70 70 65 65)
(list 71 71 68 66 66 65 65 64 64 64 65 65 66 89 89 86 84 83 83 82 82 82 82 83 83 83 88 88 89 89 88 84 84 85 85 84 82 82 83 83 84 84 83 83 82 82 82 84 82 82 82 82 82 82 82 83 84 85 86 87 89 89 89 89 88 87 86 85 84 84 82 82 82 82 82 87 82 89 89 82 86 86 85 84 83 83 82 82 82 82 103 99 96 96 99 99 99 98 97 96 96 96 96 96 100 96 103 103 96 96 96 96 97 97 98 101 101 102 102 103 102 102 101 100 98 98 97 97 96 102 102 103 103 102 101 100 100 99 99 98 98 97 97 96 96 96 96 96 103 99 96 96 103 103 102 101 100 98 97 97 96 96 96 96 100 96 103 103 99 96 96 96 96 96 96 95 103 96 71 71 67 67 64 64 65 65 66 66 66 65 65 64 64 67 64 64 64 64 64 64 65 65 66 67 69 70 71 71 71 71 70 70 69 67 66 66 65 65 64 64 64 69 64 71 71 64 68 68 68 67 66 65 65 64 64 64 60 56 53 53 56 56 56 55 54 53 53 53 53 53 57 53 60 60 53 53 53 53 54 54 55 58 58 59 59 60 59 59 58 57 55 55 54 54 53 59 59 60 60 59 58 57 57 56 56 55 55 54 54 53 53 53 53 53 60 56 53 53 60 60 59 58 57 55 54 54 53 53 53 53 57 53 60 60 56 53 53 53 53 53 53 52 60 53)
(list 143 142 143 143 143 143 143 142 142 140 140 139 139 143 142 143 143 143 143 143 142 142 140 140 139 139 126 127 127 126 126 126 127 127 126 126 123 123 123 123 123 122 122 122 122 122 123 123 119 119 114 102 103 104 105 105 105 105 105 105 105 104 103 102 101 101 100 100 100 101 101 102 98 98 93 90 91 89 85 81 77 78 79 79 79 79 79 78 77 74 157 155 157 153 149 150 150 150 150 150 150 150 149 146 143 144 141 138 134 130 130 131 131 132 132 132 131 131 130 130 128 128 127 127 126 127 127 128 128 120 121 123 124 124 124 124 124 124 123 121 120 120 120 120 121 123 124 124 111 109 111 107 102 103 104 104 104 104 104 104 104 103 102 100 90 91 88 85 83 85 80 78 78 73 70 71 69 65 127 126 127 126 123 123 123 123 123 123 122 122 122 122 123 123 119 119 114 102 103 104 105 105 105 105 105 105 105 104 103 102 101 101 100 100 100 101 101 102 98 98 93 90 91 89 85 81 77 78 79 79 79 79 79 78 77 74 157 155 157 153 149 150 150 150 150 150 150 150 149 146 143 144 141 138 134 130 130 131 131 132 132 132 131 131 130 130 128 128 127 127 126 127 127 128 128 120 121 123 124 124 124 124 124 124 123 121 120 120 120 120 121 123 124 124 111 109 111 107 102 103 104 104 104 104 104 104 104 103 102 100 90 91 88 85 83 85 80 78 78 73 70 71 69 65)
(list 71 68 67 67 66 66 65 65 64 65 65 66 66 89 86 85 85 84 83 83 82 82 82 82 83 84 88 89 89 89 89 84 85 85 85 85 82 83 83 84 84 84 84 83 83 82 82 84 89 89 89 82 82 82 83 84 85 86 87 88 88 89 89 89 89 88 87 86 85 83 83 82 89 89 89 87 89 82 89 89 86 85 85 85 84 83 83 82 82 89 103 99 96 103 99 99 99 99 98 97 96 96 96 103 100 103 96 103 103 96 96 97 97 98 100 100 102 102 103 103 103 102 102 101 100 97 97 96 96 102 103 103 102 102 102 101 100 100 99 99 98 98 97 97 96 96 96 97 103 99 96 103 103 102 102 102 101 100 98 97 97 96 96 103 100 103 96 103 99 96 103 103 103 103 103 94 103 103 71 71 67 67 64 65 65 66 66 66 66 66 65 65 64 67 71 71 71 64 64 65 65 66 67 69 70 70 70 71 71 71 71 70 70 69 67 65 65 64 71 71 71 69 71 64 71 71 68 68 67 67 67 66 65 65 64 71 60 56 53 60 56 56 56 56 55 54 53 53 53 60 57 60 53 60 60 53 53 54 54 55 57 57 59 59 60 60 60 59 59 58 57 54 54 53 53 59 60 60 59 59 59 58 57 57 56 56 55 55 54 54 53 53 53 54 60 56 53 60 60 59 59 59 58 57 55 54 54 53 53 60 57 60 53 60 56 53 60 60 60 60 60 51 60 60)
(list 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3)
);mapcar
)
;;Imagen del simbolo SIM_DET_01_2TXT
(defun vectors_SIM_DET_01_2TXT ()
(mapcar 'vector_image; Color 30
(list 173 168 168 161 161 173)
(list 26 48 48 31 31 26)
(list 186 186 173 173 179 179)
(list 27 27 32 32 10 10)
(list 30 30 30 30 30 30)
);mapcar
(mapcar 'vector_image; Color 7
(list 46 47 47 48 48 49 49 50 50 51 51 52 52 53 53 54 54 55 55 56 56 56 57 57 58 58 58 59 59 60 60 60 61 61 61 62 62 62 63 63 64 64 65 65 65 66 66 66 66 67 67 67 68 68 68 68 68 69 69 69 69 69 69 70 70 70 70 70 70 70 70 70 70 71 71 71 71 71 71 71 71 71 71 71 70 70 70 70 70 70 70 70 70 70 69 69 69 69 69 68 68 68 68 67 67 67 66 66 66 65 65 65 65 64 64 64 63 63 63 62 62 62 61 61 61 60 60 59 59 58 58 58 57 57 56 56 55 55 54 54 53 53 52 52 51 51 50 50 49 49 48 48 47 47 46 46 45 45 44 44 43 43 42 42 41 41 40 40 39 39 38 38 37 37 36 36 35 35 34 34 33 33 32 32 31 31 30 30 30 29 29 29 28 28 28 27 27 26 26 26 25 25 25 25 25 24 24 24 24 24 23 23 23 23 23 23 23 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 23 23 23 23 23 23 24 24 24 24 25 25 25 25 26 26 26 26 27 27 27 28 28 28 28 29 29 29 30 30 30 31 31 31 32 32 33 33 34 34 34 35 35 36 36 37 37 38 38 39 39 40 40 41 41 42 42 43 43 44 44 44 45 45 46 112 112 111 111 110 110 109 109 109 108 108 108 108 107 107 107 107 106 106 106 106 106 106 106 106 208 208 208 208 207 207 207 207 207 206 206 205 205 204 204 204 204 203 203 202 202 201 201 201 201 202 202 203 203 204 204 204 205 205 205 206 206 206 207 207 207 207 207 207 208 208 208 208 208 106 106 106 106 106 106 106 106 107 107 107 107 108 108 108 108 109 109 110 110 110 111 111 112 112 134 71 113 208 113 106)
(list 8 8 8 8 8 9 9 9 9 9 9 9 9 9 9 10 10 10 10 10 10 11 11 11 11 11 12 12 12 12 13 13 13 13 14 14 14 15 15 15 16 16 17 17 18 18 18 19 19 20 20 21 21 21 22 22 23 23 23 24 24 25 25 25 26 26 27 27 28 28 29 29 30 30 31 31 32 32 33 33 34 34 35 35 36 36 36 37 37 38 38 39 39 40 41 41 41 42 42 43 43 44 44 45 45 46 47 47 47 48 48 48 49 49 49 50 50 50 51 51 51 52 52 52 52 53 53 54 54 54 54 54 55 55 55 55 56 56 56 56 56 56 57 57 57 57 57 57 57 57 57 57 57 57 57 57 57 57 57 57 57 57 57 57 57 57 57 57 56 56 56 56 56 55 55 55 55 55 54 54 54 53 53 53 52 52 52 51 51 51 50 50 50 49 49 48 48 47 47 46 46 46 45 45 44 44 44 43 43 42 42 42 41 41 40 40 39 39 39 38 38 37 37 36 36 35 35 34 34 33 33 32 32 31 31 30 30 29 29 28 28 27 27 27 26 25 25 24 24 24 23 22 22 22 21 20 20 20 19 19 18 18 18 17 17 17 16 16 16 15 15 15 15 14 14 14 13 13 13 13 12 12 12 11 11 11 11 10 10 10 10 10 10 9 9 9 9 9 9 9 9 9 9 8 8 8 8 8 8 123 123 123 123 123 123 123 122 122 122 122 121 121 121 121 120 120 120 119 119 118 118 117 117 116 116 117 117 118 118 118 119 119 120 121 121 122 122 122 122 122 123 123 123 123 123 123 123 61 61 61 61 61 61 61 62 62 62 62 63 63 63 64 64 64 65 65 66 66 66 66 67 67 68 68 67 67 66 66 65 65 65 64 63 63 63 63 62 62 62 62 62 61 61 61 61 61 61 61 33 33 123 68 61 68)
(list 47 47 48 48 49 49 50 50 51 51 52 52 53 53 54 54 55 55 56 56 56 57 57 58 58 58 59 59 60 60 60 61 61 61 62 62 62 63 63 64 64 65 65 65 66 66 66 66 67 67 67 68 68 68 68 68 69 69 69 69 69 69 70 70 70 70 70 70 70 70 70 70 71 71 71 71 71 71 71 71 71 71 71 71 71 70 70 70 70 70 70 70 70 70 70 69 69 69 69 69 68 68 68 68 67 67 67 66 66 66 65 65 65 65 64 64 64 63 63 63 62 62 62 61 61 61 60 60 59 59 58 58 58 57 57 56 56 55 55 54 54 53 53 52 52 51 51 50 50 49 49 48 48 47 47 46 46 45 45 44 44 43 43 42 42 41 41 40 40 39 39 38 38 37 37 36 36 35 35 34 34 33 33 32 32 31 31 30 30 30 29 29 29 28 28 28 27 27 26 26 26 25 25 25 25 25 24 24 24 24 24 23 23 23 23 23 23 23 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 22 23 23 23 23 23 23 24 24 24 24 25 25 25 25 26 26 26 26 27 27 27 28 28 28 28 29 29 29 30 30 30 31 31 31 32 32 33 33 34 34 34 35 35 36 36 37 37 38 38 39 39 40 40 41 41 42 42 43 43 44 44 44 45 45 46 46 113 112 112 111 111 110 110 109 109 109 108 108 108 108 107 107 107 107 106 106 106 106 106 106 106 208 208 208 208 208 207 207 207 207 207 206 206 205 205 204 204 204 204 203 203 202 202 201 201 202 202 203 203 204 204 204 205 205 205 206 206 206 207 207 207 207 207 207 208 208 208 208 208 208 106 106 106 106 106 106 106 107 107 107 107 108 108 108 108 109 109 110 110 110 111 111 112 112 113 134 134 201 208 201 106)
(list 8 8 8 8 9 9 9 9 9 9 9 9 9 9 10 10 10 10 10 10 11 11 11 11 11 12 12 12 12 13 13 13 13 14 14 14 15 15 15 16 16 17 17 18 18 18 19 19 20 20 21 21 21 22 22 23 23 23 24 24 25 25 25 26 26 27 27 28 28 29 29 30 30 31 31 32 32 33 33 34 34 35 35 36 36 36 37 37 38 38 39 39 40 40 40 41 42 42 43 43 44 44 45 45 46 46 46 47 48 48 48 49 49 49 50 50 50 51 51 51 52 52 52 52 53 53 53 53 54 54 54 55 55 55 55 55 55 56 56 56 56 57 57 57 57 57 57 57 57 57 57 57 57 57 57 57 57 57 57 57 57 57 57 57 57 57 57 57 57 56 56 56 56 56 55 55 55 55 55 54 54 54 53 53 53 52 52 52 51 51 51 50 50 50 49 49 48 48 47 47 46 46 46 45 45 44 44 44 43 43 42 42 42 41 41 40 40 39 39 39 38 38 37 37 36 36 35 35 34 34 33 33 32 32 31 31 30 30 29 29 28 28 27 26 26 26 25 25 24 23 23 23 22 21 21 21 20 20 20 19 19 18 18 18 17 17 17 16 16 16 15 15 15 15 14 14 14 13 13 12 12 12 12 12 11 11 11 11 10 10 10 10 10 10 9 9 9 9 9 9 9 9 9 9 8 8 8 8 8 123 123 123 123 123 123 123 123 122 122 122 122 121 121 121 121 120 120 120 119 119 118 118 117 117 117 117 118 118 118 119 119 120 120 120 121 121 122 122 122 123 123 123 123 123 123 123 123 61 61 61 61 61 61 62 62 62 62 63 63 63 64 64 64 65 65 66 66 66 66 67 67 68 68 68 68 67 67 66 66 65 64 64 64 63 63 63 63 62 62 62 62 62 61 61 61 61 61 61 61 33 123 116 61 116)
(list 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7)
);mapcar
(mapcar 'vector_image; Color 251
(list 22)
(list 33)
(list 71)
(list 33)
(list 251)
);mapcar
(mapcar 'vector_image; Color 3
(list 61 60 59 47 40 40 31 34 36 36 37 36 36 34 31 31 54 53 51 37 41 43 45 45 46 45 45 43 41 37 37)
(list 38 40 40 44 48 38 44 44 43 43 40 39 39 38 38 38 16 18 18 29 29 28 26 26 21 19 18 17 16 16 16)
(list 61 61 60 55 45 40 34 36 36 37 37 37 36 36 34 31 54 54 53 41 43 45 45 46 46 46 45 45 43 41 37)
(list 48 38 40 44 48 48 44 43 43 42 42 40 39 39 38 48 29 16 18 29 28 27 27 24 24 21 19 18 17 16 29)
(list 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3)
);mapcar
)
;;Imagen del simbolo SIM_DET_01_1TXT
(defun vectors_SIM_DET_01_1TXT ()
(mapcar 'vector_image; Color 30
(list 168 161 161 173 173 168)
(list 48 31 31 26 26 48)
(list 173 173 179 179 186 186)
(list 33 33 10 10 28 28)
(list 30 30 30 30 30 30)
);mapcar
(mapcar 'vector_image; Color 7
(list 45 45 46 46 47 47 48 48 49 49 50 50 51 51 52 52 53 53 53 54 54 55 55 55 56 56 57 57 57 58 58 59 59 59 60 60 60 61 61 61 62 62 63 63 63 64 64 64 65 65 65 66 66 66 66 67 67 67 67 68 68 68 68 68 68 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 68 68 68 68 68 68 67 67 67 67 66 66 66 66 65 65 65 65 64 64 64 63 63 63 62 62 61 61 60 60 59 59 59 58 58 57 57 56 56 55 55 54 54 53 53 52 52 51 51 50 50 50 49 49 48 48 47 47 46 46 45 45 44 44 43 43 42 42 41 41 40 40 39 39 38 38 37 37 36 36 35 35 34 34 33 33 32 32 31 31 30 30 29 29 29 28 28 28 27 27 27 26 26 26 26 25 25 25 24 24 24 24 23 23 23 23 23 22 22 22 22 22 22 21 21 21 21 21 21 21 21 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 21 21 21 21 21 21 21 21 22 22 22 22 22 23 23 23 23 24 24 24 25 25 25 25 26 26 26 27 27 27 28 28 29 29 30 30 31 31 31 32 32 33 33 34 34 34 35 35 36 36 37 37 37 38 38 39 39 40 40 41 41 42 42 43 43 44 44 111 110 110 109 109 108 108 108 108 107 107 107 107 106 106 106 106 105 105 105 105 105 105 104 104 104 104 104 104 208 208 208 208 208 207 207 207 207 207 206 206 206 206 205 205 205 204 204 204 204 203 203 202 202 201 201 201 201 202 202 202 203 203 204 204 205 205 205 206 206 206 206 207 207 207 207 207 208 208 208 208 104 104 104 104 105 105 105 105 105 106 106 106 107 107 107 108 108 109 109 110 110 110 111 132 69 111 208 111 104)
(list 10 10 10 10 10 10 10 10 10 11 11 11 11 11 11 11 11 12 12 12 12 12 12 13 13 13 13 13 14 14 14 14 15 15 15 15 16 16 16 17 17 17 18 18 19 19 19 20 20 21 21 22 22 23 23 24 24 25 25 26 26 27 27 28 28 29 29 30 30 31 31 32 32 33 33 34 34 35 35 36 36 37 37 38 38 39 39 40 40 41 41 42 42 43 43 44 44 45 45 46 46 47 47 48 48 48 49 49 49 50 51 51 51 52 52 53 53 54 54 54 54 55 55 55 56 56 56 56 57 57 57 57 58 58 58 58 58 58 58 58 59 59 59 59 59 59 59 59 59 59 59 59 59 59 59 59 59 59 59 59 59 58 58 58 58 58 58 58 57 57 57 57 57 56 56 56 55 55 55 54 54 54 53 53 53 52 52 52 52 51 51 51 50 50 49 49 48 48 48 47 47 47 46 46 45 45 45 44 44 43 43 42 42 42 41 41 40 40 39 39 38 38 37 37 36 36 35 35 34 34 33 33 32 32 32 31 30 30 29 29 28 28 27 27 26 26 25 25 25 24 23 23 23 22 21 21 21 20 20 20 19 18 18 18 17 17 17 17 16 16 15 15 14 14 14 14 14 13 13 13 12 12 12 12 12 12 11 11 11 11 11 11 11 11 11 10 10 10 10 10 10 10 10 122 122 122 122 122 122 122 121 121 121 121 120 120 120 120 119 119 119 119 118 118 117 117 117 117 116 116 115 115 115 115 116 116 117 117 117 118 118 119 119 119 119 120 120 120 121 121 121 121 122 122 122 122 122 122 122 69 69 69 69 70 70 70 70 70 70 71 71 71 71 72 72 72 73 73 74 74 74 75 75 76 76 75 75 75 74 73 73 72 72 72 71 71 71 70 70 70 70 70 70 69 69 69 69 35 35 122 76 69 76)
(list 45 46 46 47 47 48 48 49 49 50 50 51 51 52 52 53 53 53 54 54 55 55 55 56 56 57 57 57 58 58 59 59 59 60 60 60 61 61 61 62 62 63 63 63 64 64 64 65 65 65 66 66 66 66 67 67 67 67 68 68 68 68 68 68 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 69 68 68 68 68 68 68 67 67 67 67 66 66 66 66 65 65 65 65 64 64 64 63 63 63 62 62 61 61 60 60 59 59 59 58 58 57 57 56 56 55 55 54 54 53 53 52 52 51 51 50 50 50 49 49 48 48 47 47 46 46 45 45 44 44 43 43 42 42 41 41 40 40 39 39 38 38 37 37 36 36 35 35 34 34 33 33 32 32 31 31 30 30 29 29 29 28 28 28 27 27 27 26 26 26 26 25 25 25 24 24 24 24 23 23 23 23 23 22 22 22 22 22 22 21 21 21 21 21 21 21 21 21 20 20 20 20 20 20 20 20 20 20 20 20 21 21 21 21 21 21 21 21 21 22 22 22 22 22 23 23 23 23 24 24 24 25 25 25 25 26 26 26 27 27 27 28 28 29 29 30 30 31 31 31 32 32 33 33 34 34 34 35 35 36 36 37 37 37 38 38 39 39 40 40 41 41 42 42 43 43 44 44 45 111 111 110 110 109 109 108 108 108 108 107 107 107 107 106 106 106 106 105 105 105 105 105 105 104 104 104 104 104 208 208 208 208 208 208 207 207 207 207 207 206 206 206 206 205 205 205 204 204 204 204 203 203 202 202 201 201 202 202 202 203 203 204 204 205 205 205 206 206 206 206 207 207 207 207 207 208 208 208 208 208 104 104 104 105 105 105 105 105 106 106 106 107 107 107 108 108 109 109 110 110 110 111 111 132 132 201 208 201 104)
(list 10 10 10 10 10 10 10 10 11 11 11 11 11 11 11 11 12 12 12 12 12 12 13 13 13 13 13 14 14 14 14 15 15 15 15 16 16 16 17 17 17 18 18 19 19 19 20 20 21 21 22 22 23 23 24 24 25 25 26 26 27 27 28 28 29 29 30 30 31 31 32 32 33 33 34 34 35 35 36 36 37 37 38 38 39 39 40 40 41 41 42 42 43 43 44 44 45 45 46 46 47 47 48 48 48 49 49 49 50 50 50 51 52 52 52 52 53 53 54 54 55 55 55 55 55 56 56 57 57 57 57 57 57 58 58 58 58 58 58 59 59 59 59 59 59 59 59 59 59 59 59 59 59 59 59 59 59 59 59 59 59 59 58 58 58 58 58 58 58 57 57 57 57 57 56 56 56 55 55 55 54 54 54 53 53 53 52 52 52 52 51 51 51 50 50 49 49 48 48 48 47 47 47 46 46 45 45 45 44 44 43 43 42 42 42 41 41 40 40 39 39 38 38 37 37 36 36 35 35 34 34 33 33 32 31 31 31 30 30 29 29 28 28 27 27 26 26 25 24 24 24 23 22 22 22 21 21 21 20 19 19 19 18 18 18 17 17 16 16 15 15 15 15 14 14 14 13 13 13 13 13 12 12 12 12 12 12 11 11 11 11 11 11 11 10 10 10 10 10 10 10 10 10 122 122 122 122 122 122 122 122 121 121 121 121 120 120 120 120 119 119 119 119 118 118 117 117 117 117 116 116 115 115 116 116 117 117 117 118 118 119 119 119 119 120 120 120 121 121 121 121 122 122 122 122 122 122 122 122 69 69 69 70 70 70 70 70 70 71 71 71 71 72 72 72 73 73 74 74 74 75 75 76 76 76 76 75 74 74 74 73 73 72 72 72 71 71 71 70 70 70 70 70 70 69 69 69 69 35 122 115 69 115)
(list 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7)
);mapcar
(mapcar 'vector_image; Color 3
(list 54 52 51 35 40 42 43 44 45 44 43 42 40 35 35)
(list 28 30 30 42 42 41 40 38 33 31 30 28 28 28 28)
(list 54 54 52 40 42 43 44 45 45 45 44 43 42 40 35)
(list 42 28 30 42 41 40 38 36 36 33 31 30 28 28 42)
(list 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3)
);mapcar
)
;;------------------------ MAIN SimbDetSec_DLG -----------------------------------------------------
;;recoge valores guardados en registro:
;;(("blk_simb" "SIM_SEC_01_1TXT") ("esc_SDS" "2.000000000000000"))
(mapcar (function (lambda (x) (set (read (car x)) (cadr x)))) (GetVal_Reg_SDS))
(setq esc_SDS (read esc_SDS))
;;Carga cuadro de dialogo
(if (null pos_Dlg_SDS)(setq pos_Dlg_SDS '(-1 -1)))
(setq FichDlg (WriteDialogSimb_DET-SEC))
(setq idxDlg (load_dialog FichDlg))
(setq accion T)
(while accion
(if (not (new_dialog "simbdetsec" idxDlg "" pos_Dlg_SDS)) (exit))
;;_____________________________________________
;;asignaciones de cuadro de dialogo
(jlgg-initlstDlg "lst_simb" $LstSimbsDS$)
(if (not (setq pos (vl-position blk_simb $LstSimbsDS$)))
(setq pos 0)
)
(set_tile "lst_simb" (itoa pos))
(img_SDS) ;visualiza el tipo
(set_tile "esc_SDS" (rtos esc_SDS 2 4))
;;_____________________________________________
;;acciones de cuadro de dialogo
(action_tile "esc_SDS" "(do_num $key \"Escala \" 6)")
(action_tile "img_SDS" "(do_img_SDS)")
(action_tile "lst_simb" "(do_lst_simb (read $value))")
(action_tile "cancel" "(setq pos_Dlg_SDS (done_dialog 0))")
(action_tile "accept" "(SDS_DLG_ok)")
(setq accion (start_dialog)) ; activa el c. de dialogo
;;_____________________________________________
(cond
((= accion 0);si cancel es señalado
(setq accion nil)
(unload_dialog idxDlg)
(setq retVal nil)
)
((= accion 1)
(setq accion nil)
(unload_dialog idxDlg)
;;(("blk_simb" "SIM_SEC_01_1TXT") ("esc_SDS" "2.000000000000000"))
(jlgg-Write-Registry-Command "SimDetSec" "blk_simb" blk_simb)
(jlgg-Write-Registry-Command "SimDetSec" "esc_SDS" (rtos esc_SDS 2 32))
(setq retVal t)
)
);c.cond
);c.while
retVal
);c.defun SimbDetSec_DLG
;;---------------------------- *error* ---------------------------------
;; chequeo de *error*
;;-----------------------------------------------------------------------
(defun *error* (msg / funC)
(setq funC (if (>= (read (substr (getvar "ACADVER") 1 4)) 20) command-s vl-cmdf))
(while (/= (getvar "CMDNAMES") "") (funC))
(if (= 8 (logand 8 (getvar "UNDOCTL")))
(progn
(funC "_.undo" "_e")
(funC "_u")
)
)
(if msg
(if (and msg (not (wcmatch (strcase msg t) "*break,*cancel*,*exit*,interrup*")))
(princ (strcat "\nSDS Error: " msg))
)
)
(jlgg-Res_Vars)
(setvar "HIGHLIGHT" 1)
(princ)
);c defun error
;;----------------------------- MAIN ----------------------------------------
;;Variables Globales:
(setq $NameFileDat$ "Simbolos_dbx.dwg") ;;Nombre de la base de datos
(setq $LayerSimbolo$ "ARQ_Simbolos") ;;Nombre de capa para las escalas
(setq $SubPath$ "Simbolos\\")
(cond
(*Auxiliares_jlgg*) ;;Auxiliares Cargados?
((not (findfile "jlgg_Auxiliares.lsp"))
(alert
(strcat "No se encontro el archivo de soporte: [ jlgg_Auxiliares.lsp ]"
"\nCompruebe las rutas de soporte de los Archivos."))
(exit)
)
(T (load "jlgg_Auxiliares.lsp"))
)
(init_vars (list '("DIMZIN" 0)
;(list "osmode" (osmodeOFF))
'("attdia" 0)
'("attreq" 1)
'("cmdecho" 0)
'("snapmode" 0)
)
)
;;No ponemos Findfile aqui, pues ya lo comprueba en OpenDrawingDBX
(setq $PathFileDat$ (strcat $SubPath$ $NameFileDat$)) ;;Jose
(setq $LstSimbsDS$ (GetSimbsSDSInDWGDat))
(cond
((= (car $LstSimbsDS$) "*error*"))
((not $LstSimbsDS$)
(alert
(strcat "El Archivo de Datos: \n[ " $PathFileDat$ " ]"
"\n\n No contiene bloques de simbolos de Cotas de Altura."
"\nCompruebe el archivo."))
)
((SimbDetSec_DLG)
;;Se llama al cuadro para opciones:
;(SimbDetSec_DLG)
;;_____________________________________________________________
;;recoge valores guardados en registro:
;;(("blk_simb" "SIM_SEC_01_1TXT") ("esc_SDS" "2.000000000000000"))
(mapcar (function (lambda (x) (set (read (car x)) (cadr x)))) (GetVal_Reg_SDS))
(setq esc_SDS (read esc_SDS))
;;_____________________________________________________________
(if (not (vl-position blk_simb $LstSimbsDS$))
(setq blk_simb (car $LstSimbsDS$))
)
(cond
((not (tblsearch "BLOCK" blk_simb))
(SimbToActiveDoc blk_simb)
;(eval (read (strcat "(MakeBlk_" blk_simb ")")))
)
);c.cond
;;Insertamos el bloque:
(command "_UNDO" "_BE")
(setq LastEnt (entlast))
(vl-cmdf "_.insert" blk_simb "_S" esc_SDS pause 0.0)
;;Comprobación de inserción del bloque y cambio de capa:
(setq oBlk (entlast))
(if (not (eq LastEnt oBlk)) ;;OK
(chg_cap oBlk $LayerSimbolo$)
;;else:
(prompt "\n!!Alerta: No se inserto el simbolo..!!")
)
(command "_UNDO" "_E")
);c.T
);c.cond
(*error* nil)
(princ)
);cierro defun principal
(princ)
Actualizaciones necesarias.
El programa necesitará que estén cargadas y actualizadas las funciones comunes para los programas publicados en VisualLisp
en La Marmita.
Descargar actualización: funciones Auxiliares Para usarlo con el proyecto global de "La Marmita" se necesitan los archivos actualizados de menú de autocad.
Descargar actualización: Archivos de menú de La Marmita Descarga. El programa consta de dos Archivos:
Descargar actualización: funciones Auxiliares Para usarlo con el proyecto global de "La Marmita" se necesitan los archivos actualizados de menú de autocad.
Descargar actualización: Archivos de menú de La Marmita Descarga. El programa consta de dos Archivos:
SimbDetallesSecciones.lsp
Size: 93 KB.
Actualizado: 16/05/2015.
Funciones y comando del programa.
Simbolos_dbx.dwg
Size: 135 KB.
Actualizado: 16/05/2015.
Archivo que contiene los bloques de símbolos.
Nota: El Archivo contenedor de los simbolos de escalas (Simbolos_dbx.dwg) esta en versión dwg 2010 de AutoCAD, por lo que en versiones inferiores a AutoCAD 2008 puede no funcionar correctamente.
Espero que sea de utilidad y ayuda.
Un saludo a tod@s desde España.
No hay comentarios:
Publicar un comentario