SERVICIOS INTEGRALES EN COMPUTACION

SINCOW

MANUAL DE AUTOLISP

PREPARADO POR: ING. GUSTAVO NAVAS

www.sincows.com
[email protected]
ISLA FERNANDINA N42-52 (CIUDADELA JIPIJAPA),
TELE/FAX: 2920-890, 2431-356
QUITO-ECUADOR
www.sincows.com [email protected]

Servicios Integrales en Computación

SINCOW
MANUAL DE AutoLISP

Realizado por: ING.GUSTAVO NAVAS R.

I. INTRODUCCIÓN

Dentro del AutoCAD nos encontramos un lenguaje de programación que usa un interprete de nombre AutoLISP, este es una forma
común del lenguaje LISP, el cual a su vez es el lenguaje más antiguo en aplicaciones de inteligencia artificial. El AutoLISP coexiste con el
AutoCAD y puede ser usado en cualquier momento que se este editando un dibujo. Este lenguaje provee herramientas comunes a otros paquetes
de programación para estructurar el flujo de un programa, manipula datos del AutoCAD, así como datos propios, tiene opciones de entrada y
salida I/O para la creación y lectura de archivos ASCII. Presenta además la capacidad de poder activar cualquier comando que venga dentro del
AutoCAD así como también puede manipular informaciones propias de un dibujo realizado en AutoCAD, tal es el caso de manejar entidades
(Líneas, arcos, círculos, poli-líneas, etc.), así como también tipos de líneas, estilos "styles", niveles "Layers", etc.

El lenguaje LISP original tenía la posibilidad de definir funciones en forma recursiva, esto significa que la función era usada al interior
de si misma asignándole las variables de entrada, esta capacidad presenta también el AutoLISP. Mas lamentablemente no hay información sobre
el uso del AutoLISP con funciones recursivas, pero cualquier libro que haga referencia a la recursividad en el lenguaje LISP puede ser de ayuda
para el estudio de funciones recursivas dentro del AutoLISP, pues con algunos cambios los programas en LISP podrán ser ejecutados al interior
del AutoLISP, en particular la versión de XLISP es la más recomendada pues es la que presenta el mayor parecido con el AutoLISP.

Los paréntesis son vitales para escribir cualquier instrucción en AutoLISP, sea esta una simple expresión o sea un programa
completo, digamos además que el abrir y cerrar paréntesis permiten al AutoCAD distinguir entre los comandos propios del paquete y las
expresiones del AutoLISP. Cada vez que el AutoCAD detecta un paréntesis abierto, interpreta que se refiere a una expresión de AutoLISP y esta
pasa en su totalidad, hasta el paréntesis que la cierra, a ser evaluada por el AutoLISP, el cual da un resultado al AutoCAD que puede usarlo y
continuar con sus operaciones propias.

Toda expresión dentro del AutoLISP presenta el siguiente formato:

(Nombre-de-la-función argumento-1 argumento-2 ......)

El nombre de la función, que puede ser propio del Expresión AutoLISP Resultado
AutoLISP o creado por el usuario, relaciona a los argumentos que (+ 5 3) 8
vienen a continuación. Los argumentos a su vez pueden ser otras (+ 2 4 5) 11
funciones, variables o constantes. Veamos por ejemplo la siguiente (/ 5 3) 1
expresión dada en AutoLISP: (/ 5.0 3) 1.6667
(- 15 3 8) 4
(* 3 2) (+ (* 2 3) 1 (- 4 7)) 4
Expresiones aritméticas en AutoLISP y su resultado.
La expresión anterior se podrá tipiar en cualquier momento,
como ya se dijo anteriormente, y corresponderá a la operación de multiplicación de los argumentos que vengan a continuación en este caso los
valores constantes de 3 y 2, el AutoLISP evaluará esa expresión dando un valor de 6.

En la tabla No. 1 se puede apreciar algunas expresiones aritméticas en AutoLISP y el resultado que daría el programa. Para mayor
información sobre las expresiones aritméticas véase pág 6.

II. SETEADO INICIAL

Antes de correr cualquier programa de AutoLISP, es indispensable setear cierto tipo de información dentro del DOS. En primer lugar
setearemos las variables LISPHEAP y LISPSTACK, lo cual se hará desde el DOS de la siguiente manera:

SET LISPHEAP=20000
SET LISPSTACK=8000

Los valores de 20000 y 8000 pueden ser cambiados, pero las sumas de estas dos cantidades no puede exceder de 45000.

Otra variable que requiere ser seteada antes de trabajar con el AutoCAD es ACADFREERAM, la cual permite setear mayor cantidad
de memoria RAM libre para uso del AutoCAD. Se tipiará en pantalla lo siguiente:
SET ACADFREERAM=20

El valor de 20 también puede ser alterado de acuerdo a las necesidades del usuario, pero no se recomiendan valores mayores a 32, ni
menores a 20. Si el valor de esta variable no es seteado el AutoCAD le asignará un valor de 14.

III. VARIABLES

2
Isla Fernandina N42-52 (Ciudadela Jipijapa) Teléfono/fax: 920-890, 431-356
Quito-Ecuador
www.sincows.com [email protected]

Servicios Integrales en Computación

SINCOW
En el inicio del AutoLISP, éste no fue llamado con este nombre y fue más bien llamado "variables y expresiones" "variables and
expressions" para la construcción de macros.

Existen unas variables propias del sistema que podrán ser manipuladas a través del comando SETVAR.

Una variable en AutoLISP representa cualquier cosa que no sea un

valor constante. Se usan variables de todo tipo. El AutoLISP permite sustituir Nombres de variables
variables en lugar de valores constantes, es posible asignar un valor al nombre Correctas Incorrectas
de una variable. Es posible unir la información del nombre de una variable f 37
explícitamente en un macro, es posible además usar el nombre de las variables esta 45t
con expresiones para desarrollar cálculos y/o tomar decisiones lógicas. punto11 ry*4
que23s x$
El nombre de una variable es una colección de letras y números, etc ft+ui
siempre y cuando el primer carácter sea una letra. En la tabla II se pueden
apreciar nombres de variables apropiadas y nombres de variables incorrectas.

╔═══════════════════════════════════════════════════════════════╗
CARACTERES NO RECOMENDADOS PARA NOMBRES DE VARIABLES

CARACTERES RESERVADOS O ILEGALES: . ' " ; ( ) <ESPACIO>

FUNCIONES DEL AUTOLISP: ~ * = > < + - /
CARACTERES NO RECOMENDADOS: ! ? ` \ ^ o cualquier carácter Control
╚══════════════════════════════════════════════════════════════╝
El valor que se asigna a una variable puede ser de cuatro tipos:

Variable string: Tiene valores de texto ubicadas ente comillas para identificar el valor como un string. Algunas variables del sistema (Ver
comando SETVAR) son del tipo string, tal es el caso de la variable CELTYPE, que tiene asignado un valor "BYLAYER" entre otras.

Enteras: Son números positivos o negativos los cuales no tienen fracciones o puntos decimales. El valor de 5 sería un típico ejemplo de un valor
entero mientras que el valor 5.0 será considerado por el AutoLISP como un valor real y no como un valor entero. Los valores enteros deberán
estar entre -32768 y +32767. Para valores enteros fuera de estos rangos causará valores erróneos.

Algunas variables del sistema toman valores enteros, tal es el caso de la variable BLIPMODE que puede tomar valores de 0 para
desactivado y 1 para activado.

Reales: Es un número que incluye decimales de punto flotante. Si se desea escribir el valor de 0.134 no se lo podrá escribir como .134, pues esto
producirá un error, por lo que tendremos que escribirlo con el 0 inicial.

Algunas variables del sistema tienen asignados valores reales. Demos algunos ejemplo de este tipo de variables: FILLETRAD,
TEXTSIZE, AREA, etc.

Listas: Es una variable que contiene más de un valor o una serie de valores. Los puntos o coordenadas son un tipo de listas que están
constituidos por dos (2D) o tres (3D) elementos numéricos y que representan una coordenada.

En las variables del sistema de nombre LASTPOINT, LIMMIN, LIMMAX, etc tienen asignado variables del tipo coordenada.

Pickset: Una tabla que contiene puntos de elementos gráficos, del set de selección creados con cualquier opción de selección de objetos en
AutoCAD, por ejemplo: window, crossing, etc.

Ename (Nombre de una entidad): Este es un tipo de variable que representa al nombre de una entidad. A partir de ella se podrá generar una
lista donde este comprendida toda la información respecto a la entidad, ver comando ENTGET página 12.

ATOMLIST Se recomienda no usar nombres de funciones del AutoLISP, como nombres de variables. El ATOMLIST es una variable en el
AutoLISP que guarda todos los nombres de funciones definidas y nombres de variables. Se puede mirar esta lista tipiado lo siguiente:

!atomlist

Apareciendo entonces en pantalla lo que se ilustra en la 4:

3
Isla Fernandina N42-52 (Ciudadela Jipijapa) Teléfono/fax: 920-890, 431-356
Quito-Ecuador
www.sincows.com [email protected]

Servicios Integrales en Computación

SINCOW
Command: !ATOMLIST
(INTERS GRREAD GRTEXT GRDRAW GRCLEAR TBLSEARCH TBLNEXT ENTUPD ENTMOD ENTSEL ENTLAST ENTNEXT
ENTDEL ENTGET SSMEMB SSDEL SSADD SSLENGTH SSNAME SSGET ANGTOS RTOS COMMAND OSNAP REDRAW
GRAPHSCR TEXTSCR POLAR DISTANCE ANGLE INITGET GETKWORD GETCORNER GETINT GETSTRING GETORIENT
GETANGLE GETREAL GETDIST GETPOINT MENUCMD PROMPT SETVAR GETVAR TERPRI PRINC PRIN1 PRINT WRITE-LINE
READ-LINE WRITE-CHAR READ-CHAR CLOSE OPEN STRCASE ITOA ATOF ATOI CHR ASCII SUBSTR STRCAT STRLEN
PAUSE PI MINUSP ZEROP NUMBERP FLOAT FIX SQRT SIN LOG EXPT EXP COS ATAN 1- 1+ ABS MAX MIN NOT OR AND > >=
/= = <= < ~ GCD BOOLE LSH LOGIOR LOGAND REM * - + ASSOC MEMBER SUBST LENGTH REVERSE LAST APPEND
CDDDDR CDDDAR CDDADR CDDAAR CDADDR CDADAR CDAADR CDAAAR CADDDR CADDAR CADADR CADAAR
CAADDR CAADAR CAAADR CAAAAR CDDDR CDDAR CDADR CDAAR CADDR CADAR CAADR CAAAR CDDR CDAR CADR
CAAR CDR CAR CONS COND LISTP TYPE NULL EQUAL EQ BOUNDP ATOM NTH PAGETB PICKSET ENAME REAL FILE STR
INT SYM LIST SUBR T MAPCAR APPLY LAMBDA EVAL *ERROR* / QUIT EXIT _VER VER IF UNTRACE TRACE DEFUN
FOREACH REPEAT WHILE PROGN FUNCTION QUOTE READ LOAD SETQ SET MEM VMON ALLOC EXPAND GC ATOMLIST)

Command: Lista guardada en la variable ATOMLIST. Como se muestra en pantalla.

Todas las variables o funciones creadas por el usuario se irán integrando a esta lista, supongamos que hemos tipiado dentro del
AutoCAD lo siguiente:

(setp gus 8.9)

(Defun ele () (* gus gus))

Despues de dar estas dos expresiones en AutoLISP, activamos la variable ATOMLIST, tendremos entonces en pantalla la siguiente
lista, Ver 4:

Command: !ATOMLIST
(ELE GUS INTERS GRREAD GRTEXT GRDRAW GRCLEAR TBLSEARCH TBLNEXT ENTUPD ENTMOD ENTSEL ENTLAST
ENTNEXT ENTDEL ENTGET SSMEMB SSDEL SSADD SSLENGTH SSNAME SSGET ANGTOS RTOS COMMAND OSNAP
REDRAW GRAPHSCR TEXTSCR POLAR DISTANCE ANGLE INITGET GETKWORD GETCORNER GETINT GETSTRING
GETORIENT GETANGLE GETREAL GETDIST GETPOINT MENUCMD PROMPT SETVAR GETVAR TERPRI PRINC PRIN1 PRINT
WRITE-LINE READ-LINE WRITE-CHAR READ-CHAR CLOSE OPEN STRCASE ITOA ATOF ATOI CHR ASCII SUBSTR STRCAT
STRLEN PAUSE PI MINUSP ZEROP NUMBERP FLOAT FIX SQRT SIN LOG EXPT EXP COS ATAN 1- 1+ ABS MAX MIN NOT OR
AND > >= /= = <= < ~ GCD BOOLE LSH LOGIOR LOGAND REM * - + ASSOC MEMBER SUBST LENGTH REVERSE LAST
APPEND CDDDDR CDDDAR CDDADR CDDAAR CDADDR CDADAR CDAADR CDAAAR CADDDR CADDAR CADADR
CADAAR CAADDR CAADAR CAAADR CAAAAR CDDDR CDDAR CDADR CDAAR CADDR CADAR CAADR CAAAR CDDR
CDAR CADR CAAR CDR CAR CONS COND LISTP TYPE NULL EQUAL EQ BOUNDP ATOM NTH PAGETB PICKSET ENAME
REAL FILE STR INT SYM LIST SUBR T MAPCAR APPLY LAMBDA EVAL *ERROR* / QUIT EXIT _VER VER IF UNTRACE
TRACE DEFUN FOREACH REPEAT WHILE PROGN FUNCTION QUOTE READ LOAD SETQ SET MEM VMON ALLOC EXPAND
GC ATOMLIST)

Command: Lista guardada en la variable ATOMLIST. Obsérvese la incorporación de las variables GUS y ELE dentro de la lista.

IV. EXPRESIONES

Una expresión en AutoLISP, empieza con un paréntesis y finaliza con un paréntesis que cierre al primer paréntesis.

Toda expresión dentro del AutoLISP presenta el siguiente formato:

(Nombre-de-la-función argumento-1 argumento-2 ......)

Digamos algunas reglas para las expresiones en AutoLISP:

1. Toda expresión tienen paréntesis que abren y que cierran la expresión

2. Toda expresión tiene un nombre de función. El nombre de esta función debe estar inmediatamente después de abrir un paréntesis.
Excepción para el caso en el cual se usa la función quote o '.
3. Toda expresión es evaluada o ejecutada y responde con un resultado, el cual puede ser del tipo lógico (T o NIL), Numérica, o un
carácter string. Además cualquier valor numérica o un carácter string será considerado con un valor lógico T.
4. Una expresión en AutoLISP puede contener otras expresiones en AutoLISP, por ejemplo: (SETQ re (/ 5.6 45.0)), La evaluación de
múltiples expresiones se las realiza desde los paréntesis más interiores a los más exteriores.

V. ÁTOMOS Y LISTAS

4
Isla Fernandina N42-52 (Ciudadela Jipijapa) Teléfono/fax: 920-890, 431-356
Quito-Ecuador
www.sincows.com [email protected]

Servicios Integrales en Computación

SINCOW
Un dato puede tener la forma de una "lista" o un "átomo". El atributo más importante que un "átomo" puede tener, además de su
nombre, es un valor, así como las variables tienen valores.

Ciertos átomos tienen valores estandares, el átomo NIL tiene el valor NIL, el átomo T tiene el valor T (verdad), y algunos átomos
numéricos tales como 14, 3.347, o -6.78E9, tienen los valores entero o número flotante correspondientes.

Una lista es definida recursivamente como una secuencia de 0 a más elementos encerrados entre paréntesis: (elemento1 .......
elementon).

Una lista puede ser asignada a una variable conteniendo múltiples valores. Cada valor es llamado un elemento.

Un punto en el dibujo esta constituido por una coordenada X y una coordenada Y, y si se encuentra en el espacio se incluirá una
coordenada Z. Para el AutoLISP estas coordenadas podrían estar descritas por una simple variable, constituida esta variable a su vez por una lista
de 2 o 3 elementos según sea le caso, el primer valor de la lista lo constituirá la coordenada X, el segundo la coordenada Y y si existe el tercer
valor corresponde a la coordenada Z.

Si el usuario tiene interés de dar una lista antecederá la palabra LIST para indicar que corresponde a una lista. Veamos por ejemplo las
siguientes listas marcadas:

(LIST "Hola" "Chao") Lista constituida por 2 elementos del tipo carácter alfa-numérico.
(LIST 6 8 90 67 89 830) Lista formada por 6 números enteros
(LIST 3 2.2 7 "Elenita") Lista formada por 2 números enteros, un número de punto flotante y un "string" o caracteres alfa-numéricos.

El AutoLISP describe una entidad simple a través de una lista la cual puede contener el nombre de la entidad, el tipo de entidad
(líneas, arcos, círculos, etc), el nivel "Layer" asociado, y las coordenadas. Veamos a continuación un ejemplo de lista que describe una entidad:

((-1 . <Entity name: 6000020>) (0 . "LINE") (8 . "PR") (10 . 75.0000 212.0000) (11 . 324.0000 83.0000))

El ejemplo anterior representa a una línea con un nivel o "layer" asociado de nombre PR, y va desde la coordenada (75 212) a la
coordenada (324 83).

Se puede también tener en forma de una lista los Bloques, Estilos de texto, Tipos de líneas, nombres de vistas, en listas. Veamos
algunos ejemplos de esta representación:

((0 . "LAYER") (2 . "PRUEBA") (70 . 64) (62 . 3) (6 . "CONTINUOUS"))

((0 . "STYLE") (2 . "GUS") (70 . 0) (40 . 0.0000) (41 . 1.0000) (50 . 0.0000) (71 . 0) (42 . 0.1250) (3 . "ROMANS") (4 ""))

El primero corresponde a un nivel o "layer" de nombre prueba con un tipo de línea continua. La segunda lista corresponde a la
definición de un estilo de texto, el cual tiene un nombre de GUS y tiene asociado una forma de texto o "Font" de nombre ROMANS.

VI. ASIGNANDO VALORES A VARIABLES

Para asignar un valor a una variable usaremos la función SETQ, esta función dice al AutoLISP que asigne un valor a una variable, si
deseamos por ejemplo asignar el valor 3.1416 a la variable de nombre PIE, lo haríamos de la siguiente manera

(SETQ pie 3.1416)

La expresión SETQ es una abreviación de Set quote. El quote es una función que evita que sean evaluados átomos o listas. Por lo
tanto el valor 3.1416, para el caso de nuestro ejemplo, será asignado directamente en la variable PIE.

La expresión SET trata de evaluar cada uno de sus argumentos antes de ser asignados los valores. Veamos un ejemplo:

(SET pie 3.1416)

Para este caso el AutoLISP tratará en primer lugar de evaluar el valor de PIE y después asignará al resultado de esa evaluación el valor
de 3.1416. Por lo tanto pie deberá ser una expresión previamente definida, pues en caso contrario el AutoLISP no producirá ningún tipo de
asignación y dará un mensaje de error.

ASIGNANDO LISTAS A VARIABLES

Se puede asignar una variable a una lista para ese caso la lista puede ser obtenida a través de algún otro comando que crea listas como
resultado o el usuario puede dar la lista. Veamos a continuación 4 asignaciones a variables de listas, la última de ellas usa un comando que crea
una lista con la información del nivel o layer asociado:

5
Isla Fernandina N42-52 (Ciudadela Jipijapa) Teléfono/fax: 920-890, 431-356
Quito-Ecuador
www.sincows.com [email protected]

Servicios Integrales en Computación

SINCOW
(setq lista1 (LIST "Hola" "Chao"))
(SETQ lista2 (LIST 6 8 90 67 89 830)
(SETQ lista3 (LIST 3 2.2 7 "Elenita"))
(SETQ lista4 (TBLSEARCH "LAYER" "PRUEBA"))

VII. FUNCIONES MATEMÁTICAS

El AutoLISP permite usar expresiones matemáticas, las cuales son comunes a otros lenguajes de programación, mas no su
nomenclatura, pues si deseamos realizar la suma 3+6, la escribiremos en muchos lenguajes de esa misma forma, mientras que en AutoLISP el
formato es diferente, y lo haremos de la siguiente forma: (+ 3 6), obteniendo así el resultado de 9.

Las funciones matemáticas son:

(+ x y) Retorna la suma entre "x" "y"

(/ x y) Retorna la razón entre "x" y "y"
(- X Y) Retorna la diferencia entre "x" y "y"
(* x y) Retorna el producto entre "x" y "y"
(abs x) Da el valor absoluto de x
(exp x) Responde con el resultado de e elevado a la potencia x
(expt x y) Retorna con el valor de "x" elevado a la potencia "y"
(gcd a1 a2) Da el mayor común denominador de los argumentos. a1, a2, etc deben ser números enteros
(sqrt x) Da la raíz cuadrada de "x"
(log x) Da logaritmo natural de "x".
(1+ n) Incrementa el valor de n en 1
(1- n) Resta el valor de n en 1
(rem a1 a2 a3) El remanente que resulta de la división entre a1 y a2..
(max x y z) El valor máximo entre los argumentos
(min x y z) El valor mínimo entre los argumentos

Veamos algunos ejemplos en los cuales se observa el uso de funciones aritméticas.

(SETq a (/ 9.0 3) Se asigna el valor de 3.0 a la variable a

(SETq a (* a 4 2) Al valor de a se lo multiplica por 4 y por 2, dando esta operación un valor de 24.0 y este valor se
reasignará a la variable a.
(SETQ b (/ (sqrt a) (exp (- a 9.0))))
Esta expresión es equivalente a escribir:
Va
b = --------
e(a-9) ; y el resultado se guardará en la variable b (b = 1.4986x10-6).
(SETQ c b) Para este caso el valor de b es asignado a la variable c (c = 1.4986x10-6).
(setq a 3)
(+ (setq b (* a 2)) (+ b 2)) Reasigna la variable b al valor de a*2, y con ese valor de b entra a realizar la siguiente expresión esta es b+2.
(Resulta: 14) (b = 6)
(+ (* a 3) (setq a (+ a 3))) En este caso la expresión (* a 3), no es alterada por la reasignación que se hace a continuación en la expresión
(Setq a (+ a 3)), por tanto el resultado que dará el LISP será de 15 y la variable a tendrá un valor de 6.

Las dos últimas expresiones no son posibles de realizarlas en lenguajes comunes de programación. Con excepción del lenguaje "C",
que si permite este tipo de asignación de variables, aún cuando la nomenclatura es un tanto más difícil.

Lo que se dice frente a las dos últimas expresiones que se muestran en la parte superior, permite hacer ciertas puntualizaciones
respecto a la manera en que el AutoLISP evalúa las expresiones, esto es que la evaluación de una expresión cualquiera la realiza de izquierda a
derecha y de los paréntesis más interiores a los más exteriores. Cuando una expresión se encuentra dentro de otra expresión la totalidad de esta
expresión interna es evaluada, pasando luego a la siguiente expresión (que se encuentra a la derecha). Una gran ventaja del usar paréntesis dentro
de las expresiones es que el usuario nunca escribirá una fórmula que será evaluada en forma diferente a la que éste lo desea.

Digamos además que dentro de cualquier expresión matemática en la que todos sus argumentos son enteros, el resultado será un valor
entero y cualquier parte fraccional será eliminada. Si algún argumento es real, el resultado será un real.

VIII. USANDO FUNCIONES GET PARA ENTRADA DE DATOS

Un grupo de comandos dentro del AutoLISP se pueden usar para ingresar datos a través del teclado o en algunos casos a través de
marcar uno o dos puntos en el dibujo.

6
Isla Fernandina N42-52 (Ciudadela Jipijapa) Teléfono/fax: 920-890, 431-356
Quito-Ecuador
www.sincows.com [email protected]

Servicios Integrales en Computación

SINCOW
VIII.1. GETREAL Este comando permite introducir números reales a través de tipearlo desde el teclado, si se tipea un número entero este será
interpretado como un número real.

Formato: (GETREAL "Mensaje entre comilla")

Ejemplo: (setq re (getreal "De el valor de re: "))

Aparece: De el valor de re: 56
Res. Lisp: 56.0000

Despues de escribir el mensaje el programa esperará que se de el valor numérico que se desea asignar a la variable re. En el ejemplo el
valor es 56, mas este valor será guardado como un número real dentro de la variable re. Si se tipea por error un "string" el programa dará un
mensaje de error y regresará a preguntar nuevamente el valor real.

VIII.2. GETINT Este comando interroga sobre un valor entero que el usuario deberá dar a través del teclado.

Formato: (getint "Mensaje entre comillas: ")

Ejemplo (setq ent (getint "Valor entero: "))

Aparece: Valor entero: 56
Res. Lisp: 56

Si se introduce un valor con decimales el valor numérico no será ingresado y pedirá al usuario que vuelva a dar el valor, a
continuación ilustramos con un ejemplo lo dicho:

Command: (Getint "Valor real: ")

Valor real: 5.5

Requires an integer value.

Try again: 35.7

Requires an integer value.

Try again: 8.96

Requires an integer value.

Try again: 9

El valor de 9 será aceptado por el AutoLISP, y ingresará dentro de este.

VIII.3. GETANGLE Responde con el ángulo que existe entre dos puntos marcados o a través de dar el valor numérico de ángulo. Para el caso
en el cual se da un valor en grados el AutoLISP lo transformará en un ángulo en radianes, esto es para el caso en el cual el usuario ha tipeaqdo el
valor de 30 grados el AutoLISP lo integrará dentro de sí con un valor de 0.523598, esto hay que tener muy en cuenta pues todas las funciones
trigonométricas o sea que manejan ángulos lo hacen siempre en radianes, lo cual es una clara diferencia con el uso de ángulos en AutoCAD.

Formato: (getangle Puntos_base "Mensaje pantalla entre comillas")

Ejemplo (setq ang (getangle "De valor del ángulo: "))

Aparece: De valor del ángulo: 30
Res. Lisp: 0.523598

El tipo de variable que se tiene al usar este comando será del tipo real.

Ejemplos:

Command: (setq a (getangle "Angulo: "))

Angulo: 1,1
Second point @1,1 Es equivalente a tipear: 2,2 o @1.41421356<45
0.785398 Valor que responde el AutoLISP y para este caso se guardará en la variable a.

VIII.4. GETCORNER Responde con una coordenada en dos dimensiones, que corresponde a la segunda esquina de un rectangulo marcado.
Como se entenderá el dato será del tipo de lista constituida por dos elementos. El primer elemento se conoce como "punto base", y este siempre
deberá ser dado

Formato: (getcorner Punto_base "Mensaje pantalla entre comillas")

Ejemplo: (setq esq (getcorner (list 1 1) "valor de la esquina "))

7
Isla Fernandina N42-52 (Ciudadela Jipijapa) Teléfono/fax: 920-890, 431-356
Quito-Ecuador
www.sincows.com [email protected]

Servicios Integrales en Computación

SINCOW
Aparece: Valor de las esquinas 6,7 Se pudo contestar con @5,6 etc
Res. Lisp: (6 7)

Ejemplos:

Command: (setq as (getcorner (getpoint "Primer punto: ") "Segundo: "))

Primer punto: 1,2
Segundo: @3,4 4,6 @5<53.13 Cualquiera de estos valores sirve para obtener el mismoresultado, esto es la coordenada 4,6
(4 6) El AutoLISP responderá con la coordenada 4,6 en el formato de lista como se muestra.

VIII.5. GETPOINT Responde con una coordenada en forma similar a la función GETCORNER, aun cuando para ese caso el "punto base" es
impresindible mientras que para el GETPOINT es opcional.

Formato: (getpoint Punto_base "Mensaje para la pantalla")

(getpoint "Mensaje para la pantalla")

Ejemplos:
Command: (getpoint "Marque el punto")
Marque el punto: Se deberá marcar el punto a través de cualquier opción conocida

VIII.6. GETDIST Esta opción responde con un valor real, que puede ser producto del cálculo de la distancia entre dos puntos que el usuario
marque o simplemente un valor númerico tipeado desde el teclado

Formato: (Getdist "Mensaje")

Ejemplos:
Command: (Getdist "Marque la distancia: ")
Marque la distancia: 6
6.0000

Command: (Getdist "Marque la distancia: ")

Marque la distancia: 7.3
7.3000

Command: (Getdist "Marque la distancia: ")

Marque la distancia: 1,3
Second point: 4,6
4.2426

Command: (Getdist "Marque la distancia: ")

Marque la distancia: 1,6
Second point: @35<31
35.0000

Command: (Getdist "Marque la distancia: ")

Marque la distancia: De una coordenada usando cursor
Second point: De una nueva coordenada
x.xxx Daría un valor real

VIII.7. Funciones GET dentro de menús

Cuando se a activado alguna instrucción GET, dentro del menú será necesario producir una pausa despues de la instrucción GET, tal
como se muestra a continuación

Ejemplo: [prueba]^c^c(setq prueba (getreal "De un real" )) \

Para el ejemplo que se ilustra el símbolo \ es aquel que produce una pausa, pues en caso de no ponerla el programa no producirá una
pausa para que el usuario introduzca su dato. Esto muestra una clara diferencia con el caso de dar esta instrucción dentro de un
programa o dentro del modo normal de edición, pues en esos casos las instrucciones GETxxx producen por si mismas una pausa hasta
que el usuario ingrese el dato.

Ejemplo: [prueba]^c^c(setq pr2 (getcorner (list 1 2)) \

Para este ejemplo el programa pedirá el valor de la otra coordenada y la pausa se producirá por el símbolo \.

8
Isla Fernandina N42-52 (Ciudadela Jipijapa) Teléfono/fax: 920-890, 431-356
Quito-Ecuador
www.sincows.com [email protected]

Servicios Integrales en Computación

SINCOW
IX. SELECCION DE LOS VERTICES EN UNA POLI-LINEA (APLICACION)

Para seleccionar y encontrar los vértices de una poli-línea primero deberá ser seleccionada la poli-línea a través de cualquiera de las
opciones de selección. Veamos el siguiente ejemplo:

(set ed (entsel))

Seleccione una poli-línea marcándola usando el mouse.

(setq ed (car ed)) Selecciona la primera parte de ed que corresponde al nombre de la entidad.

(entget ed ) Características generales de la poli-línea donde no se tiene las coordenadas de los vértices. Para obtenerlos se deberá escribir lo
siguiente:

(setq rw (entget (entnext ed)))

En la variable rw se guardará el nombre de la entidad que corresponde al primer vértice de la poli-línea. Para obtener el segundo
vértice se deberá escribir lo siguiente.

(Setq rs (entget (entnext (entnex ed))))

X. ALGUNAS PALABRAS SOBRE EL LISP

El lenguaje LISP es uno de los lenguajes más antiguos de programación para inteligencia artificial, la versión más antigua fue la 1.5,
descrita en 1962 en la revista "Programmers Manual" escrita por McCarthy.

El nombre LISP resulta de unir las palabras "List Programming", este lenguaje tiene una estructura de datos que podríamos llamar
"estructura en listas", en la mayoría de situaciones en la programación en LISP, un dato puede tener la forma de una lista o un átomo. El atributo
más importante que un átomo puede tener, además de su nombre, es el tener un valor, al igual que las variables.

Ciertos átomos tienen valores estándares, el átomo NIL tiene el valor NIL (nulo, fin de archivo o fin de ejecución del programa), el
átomo T tiene el valor T (verdad) y algunos átomos numéricos tales como 14, 3.347, o -6.78E9, tienen los valores entero o número flotante
correspondiente.

Una lista es definida recursivamente como una secuencia de 0 o más elementos encerrados entre paréntesis.

(elemento1 .....elementon)

El LISP presenta una serie de posibilidades, tanto para manejar variables, expresiones aritméticas e incluso comandos completos
dentro de una misma definición, permitiendo de esta manera crear verdaderos comandos.

Toda expresión dentro del LISP presenta el siguiente formato:

(Nombre-de-la-función argumento1 argumento2....)

Las variables dentro del LISP pueden ser de cuatro tipos: variable entera, real, "string" (alfa numérica) o una coordenada. El tipo de
variable es automáticamente asignado. Todo valor esta asociado a un tipo de variable. Es posible además nombrar a las varibales con uno o
varios caracteres, cuyo primer caracter es una letra del alfabeto.

Se dispone además de funciones aritméticas, trigonométricas y geométricas, veamos algunos ejemplos de ellas:

(+ x y) Retorna la suma entre "x" "y"

(/ x y) Retorna la razón entre "x" y "y"
(abs x) Da el valor absoluto de x
(sqrt x) Da la raíz cuadrada de "x"
(log x) Da logaritmo natural de "x".
(angle p1 p2) Angulo entre los punto "p1" y "p2"
(1+ n) Incrementa el valor de n en 1
(1- n) Resta el valor de n en 1, etc.

Las funciones anteriores n son todas las que se dipone dentro del LISP, pues la inteción es solamente ilustrar como se expresan las
funciones dentro del lenguaje al que nos referimos.

El LISP dispone además de instrucciones condicionales, tal es el caso del (IF condición (acción)), o el (COND). Lazos lógicos como
(WHILE) (PROGN), etc.

9
Isla Fernandina N42-52 (Ciudadela Jipijapa) Teléfono/fax: 920-890, 431-356
Quito-Ecuador
www.sincows.com [email protected]

Servicios Integrales en Computación

SINCOW
Una de las características del lenguaje de programación LISP, desde sus orígenes, es la posibilidad de definir funciones que pueden ser
usadas en forma recursiva, esto es que mientras se esta ejecutando una función, dentro de la ejecución se llama a si misma. Esta capacidad que
presenta el lenguaje LISP es la principal razón para su uso en aplicaciones de inteligencia artificial.

Veamos el ejemplo característico con que se suele ilustrar en los libros que hacen referencia al LISP y a la recursividad, el cual es el
cálculo del factorial de un número.

Este programa define una función de nombre factorial con una "variable global" de nombre n, la cual va a ser manipulada en forma
recursiva.

(DEFUN factorial (n)

(COND ((EQ n 1) 1)
(T (* n (factorial (1- n)))
)
)1

Para ejecutar la definición anterior se deberá escribir, por ejemplo:

(factorial 4)

Esto producirá la siguiente evaluación: En primer lugar a la variable n se le asigna el valor de 4 y entraría a evaluar la expresión
(CON...). El COND toma un par de expresiones cada vez, el primer par es ((EQ n 1) 1), si el primer par es evaluado como verdad T, el valor de
la derecha de la expresión será asignado, en este caso el valor 1. Si la expresión es evaluada como NIL (falso) el próximo par será evaluado (T (*
n (factorial (1- n))), T siempre T y por tanto se procederá a calcualr la expresión (* n (factorial (1- n))), la cual para el valor que asignamos sería:

(* 4 (factorial 3) = 4 x valor del factorial de 3

valor del factorial de 3 = 3 por valor del factorial de 2
valor del factorial de 2 = 2 por valor del factorial de 1
valor del factorial de 1 = 1

La última línea evaluará la expresión ((EQ n 1) 1) como verdad por lo que saldríamos de la función factorial con el valor de 24, para
este ejemplo.

A continuación se va a plantear la solución de la función seno a través de la definción de funciones recursivas.

En primer lugar tenemos la necesidad de crear una suma exponencial de enteros sucesivos entre los valores b y a, para lograrlo
revísese la funcion ses que se muestra a continuación:

(DEFUN ses (b a)
(COND ((> b a) 0)
(T (+ (EXP 1)
(ses (+ b 1 a)))))

La función ses anteriormente ilustrada podríamos generalizarla para cualquier tipo de operador, reemplazando la función EXP por un
nombre cualcuiera y lo concluiríamos como una variable más de la función a definirse. Observemos esta generalización en el programa sum, en
el cual su primer elemento deberá ser una función, como: EXP, SIN, COS, TAN, etc.

(DEFUN sum (f count limit)

(COND ((> count limit) 0)
(T (+ (f count)
(sum f (+ count 1) limit)))))

La función seno definida como una serie de potencia tiene la siguiente forma:

senox= (-1)n X2n+1

(2n+1)

1
Para mayor claridad, las funciones propias y originales del LISP las escribo con mayúsculas,
mientras que las variables y funciones que se van creando en el desarrollo de un programa las
escribo con letras minúsculas, lo cual es indiferente para el LISP, ya que éste las transforma a
mayúsculas.
10
Isla Fernandina N42-52 (Ciudadela Jipijapa) Teléfono/fax: 920-890, 431-356
Quito-Ecuador
www.sincows.com [email protected]

Servicios Integrales en Computación

SINCOW
Plantiémonos ahora la solución de la función seno usando la serie de potencia que se muestra anteriormente

(DEFUN sen (n)

(SETQ pou (1+ (* 2 n)))
(* (/ (expt x pou) (factorial pou))
(COND ((= n 0) 1) (T (expt -1 n)))))

(DEFUN seno (x)

(SUM sen 0 5)
)

XI. FINCIONES IMPLICITAS DE AUTOLISP

+ (+ arg1 arg2 arg3...) Suma de argumentos. Regresa la suma de todos los numeros, como enteros o números reales dependiendo de los
valores.
- (- arg1 arg2 arg3...) Equivalente a arg1 - arg2 - arg3. Regresa la diferencia del primer número sustraído de la suma de los números
remanentes. Un número entero o real es regresado dependiendo del valor.
* (* 1rg1 arg2 arg3...) Multiplicación de argumentos. Regresa el producto de todos los números.
/ División (/ arg1 arg2 arg3 ...) Arg1 dividido para Arg2. Regresa el quociente del primer número dividido por el producto de los números
restantes.
< (< Exp1 Exp 2) Menor que
<= (< = Exp1 Exp2) Menor o igual que
= (= Exp1 Exp2) Igual. Puede tener múltiples argumentos comparando el primer argumento a todos los otros argumentos. Responde T si los
argumentos son numéricamente iguales, caso contrario responde NIL. Sólo son válidos números y strings.
/= (/= Exp1 Exp2) Distinto que. Puede tener múltiples argumentos comparando el primer argumento con los demás.
>= (>= Exp1 Exp2) Mayor o igual que
> (> Exp1 Exp2) Mayor que
~ (~ num) Se obtiene el equivalente a (1 - (* num - 1), num debe ser entero. Regresa la negación del "bitwise" del número.
1+ (1+ arg) Sume arg. en uno (1)
1- (1- arg) Reste arg. en uno (1)
ABS (ABS arg) Valor absoluto de arg.
*ADS (ADS) Da una lista de nombres y caminos de directorios y sub-directorios de las aplicaciones ADS actuales. Si no hay ninguna cargada,
regresa a nil
ALLOC (ALLOC number) Coloca segmentos (grupo de nudos) al número de regresa a la serie anterior
AND (AND expression ...) Y lógico. Regresa a T si todas las expresiones son verdad, sino regresa a NIL y cesa la evaluación en la primera
expresión NIL encontrada.
ANGLE (ANGLE point point) Regresa un ángulo en radianes de un eje X en sentido antihorario a una línea entre dos puntos.
ANGTOS (ANGTOS angle mode precision) Convierte ángulos a "string"
APPEND (APPEND list) Una función con lista de argumentos. La función concatena las listas para producir una sola. sola lista conteniendo todos los
elementos de las listas sustituidas.
APPLY (APPLY function list) Regresa una valor de la lista después de aplicar la función a la lista de argumentos. Generalmente la función y lista
están entre comillas por lo que sus contenidos no serán evaluados. Ej. (APPLY f '(2 4.1)) Resultado 8.2
ASCII (ASCII string) Da el valor ASCII del primer caracter del "string"
ASSOC (ASSOC item list) Existe una herramienta especial para facilitar la búsqueda y el regreso del valor de un atributo especificado en una lista
asociada, esto es la función ASSOC, la cual es llamada con dos argumentos. El primero es el atributo o llave requerida, el segundo es la
lista misma. Ejemplo: (ASSOC OWNS VEHICLE FRED), la evaluación de esta función producirá el resultado: (OWNS VEHICLE
BICYCLE). Program Design # 62.
ATAN (ATAN arg.) Arco-tangente de arg.
ATOF (ATOF string) Convierte una representación ASCII de un número real a un número real de punto flotante.
ATOI (ATOI string) Convierte una representacion ASCII de un entero a un valor entero.
ATOM (ATOM item) Responde T si la variable que se esta sensando es un "atom" (o no es una lista) en caso contrario responderá NIL.
- ATOMLIST !ATOMLIST Lista de todos los nombres usados en el AutoLISP, se va incluyendo los nuevos nombres que se vayan creando, este no es un
comando del AutoLISP, sino un nombre de variable (tipo lista) donde se encuentra de todos los nombres usados por el AutoLISP.
BOOLE (BOOLE function integer integer ...) Regresa una de las 16 operaciones boleanas, basadas en el valor de la función, en cualquier número de
integrales. Es un sistema para manipulación de datos binarios.
BOUNDP (BOUNDP atomo) Responde con T (verdad) si el "atomo" tiene un valor, de otra manera lo regresa NIL.
CADR (CADR list) Regresa al segundo elemento en la lista (CAR (CDR var.))
CAR (CAR list) Responde con el primer elemento de una lista
CDR (CDR list) Responde con una lista sin el primer elemento de la lista original.
C????R (C????R list) Regresa un elemento o una lista difinida por la combinación de caractres a y d en la expresión, a más de cuatro niveles de
profundidad. Por ejemplo CAADR, CDDR, CADAR, etc.
CAAR Equivalente a: (CAR (CAR var.))
CDAR (CAR (CAR var.))
CDDR (CDR (CDR var.))
CAAAR (CAR (CAR (CAR var.)))
CAADR (CAR (CAR (CDR var.)))
CADAR (CAR (CDR (CAR var.)))
CADDR (CAR (CDR (CDR var.)))
CDAAR (CDR (CAR (CAR var.)))
CDADR (CDR (CAR (CDR var.)))

11
Isla Fernandina N42-52 (Ciudadela Jipijapa) Teléfono/fax: 920-890, 431-356
Quito-Ecuador
www.sincows.com [email protected]

Servicios Integrales en Computación

SINCOW
CDDAR (CDR (CDR (CAR var.)))
CDDDR (CDR (CDR (CDR var.)))
CAAAAR (CAR (CAR (CAR (CAR var.))))
CAAADR (CAR (CAR (CAR (CDR var.))))
CAADAR (CAR (CAR (CDR (CAR var.))))
CAADDR (CAR (CAR (CDR (CDR var.))))
CADAAR (CAR (CDR (CAR (CAR var.))))
CADADR (CAR (CDR (CAR (CDR var.))))
CADDAR (CAR (CDR (CDR (CAR var.))))
CADDDR (CAR (CDR (CDR (CDR var.))))
CDAAAR (CDR (CAR (CAR (CAR var.))))
CDAADR (CDR (CAR (CAR (CDR var.))))
CDADAR (CDR (CAR (CDR (CAR var.))))
CDADDR (CDR (CAR (CDR (CDR var.))))
CDDAAR (CDR (CDR (CAR (CAR var.))))
CDDADR (CDR (CDR (CAR (CDR var.))))
CDDDAR (CDR (CDR (CDR (CAR var.))))
CDDDDR (CDR (CDR (CDR (CDR var.))))
CHR (CHR integer) Convierte el valor entero de un caracter ASCII a un string que consiste de ese caracter.
CLOSE (CLOSE file-desc) Cierra un archivo definido con la variable file-desc. La variable file-desc debe ser asignada a un nombre de archivo
válido.
COMMAND (COMMAND "Nombre_Comando" argumento arg2...) Envia sus argumentos como entrada al AutoCAD, Strings y números
son tomados como entradas literales, otros argumentos envian el valor de su expresión como entrada al AutoCAD. La función COMMAND
sola ejecuta un regreso (COMMAND nulo) ejecuta una <^C>. El símbolo PAUSE (una variable colocada a "\"), usada como un argumento
de la función COMMAND detiene la función COMMAND para el ingreso del usuario.
COND (COND (Primera_condición Primeros_argumentos) (segunda_condición Segundos_argumentos).. ..... (T Ultimos_argumentos)) COND
trabaja en forma muy parecida al IF con la diferencia que COND puede evaluar cualquier número de condiciones de prueba. Por lo que
diríamos que COND es un tipo de rutina IF múltiple. Una vez que el COND encuentra la primera condición que es NON-NIL, este procesa
la oración asociada con esa condición. El COND procesa únicamente la primera condición NON-NIL.
CONS (CONS item item) Función de dos argumentos, una "lista" y un "atom". La función responde con una nueva lista en la que aparece
adicionado el átomo en la primera posición de la lista original. (CONS átomo lista)
COS (COS arg.) Coseno de arg
*CVUNIT (CVUNIT number from-units to-unit) Responde con un número real en el sistemas de medida "TO-UNITS", convertido el número desde el
sistema de medida from-units. From-units y to-units son strings correspondientes a definiciones en el archivo ACAD.UNT
DEFUN (DEFUN name (argument .../ local ...) expresion ...) Se puede definir funciones propias en AutoLISP. Se creó ya una nueva función llamada
C:HOLE con la función DEFUN (DEF = definir FUN = función). Esta define una función construyendo una lista estructurada de oraciones
del programa. Sus funciones de AutoLISP crean un medio ambiente local contenido en si mismo. Los datos pasan dentro de la función
local de medio ambiente y el programa usa y manipula los datos, luego los pasa a los datos del AutoLISP general al AutoCAD. Formato
(defun NAME (ARGs /LOCALS) Argumentos del programa.... .
DISTANCE (DISTANCE point point) Responde con una distancia entre dos puntos en 3D o 2D.
ENTDEL (ENTDEL ename) Borra o restaura el "ename" dependiendo de su condición en la sección actual de edición.
ENTGET (ENTGET entidad) Da una lista de información de la entidad seleccionada.
ENTLAST (ENTLAST) Selecciona la última entidad dibujada. Formato de salida: <Entity name: 600014>
*ENTMAKE (ENTMAKE edata) Cuando se ha dado una lista válida edata (una entidad definida por una lista de datos en formato ENTGET) crea una
nueva entidad y responde la lista.
ENTMOD (ENTMOD list) Actualiza una entidad en la base de datos con una nueva lista de descripción de datos de la nueva entidad y respondiendo
con la nueva lista de datos de la entidad. Las entidades son regeneradas inmediatamente en la pantalla con los nuevos datos, excepción esta
para entidades más compleja (vértices de poli-línea y atributos de bloque) que requiere usar la función ENTUPD.
ENTNEXT (ENTNEXT ename) Regresa al primer nombre de entidad no borrada en la base de datos. Si el "ename" esta dado, se recuperará el nombre
de la entidad no borrada que se encuentra a continuación del "ename".
ENTSEL (ENTSEL prompt) Selecciona la entidad que se marque: Responde: <Entity name: 600014> (3.89 2.89)
ENTUPD (ENTUPD ename) Permite actualización selectiva de los nombres de las entidades de los vértices de una poli-línea y los atributos "ename"
del bloque después de que un "entmod" ha sido realizado.
EQ (EQ arg1 arg2) Se usa la función EQ para probar listas, para observar si ellas estan seteadas (bound) a los mismos objetos. EQ
generalmente es equivalente al = y al EQUAL para comparación numérica de strings.
EQUAL (EQUAL expresion expresión exactitud) Regresa un valor de T si la primera expresión es igual a la segunda, de otra manera responde NIL.
El valor de la exactitud (es opcional) determina cuan exactos deben ser dos números para ser considerados iguales.
*ERROR* (*ERROR* string) Una función de error definida por el usuario; el "string" contendrá un mensaje describiendo el error.
EVAL (EVAL expresion) Regresa el resultado de evaluar la expresión Ej. (SETQ W (LIST 1 3 3.3 9 9.4)) (SETQ WW 'W) (SETQ SW (EVAL
WW)
EXP (EXP arg) e a la potencia arg
EXPAND (EXPAND) Intenta asignar un número del nudo desde el espacio del "heap" (asociado a la variable LISPHEAP) al espacio del stack
(asociado a LISPSTACK) y responde con el número actualmente requerido. (Ej. idle.lsp en la versión 10)
EXPT (EXPT base power) La "base" a la potencia "power"
FINDFILE (FINDFILE nombre_archivo) Respónde con el nombre del archivo con el "Path" pista asocaida al archivo, si el archivo es encontrado, caso contrario
contesta con NIL. Busca unicamente el directorio especificado si la pista es dada como parte del nombre del archivo. Si no es dada la pista
busca en la biblioteca de pistas del AutoCAD. Wild cards no son permitidas.
FIX (FIX x) Transforma el valor real "x" a entero
FLOAT (FLOAT x) Punto flotante. Transforma el valor entero "x" a real
FOREACH (FOREACH nombre lista expresión) FOREACH es otra función de ejecución de oraciones. Esta función saca cada artículo de una lista y lo
usa como una variable temporal en las siguientes oraciones. FOREACH es usada en muchas aplicaciones para ejecutar una función en cada
miembro de una lista, ejecutando una vez para cada miembro. Formato: (foreach item list statements...) El artículo es cualquier alias que se
dese usar como el nombre temporal de una variable para los artículos actuales de ejecución de la lista. Las oraciones dentro de la ejecución
deben referirse al artículo actual de la lista por su alias. El valor del artículo es local al FOREACH.
GC (GC) Recoge cualquier basura de los nudos sin limitarse a los símbolos y los aumenta al espacio libre de nudos.

12
Isla Fernandina N42-52 (Ciudadela Jipijapa) Teléfono/fax: 920-890, 431-356
Quito-Ecuador
www.sincows.com [email protected]

Servicios Integrales en Computación

SINCOW
GCD (GCD arg1 arg2) El mayor denominador común de los argumentos "arg1" y "arg2". "arg1" y "arg2" enteros positivos.
GETANGLE (GETANGLE basept promptstring) Retorna un ángulo entre 2 puntos en radianes. El valor puede ser dado por el usuario o determinado por
dos puntos dados por el usuario. El ángulo es medido en sentido contrario a las manecillas del reloj, desde el eje X, a menos que el ángulo
sea revertido por el comando UNITS. Un punto opcional especifica el punto base para una linea de banda "rubber-band". El string opcional
puede especificar instrucciones pra valores de puntos deseados. Utilice GETANGLE para rotación (ángulos relativos)
GETCORNER (GETCORNER basept promptstring) Regresa a la segunda esquina de un rectángulo
GETDIST (GETDIST basept promptsring) Regresa la distancia de dos puntos o la salida tipeada
GETENV (GETENV name) Regresa el valor del string del sitio de la variable del entorno del sistema operativo, especificado por el nombre del
argumento, si lo encontró, en caso contrario regresa NIL Las variables del AutoCAD que deberán ser seteadas antes de entrar al programa a
través de la línea SET del DOS son ACAD, ACADCFG, ACADFREERAM, LISPHEAP, LISPTACK, ACADXMEM, ACADLIMEM.
Ejemplo (getenv "acadfreeram"), si esta no ha sido señalada desde el DOS con el comando set, el AutoLISP reytornará nil.
GETINT (GETINT promptstring) Responde con un valor entero dado por el usuario. El número ingresado deberá estar entre -32768 y +32767.
GETKWORD (GETKWORD promptstring) Regresa una lista de palabras claves pre-definidas
GETORIENT (GETORIENT basept promptstring) Igual que "GETANGLE" pero no maneja el ángulo base este.
GETPOINT (GETPOINT basept promptstring) Punto.
GETREAL (GETREAL promptsting) Responde con un número Real dado por el usuario
GETSTRING (GETSTRING flag promptstring) Si es "flag" es verdad (true) acepta espacios en "string" y requiere "return" para entrar.
GETVAR (GETVAR string) Extrae el valor actual de una variable del AutoCAD
GRAPHRSCR (GRAPHSCR) Equivalente al comando GRAPHSCR.
GRCLEAR (GRCLEAR) Limpia temporalmente la pantalla de graficos en el pórtico de vista actual. "Redraw" refrescará la pantalla.
GRDRAW (GRDRAW point point color mode) Dibuja el vector entre dos puntos dados, con el color especificado. La línea aparecerá sobresaltada si el
modo opcional no es cero.
GRREAD (GRREAD track) Responde con el valor ASCII del caracter escrito. Lee directamente la salida del proyecto. Si esta presente la opción track
y no NIL, regresa a la localización actual del mouse o digitizador.
GRTEXT (GRTEXT num string modo) Num = -1 Pone el string en el sitio del Layer; Num = 2 Pone el string en el sitio de la coordenada; Num = 0 al
20 Pone el string en el sitio del menú. El modo corresponde a si se desea que aparezca resaltado o no el texto. Si se tipea simplemente
(grtext), se logrará recgresar al mensaje inicial que aparecía.
HANDENT (HANDENT handle) Responde con el nombre de la entidad correspondiente al nombre permanente del manejador "handle", si el manejador
ha sido habilitado, esto a través de la variable del sistema HANDLES, esta variable debe tener un valor de 1 para estar activada.
IF (IF condición expresión expresión) Si la condición no es NIL, la primera expresión es evaluada. Si la condición es NIL o falsa, la segunda
expresión opcional es evaluada. La función regresa el valor de la expresión evaluada.
(If condicion. Ejecución_para_verdad. Ejecución_para_falso) Uno de las más simples y más usadas ramas de programa es la estructura IF, a veces
también llamada IF-THEN-ELSE. Si el AutoLISP determina que la condición es T, entonces (THEN) ejecuta la primera expresión y si es
(NIL), ejecuta la segunda expresión.
INITGET ( bits string) Inicializa la siguiente función "GET", controlando su entrada:
1 No permite una entrada nula. 8 No chequea límites
2 El valor 0 no es permitido. 16 Retorna una coordenada en 3D (corriente)
4 Valor negativo no permitido. 32 Activa línea de segmentos para ser usadas con "rubber-banding" Esto significa que
cuando se señala un segundo punto de una línea el dragado se
mostrará con líneas de segmentos. Esto para el caso en que se
emplee algun comando get donde se requieran dos puntos a
marcarse.

Se puede usar la suma de dos o más valores cualquiera. Por ejemplo si se pone el número 6 (2 + 4) significará que no se podrá ingresar ni
valores negativos ni cero.
El "string" opcional define una lista de palabras claves como entradas aceptables a una función GETxxx.
Ejemplo: (INITGET 1 "XP XN YP YN ZP ZN")
(GETPOINT (GETVAR "LASTPOINT"))
Se podrá marcar además de una coordenada las letras XP XN YP YN ZP o ZN.
INTERS (INTERS pt1 pt2 pt3 pt4) Responde con el punto que corresponde a la intersección de las líneas que forman pt1 con pt2 y pt3 con pt4.
ITOA (ITOA integer) Convierte enteros a "strings"
LAMBDA (LAMBDA argument expression ...) Define una función en línea proveyendo de argumentos a expresiones para su evaluación. Ej. (SETQ F
'(LAMBDA (X H) (* X H)))
LAST (LAST list) Función de un argumento (Una lista). Este responde con el último elemento de la lista planteada
LENGTH (LENGHT list) Función de un argumento. Esta responde con un entero, que corresponde al número de elementos de una lista.
LIST (LIST expresion) Para asignar una lista de valores. Una lista es un grupo de elementos de cualquier clase de datos, tratados como una
expresión y almacenados una una sola variable. Una lista en el AutoLISP puede contener cualquier numero de variables reales, enteros o
"strings". Cualquier cosa que este entre paréntesis es una lista.
LISTP (LISTP arg1) Responde T si arg1 es una lista o hil en caso contrario.
LOAD (LOAD Nombre_archivo expresion) Para cargar archivos de programa en AutoLISP, La expresión se evaluará si la cargada de la función
falla.
LOG (LOG arg) Logaritmo natural de arg.
LOGAND (LOGAND num1 num2 num3 ....) Es el "and" o "Y númerico" lógico entre los números equivalentes binarios de num1, num2, num3,....
Los números solo pueden ser enteros, y el resultado es un número decimal. Ejemplo: (logiand 11 12) Resultado: 8 ; Esto es por que el
número 11 corresponde a 1011 y el 12 a 1100 en binario, si aplicamos el and lógico se obtiene el binario 1000 equivalente al número 8
LOGIOR (LOGIOR num1 num2 num3...) Es el "o" numérico lógico. Ejemplo: (logior 11 12) Resultado: 15.
LSH (LSH number numberbits) Regresa el resultado de la ejecución de una función lisp en los elementos de una o más listas.
MAPCAR (MAPCAR function list) Regresa el resultado de la ejecución de una función lisp en los elementos de una o más listas. Ej. (MAPCAR F '(3
4 5 6.1) '(4 5 8.8 9.1)) Resulta (12 20 44 55.51). Veamos otro ejemplo del uso del comando mapcar (mapcar '+ (list 1.2 7.7 5.6 3.8) (list 0.9
8.7 6.5 4.3)) Resultado: (2.1 16.4 12.1 8.1)
EJEMPLOS:
(Setq a 3.3 b 2.2 c 1.1)
(MAPCAR '+ (LIST A B C) (LIST 3 4 6)
Respuesta: (6.3 6.2 6.1)
(MAPCAR 'SIN (LIST B A C))

13
Isla Fernandina N42-52 (Ciudadela Jipijapa) Teléfono/fax: 920-890, 431-356
Quito-Ecuador
www.sincows.com [email protected]

Servicios Integrales en Computación

SINCOW
(MAPCAR 'ABS (LIST 1 3 2.2 -4.1 -7 8 -3 2.2))
Respuesta (1 3 2.2 4.1 7 8 3 2.2)
(MAPCAR 'ABS '(1 3 -2 7.7 -11.71 4))
Responde: (1 3 2 7.7 11.71 4)
(MAPCAR 'CAR (LIST (LIST 1 2 3) (LIST 4 5 6)))
Responde: (1 4)
(MAPCAR 'CDR (LIST (LIST 1 2 3) (LIST 4 5 6)))
Responde: ((2 3) (5 6))
MAX (MAX arg1 arg2 arg3 ....) Máximo de los argumentos. Regresa el valor más alto en una serie de números
MEM (MEM) NODES: 1024 Free nodes: 461 Segments: 2 Allocate: 512 Collection: 4 Free hesp: 19966
MEMBER (MEMBER arg1 lista1) Crea una nueva lista que empieza con el arg1 hasta el fin de la lista1 nombrada. Si el arg1 no es elemento de la
lista1 respondera una lista nula o NIL.
Esta lista será creada para el caso en el cual el arg1 sea un miembro de la lista1
MENUCMD (MENUCMD string) Muestra la página de menú de un string especificado. El string debe incluír el tipo de menú y el nombre
de la página de acuerdo al estandard de menú. Ejemplo: (menucmd "s=undo") En este caso se ordena al AutoCAD que pase al menú detipo
"screen" de nombre "undo"
(menucmd "i=datos") $i=* Para este caso se ordena entrar a un menu del tipo "icon" de nombre datos. Es importante para este caso
destacar la necesidad de accionar a continuación del comando la opción $i=*, también se podrá escribir (menucmd "i=datos") (menucmd
"i=*")
MIN (MIN number number) Regresa el valor más bajo en una serie de números. Mínimo de los argumentos
MINUSP (MINUSP num) Da V si num es negativo, sino da NIL.
*NENTSEL (NENTSEL prompt) En entidades simples da una lista que contiene el nombre de la entidad y la coordenada usada para escoger la entidad, como el
ENTSEL. En las poli-líneas da una lista conteniendo el nombre de la sub-entidad "subentity" del vértice y el punto de la coordenada
utilizada para escoger la entidad. Para la inserción de bloques, si es seleccionado un atributo, da el nombre de la sub-entidad del atributo y
el punto donde fue escogida la entidad. Para insertar bloques en los que no se a escogido un atributo, da una lista conteniendo el nombre de
la entidad con la definición de bloque, una matriz de puntos usada para transformaciones del sistema de coordenadas y la definición
"nested" del bloque que la entidad seleccionada tiene. La opción opcional del string puede dar instrucciones especícas para la selección de
entidades.
NOT (NOT item) Negación lógica
NTH (NTH num lista) Da un item especificado por la posición del entero. Da un resultado NIL si la posición del entero excede la longitud de la
lista. Sacar el elemento número "num-1" de la lista Ej. (NTH 0 A) (NTH 1 A)....
NULL (NULL item) Responde T si el item esta unida a un valor NIL, de otra manera responde NIL, Esta opción es tipicamente usada en listas.
NUMBERP (NUMBERP item). Regresa a N si N es un número
OPEN (OPEN "Nombre-archivo" "w") Para escritura en el archivo nombrado.
(OPEN "Nombre-archivo" "r") Para lectura del archivo nombrado. NOTA: "r" y "w" deben ser siempre minúsculas.
OR (OR expression ...) O lógico. Regresa a T si una de las expresiones es verdad, sino regresa a nil o cesa la evaluación en la primera expresión
verdadera encontrada.
OSNAP (OSNAP Punto1 "snap_object") Activa el "snap object" u objeto de ajuste en la coordenada Punto1. Ejemplo: (osnap (list 4.5 6.7) "end")
(osnap (getpoint) "int") etc.
PAUSE (PAUSE) Pausa. La constante pausa en usada en la función command para esperar que el ingreso de datos del usuario.
PI (PI) Valor de PI (3.1415926)
POLAR (POLAR p1 ang d) Da la coordenada que corresponderá de medir una distancia "d", desde el punto "p1" y con un ángulo "ang".
PRIN1 (PRIN1 expression file-desc) Imprime la expresión a la pantalla y regresa la expresión. Si se ha dado un archivo destino y este archivo esta
abierto para escritura, la salida es redirigida al archivo destino
PRINC (PRINC expression file-des) Imprime la expresión a la pantalla y regresa a la expresión, con excepción de los caracteres de control que no
son evaluados. Si un archivo destino es dado y el archivo se encuentra abierto para escritura, la salida es redirigida al archivo destino.
PRINT (PRINT expression file-desc) Imprime una nueva línea y la expresión a la pantalla y regresa a una nueva línea y expresión. Si se ha dado el
archivo destino opcional y el archivo esta abierto para escritura, la salida es redirigida al archivo destino
PROGN (PROGN expresion ...) Las oraciones con "IF" estan limitadas a un solo "THEN" y a un solo "ELSE". Si se desea ejecutar algunas
oraciones el AutoLISP tiene la función PROGN. El PROGN agrupa múltiples expresiones del AutoLISP dentro de una sóla. Use el
PROGN para decir el AutoLISP como tratar la siguiente serie de oraciones como una sola. Siempre regresa al último valor evaluado por la
última espresión dentro de este. La estructura del PROGN es: (progn arg1 arg2 arg3 ...) En donde los argumentos pueden ser cualquier
número de cualquier expresión válida del AutoLIST.
PROMPT (PROMPT string) Con esta opción se puede poner mensajes en la parte para texto de la pantalla
QUOTE (QUOTE expression) La función QUOTE la cual puede ser abreviada con el símbolo ' es también importante. La LIST evalua su contenido
y luego forma una lista. El "Quote" suprime la evaluación de sus expresiones. Cuando este forma una lista incluye su contenido
literalmente.
READ (READ string) Responde con un símbolo del primer atomo o lista en el "string".
READ-CHARD (READ-CHAR file-desc) Regresa el código del caracter ASCII de un único caracter tipeado desde el teclado o leído desde un file-desc
opcional.
READ-LINE (READ-LINE file-desc) Regresa a un string tipeado desde el teclado o leído del file-desc opcional
REDRAW (REDRAW ename mode) Vuelve a dibujar el puerto de visión actual, a menos que se haya dado un ename, en este caso la entidad
representada por el ename es dibujada. Hay tres maneras de utilizar la opción redraw: 1 = redraw estandard. 2 = un redraw en reversa
(espacio en blanco) 3 = redraw sobresaltado y 4 = de-highlight. Regresa NIL. Igual que el comando REDRAW.
*REGAPP (REGAPP appidname) Registra un nombre de aplicación con el AutoCAD. El AutoCAD coloca el nombre en una tabla de símbolos
APPID. Si el registro tiene éxito la función da el nombre, caso contrario regresa NIL.
REM (REM val1 val2) Obtiene el remanente de la división de val1 para val2.
REPEAT (REPEAT número_entero expresion ...) La función REPEAT es una estructura siempre de ejecución. Muchos programas de aplicación
repiten algunas tareas. Esta función ejecuta cualquier número de oraciones un número especificado de veces. Como el PROGN todas sus
expresiones son evaluadas, pero una vez en cada ejecución. El REPEAT regresa al valor de la última expresión de la última ejecución. Ej.
(repeat number statements to repeat....)
REVERSE (REVERSE list) Función de un argumento (Una lista). Al ejecutar esta función se obtiene de resultado una lista igual al argumento pero
con cambiado el orden de esta.
RTOS (RTOS número modo exactitud) Convierte un número real a "string", con una exactitud dada por la que se marque, y el modo corresponde
al formato del número a convertir en "string"; a continuación se muestra los valores que puede tomar el "Modo":
14
Isla Fernandina N42-52 (Ciudadela Jipijapa) Teléfono/fax: 920-890, 431-356
Quito-Ecuador
www.sincows.com [email protected]

Servicios Integrales en Computación

SINCOW
1 Científica 4 Arquitectónico
2 Decimal 5 Fraccional
3 Ingenieril
SET (SET var. valor) Asigna un valor a una variable, la diferencia con el SETQ es que este no evalua a la variable, mientras que el SET antes de
asignar el valor realiza una evaluación de la variable. Ejemplo: (SET gol 1.523), para el ejemplo el AutoLISP tratará de evaluar el símbolo
"gol" primero, para después asignar el valor 1.523.
SETQ (SETQ simb. expresion simb. expresión ...) Asignar a una variable un valor dado (SETQ var. valor); este valor puede ser un número entero,
un real, a un "string". La función "Setq" es equivalente a decir "iguale a". Actualmente esta variable es una abreviación de "Set Quote".
SETVAR (SETVAR sysvar value) Equivalente al comando SETVAR. Permite asignar un nuevo valor a una variable del AutoCAD, por tanto es una
función que debe contener dos variables.
SIN (SIN arg) Seno de arg.
SQRT (SQRT arg) Raiz cuadrada de arg.
SSADD (SSADD ename selection-set) Crea un conjunto de selección vacion cuando no se handado los argumentos. Si el "ename" opcional es dado,
un conjunto de selección es creado con el "ename" únicamente. Si un "ename" es dado con un conjunto de selección ya existen, este será
aumentado al conjunto de selección.
SSDEL (SSDEL ename slection-set) Borra el "ename" de un conjunto de selección y regresa al "ename".
SSGET (SSGET mode point point) Usa la seleccion de opciones estandard del AutoCAD para regresar a un conjunto de entidades del usario. El
mode opcional de conjunto usa una predeterminada selecciones de opciones a una selección automática sin salirse de la del usuari. El valor
de los puntos son usados para establecer "Window" y "Crossing". Un modo X regresa entidades uniéndolas a una lista filtro basada en
cualquiera de las combinaciones del siguiente grupo:
0 Tipo de entidad 38 Elevación (Si existe) (3D)
2 Nombre del bloque 39 "Thickness" o Grosor (3D)
6 Nombre del tipo de línea 62 Número de Color
7 Nombre del estilo deTexto 66 Atributos
8 Nombre del nivel o "Layer" 210 3D extrusion direction
SSLENGHT (SSLENGTH arg) arg igual al originado en (SSGET)
SSMEMB (SSMEMB ename selection-set) Regresa al "ename" si este esta en el conjunto de selección, sino lo hace a NIL.
SSNAME (SSNAME arg1 num) arg1 igual entidad, num es el número de selección.
STRCASE (STRCASE string flag) Convierte "strings" de letras mayúsculas a minúsculas.
STRCAT (STRCAT string string) Para mezclar string en una sola expresión.
STRLEN (STRLEN string) Regresa la longitud del "string". Da como resultado un valor entero que corresponde al número de elementos (caracteres
alfa-numéricos) que constituyen el "string".
SUBST (SUBST item item list) Función de tres argumentos. La función tiene la posibilidad de sustituir el primer argumento por el segundo
argumento en la lista definida por el tercer argumento.
SUBSTR (SUBSTR string start length) Función de tres argumentos. Tiene el efecto de sustraer de un string una porción de este Ej: (Setq P
"ABCDEF") (SUBSTR p 2 3) Resultado: "BCD".
T Valor de "verdad"
TBLNEXT (TBLNEXT tname flag) Regresa datos de la lista de descripción de un nombre de tabla especificado por un "tname". Si la "flag" opcional es
T, es regresada la primera tabla de datos, de lo contrario la siguiente entrada de tabla es regresada cada vez que es usada la función.
TBLSEARCH (TBLSEARCH arg1 arg2). arg1 = "Layer", "View", "Style", "Block", etc. arg2 = "Nombre" . Ejemplo: (TBLSEARCH "UCS" "Prueba")
Prueba deberá ser el nombre de un UCS previamente definido. El nombre de la característica puede ser: "LAYER" o "layer"
"LTYPE" "BLOCK" "VIEWPORT" "VIEW" "STYLE"
TERPRI (TERPRI) Carry return en la pantalla de texto
*TEXPAGE (TEXTPAGE) Conecta de una pantalla gráfica a una de texto en un único sistema de pantalla y limpia la pantalla, con el cursor al inicio. Regresa NIL
(Sólo versión 11)
TEXTSCR (TEXTSCR) Equivalente al comando TEXTSCR.
TRACE (TRACE function...) Es útil especialmente con funciones recursivas definidas, para tener capacidad de "mirar" el progreso del sistema.
Podrían aparecer ciertas sospechas existan como una correcta definición y ejecución de una función. La función en cuestión puede aparecer
para ejecutar sin invocar error, pero aun asi la salida final del sistema intergrado no es lo que se esperaba y una falta es considerada como
existente en algún lugar de las funciones especificada dando un mensaje de entrada: ej: Entering function y un mensaje, con la salida o
valor de regreso en salida: Salida función valor = val. Con el uso del trace, se puede chequear que la función ha sido llamada y podemos
verificar su valor de salida. Los últimos detalles de ejecución no estan disponibles. Por ejemplo consideremos la función REM-ALL
aplicada a esta lista creada en la última sección. (Trace Funcion).
TRANS (TRANS poin code code flag) Responde con un punto trasladado de un punto dado del primer código de coordenada al segundo código de
coordenada. Los códigos son: 0 para World Coordinate System (WCS), 1 para User Coordinate System (UCS), 2 para Display Coordinate
System (DCS, screen), y 3 para Paper Space DCS (PS DCS, no para versión 10 usada solamente a y desde 2). Si el "flag" no es NIL, el
valor del punto es tratado como un desplazamiento en 3D en lugar de ser tratado como punto. Un nombre de entidad o un vector 3D de
estrucción puede ser usado en el lugar de cualquiera de los codigos.
TYPE (TYPE a) Da el tipo de la variable a (entero, real, lista, "string", "subrt" etc.)
UNTRACE (UNTRACE function...) Desactiva la acción del comando TRACE de una función. Como se entenderá a la función se le debe haber aplicado
previamente el comando TRACE.(UNTRACE Funcion).
VER Responde con un string con la versión actual del AutoLISP. Ej. "AutoLISP Release 9.0"
VMON (VMON) Si se esta planeando cargar muchas funciones durante la edición de un dibujo en AutoCAD, se podrá incluir la línea (VMON) al
principio del programa en AutoLISP. Esto indica al AutoCAD la página no frequentemente usada de funciones al disco. Las funciones del
AutoLISP pueden consumir memoria rápidamente y cuando esto ocurre no se puede cargar más funciones, por lo tanto se debe cerrar el
archivo que se esta editando y reabrirlo. usando otras funciones. Para evitar este problema se puede usar (VMON) M.A. Pág. 524. También
hace que las definiciones de funciones elegibles puedan ser intercambiadas en y fuera de la RAM, para permitir que más programas sean
cargados.
VPORTS (VPORTS) Responde con una lista de los TILEMODE actuales o puertos de visión de espacio de papel. La lista contiene sub-listas con los
números de los puertos de visión y muestra los puntos de las coordenadas de las esquinas para cada pórtico. Puerto de visión activo es el
primero de la lista.
*WCMATCH (WCMATCH string patern) Responde con T (Verdad) si el string une patrones "wildcard". Caso contrario responde NIL. El patrón en un
string (o variable string) conteniendo uno o más "Wildcards" como * or ?.
WHILE (WHILE condición expresion ...) La función WHILE se ejecuta como la REPEAT, excepto que WHILE es abierta terminando con una
prueba de condicional. WHILE continua ejecutando a través de una serie de oraciones hasta que la condición es NIL. (Condición while
15
Isla Fernandina N42-52 (Ciudadela Jipijapa) Teléfono/fax: 920-890, 431-356
Quito-Ecuador
www.sincows.com [email protected]

Servicios Integrales en Computación

SINCOW
oración a ejecutar....) A diferencia de la función IF, WHILE no tiene una oración "else" alternativa para ejecutar si la condición if falla la
prueba.
WRITE-CHAR (WRITE-CHAR number descripcion_de_archivo) Escribe un cracter especificado por el número de código del caracter ASCII a la pantalla
o a un archivo especificado por el archivo opcional file-desc.
WRITE-LINE (WRITE-line string file-desc) Escribe un caracter a la pantalla o a un archivo especificado por archivo destino opcional.
*XLOAD (XLOAD filename) Carga un program ADS externo dentro del AutoCAD. Si se tiene éxito al cargar el programa o si se encuentra ya
cargado, responde con el nombre del archivo ADS externo. Caso contrario aparece un mensaje de error.
*XDROOM (XDROOM ename) Responde con el número de bytes disponibles para extensión de datos de una entidad seleccionada, o responde NIL.
*XDSIZE (XDSIZE list) Responde con el número de bytes que ocupará una lista extendida de datos.
*XUNLOAD (XUNLOAD filename) Descarga un progrma ADS externo de la sección actual de dibujo. Si tiene éxito el nombre del archivo ADS externo
aparecerá, caso contrario dará un mensaje de error.
ZEROP (ZEROP X). Retorna a T si X es igual a 0

- FUNCTION (FUNCTION arg.)

- _VER (_VER) "i2.38"
- EXIT
- QUIT

- SUBR Tipo de variable (para subrutina)

- SYM Tipo de variable (para SYM)
- INT Tipo de variable (para número entero)
- STR Tipo de variable (para string)
- FILE Tipo de variable (para nombre de archivo)
- REAL Tipo de variable (para número real)
- ENAME Tipo de variable (para nombre de entidad)
- PICKSET Tipo de variable (para PICKSET)
- PAGETB Tipo de variable (para PAGETB)
- EXSUBR Tipo de variable (para subrutinas externas ADS)

16
Isla Fernandina N42-52 (Ciudadela Jipijapa) Teléfono/fax: 920-890, 431-356
Quito-Ecuador