Documentos de Académico
Documentos de Profesional
Documentos de Cultura
Resumen Autolis LMCV
Resumen Autolis LMCV
Caractersticas de AutoLISP
Su nombre proviene de LISt Procesing (Procesado de listas), se basa en el uso de listas en lugar
de datos numricos.
AutoLISP es un lenguaje evaluado. El cdigo se convierte a lenguaje mquina (ceros y unos) y
se almacena en la memoria temporal. No es tan lento como los lenguajes interpretados, ni tan
rpido como los compilados:
AutoLISP puede acceder a la base de datos de los dibujos de AutoCAD. Donde podemos
acceder a las capas, estilos de texto, sistemas de coordenadas personales (SCP) as como a
todas las entidades del dibujo. Esta informacin se puede modificar, extraer e incluso aadir ms
entidades al dibujo o informacin adicional.
AutoLISP no sigue instrucciones prefijadas, accede a la informacin de los objetos de AutoCAD
determina de que informacin se dispone, preguntndole a los objetos por ellos mismos.
AutoLISP puede interactuar con los objetos contenidos en los dibujos.
AutoLISP permite crear nuevos comandos para AutoCAD
AutoLISP en la realizacin de programas paramtricos y en el diseo semiautomtico, ya que
entre el 60% y el 80% del diseo
AutoLISP ha mejorado con la creacin de Visual LISP que ofrece un entorno de desarrollo
integrado dentro de AutoCAD.
(+ 2.5 22.8)
(- 0.25 22.5)
(+ 12 -2 31 -7.5)
Los elementos de las expresiones de AutoLISP pueden ser smbolos, valores concretos y tambin
otras expresiones. Se pueden distinguir los siguientes tipos de elementos:
Smbolos: Cualquier elemento que no sea un valor concreto. Ej. una variable, una funcin
Enteros: Nmeros enteros comprendidos entre -32000 y 32000
Reales: Nmeros reales (180 es un nmero entero, pero 180.0 es un nmero real)
Ejemplo:
(+ 5 2) devuelve 7. los argumentos son nmeros enteros y devuelve un entero
(+ 5 2.0) devuelve 7.0. tenemos un nmero real, as que el resultado es un nmero real
AutoLISP puede ejecutar expresiones en medio de un comando de AutoCAD.
Ejemplo: Ejecuta comando LINEA e indica el primer punto, activa forzado ortogonal (F8) y
teclea (+ 11 25) Esto devuelve el resultado de la suma al comando que se estaba ejecutando.
Dibuja una lnea de 36 mm de longitud en la direccin que indicaba el cursor.
Prueba indicando el radio de la circunferencia (- 70 25) al utilizar el comando CIRCULO
La constante PI = 3.14159 ejemplo, ejecuta comando CIRCULO y cuando pregunte el radio de
la circunferencia, teclea (/ 6 (* 2 PI)). Obtiene circunferencia de permetro 6.
Notacin empleada
Convenciones recomendadas
aadir unas lneas al final del programa e indicar nombre del nuevo comando, autor, etc.
no utilizaremos nombres de variables que coincidan con los nombres de las funciones de
AutoLISP ni de las variables de sistema de AutoCAD
no es necesario declarar previamente las variables. En AutoLISP una misma variable puede
contener primero un nmero entero, luego uno real, despus una cadena de texto, etc.
Ejemplo: (setq a 3) Esta expresin crea la variable a y asigna el valor 3. Devuelve el valor de a.
Que valor devolver (setq b (+ 1 3) melones 23.0)? se han definido dos variables b y melones de
valor 4 y 23.0 respectivamente. Como melones es la ltima variable evaluada, devuelve su valor.
Si la barra de comandos recibe una palabra precedida por el signo de exclamacin !, comprueba si
el termino fue empleado como un smbolo (nombre de variable o una funcin de usuario) de
AutoLISP. Devolver su valor y en caso contrario devolver nil, Por ejemplo: !a devuelve 3.
Prueba las siguientes expresiones y comprueba los valores asignados a las variables:
(setq c (+ b 3)) Los valores de las variables pueden usarse para realizar operaciones y asignar el
resultado a una variable.
(setq d b) Se puede definir una variable igual al valor de otra variable.
(setq a 3.5) Se puede modificar el valor asociado a una variable, por eso se llama variable.
(setq b 2.0) Qu sucede con el valor de la variable d? Tomar el nuevo valor asignado a la
variable b o seguir con el anterior? Al definir la variable d se le asigno el valor que tena la
variable b en ese momento, no se estableci ninguna relacin entre ambas variables.
Se puede asignar valores no numricos a las variables. Por ejemplo, una cadena de texto, que son
secuencias de uno o ms caracteres encerrados entre comillas. Dentro de una cadena de texto
pueden insertarse una serie de carcteres de control:
\\ representa al smbolo \
\ representa al smbolo
(setq b T)
(setq c nil)
A la variable a se le asigna una cadena de texto, a la variable b el valor Cierto o Verdadero y a la
variable c el valor Vaco o Falso.
Almacenar el radio del circulo de permetro 6 en una variable, teclear: (setq rad (/ 6 (* 2 PI)))
Podramos crear un circulo e indicar !rad a AutoCAD cuando nos pregunte por el radio deseado.
Ejemplo: Por qu las siguientes expresiones estn mal?
(setq 157 25)
No debemos emplear para los nombres de las variables los nombres de las funciones de AutoLISP.
(setq + 23) En este caso asignamos a la variable + el valor 23.
Prueba (+ 5 2.5) Ahora + no representa a la funcin suma, sino a una variable de valor 23. lo que da
error. Para recuperar el modo habitual de trabajo de la funcin + cerrar la sesin actual de AutoCAD
e iniciar una nueva sesin.
numero real
; (- 11 5) devuelve 6
numero entero
numero entero ;
numero real
(* ) devuelve 0
(/ 7 2) devuelve 3
Si le pasamos a la funcin / un nico nmero como argumento, nos devuelve ese nmero.
(/ 12.5) devuelve 12.5
(1+ <nmero> )
(1+ 0) devuelve 1
(1- <nmero> )
(1- 5) devuelve 4. Ojo entre 1 y - no debe haber espacio, ya que el nombre de la funcin es 1-.
(1- 2.5) devuelve 1.5
(1- 0) devuelve -1
y no finalizar la ejecucin de la funcin hasta que se introduzca un valor entero, o se pulse ESC.
(getint) Puede indicarse un mensaje de solicitud opcional,
(getint Cuntos aos tienes?:)
(getreal)
Puede indicarse un mensaje de solicitud opcional, El mensaje debe ser cadena de texto y estar
entre comillas.
(setq peso (getreal Cuntos kilos pesas?:))
(setq peso (- peso 1)) dar el peso que tendrs si adelgazas un kilo.
Tambin puedes crear una variable que contenga el mensaje de solicitud de la funcin GETREAL
(setq mens Cuntos kilos pesas?:)
(setq peso (getreal mens))
los argumentos son valores que recibir la funcin cuando sea ejecutada por el usuario, o
llamada desde otras funciones
las variables locales son aquellas variables que se emplearn tan solo dentro de la funcin
que queremos definir, de modo que restringimos su uso al entorno de la funcin
Por ltimo, se aaden las expresiones que ejecutar la funcin. Veamos algunos ejemplos:
(defun 2+ ( valor ) (+ valor 2)) hemos definido una nueva funcin llamada 2+, que recibe como
argumento un nmero y realiza la suma de ese nmero y 2.
(2+ 5) devuelve 7
(2+ 0) devuelve 2
Defun devuelve el resultado de la ltima expresin ejecutada, que en el caso anterior es (+ valor 2).
si tratamos de ejecutar la funcin sin argumento, o con argumento que no sea de tipo numrico?:
(2+ ) indica ; error: argumentos insuficientes
(2+ texto) indica ; error: tipo de argumento errneo: numberp: texto
(2+ 1 2) indica ; error: demasiados argumentos
Podras pensar que el nmero se almacena en la variable llamada valor, pero no es as. Puedes
comprobarlo escribiendo !valor en la lnea de comandos, lo que devolver nil.
dentro de la funcin 2+ asignamos (setq valor (+ valor 2)) de modo que valor ser 6
pero como se trata de una variable local, al salir de la funcin 2+ recuperamos el valor que
tena la variable valor antes de llamar a la funcin, de modo que valor ser 5
Pero, que pasa si ejecutamos (setq valor (2+ 4)). Se repiten los puntos 1-4 anteriores, pero al salir
de la funcin 2+ le asignamos a valor el valor devuelto por la funcin, que es 6. De modo que
valor ser 6.
Retoquemos un poco ms la funcin 2+
(defun 2+ ( valor ) (setq inicial valor valor (+ valor 2)))
y borremos el contenido de valor. Para ello simplemente le asignamos nil.
(setq valor nil)
En este caso, dentro de la funcin 2+ declaramos una variable a la que se le asigna el valor que
recibe como argumento la funcin.
(2+ 4)
Que valor tendrn ahora las variables valor e inicial? Vamos a comprobarlo:
!valor devuelve nil tal como suceda en el ejemplo anterior
!inicial devuelve 4
El valor se comporta como variable local, solo se emplea dentro de la funcin. Sin embargo
inicial es de mbito global, se sigue empleando al salir de la funcin. modificamos ms la
funcin:
(defun 2+ ( valor / inicial ) (setq inicial valor valor (+ valor 2)))
Se aade la variable inicial a la lista de variables locales, con lo que su mbito ser local. Para
comprobarlo
!inicial devuelve 4
(setq inicial nil)
(2+ 3)
Se ha visto que las funciones de AutoLISP se pueden ejecutar directamente desde la ventana de
comandos de AutoCAD. Pero se tiene varios inconvenientes:
depurador de cdigo especfico para AutoLISP con opciones para: Ejecutar el cdigo paso a
paso, indicar puntos de parada, evaluar expresiones y valores de variables, etc.
seguiremos usando la ventana de comandos de AutoCAD para ver como trabajan las funciones de
AutoLISP, y nos iremos al editor de Visual Lisp para crear nuevas funciones y comandos.
Antes de comenzar con el editor de Visual LISP, crearemos una primera funcin de usuario: Es una
funcin para convertir un ngulo de radianes a grados decimales, nos ser til en muchas de las
macros. El cdigo de la funcin sera el siguiente:
(defun RAG ( ang )
(/ (* ang 180.0) pi)
)
Hay tres reglas bsicas que sigue AutoLISP:
1.
2.
3.
El interprete de AutoLISP no evala los retornos de carro (Intros), de modo que el cdigo se poda
haber escrito todo seguido, en una misma lnea:
(defun RAG ( ang ) (/ (* ang 180.0) pi) )
(RAG 1.57)
as es difcil de leer. la funcin tiene poco cdigo, imagina una funcin mayor escrita toda en la
misma lnea.
La segunda lnea esta tabulada, no comienza a la misma altura que el resto, est desplazada hacia
la derecha. Esto indica que est incluida dentro de una lista de nivel superior, de la funcin defun.
No es necesario tabular el cdigo, pero facilita su lectura y permite detectar posibles errores con
los parntesis (Regla nmero 1).
Pi es una constante que ya est definida en AutoLISP, pi equivale al nmero 3.141592
En la primera lnea (defun RAG ( ang ) definimos la funcin RAG (Radianes A Grados) que recibe
un argumento ang (el ngulo en radianes).
la segunda lnea: Por la Regla nmero 2, primero se evaluar la lista interior (* ang 180.0) que
multiplica el ngulo en radianes ang por 180.0 y devuelve el resultado a la lista de nivel superior
(recuerda la Regla nmero 3) que lo divide entrepi = 3.141592 devolviendo a su vez el resultado
de la divisin (el ngulo en grados decimales) a la lista de nivel superior, defun.
La ltima lnea cierra la lista de la funcin defun, cumpliendo con la Regla nmero 1.
Recordemos la estructura de la funcin de AutoLISP defun: (DEFUN <funcin> ( [argumentos] /
[variables_locales] ) [expresin1] [expresin2] ) . En la funcin RAG tenemos un argumento y
no se han declarado variables locales (por lo que no es necesario poner el caracter /), adems
solo tenemos una expresin (/ (* ang 180.0) pi) . Como se dijo en el tema anterior, defun devuelve
el resultado de la ltima expresin, que en nuestro caso resulta ser el ngulo ya convertido a grados
decimales.
Nuestra funcin RAG se ejecutara as:
(RAG 1.57)
siendo 1.57 el ngulo en radianes, y devolvera ese ngulo en grados decimales
(aproximadamente 90).
No es necesario poner el nombre de la funcin RAG en maysculas, ya que AutoLISP no diferencia
las maysculas de las minsculas (salvo en contadas excepciones al trabajar con textos, como ya
veremos). A lo largo de los artculos del curso se mostrarn los nombres de las funciones de usuario
en maysculas simplemente para que se diferencien perfectamente del resto del cdigo.
El editor de Visual LISP realiza las tabulaciones automticamente. Y aunque se pueden eliminar o
modificar a nuestro gusto (aadiendo o quitando espacios y tabulaciones), lo recomendable es
mantener el formato por defecto para el cdigo. Veamos como queda la funcin RAG en el editor:
los textos en color rosa (en este ejemplo no aparece ningn texto, pero veremos algunos
ejemplos ms adelante) Soy un texto
el resto de elementos, como los nombres de las funciones y de las variables utilizadas, se
muestran en color negro
El formato coloreado del cdigo se puede desactivar, o se pueden modificar los colores predefinidos
para los diferentes elementos. Pero el mantener el formato de colores para el cdigo, nos puede
ayudar a detectar errores.
Por ejemplo, si ponemos (setw radianes 1.57)
SETW aparecer en negro y no en azul, por que la funcin de AutoLISP es SETQ, de modo que
nos indica que hemos escrito mal el nombre de la funcin.
En cuanto a la tabulacin, tal vez llame la atencin el ltimo parntesis (el de cierre de la
funcin defun), ya que no est a la misma altura que su parntesis de apertura. Hay editores para
AutoLISP que insertan los parntesis de cierre a la misma altura que sus correspondientes
parntesis de apertura y hay otros editores que insertan los parntesis de cierre tabulados, tal como
hace (por defecto) el editor de Visual LISP.
Una vez escrito el cdigo de la funcin RAG, tan solo nos queda guardarlo en un archivo. Es
recomendable crear un directorio (carpeta) en el que guardar todas nuestras rutinas.
Veremos ms adelante que se pueden guardar varias funciones y varios comandos en un mismo
archivo de AutoLISP, aunque en este caso slo se ha definido una nueva funcin de usuario.
Se le suele dar a los archivos de AutoLISP el mismo nombre del comando o funcin que est
definida en l, podemos guardar esta rutina en el archivo klhsduif.lsp pero luego no
la reconoceramos. As que lo mejor ser guardar el cdigo de la funcin RAG en el archivo
RAG.lsp, dentro del directorio que hemos creado para almacenar nuestras rutinas. As que
selecciona Archivo > Guardar como e indica la ruta y el nombre del archivo.
Ahora puedes intentar crear una funcin llamada GAR que reciba como argumento un ngulo en
grados decimales y que devuelva ese ngulo en radianes. Es prcticamente igual a la funcin que
acabamos de ver. Pero recuerda Antes de empezar a programar (como antes de hacer casi
cualquier cosa) conviene pensar en lo que se va a hacer y en cmo lo vamos a hacer. Como esta
rutina es muy sencilla no es necesario escribir el pseudocdigo (ni hacer un diagrama de flujo), tan
solo hay que pensar un poco en lo que se va a hacer. Guarda el cdigo de la funcin GAR en un
archivo llamado GAR.lsp en el directorio donde tengas tus rutinas.
3.
Si estamos en el editor de Visual LISP y tenemos abierto un archivo con una rutina, para cargarla en
AutoCAD podemos:
Seleccionar en los mens desplegables del Visual LISP Herramientas > Cargar texto en
editor.
(RAG 0)
(RAG pi)
(RAG (/ pi 4))
Pero si lo hiciramos as nos dara un error, ya que AutoCAD no reconoce el carcter \, de modo
que hay que escribirlo de forma algo especial. Para AutoLISP el caracter \ hay que indicarlo de
cualquiera de esas 2 formas: \\ o /. Por lo tanto escribiremos:
(load c:\\rutinas\\rag.lsp)
o
(load c:/rutinas/rag.lsp)
En caso de que no se encuentre el archivo, la expresin load puede ejecutar lo que se indique en
[resultado_si_falla]. Por ejemplo:
(load rag (setq test 0))
En este caso, si no se encuentra el archivo RAG.lsp a la variable test se le asigna el valor cero.
Suele emplearse para que, cuando se ejecute LOAD desde dentro de una funcin de AutoLISP,
podamos indicarle al usuario que no se ha encontrado el archivo. Como indica el siguiente
pseudocdigo:
Si test = 0 ==> Mensaje al usuario Archivo no encontrado
Esto es todo, de momento, sobre la carga de archivos de AutoLISP en AutoCAD. Ms adelante
veremos otros mtodos para cargar nuestras rutinas.
Veamos como sera la funcin GAR propuesta en el tema anterior:
;;;_____________________Eduardo Magdalena_____________________;;;
;;;_________________________GAR.LSP___________________________;;;
;;;_______________________Versin 1.0_________________________;;;
;;;________________________21/02/2002_________________________;;;
;;; Esta funcin recibe el valor de un ngulo en grados decimales y lo devuelve en radianes.
(defun GAR ( ang ) ; Recibe un ngulo en grados decimales
(/ (* ang pi) 180.0)
;; Multiplica el ngulo en grados decimales por Pi y lo divide por 180.0.
)
Es muy muy parecida a la funcin RAG, no?
Opciones de AutoCAD
Tambin podemos subir o bajar el nuevo directorio en la lista de directorios de soporte. Esto se hace
para definir las prioridades, es decir donde buscar primero. De modo que si subimos nuestro
directorio hasta el primer lugar (como en la imagen), este ser el primer directorio en el que busque
AutoCAD.
(ABS numero)
Esta funcin devuelve el valor absoluto del nmero que se le pase como argumento. Por ejemplo:
(abs 23.8) devuelve 23.8
(abs -23.8) tambin devuelve 23.8
Si el nmero que recibe como argumento es entero, devuelve un nmero entero y si es un nmero
real, devuelve un real.
(abs -7) devuelve 7
(abs -7.0) devuelve 7.0
(abs 0) devuelve 0
(FIX numero)
Esta funcin devuelve la parte entera de un nmero. De modo que devuelve un nmero entero. Ojo!
esta funcin no redondea, sino que elimina lo que est detrs del punto decimal.
(fix 15.8) devuelve 15.
(fix -15.8) devuelve -15
(fix 0.99) devuelve 0
(fix -0.99) devuelve 0
(SIN angulo)
Devuelve el seno de un ngulo indicado en radianes.
(COS angulo)
Funciona igual que la anterior, pero devuelve el coseno del ngulo, que recibe en radianes.
(cos 0) devuelve 1.0
(cos pi) devuelve -1.0
(SQRT numero)
Esta funcin devuelve la raiz cuadrada del numero que recibe como argumento. Siempre devuelve
un nmero real, no entero.
(sqrt 4) devuelve 2.0
(sqrt 2.0) devuelve 1.41
(EXP num)
Devuelve el nmero e ( e = 2.71828 ) elevado al nmero num. Siempre devuelve un nmero real.
(LOG numero)
Esta funcin devuelve el logaritmo neperiano del nmero que recibe como argumento.
(log 1) devuelve 0.0
(log 2) devuelve 0.693147
Recuerdas las funciones GETINT y GETREAL? Nos sirven para solicitar al usuario un nmero
entero y real, respectivamente. Pues la funcin que se utiliza para solicitar textos al usuario es muy
parecida.
(CAR lista)
Esta funcin devuelve el primer elemento de la lista que recibe como argumento.
De modo que si (siguiendo con el ejemplo del tema anterior) en la variable pto hemos asignado el
valor devuelto por getpoint, tenemos una lista con las coordenadas X, Y y Z del punto designado.
Supongamos que pto = (10.0 20.0 0.0).
(car pto) devuelve la coordenada X del punto pto. Es decir 10.0
(CDR lista)
Esta funcin devuelve la lista que recibe como argumento pero sin el primer elemento.
(cdr pto) devolver una lista formada por las coordenadas Y y Z del punto pto. Es decir, (20.0 0.0)
(CADR lista)
Basndonos en las dos funciones anteriores y recordando que podemos ejecutar listas de
instrucciones dentro de otras (a esto le llamamos anidamiento): Cmo se obtendra la coordenada
Y del punto pto? Veamos:
De modo que (cdr pto) devuelve (Y Z). As que para obtener la coordenada Y podemos escribir:
(car (cdr pto)) devuelve la coordenada Y del punto pto.
y, cmo obtenemos la coordenada Z? Pues, volviendo a aplicar la funcin CDR para llegar a la
coordenada Z
Podras pensar que escribiendo (cdr (cdr pto)) obtenemos la coordenada Z, sin embargo no es as.
La expresin (cdr (cdr pto))devuelve una lista con un nico elemento, la coordenada Z del punto
pto. Para obtener la coordenada Z del punto pto tenemos que escribir:
(car (cdr (cdr pto))) devuelve la coordenada Z del punto pto.
En resumen, las coordenadas del punto pto se obtendrian mediante:
Este ejemplo es simplemente para introducir una simple regla de mnemotecnia ya que las
funciones CAR y CDR se pueden agrupar. Para ello, existen una serie de funciones que se
denominan juntando las Aes y las Des de cAr y cDr respectivamente. El ejemplo anterior, queda:
Esto nos servir como regla para recordar el nombre de estas funciones. Debes recordar tambin
que tan solo se permiten 4 niveles de anidacin, as que entre la c y la r solo puede haber 4 letras
(Aes o Des).
Supongamos que tenemos la siguiente lista asignada a la variable lst = ((a b) (c d) (e
f)). OJO!! es una lista en la que sus elementos son a su vez listas.
Puedes definir la variable lst escribiendo: (setq lst (list (list a b) (list c d) (list e f)))
Cmo obtendramos a ??
y el elemento c?
(cDr lst) devuelve la lista sin el primer elemento, es decir ((c d) (e f)).
Ahora si hacemos (cAr (cDr lst)) devuelve el primer elemento de la lista anterior, es
decir (c d).
As que (cAr (cAr (cDr lst))) devuelve c, o lo que es lo mismo:
Cmo obtener d ?
Y cmo obtener e ?
(cAr (cDr (cDr lst))) devuelve (e f) tal como se vio en el ejemplo anterior.
As que (cDr (cAr (cDr (cDr lst)))) devuelve (f), que os recuerdo que se trata de una lista
y que no es lo mismo que f.
Por tanto (cAr (cDr (cAr (cDr (cDr lst))))) devuelve f.
Podramos pensar que (cADADDr lst) tambin devuelve f. Pero al ejecutar esta lnea AutoCAD
nos dice que la funcin cADADDr no est definida.
Ya dijimos antes que se pueden agrupar hasta 4 funciones cAr y cDr, pero aqu estamos
intentando agrupar 5, y lgicamente no podemos. Para obtener f podramos escribir, por ejemplo:
(LENGTH lista)
En la variable pto tenamos una lista con las coordenadas de un punto, pero si solo trabajamos en
2D, la coordenada Z no nos interesa. As que muchas veces los puntos tan slo tendrn 2
coordenadas (X Y). Pero para un programa no es lo mismo que tenga 2 que 3 coordenadas, a lo
mejor va a buscar la coordenada Z y no existe producindose un error en nuestra rutina.
As que necesitamos conocer el nmero de elementos que tienen las listas. Para ello se utiliza la
funcin length, que devuelve el nmero de elementos de la lista que recibe como argumento. Por
ejemplo:
(length pto) devuelve 3. y si el punto pto estuviera en 2D (X Y) devolvera 2.
Y qu devolvera (length lst) ? siendo lst = ((a b) (c d) (e f)). Pues devolvera 3, ya
que lst es una lista con 3 elementos, que a su vez son listas de dos elementos cada una.
Qu devolvera (length (car lst)) ? El nmero de elementos del primer elemento de lst, es decir el
nmero de elementos de (a b), que es 2.
(list a b) devuelve (a b)
(list d e) devuelve (d e)
(command linea (list 0.0 0.0) (list 100.0 200.0)) Dibujar una lnea desde el origen al
punto 100,200. Pero, nos falta algo: Al dibujar lneas en AutoCAD se van indicando puntos y
siempre pide Siguiente punto: de modo que para terminar el comando LINEA hay que
pulsar INTRO. Pues ese Intro tambin hay que pasrlo a la funcin command:
(command linea (list 0.0 0.0) (list 100.0 200.0) )
Lo realmente potente de COMMAND es que podemos ejecutar casi todos los comandos de
AutoCAD. Cules no? Son muy pocos, por ejemplo Nuevo para empezar un dibujo nuevo. Pero
todos los comandos de dibujo, edicin, etc se pueden ejecutar.
Los datos dependern del comando de AutoCAD indicado. Por ejemplo para el comando circulo,
ser:
(command circulo (list 0.0 0.0) 25.0) Esto dibujar una circunferencia de radio 25 con centro en
el origen.
Para ejecutar los comandos originales de AutoCAD, y no los redefinidos (si lo estn)
debemos anteponer al nombre del comando un punto, por ejemplo:
(command .circulo (list 0.0 0.0) 25.0)
(command .linea (list 0.0 0.0) (list 100.0 200.0) )
Podemos adems indicar los comandos en Ingls anteponiendo un guin bajo as que tambin
los podramos escribir as:
(command ._circle (list 0.0 0.0) 25.0)
(command _.circle (list 0.0 0.0) 25.0)
Da igual si se pone antes el punto o el guin bajo.
Ejecutar el comando ANULADEF (En Ingls undefine) indicando el nombre del comando
a redefinir. De este modo se elimina la definicin del comando de AutoCAD, y la nica forma de
ejecutarlo ser anteponiendo al nombre del comando un punto.
2.
Crear y cargar una macro en la que est definido un nuevo comando con el nombre del
comando que acabamos de anular.
Veamos un ejemplo:
1.
2.
1.
2.
3.
Iniciamos el editor de Visual LISP: Herr. >AutoLISP > Editor de Visual LISP
1.
(defun C:LINEA ( )
(setq pt (getpoint Centro del crculo: ))
cerrar AutoCAD y abrirlo de nuevo, de modo que la macro que hemos creado se borre de la
memoria del ordenador
2.
ejecutar el comando de AutoCAD redefine (En Ingls es igual, pero con un guin bajo
delante) e indicarel nombre del comando del que queremos recuperar su definicin original, es
decir linea.
Bueno, por ltimo un ejercicio: Crear una macro que defina un nuevo comando de Autocad
llamado CIRCPERI que dibuje una circunferencia indicando su centro y la longitud de su permetro.
(equal pt1 pt3 0.1) devuelve T, porque compara los elementos de las listas (coordenadas) con la
precisin que hemos indicado, 0.1
Si subimos la precisin
(equal pt1 pt3 0.001) devuelve nil
(equal pt1 pt4 0.01) devuelve nil
(equal pt1 pt4 0.02) devuelve T, porque la precisin es 0.02 que es exactamente la diferencia
entre 20.02 y 20
El utilizar una precisin muy elevada no implica que todas las comparaciones devuelvan T, todo
depender de los valores a comparar:
(equal 15 20 100) devuelve T
(equal 5000 4200 100) devuelve nil
(NOT expr)
A esta funcin le gusta llevarle la contraria a la expresin que recibe como argumento.
(= expr1 expr2 )
Compara si expr1 devuelve el mismo resultado que expr2, en caso afirmativo devuelve T y en caso
contrario devuelve nil.
(= 5 (+ 1 4)) devuelve T porque (+ 1 4) devuelve 5
(= 5 (+ 1 4.0)) devuelve T aunque (+ 1 4.0) devuelve 5.0 y no 5. Pero 5 y 5.0 valen lo mismo, no?
(= 5 5.0) devuelve T
No solo podemos evaluar nmeros, tambin textos:
(setq txt1 Curso de Lisp)
(= txt1 Curso de Lisp) devuelve T
(= txt1 Curso de LISP) devuelve nil. No es lo mismo un texto en maysculas que en minsculas.
(= LISP Lisp) devuelve nil
Estamos comparando expresiones, as que:
(= (+ 1 5) (/ 12 2)) devuelve T porque ambas expresiones devuelven como resultado 6.
La funcin = puede aceptar ms de dos expresiones:
(= 6 (+ 1 5) 6.0 (/ 12 2)) devuelve T, pues las cuatro expresiones devuelven 6 o 6.0 (que vale lo
mismo).
Macro de ejemplo
Veamos como se hara el ejercicio propuesto en el artculo anterior: Crear un nuevo comando
llamado CIRCPERI que dibuje una circunferencia indicando su centro y la longitud de su permetro.
Qu es lo primero que hay que hacer? Esta respuesta tiene que ser instintiva, como un acto
reflejo: El pseudocdigo.
Siempre comenzaremos nuestras rutinas escribiendo el pseudocdigo (o haciendo un diagrama de
flujo) de lo que se pretende hacer. Bien, cmo podra ser el pseudocdigo de esta rutina?, vamos a
ver:
2.
3.
4.
Dibujar la circunferencia.
3.
2.
Viendo el cdigo anterior, tal vez pienses que si la condicin (> liminf limsup) se cumple, entonces
se evaluar la lnea siguiente de cdigo completa. Pero no es as, se evala la expresin si cumple,
que es la primera expresin (alert El lmite superior debe ser mayor que el inferior).
Si la condicin no se cumple, devuelve nil, se evaluar la expresin no cumple, que en este caso
ser (setq limsup (getint \nLmite superior)).
Tanto la expresin si cumple, como la no cumple solo pueden ser una nica expresin. El
ejemplo de cdigo anterior nos dara un error ya que IF no puede tener ms que 3 expresiones:
La condicin
La expresin si cumple
La expresin no cumple
)
Si se cumple la condicin, se evala la condicin si cumple, es decir el progn. De modo que se van
evaluando las expresiones contenidas en la funcin PROGN, que devuelve el valor de la ltima
expresin (setq intervalo (- limsup liminf)), que ser el valor de la variable intervalo.
En caso de que la condicin no se cumpla, se evala la condicin no
cumple, (setq intervalo (- limsup liminf)) que curiosamente tambin devuelve el valor de la
variable intervalo.
Veamos ahora algunos ejemplos ms de estructuras condicionales:
(if (and (= 2 2.0) (< 2 3))
(alert Las dos condiciones se cumplen)
(alert Al menos una condicin no se cumple)
)
En este caso la condicin es (and (= 2 2.0) (< 2 3)) que en este caso devolvera T, ya que se
verifican las dos expresiones que recibe la funcin AND.
(if (not var1)
(alert Variable no definida)
(alert Variable definida)
)
En este caso si var1 es nil, (not var1) devolver T, indicando que la variable no se ha definido. En
caso contrario, (not var1) devolvernil evalundose la expresin no cumple. Otro mtodo para
hacer lo mismo, sera:
(if var1
(alert Variable definida)
(alert Variable no definida)
)
Si var1 es distinto de nil, se evala la expresin si cumple. En caso de que var1 sea nil, se
evaluara la expresin no cumple.
Aunque la siguiente condicin (< a c) se cumple, no se evala, ya que existe una condicin anterior
que tambin se cumpla.
En caso de que se hubiera definido (setq a 2 b 2.5 c 3.5) la primera condicin (= a b) no se verifica,
de modo que se evala la segunda condicin (< a c) que si se cumple. Evalundose sus
expresiones si cumple (alert A es menor que C) que devuelve nil.
Si fuera (setq a 2 b 2.5 c 1.5) la primera condicin en cumplirse sera la tercera (< a b) que no tiene
expresiones si cumple. Qu devolver entonces la funcin COND? Pues el valor de la ltima
expresin evaluada, es decir el valor devuelto por la condicin (< a b)que es T.
Por ltimo, si tenemos (setq a 2 b 1.0 c 1.5) ninguna de las tres condiciones anteriores se verifica,
de modo que pasamos a la siguiente condicin T, que lgicamente siempre devuelve T, as que
siempre se verifica. Esto se suele utilizar mucho en la funcin COND, aadir como ltima condicin
una que se verifique siempre. En lugar de T se poda haber puesto (not nil) o (= 1 1.0) que tambin
son expresiones que siempre se cumplen. Para qu aadir una expresin que siempre se cumple?
Muy sencillo, para incluir el cdigo que se desea ejecutar en caso de que no se verifique ninguna de
las condiciones anteriores.
Y qu sucede si se pone la condicin T como primera condicin? Pues sucede que las que estn a
continuacin nunca se evaluarn, ya que T siempre se cumplir. Si en el ejemplo
anterior hubiramos puesto:
(cond
(T
(alert A no es igual a B)
(alert A no es menor que C)
(alert A no es menor que B)
)
((= a b)
(alert A y B son iguales)
(setq b (getreal Introduzca de nuevo B: ))
)
((< a c)
(alert A es menor que C)
)
((< a b))
)
Independientemente de los valores de las variables a b y c siempre nos mostrar los mensajes de
alerta indicando que A no es igual a B, A no es menor que C y A no es menor que B.
(PROMPT mensaje)
Muestra el texto indicado como argumento en pantalla, y siempre devuelve nil.
(prompt Bienvenidos al Curso)
(ALERT mensaje)
Muestra el texto que recibe como argumento en un letrero. Tambin devuelve nil. Se utiliza
principalmente para avisar al usuario en caso de error, o para mostrar alguna informacin
importante.
(alert Error: Dato no vlido)
(TERPRI)
En artculo correspondiente a las Operaciones de comparacin, creamos un nuevo comando para
AutoCAD denominado CIRCPERI. Si has cargado y ejecutado el comando, habrs observado que
los mensajes para solicitar el centro de la circunferencia y su permetro aparecen en la misma lnea
de la ventana de comandos y sin separacin entre s, estn pegados.
Para que los mensajes aparezcan en lneas distintas, se puede emplear la funcin TERPRI. Esta
funcin mueve el cursor a una nueva lnea en la ventana de comandos de AutoCAD, y devuelve nil.
El cdigo de la rutina quedara as:
(defun C:CIRCPERI ( )
(setq pto (getpoint Centro de la circunferencia)) (terpri)
(setq peri (getreal Permetro:)) (terpri)
(setq rad (/ peri (* pi 2)))
(command _.circle pto rad)
)
As los mensajes de solicitud aparecern en lneas separadas.
\\ Equivale al caracter \
\ Equivale al caracter
\e Equivale a ESCape
Un par de cosas ms con respecto a esta rutina Cuando se crea un archivo LISP en el que est
definido un nuevo comando es bastante til aadir al final de todo el cdigo algo similar a
(prompt \nNuevo comando CIRCPERI cargado)
Esta lnea se pondra despus del parntesis de cierre de defun. Es decir, que cuando se
ejecuta CIRCPERI desde AutoCAD esta lnea no se evala. Para qu ponerla entonces? Pues muy
sencillo para que cuando se cargue el archivo en AutoCAD muestre en pantalla:Nuevo comando
CIRCPERI cargado. As el usuario sabe cual es el nombre del comando definido en el archivo que
se acaba de cargar. De modo que el mensaje slo se mostrar al cargar el archivo.
Por otro lado si recordamos la estructura de la funcin DEFUN: (DEFUN nombre_funcin
( argumentos / variables_locales ) expr1 expr2 )
Veremos que en la rutina CIRCPERI no hemos indicado variables locales, as que todas las
variables sern globales. Es decir que al ejecutar CIRCPERI y dibujar un crculo, luego nos quedan
accesibles los valores de las variables pto, peri y rad desde AutoCAD, ocupando y malgastando
memoria. As que vamos a ponerlas como locales. Slo habra que cambiar la siguiente lnea
(defun C:CIRCPERI ( / pto peri rad )
OJO! la barra inclinada / hay que ponerla, sino seran argumentos y no variables locales.
El cdigo completo de la rutina es el siguiente:
;;;____________________Eduardo Magdalena____________________;;;
;;;______________________CIRCPERI.LSP_________________________;;;
;;;_______________________Versin 1.1_________________________;;;
;;;________________________26/02/2002_________________________;;;
;;; Comando para dibujar una circunferencia indicando su centro y la longitud
;;; de su permetro.
(defun C:CIRCPERI ( / pto peri rad )
(setq pto (getpoint \nCentro de la circunferencia))
(setq peri (getreal \nPermetro:))
(setq rad (/ peri (* pi 2)))
(command _.circle pto rad)
)
(prompt \nNuevo comando CIRCPERI cargado)
comandos, se ven afectados por los valores asignados a las variables de sistema. Podra decirse
que controlan como trabaja AutoCAD. Por lo tanto, se pueden modificar los valores asignados a las
variables de sistema para personalizar AutoCAD para un usuario en concreto, para un tipo de
trabajo determinado, e incluso para un archivo de dibujo. De modo que nos facilite el trabajo.
Activada / Desactivada. Muchas variables de sistema slo admiten dos opciones: Activada
y Desactivada. Normalmente tienen asignado el valor 0 cuando estn desactivadas, y 1
cuando estn activadas. Un ejemplo de este tipo de variables es blipmode.
Nmeros enteros. Otras variables tienen ms de dos posibilidades, para lo que asignan un
nmero entero para cada opcin. Normalmente emplean nmeros correlativos, empezando
desde el cero. Una variable que utiliza este tipo de datos es coords.
Cdigos binarios. Algunas variables pueden emplear varias opciones a la vez, para lo que
suelen emplear cdigos binarios. A cada opcin se le asigna el nmero resultante de
elevar 2 a n. Asignando a n nmeros enteros correlativos a partir del cero. Es decir, los valores
para las distintas opciones sern: 1,2,4,8,16,32,etc. De modo que para seleccionar la primera y
cuarta opciones, hay que asignar a la variable la suma de sus valores: 1+8 = 9. Un ejemplo muy
interesante de este tipo de variables es osmode.
Nmeros reales. Las variables que almacenan valores de ngulos o distancias, por
ejemplo, utilizan este tipo de valores. Un ejemplo de este tipo es la variable chamfera.
Puntos. Este tipo de entidades almacenan las coordenadas de un punto, un buen ejemplo
es ucsorg.
Cadenas de texto. Hay bastantes variables que almacenan cadenas de texto, como
nombres de archivos o rutas de directorios. Ejemplos de este tipo de variables son acadver y
acadprefix.
sumamente importante la definicin de los valores de las variables de sistema en las plantillas
utilizadas para crear nuevos dibujos. Un ejemplo de variable guardada en el dibujo es luprec.
La mayora de las variables de sistema de AutoCAD pueden editarse, modificando el valor que
tengan asignado. Pero algunas variables son de solo lectura, de modo que no se pueden modificar,
tan solo leer. Un ejemplo de variable de solo lectura es cdate.
Hay varios mtodos para modificar los valores asignados a las variables de sistema de AutoCAD:
Deberas guardar los valores iniciales de las variables de sistema que se necesite modificar,
y asignarles sus valores iniciales al terminar el programa.
Crear una funcin de tratamiento de errores, de modo que si se produce algn error al
ejecutar el programa se restablezcan los valores iniciales de las variables de sistema. La
creacin de funciones de tratamiento de errores la trataremos ms adelante.
(GETVAR variable)
Esta funcin devuelve el valor asociado a la variable que recibe como argumento. Por ejemplo:
(getvar osmode)
(getvar blipmode)
(getvar acadver)
(ITOA entero)
Convierte un entero en un texto. Integer TO Atom.
(itoa 24) devuelve 24
(ATOI texto)
Hace justo lo contrario que la funcin anterior. Convierte un texto en un nmero. Atom TO Integer
(atoi 24) devuelve 24
(atoi -7) devuelve -7
Y que pasa si hacemos (atoi soy un texto) pues que devuelve 0. Siempre que escribes algo
que no sea un nmero devuelve cero.
(atoi 15.3) devuelve 15
(atoi 15.99999) devuelve 15
(FLOAT numero)
Convierte un nmero en real, as que lo lgico es que reciba un entero como argumento.
(ATOF texto)
Convierte un texto en real.
(atof 15.7) devuelve 15.7
(atof 15) devuelve 15.0
(atof -15.7) devuelve -15.7
(atof soy un texto) devuelve 0.0
Formato cientfico.
Decimal. Es el que se usa habitualmente.
Pies y pulgadas.
Fracciones.
Por ejemplo
(rtos 2.5 5) devuelve 2 1/2
(rtos 2.5 1) devuelve 2.5000E+00
Precisin nos permite definir el nmero de decimales que deseamos, por ejemplo:
(rtos 1.23456789 2 3) devuelve 1.235 as que redondea el nmero para que tenga 3 decimales.
(rtos 9.99 2 0) devuelve 10
Hemos visto como se obtienen nmeros, puntos y textos del usuario. Ahora le vamos a solicitar
directamente una distancia o un ngulo.
(getangle ngulo: )
0 Desactivada
1 Activada
Por defecto debera estar activada (1) as que se veran los mensajes raros de antes.
Cmo evitamos que aparezcan estos mensajes? Pues desactivando la variable.
Pero no conviene modificar los valores de las variables de sistema, porque tal vez el usuario los
quiera mantener como estaban. De modo que se desactivar momentneamente el valor de la
variable en medio de la macro y al terminar la rutina se dejar con su valor inicial, es decir tal como
estaba.
Esto es ms bien una filosofa de vida: Si al entrar en un sitio, la puerta estaba cerrada, vuelve
a cerrarla
As que nuestro cdigo quedara
(defun C:CIRCPERI ( / pto peri rad )
(setvar cmdecho 0) ; Desactiva el eco de mensajes
(setq pto (getpoint \nCentro de la circunferencia: ))
(setq peri (getdist \nPermetro: ))
(setq rad (/ peri (* pi 2)))
(command _.circle pto rad)
(setvar cmdecho 1) ; Vuelve a activar el eco de mensajes
)
(prompt \nNuevo comando CIRCPERI cargado)
Efectivamente los mensajes raros desaparecen, pero Qu pasa si al entrar en una habitacin, la
puerta ya estaba abierta? la cerramos o la dejamos abierta de nuevo?. Lo mejor es que todo
quede tal como lo encontramos. As nadie nos dir Por qu cerraste la puerta?. Y si lo dice, le
respondes: Perdona, pero mi macro, deja las cosas tal y como estaban, as que o ya estaba
cerrada antes o la cerraron despus.
Si cmdecho est inicialmente desactivada nuestra rutina la desactiva, o lo intenta, y luego la activa
al final de la macro. Quedando por lo tanto cmdecho activada. As que vamos a modificar el cdigo
para que cmdecho quede con el valor que tena antes de ejecutar la macro
Lo primero que tenemos que saber es si la puerta est cerrada, si est cerrada la abrimos y si ya
est abierta no hacemos nada, simplemente pasamos.
(getvar cmdecho) me dir si cmdecho est activada o desactivada. Veamos que es lo que hay
que hacer:
1.
2.
3.
(setvar cmdecho 1)
)
)
(prompt \nNuevo comando CIRCPERI cargado)
Para que la salida de nuestras macros sea limpia aadiremos al final del cdigo una funcin que
devuelva una cadena de texto vaca, as no escribir nada.
Podramos pensar en utilizar la expresin (prompt ) al terminar nuestras macros. Sin embargo la
expresin anterior no devuelve una cadena de texto vaca sino que devuelve nil.
Suelen emplearse las funciones (princ) o (prin1) que an no hemos visto, pero que devuelven una
cadena de texto vaca.
Finalmente el cdigo resultante ser:
(defun C:CIRCPERI ( / pto peri rad cmd0 )
(if (= (setq cmd0 (getvar cmdecho)) 1)
(setvar cmdecho 0)
)
(setq pto (getpoint \nCentro de la circunferencia: ))
(setq peri (getdist \nPermetro: ))
(setq rad (/ peri (* pi 2)))
(command _.circle pto rad)
(if (= cmd0 1)
(setvar cmdecho 1)
)
(prin1)
)
Recuerda, antes de ponerse a escribir cdigo hay que: escribir el pseudocdigo. Veamos,
podamos hacer algo as:
1.
2.
3.
4.
5.
AutoCAD ya tiene un comando que se llama arandela (en ingls donuts) as que buscaremos otro
nombre para nuestra rutina, por ejemplo ARAND. Es mejor utilizar nombres ms bien cortos y que
evoquen a la funcin que tiene el comando.
La primera lnea de cdigo es la definicin de la funcin:
(defun C:ARAND ( )
Ms adelante podremos aadir las variables locales, si es que existen.
1) Obtener el centro de la circunferencia. Podra ser algo as:
(setq pto (getpoint \nCentro de la arandela: ))
2) Obtener el radio de la circunferencia interior:
(setq radi (getreal \nRadio interior: ))
3) Dibujar el circulo interior
(command _.circle pto radi)
4) Obtener el radio del crculo exterior:
(setq rade (getreal \nRadio exterior: ))
5) Dibujar el circulo exterior
(if (= cmd0 1)
(setvar cmdecho 1)
)
(princ)
)
(prompt \nNuevo comando ARAND cargado)
Adems de las mejoras indicadas anteriormente, ahora la variable rad se utiliza tanto para
almacenar el radio de la circunferencia interior como el de la exterior. Puede dar lugar esto a algn
problema? Veamos:
En primer lugar obtenemos el centro de la circunferencia y la asignamos a la variable pto.
(setq pto (getpoint \nCentro de la arandela: ))
Solicitamos el radio de la circunferencia interior y lo asignamos a la variable rad.
(setq rad (getdist pto \nRadio interior: ))
y dibujamos la circunferencia interior
(command _.circle pto rad)
El radio de la circunferencia interior no lo vamos a volver a utilizar en nuestra rutina, de modo que
podemos reutilizar esa variable y asignarle otro valor, el radio de la circunferencia exterior.
(setq rad (getdist pto \nRadio exterior: ))
Ahora la variable rad almacena el radio de la circunferencia exterior y pto el centro de las dos
circunferencias, de modo que dibujamos la circunferencia exterior.
(command _.circle pto rad)
De este modo ahorramos una variable. As que recuerda:
Si es posible, conviene reutilizar las variables.
Si cargamos la macro y ejecutamos el comando ARAND dibujaremos una arandela formada por dos
circunferencias. Pero qu pasa si despus de dibujar la circunferencia ejecutamos el comando H
(deshacer) de AutoCAD? Pues que deshace el ltimo comando ejecutado que no
es ARAND sino (command _.circle pto rad) de modo que deshace la circunferencia exterior.
Pero la interior no.
Control
Al seleccionar Control nos ofrece las siguientes posibilidades: Indique una opcin de control
DESHACER [Todas/Ninguna/Una] <Todas>:
Con la opcin Todas seleccionada (es la opcin por defecto), AutoCAD almacena en el
archivo temporal UNDO.ac$ la informacin sobre los comandos ejecutados en el dibujo actual
y por tanto que se pueden deshacer. Tambin almacena en el archivo temporal REDO.ac$ la
informacin sobre los comandos del dibujo actual que se han deshecho. Estos archivos se
almacenan en el directorio temporal del sistema operativo. Esta opcin permite deshacer todos
los comandos realizados en el dibujo durante la sesin actual.
Si se selecciona la opcin Una, tan slo se podr deshacer el ltimo comando ejecutado.
Quedando desactivadas todas las opciones del comando DESHACER excepto Control e
Indique el nmero de operaciones a deshacer <1>:
Seleccionando la opcin Ninguna se elimina la capacidad de revocar de los comandos H
y DESHACER, quedando estos desactivados. Y ya no se utilizan los archivos temporales
anteriormente citados.
Marca y Retorno
Estas dos opciones funcionan en pareja. Supongamos que vamos a ejecutar una serie de
comandos en el dibujo actual, pero no sabemos si el resultado obtenido ser el deseado. En este
caso, antes de comenzar puedes ejecutar el comando DESHACER y seleccionar la opcin
Marca. De este modo activas una marca, a la que podrs volver en cualquier momento ejecutando
DESHACER con la opcin Retorno. Al encontrar una marca AutoCAD mostrar el mensaje
Marca encontrada.
Si en lugar de volver a la marca lo que quieres es deshacer un nmero determinado de comandos,
puedes ejecutar el comando H o DESHACER indicando el nmero de comandos a deshacer.
Adems, puedes definir tantas marcas como desees, y cada vez que ejecutes DESHACER con la
opcin Retorno volvers a la marca anterior. Si no existen ms marcas, o si no se ha definido
ninguna marca, AutoCAD preguntar si se desea deshacer todo.
Auto
Algunos comandos de AutoCAD, estn formadas por un grupo de rdenes. De modo que el
comando H no anulara todo el grupo de comandos ejecutados, sino slo el ltimo. Activando esta
opcin se agrupan estos comandos en uno slo, a efectos de la aplicacin de los comandos H y
DESHACER.
Inicio y Fin
Estas dos opciones tambin funcionan juntas. Con ellas podemos agrupar una serie de comandos,
de modo que sean tratados como uno solo al ejecutar H o DESHACER.
)
(command _undo _end)
(princ)
)
(prompt \nNuevo comando ARAND cargado)
Deberamos aadir estas dos lneas en la macro CIRCPERI? Pues no es necesario, puesto que
en CIRCPERI tan solo utilizamos un comando. As que el comando de AutoCAD H va a deshacer
ese comando. En cambio en ARAND se dibujan dos circunferencias con dos comandos de
AutoCAD.
Controlar lo que hace la rutina en caso de que se produzca un error durante su ejecucin.
Impedir que el usuario introduzca datos errneos. Por ejemplo, que indique cero como radio
de una circunferencia.
En este artculo se tratar el primero de los dos puntos anteriores, y en el siguiente se ver el
segundo punto.
Si nos fijamos en el cdigo de la macro ARAND: Qu sucede si el usuario como respuesta a la
peticin del radio interior pulsa Intro? Pues que se asigna a la variable rad el valor nil. De modo
que se producir un error al evaluar la siguiente lnea de cdigo: (command_.circle pto rad). En
el siguiente tema veremos cmo se puede evitar que el usuario introduzca datos errneos. Por
ejemplo, evitar que como respuesta a la peticin del radio interior se introduzca Intro.
Pero una cosa est clara, no siempre vamos a poder controlar todos los posibles errores en
nuestras macros. De modo que necesitamos una funcin de tratamiento de errores que informe al
usuario del tipo de error que se produce. Por ejemplo, indicarle al usuario que ha introducido un
dato incorrecto. AutoCAD en este caso nos dice: ; error: tipo de argumento errneo: numberp: nil
AutoLISP dispone de una funcin de tratamiento de errores por defecto. Dicha funcin se
llama *error* y recibe como argumento una cadena de texto con la descripcin del error que se ha
producido.
Podemos redefinir la funcin de tratamiento de errores que ofrece AutoLISP, de modo que se puede
personalizar a nuestro gusto en funcin de nuestros intereses. As pues, vamos a crear una funcin
de tratamiento de errores a la que llamaremos ERRORES:
(defun ERRORES ( mens )
Crear una funcin con el mismo nombre. Por ejemplo, (defun SIN Esto redefinir la
funcin SIN de AutoLISP.
2.
Asignarle un valor distinto mediante setq. Por ejemplo, si hacemos (setq sin cos) la
funcin SIN de AutoLISP pasar a funcionar como la funcin COS, devolviendo el coseno de un
ngulo en lugar de el seno. (sin 0.0) ahora devolvera 1.0 en lugar de 0.
Veamos ahora el cdigo de la funcin ARAND ya modificada:
(defun C:ARAND ( / pto rad cmd0 error0 )
(command _.undo _begin)
(if (= (setq cmd0 (getvar cmdecho)) 1)
(setvar cmdecho 0)
)
(setq error0 *error* *error* ERRORES)
(setq pto (getpoint \nCentro de la arandela: ))
(setq rad (getdist pto \nRadio interior: ))
(command _.circle pto rad)
(setq rad (getdist pto \nRadio exterior: ))
(command _.circle pto rad)
(setq *error* error0)
(if (= cmd0 1)
(setvar cmdecho 1)
)
Ahora nuestra funcin ERRORES restituye el valor inicial del eco de mensajes y la funcin de
tratamiento de errores inicial. Puede extraar que se utilicen las variables cmd0 y error0 dentro de
la funcin ERRORES, ya que estaban definidas como variables locales enCIRCPERI.
Cuando definimos una variable local en una funcin, esta variable se puede utilizar slo dentro de
esa funcin. Pero, si desde CIRCPERIllamamos a otra funcin, por ejemplo ERRORES, en
realidad estamos dentro de ERRORES, que est dentro de CIRCPERI. As que seguimos dentro
de CIRCPERI.
Otra de las principales aplicaciones de redefinir la funcin de tratamiento de errores tiene que ver
con el tema anterior, los comandos deshacer en las rutinas de AutoLISP.
Si nos fijamos en el cdigo de la rutina ARAND, vemos que la primera lnea
es (command _.undo _begin) Qu sucedera si se produce un error despus de dibujar el
segundo crculo? Dara un error, y terminara el comando sin ejecutar la lnea (command_.undo
_end). Con lo cual para deshacer la arandela deberamos ejecutar el comando H (deshacer)
dos veces, una por cada crculo. Es ms, imagina que nuestra rutina no dibuja 2 circunferencias
sino 120 y que el error se produce al dibujar la circunferencia ensima
Podramos entonces modificar la funcin de tratamiento de errores y aadir la lnea de cdigo:
(command _.undo _end)
Ahora, bastara con ejecutar el comando deshacer una nica vez para que se deshaga todo lo que
hizo el comando ARAND.
Podemos incluso decirle a la funcin ERRORES que si se produce un error, ejecute el comando
deshacer directamente:
(defun ERRORES ( mens )
(setq *error* error0)
(if (= mens quitar / salir abandonar)
(princ)
(princ (strcat \nError: mens ))
)
(command _.undo _end)
(command _.undo )
(if (= cmd0 1)
(setvar cmdecho 1)
)
(princ)
)
En este caso si se produce un error ni siquiera hace falta ejecutar el comando deshacer, la
funcin ERRORES ya lo hace por nosotros.
Para terminar este artculo, vamos a aadir una nueva opcin a CIRCPERI. Se trata de que ofrezca
por defecto el permetro de la ltima circunferencia dibujada. Podramos hacer lo siguiente:
(defun C:CIRCPERI ( / pto peri cmd0 )
(if (= (setq cmd0 (getvar cmdecho)) 1)
(setvar cmdecho 0)
)
(setq pto (getpoint \nCentro de la circunferencia: ))
(if (not rad)
(prompt \nPermetro: )
(progn
(prompt \nPermetro <)
(prompt (rtos (* rad 2 pi) 2 2))
(prompt >: )
)
)
(if (setq peri (getdist))
(setq rad (/ peri (* 2 pi)))
)
(command _.circle pto rad)
(if (= cmd0 1)
(setvar cmdecho 1)
)
(princ)
)
(prompt \nNuevo comando CIRCPERI cargado)
Ponemos la variable rad como global, as se puede recuperar el valor que tena en la anterior
ejecucin de CIRCPERI. Veamos ahora cmo funciona el siguiente trozo de cdigo:
(if (not rad)
(prompt \nPermetro: )
(progn
(prompt \nPermetro <)
(prompt (rtos (* rad 2 pi) 2 2))
(prompt >: )
)
)
Si rad es igual a nil, no se ha definido, significa que es la primera vez que se ejecuta el
comando CIRCPERI en el dibujo actual. En este caso se muestra un mensaje solicitando el
permetro del crculo.
Si no es la primera vez que se ejecuta CIRCPERI, la variable rad tendr asociado un valor,
correspondiente al radio del circulo creado en la ltima ejecucin de CIRCPERI. Tambin muestra
un mensaje solicitando el permetro, pero entre los caracteres < y > se indica adems el valor de
la variable global rad.
(if (setq peri (getdist))
(setq rad (/ peri (* 2 pi)))
)
A continuacin se solicita una distancia. No se ha indicado ningn mensaje en la funcin getdist, ya
que el mensaje de solicitud se muestra en las lneas anteriores. Si se indica un permetro, ya sea
por medio de dos puntos o escribindolo directamente, entonces se calcula su radio. Si como
respuesta a getdist se pulsa Intro, a la variable peri se asigna el valor nil, que es devuelto por setq.
De modo que en este caso no hace nada, por lo tanto la variable rad sigue almacenando el radio
del ltimo crculo creado con CIRCPERI.
(command _.circle pto rad)
Por ltimo dibuja el crculo.
AutoCAD dispone de una variable de sistema llamada CIRCLERAD en la que almacena el valor del
ltimo circulo dibujado. As que podemos utilizar esta variable de sistema para obtener el radio del
ltimo crculo, en lugar de utilizar la variable rad como global. El cdigo sera el siguiente:
(defun C:CIRCPERI ( / pto rad peri cmd0 )
(if (= (setq cmd0 (getvar cmdecho)) 1)
(setvar cmdecho 0)
)
(setq pto (getpoint \nCentro de la circunferencia: ))
(if (= (getvar circlerad) 0.0)
(prompt \nPermetro: )
(progn
(prompt \nPermetro <)
(prompt (rtos (* (getvar circlerad) 2 pi) 2 2))
(prompt >: )
)
)
(if (setq peri (getdist))
(setq rad (/ peri (* 2 pi)))
(setq rad (getvar circlerad))
)
(command _.circle pto rad)
(if (= cmd0 1)
(setvar cmdecho 1)
)
(princ)
)
(prompt \nNuevo comando CIRCPERI cargado)
Ahora ofrecer por defecto el permetro del ltimo crculo dibujado en AutoCAD,
independientemente de si dicho crculo se creo con la rutina CIRCPERI, con el
comando CIRCULO o por cualquier otro medio. Veamos como funcionan los cambios que hemos
realizado:
(if (= (getvar circlerad) 0.0)
(prompt \nPermetro: )
(progn
(prompt \nPermetro <)
(prompt (rtos (* (getvar circlerad) 2 pi) 2 2))
(prompt >: )
)
)
Si an no se ha creado ningn crculo en el dibujo, la variable circlerad tendr asociado el valor 0.0.
En este caso solicita el permetro sin ofrecer ningn valor por defecto, y en caso contrario ofrece por
defecto el permetro del ltimo crculo creado.
(if (setq peri (getdist))
(setq rad (/ peri (* 2 pi)))
(setq rad (getvar circlerad))
)
Si se introduce un permetro, por medio de dos puntos o escribindolo se calcula el radio
correspondiente. En caso de que se pulse Intro, se asocia a la variable rad el radio del ltimo crculo
dibujado.
modo
Es un nmero entero que nos permitir limitar los datos que se puedan introducir en la siguiente
solicitud de datos al usuario. InitgetNUNCA funciona por si sola, siempre se utiliza para modificar el
funcionamiento de otra funcin.
El argumento modo es en realidad un cdigo binario, que puede tener los siguientes valores:
1 > No admite valores nulos, es decir que se indique Intro como respuesta
2 > No admite el 0 como respuesta
8 > Permite indicar un punto fuera de los lmites del dibujo. An cuando estos estn
activados.
32 > Dibuja la lnea o rectngulo elsticos con lneas discontnuas en lugar de contnuas
64 > Hace que GETdist devuelva la distancia en 2D. Es como si proyectase la distancia
real sobre el plano XY.
128 > Permite introducir como respuesta una expresin de AutoLISP.
Bien, veamos como se utiliza initget. Por ejemplo, si queremos que el usuario introduzca un
nmero entero y que no pueda pulsar Intro como respuesta, haramos lo siguiente:
(initget 1)
(setq numero (getint \nNmero entero: ))
Initget modifica a la siguiente funcin de solicitud de datos, es decir, getint.
Si adems queremos que no pueda indicar 0 como respuesta, entonces sumamos sus respectivos
cdigos, el 1 para que no se pueda indicar Intro como respuesta y el 2 para que no se pueda
indicar 0.
(initget (+ 1 2))
(setq numero (getint \nNmero entero: ))
Tambin podemos indicar directamente (initget 3) en lugar de (initget (+ 1 2)). Si el usuario indica
como respuesta 0 o Intro, AutoCAD le dir que ese dato no es vlido y que introduzca un dato
correcto.
Si queremos que adems se indique un nmero positivo, entonces deberamos poner:
(initget 7)
(setq numero (getint \nNmero entero: ))
Ya que 7 = 1 + 2 + 4
Veamos ahora como funciona el cdigo 8 como argumento modo de Initget.
8 > Permite indicar un punto fuera de los lmites del dibujo. An cuando estos estn
activados.
Supongamos que tenemos los lmites del dibujo de AutoCAD activados (comando LIMITES) en ese
caso no podemos indicar puntos fuera de esos lmites. De modo que si se solicita un punto al
usuario con GETPOINT deber indicarlo dentro de los lmites del dibujo. Pero si antes de solicitar el
punto se ejecuta (initget 8) entonces si nos dejara.
El cdigo 16 no se utiliza.
El cdigo 32 se utiliza en funciones de solicitud en las que se indica un punto base, por
ejemplo:
64> Hace que GETdist devuelva la distancia en 2D. Es como si proyectase la distancia
real sobre el plano XY.
Getdist solicita una distancia, que se puede escribir directamente, o se pueden indicar dos puntos
en pantalla. En este caso, getdistdevolver la distancia real entre esos dos puntos. Si lo que nos
interesa obtener es la distancia de sus proyecciones sobre el plano XY actual se
aadir (initget 64) antes de la ejecutar getdist. Por ejemplo:
(setq pt1 (getpoint \nPunto base: ))
(initget 64)
(setq dist12 (getdist pt1 \nSegundo punto: ))
Por ltimo, el cdigo 128 permite indicar una expresin de AutoLISP como respuesta. Por ejemplo,
podemos utilizar nuestra rutina RAG(Radianes A Grados decimales) para indicar un ngulo en
grados decimales cuando nosotros lo tenemos en radianes.
(initget 128)
Si el usuario pulsa Intro como respuesta a la variable pto se le asocia el valor nil, que es lo
que devolvera Getpoint. Despus al intentar dibujar el crculo (command _.circle pto
rad) se producira un error. As que debemos impedir que el usuario introduzca Intro como
respuesta, de modo que aadiramos (initget 1) antes de la funcin getpoint.
Como estamos solicitando un punto, el cdigo 2 no tiene sentido y lo mismo sucede con el
4.
El cdigo 8 permite indicar un punto fuera de los lmites del dibujo, an cuando estos estn
activados. Este cdigo si podramos utilizarlo, aunque si el usuario trabaja con los lmites
activados, estn activados y ya est. Si quiere que los desactive l, no? Porque supongo que
los tendr activados por algn motivo. As que no le aadimos a initget el cdigo 8.
El cdigo 128 permite introducir como respuesta una expresin de AutoLISP. Este cdigo
tambin se podra indicar, pero lo habitual es no hacerlo. Se podra utilizar en casos en los que
el usuario pudiera utilizar una expresin de AutoLISP para calcular el dato. Como en el ejemplo
que vimos antes, si tiene un ngulo en radianes y lo tiene que indicar en grados
decimales. Aqu nos pide un punto, as que no tiene demasiado sentido.
)
Deberamos aadir la funcin initget con el cdigo 1 antes de la funcin getdist?
Veamos como funciona esta parte del cdigo: Si el usuario introduce una distancia, se evala la
condicin si cumple del IF es decir:
(setq rad (/ peri (* 2 pi)))
Y si el usuario pulsa Intro, se asigna a peri el valor nil y evala la condicin no cumple del IF, es
decir:
(setq rad (getvar circlerad))
Si aadimos antes del getdist la expresin (initget 1), el usuario no podr indicar Intro, as
que nunca se ejecutara la expresin no cumple. Por tanto no aadimos el cdigo 1 a Initget.
El permetro del crculo no puede ser ni cero ni un nmero negativo, de modo que podemos
aadir a initget los cdigos 2 y 4.
Tambin podramos aadir el cdigo 64 para que GETdist devuelva la distancia en 2D. Pero
normalmente no conviene aadir este cdigo, excepto cuando la distancia deba ser siempre
ser en 2D.
Una ltima nota sobre CIRCPERI: Cuando ejecutamos la macro por primera vez en un dibujo en el
que no se ha dibujado ningn crculo, la variable de sistema circlerad tiene el valor 0.0. En este
caso, no ofrecemos la opcin de seleccionar el radio del ltimo crculo dibujado pulsando Intro, ya
que no existe ningn crculo dibujado previamente. En este caso, no deberamos indicar el modo 6 a
Initget, sino el 7 para que tampoco permita al usuario indicar Intro como respuesta. Veamos como
se soluciona en el cdigo completo de la rutina:
(defun C:CIRCPERI ( / pto rad peri cmd0 )
(if (= (setq cmd0 (getvar cmdecho)) 1)
(setvar cmdecho 0)
)
(initget 1)
(setq pto (getpoint \nCentro de la circunferencia: ))
(if (= (getvar circlerad) 0.0)
(progn
(prompt \nPermetro: )
(initget 7)
)
(progn
En el ltimo artculo del curso comenzamos a ver la funcin INITGET y vimos como funcionaba el
argumento [modo] ahora vamos con[palabras_clave]:
[palabras_clave] nos permite indicar una serie de textos (palabras) que tambin sern aceptados
como respuesta en la siguiente funcin de solicitud de datos. Por ejemplo:
(initget 7 Dimetro Permetro)
(setq rad (getdist \nRadio del circulo / Dimetro / Permetro :))
como respuesta a getdist podemos indicar una distancia, ya sea escribiendo un valor numrico o
mediante dos puntos, pero ahora tambin aceptar como respuesta Dimetro y Permetro. El
modo 7 impide que se indique como respuesta Intro, cero o un nmero negativo.
Si indicamos como respuesta una distancia, asocia esa distancia a la varible rad.
Si indicamos como respuesta Dimetro, asocia a la variable rad la cadena de texto
Dimetro.
Si indicamos como respuesta Permetro, asocia a la variable rad la cadena de texto
Permetro.
En [palabras_clave] indicamos una serie de palabras, separadas por espacios, que servirn como
respuesta a la siguiente funcin de solicitud de datos.
No hace falta escribir el nombre completo de la palabra, como hicimos antes, basta con que el
usuario introduzca como respuesta las letras que aparecen en maysculas. Es decir, la D o la P.
En el siguiente ejemplo:
(initget 7 Dimetro desHacer)
(setq rad (getdist \nRadio del circulo / Dimetro / desHacer: ))
Para seleccionar la opcin Dimetro habr que escribir al menos la D. Pero para seleccionar
desHacer al menos habr que escribirH. Tambin aceptara di para el dimetro y desh para
deshacer.
Sin embargo no aceptar de ni des para seleccionar desHacer. Fjate que al menos deben
indicarse las letras en maysculas.
Por otra parte, aceptar tanto di como dia sin tilde para seleccionar Dimetro.
Supongamos que tenemos el siguiente cdigo:
(initget 7 Dimetro desHacer)
(setq rad (getdist \nRadio del circulo: ))
En este caso getdist aceptar como respuestas a la peticin del radio de la circunferencia
Dimetro y desHacer. Pero al no indicar estas opciones en el mensaje de getdist, el usuario no
sabr que existen. De modo que es recomendable indicar al usuario las opciones que puede
seleccionar:
(initget 7 Dimetro desHacer)
(setq rad (getdist \nRadio del circulo / Dimetro / desHacer :))
Como mejor se ve es con un ejemplo as que, vamos a modificar la rutina ARAND aadiendo una
opcin para indicar el dimetro en lugar del radio. Tenemos que modificar las siguientes lneas:
(initget 7)
(setq rad (getreal \nRadio interior: ))
Primero aadimos Dimetro a la lista de palabras clave de initget:
(initget 7 Dimetro)
Y a continuacin le decimos al usuario que existe una opcin llamada Dimetro que puede
seleccionar como respuesta:
(setq rad (getreal \nRadio interior / Diametro: ))
De esta forma ya hemos aadido la opcin Dimetro
Pero, qu sucede si el usuario indica como respuesta la opcin Dimetro? Pues que asignamos
a la variable rad la cadena de texto Dimetro y en la siguiente lnea (command _.circle pto
rad) al intentar dibujar la circunferencia, nos da un error.
As que hay que modificar la rutina aadiendo a continuacin algo parecido a:
Si el usuario indica una distancia la asigna a la variable rad y luego (if (= rad Dimetro)
devuelve nil, puesto que rad es distinto de Dimetro.
Si el usuario indica D o Diam, o dimetro, entonces asigna a la variable rad la cadena de
texto Dimetro. Luego al entrar en elIF, (= rad Diametro) devuelve T as que evala la
expresin si cumple (setq rad (getreal \nDimetro interior: )) que pide un dimetro al
usuario y lo asigna a la variable rad.
Pero rad viene de radio, porque en esta variable almacenamos el radio de la circunferencia
y no el dimetro. As que al dibujar la circunferencia (command _.circle pto rad) dibujara
una circunferencia del doble del dimetro de lo que ha dicho el usuario.
Pues que asignara a la variable rad el resultado de dividir -50 o 0 entre 2.0. Por tanto tendramos
una circunferencia con radio negativo o cero.
Recuerda que initget solo tiene efecto sobre la siguiente funcin de solicitud de datos, de modo que
tenemos que aadir de nuevo la funcin Initget antes de preguntar por el dimetro:
(initget 7 Dimetro)
(setq rad (getreal \nRadio interior / Dimetro: ))
(if (= rad Dimetro)
(progn
(initget 7)
(setq rad (/ (getreal \nDimetro interior: ) 2.0))
)
)
Se ha aadido la funcin Progn ya que sino, solo se puede ejecutar una expresin como condicin
si-cumple del IF.
Para el radio o dimetro exterior se hara exactamente lo mismo. Por tanto el cdigo completo ser:
(defun C:ARAND ( / pto rad cmd0 )
(command _.undo _begin)
(if (= (setq cmd0 (getvar cmdecho)) 1)
(setvar cmdecho 0)
)
(initget 1)
(setq pto (getpoint \nCentro de la arandela: ))
(initget 7 Dimetro)
(setq rad (getdist pto\nRadio interior / Dimetro: ))
(if (= rad Dimetro)
(progn
(initget 7)
(setq rad (/ (getreal \nDimetro interior: ) 2.0))
)
)
(command _.circle pto rad)
(initget 7 Dimetro)
(setq rad (getdist pto \nRadio exterior / Dimetro: ))
(if (= rad Dimetro)
(progn
(initget 7)
(setq rad (/ (getreal \nDimetro exterior: ) 2.0))
)
)
(command _.circle pto rad)
(if (= cmd0 1)
(setvar cmdecho 1)
)
(command _undo _end)
(princ)
)
(prompt \nNuevo comando ARAND cargado)
(GETKWORD [mensaje])
Esta funcin de AutoLISP se utiliza para obtener una opcin indicada por el usuario. Se utiliza en
combinacin con INITGET, por ejemplo:
(initget DEShacer Nuevo Repetir)
(setq opc (getkword \nDEShacer / Nuevo / Repetir: ))
En este caso el usuario tan slo podr indicar como respuesta una de las palabras clave de la
funcin Initget y se la asigna a la variableopc.
No hemos indicado el modo en Initget, tal solo las palabras clave. En la rutina ARAND nos
interesaba que apareciera el modo 7 para que no se indique como respuesta Intro, 0 o un nmero
negativo. Pero no es obligatorio indicar siempre un modo.
Un ejemplo bastante habitual en las macros es el siguiente:
(initget DEShacer Nuevo Repetir)
(setq opc (getkword \nDEShacer / Nuevo / Repetir: ))
(cond
Haz esto
Ahora esto otro
Luego vimos las estructuras condicionales IF y COND que ya nos permiten jugar un poco ms y
hacer que nuestros programas no fueran tan lineales. Ahora vamos a ver funciones que nos
permitir crear repeticiones de cdigo y algo que tal vez te suene, los bucles, que se utilizan mucho
en programacin.
)
Mientras i sea menor que 10, ejecuta las expresiones. Es decir, escribir en la ventana de
comandos de AutoCAD los nmeros del 0 al 9. Cuando (setq i (1+ i)) asigna a la variable i el valor
10, la condicin del bucle ya no se verifica, de modo que termina el bucle. La
funcinWhile devolver el valor de la ltima expresin evaluada, es decir 10.
Este es un tpico ejemplo de bucle, una estructura repetitiva con un ndice o contador, en este
caso i, que puede ir aumentando o disminuyendo.
Fjate que una de las expresiones que se ejecutan dentro del bucle es (setq i (1+ i)) es decir,
movemos el contador. Si no lo hiciramos isiempre sera menor que 10 y se entrara en un bucle
sin fin, que da lugar a un error.
Veamos el siguiente ejemplo:
(setq i 10)
(while (< i 10)
(prompt \n)
(prompt (itoa i))
(setq i (1+ i))
)
En este caso i tiene asignado el valor 10 antes de entrar en el bucle, de modo que la
condicin (< i 10) no se cumplira y por tanto no se ejecutarn las expresiones
siguientes. While devuelve el valor de la ltima expresin evaluada, que en este caso es la
condicin as que devuelve nil.
Las expresiones en While son opcionales, de modo que podemos crear un bucle en el que solo se
indique la condicin:
(while (not (setq pt (getpoint \nPunto inicial: ))))
En este caso la condicin es (not (setq pt (getpoint \nPunto inicial: ))) es decir, pide un punto al
usuario y lo almacena en la variable pt.
(if (< a b)
(setq flag1 nil)
(setq flag1 T)
)
(while flag1
(prompt \na NO es menor que b)
(setq b (getreal \nIntroduzca un nmero: ))
(if (< a b)
(setq flag1 nil)
)
)
En este caso:
Luego la funcin While evala la condicin flag1 que devolver su valor nil o T.
La funcin repeat ejecuta las expresiones indicadas el nmero de veces que se indique
en cantidad y devuelve el resultado de la ltima expresin evaluada.
(repeat 10 (prompt \nEste curso es demasiado fcil para mi))
Tambin podramos asignar la cantidad a repetir a una variable:
(setq Bart_Simpson (getint \nNmero de repeticiones para Bart: ))
(repeat Bart_Simpson (prompt \nNo hace falta fuego en un simulacro de incendio))
En este caso escribira en la pizarra, es decir la ventana de comandos de AutoCAD, esa frase tantas
veces como le indiquemos.
Tambin podemos obtener la cantidad por medio de una funcin de AutoLISP, como resultado de
una operacin:
(repeat (+ 4 5) (prompt Este curso me parece muy sencillo))
o suponiendo que las variables a y b tengan asignados dos nmeros enteros:
(prompt Inspector Gadget, este mensaje se autodestruir en)
(setq i 0)
(repeat (+ a b)
(prompt \t)
(prompt (itoa i))
(setq i (1+ i))
)
Pero qu sucede si a o b son un nmero real y no un entero? repetir las expresiones 2.5 veces?
Pues no, nos dar un error. Por eso hay que estar bien seguros de que la cantidad indicada es un
nmero entero y no un real. Incluso si como cantidad indicamos un nmero entero sin decimales,
como 2.0, dar un error.
Vamos a modificar la rutina ARAND para hacer que el segundo radio siempre sea mayor que el
primero. El cdigo correspondiente al crculo exterior era el siguiente:
(initget 7 Dimetro)
(setq rad (getdist pto \nRadio exterior / Dimetro: ))
(if (= rad Dimetro)
(progn
(initget 7)
(setq rad (/ (getreal \nDimetro exterior: ) 2.0))
)
)
(command _.circle pto rad)
Lo primero que vamos a cambiar es el nombre de las variables. En lugar de utilizar la
variable rad tanto para el radio interior como para el exterior, vamos a utilizar la variable radi para el
radio interior y la variable rade para el exterior. As podremos comparar si rade es mayor que radi.
Podramos sustituir el cdigo anterior por el siguiente:
(while (or (not rade) (not (< radi rade)))
(initget 7 Dimetro)
(setq rade (getreal \nRadio exterior / Dimetro: ))
(if (= rade Dimetro)
(progn
(initget 7)
(setq rade (/ (getreal \nDimetro exterior: ) 2.0))
)
)
)
(command _.circle pto rade)
La primera vez que se evala la condicin del bucle, no se ha asignado an ningn valor al radio
exterior. De modo que rade = nil y (notrade) devolver T.
Como (or (not rade) (not (< radi rade))) comprueba que al menos se verifique una de las dos
condiciones, al verificarse la primera condicin (not rade) la segunda ni siquiera se evala (por
suerte, puesto que al no estar definida rade nos dara un error). La condicin se verifica y ejecuta
las expresiones que estn a continuacin, que nos piden un valor para el radio exterior.
Es decir, mientras no se indique el radio exterior o este sea menor que el radio interior se ejecuta el
bucle, que nos pide un nuevo valor para el radio exterior. Al salir del bucle ya tenemos un radio
exterior vlido as que dibujamos la circunferencia exterior. El cdigo completo sera:
(defun C:ARAND ( / pto radi rade cmd0 )
(command _.undo _begin)
(if (= (setq cmd0 (getvar cmdecho)) 1)
(setvar cmdecho 0)
)
(initget 1)
En este artculo veremos las funciones que incorpora AutoLISP para manipular cadenas de texto.
(CHR entero)
Esta funcin devuelve el carcter al que le corresponde el cdigo ASCII indicado. Por ejemplo:
(chr 65) devuelve A
(chr 97) devuelve a
(ASCII texto)
Devuelve el cdigo ASCII (un nmero entero) correspondiente al primer carcter de la cadena de
texto indicada.
(ascii Abcde) devuelve 65
(ascii A) tambin devuelve 65 porque lo nico que importa es el primer carcter de la cadena de
texto.
Esta funcin se utiliza mucho para concatenar los mensajes que se muestran al usuario. Por
ejemplo:
(setq i 10)
(setq rad (getreal (strcat \nRadio < (itoa i) >: )))
Pedir un nmero real al usuario y mostrar el siguiente mensaje en la ventana de AutoCAD: Radio
<10>:
# Equivale a un dgito.
@ Equivale a una letra.
Por ejemplo (wcmatch AutoLISP ~B*) comprueba que el texto no empieza por
B.
[...] Nos permite indicar varios caracteres.
Incluso podemos comprobar con dos patrones distintos, separados por una
coma: (wcmatch AutoLISP A*,*LISP) devolvera T.
Pero cmo hacemos entonces para saber si un texto tiene una coma? no podemos hacer los
siguiente: (wcmatch Curso, de AutoLISP *,*) ya que en este caso le estamos indicando dos
patrones, como en el ejemplo anterior.
Tendremos que hacerlo as: (wcmatch Curso, de AutoLISP *,*) al anteponer el
apstrofo delante de uno de los caracteres comodines de los patrones, le estamos diciendo que
queremos usar el literal, es decir, lo que ponemos a continuacin tal cual est.
Pues tema visto. As que podemos ahora modificar la macro CIRCPERI. Tenamos las siguientes
lneas en la macro:
(prompt \nPermetro <)
(prompt (rtos (* (getvar circlerad)2 pi) 2 2))
(prompt >: )
Podramos concatenar las cadenas de texto y ejecutar una nica vez la funcin prompt:
(prompt (strcat \nPermetro < (rtos (* (getvar circlerad) 2 pi) 2 2) >: ))
Vamos ahora a crear un nuevo comando llamado CIRCULOM que nos permitir dibujar mltiples
circunferencias concntricas. Y comenzaremos como siempre por el pseudocdigo. Podra ser algo
as:
1.
2.
1.
Dibujar un crculo.
Aadimos (initget 1) antes de la solicitud Getpoint, para que el usuario no pueda indicar
Intro como respuesta.
Y aadimos (initget 6) antes de getdistpara que no permita ni cero ni un nmero negativo.
o
Observa que (initget 6) se vuelve a poner otra vez dentro del bucle While. Si no
lo hiciramos al indicar el primer radio no permitira responder con cero ni con un nmero
negativo. Sin embargo, para el segundo radio y todos los siguientes si que nos dejara. Para
que no lo permita, hay que incluir la funcin Initget antes de que se ejecute de
nuevo Getdist, de modo que se aade dentro del bucle While.
Otras mejoras seran:
Aadir una lnea fuera de la funcin para que indique el nombre del comando al cargar la
macro.
Esto asignara a la variable pt2 un punto que est a 50 unidades en la direccin del eje X a partir del
punto base pt1. Si hiciramos:
(command _.line pt1 pt2 )
Dibujaramos una lnea horizontal de 50 unidades, desde pt1 hasta pt2.
Hay que observar que en (polar pt1 0.0 50.0) se indica primero el punto base, luego un ngulo en
radianes y por ltimo una distancia. De modo que:
(setq pt2 (polar pt1 (/ pi 2.0) 50.0))
Devolver un punto que est a 50 unidades en la direccin del eje Y a partir del punto base pt1. Ya
que en este caso se ha indicado un ngulo de (/ pi 2.0) es decir, 90.
(LAST lista)
Esta funcin devuelve el ltimo elemento de la lista que recibe como argumento. De modo que si
hacemos:
(setq pto (getpoint \nPunto de insercin: ))
(setq z (last pto))
En la variable z almacenamos la coordenada Z del punto pto, siempre que el punto est en 3D
porque si est en 2D almacenara la coordenada Y. Los puntos son listas del tipo (10.0 20.0 0.0).
(nth 2 pto) devolver la coordenada Y, no? Pues no!. Los elementos de una lista se empiezan a
numerar desde cero.
Por ejemplo:
(nth 2 pto) devolver la coordenada Z del punto pto, si existe y si no existe devolver nil.
(REVERSE lista)
Devuelve la lista que recibe como argumento pero en orden inverso.
(reverse lst) devolver (manzanas naranjas peras limones)
Bien, pues para aadir un elemento al final de una lista podemos utilizar cons y reverse:
(setq lst (reverse (cons pltanos (reverse lst))))
Veamos como funciona la lnea de cdigo anterior:
(ACAD_STRLSORT lista)
Esta funcin devuelve una lista con sus elementos, que debern ser cadenas de texto, ordenados
alfabticamente. Por ejemplo:
(acad_strlsort lst) devolver (limones manzanas naranjas peras pltanos)
)
Inicialmente definimos la variable total como 0.0, el bucle se ejecutar para cada elemento de lst y
se define num como el nmero que est en la posicin i. Sumamos a total ese nmero y movemos
el contador. Cuando se entra por primera vez en el bucle, num = 5.0 de modo que total = 0.0 + 5.0.
Al volver a entrar en el bucle num = -1.5 de modo que total = 5.0 + (-1.5) y as hasta que se llega al
ltimo elemento de lst.
Tambin podra hacerse sin emplear contadores, como hicimos antes. Y tambin podemos hacerlo
con FOREACH, veamos:
(foreach p lst (setq total (+ total p)))
Todo lo que antes ponamos en un bucle se pone ahora en una sola lnea de cdigo.
3.
(LAMBDA (lista_argumentos /
variables_locales) expresin1
[expresin2] )
Tal vez el formato de la funcin LAMBDA recuerde algo a DEFUN.
LAMBDA tambin se utiliza para definir una funcin, pero a diferencia de DEFUN la funcin no se
almacena en ningn lugar, en este caso es temporal. Por tanto solo se puede ejecutar donde se
defina. Adems la funcin creada no tiene nombre, por lo que tampoco podramos llamarla desde
otra parte de nuestro cdigo.
Utilizarla sola sin APPLY o MAPCAR no tiene sentido.
Supongamos que queremos obtener el punto medio de dos puntos:
(setq pt1 (getpoint \nPunto 1: ))
(setq pt2 (getpoint pt1 \nPunto 2: ))
Las coordenadas del punto medio sern las coordenadas de pt1 ms las de pt2 divididas por 2.0.
Para sumar sus coordenadas: (mapcar + pt1 pt2)
Bien pero ahora, Cmo las dividimos por 2.0? Podemos hacer lo siguiente:
(mapcar / (mapcar + pt1 pt2) (list 2.0 2.0 2.0))
Donde creamos una lista (list 2.0 2.0 2.0) y dividimos los elementos de (mapcar + pt1 pt2) entre
los elementos de la lista anterior (2.0 2.0 2.0).
Recordemos (mapcar + pt1 pt2) devuelve la suma de las coordenadas de pt1 y pt2. Si
necesitamos dividirla por 2.0. podemos crear una funcin que reciba un nmero y lo divida por 2.0
devolviendo el resultado:
(defun 2/ ( num ) (/ num 2.0))
Y ahora pasar a MAPCAR la nueva funcin 2/ para que divida cada elemento de (mapcar + pt1
pt2) por 2.0
(mapcar 2/ (mapcar + pt1 pt2))
Pero tambin podemos hacerlo de otra forma, utilizando la funcin LAMBDA en lugar de DEFUN.
Primero veamos como sera nuestra funcin definida mediante LAMDA:
(lambda ( num ) (/ num 2.0))
Es muy parecido a lo que hicimos con DEFUN. Pero la funcin definida mediante LAMBDA no tiene
nombre y no se almacena en ningn sitio, es temporal, de modo que no podemos llamarla. Dnde
debemos utilizar LAMBDA? Pues directamente en MAPCAR, donde hay que indicar el nombre de la
funcin:
(mapcar (lambda ( num ) (/ num 2.0)) (mapcar + pt1 pt2))
Por tanto, cuando queremos aplicar APPLY o MAPCAR a una o varias listas y ejecutar una funcin
que no existe en AutoLISP, podemos crearla previamente con DEFUN o utilizar la
funcin LAMBDA para definirla in situ.
(VER)
Esta funcin devuelve una cadena de texto con la versin de AutoLISP que se est ejecutando. Por
ejemplo: Visual LISP 2000 (es). Entre parntesis indica la versin idiomtica, en este caso
Espaol.
(TEXTSCR)
Se utiliza para pasar a pantalla de texto y siempre devuelve nil. Se suele emplear cuando se quiere
mostrar mucha informacin en pantalla de texto.
(GRAPHSCR)
Pasa a pantalla grfica y tambin devuelve nil. Se utiliza para asegurarnos que el usuario est
viendo la pantalla grfica, por ejemplo para indicar un punto. Especialmente se utilizar si antes se
ha pasado a pantalla de texto.
(TEXTPAGE)
Esta funcin es anloga a TEXTSCR. Pasa a pantalla de texto y tambin devuelve nil.
Tal vez te ests preguntando Cuntas funciones nos quedan an? Pues entre otras cosas, la
siguiente funcin nos servir para ver las funciones de AutoLISP que hemos visto y las que nos
quedan.
(ATOMS-FAMILY formato
[lista_simbolos])
Esta funcin devuelve una lista con los smbolos que se han definido en el dibujo actual. Qu es un
smbolo? Pues un nombre de variable de AutoLISP, el nombre de una funcin de usuario que hemos
creado y tambin todos los nombres de las funciones propias de AutoLISP.
El argumento formato puede tener dos valores:
0 para que devuelva una lista con los nombres de los smbolos.
1 para que devuelva una lista, pero siendo sus elementos cadenas de texto.
Veamos ahora algn ejemplo. Al escribir la lnea siguiente sabrs cuantas funciones faltan:
(atoms-family 0) esto mostrar una lista con los nombres de todos los smbolos definidos
en el dibujo actual.
(atoms-family 1) as los elementos de la lista anterior sern cadenas de texto.
En las listas anteriores es difcil encontrar algo. Recuerdas la funcin acad_strlsort? Permita
organizar alfabticamente una lista de cadenas de texto.
(acad_strlsort (atoms-family 1)) devolver la lista anterior ordenada alfabticamente
Estn todas las funciones de AutoLISP, pero hay otras muchas funciones que aparecen en la lista y
no son funciones de AutoLISP. As que no te asustes, que no son tantas.
Recordemos el formato de esta funcin: (ATOMS-FAMILY formato [lista_simbolos]) y veamos que
es eso de la lista de smbolos
Para saber si unas funciones determinadas existen, es decir si estn definidas, creamos una lista
con sus nombres y se lo pasamos como argumento a atoms-family
(atoms-family 1 (list car cdr)) devolver una lista con sus nombres (CAR CDR)
Aunque lo habitual no es emplear esta funcin para detectar si estn definidas las funciones de
AutoLISP, sino para detectar nuestras propias funciones y variables:
(atoms-family 1 (list car cdr variable)) devuelve (CAR CDR nil) ya que el smbolo
variable no tiene asociado ninguna funcin, ni variable de AutoLISP.
Si definimos:
(setq variable 12.5)
(atoms-family 1 (list car cdr variable)) devolver (CAR CDR VARIABLE) devuelve el
nombre de la variable, no su valor.
Si definimos una funcin de usuario:
(defun 2+ ( numero / ) (+ numero 2.0))
(QUOTE expresin)
Esta funcin recibe una expresin y devuelve su literal, es decir devuelve la expresin tal cual, sin
evaluar.
(quote +) devolver +
Esto es lo mismo que hacamos en APPLY y MAPCAR:
(apply + (list 2.0 3.5 6.8))
pues el apstrofo es el diminutivo o el alias de la funcin QUOTE.
(quote (setq a texto b 10.0)) devolver (SETQ A texto B 10.0)
sera lo mismo escribir:
(setq a texto b 10.0)
Pero no podremos escribir esta ltima lnea en la ventana de comandos de AutoCAD, por que el
interprete de comandos no detecta el parntesis en primer lugar y piensa que no es una expresin
de AutoLISP sino un comando de AutoCAD. Podemos utilizar un truco para evaluar la expresin
desde la ventana de comandos:
(progn (setq a texto b 10.0))
PROGN en realidad no hace nada, simplemente nos serva para salvar la limitacin de IF de indicar
ms de 1 expresin, ya que evala las expresiones que contiene y devuelve el resultado de la ltima
expresin evaluada. En este caso nos sirve para contener la expresin de AutoLISP anterior.
Ahora si devolver (setq A pepe B 10.0). Pero no hemos asignado valores a las variables, ya
que (setq A pepe B 10.0) no se ha evaluado.Puedes hacer la prueba escribiendo !a o !b en la
ventana de comandos de AutoCAD.
(quote (15.0 10.6 9.2)) devolver (15.0 10.6 9.2) es decir, devuelve una lista. Tambin funcionara
con (15.0 10.6 9.2)
Por tanto en lugar de:
(apply + (list 2.0 3.5 6.8))
podemos poner:
(apply + (quote (2.0 3.5 6.8)))
y tambin:
(apply + (2.0 3.5 6.8))
De modo que podemos usar QUOTE y para crear listas. Pero con excepciones, ya que si
hacemos:
(setq a 2.0)
(apply + (a 3.5 6.8)) indicar: ; error: tipo de argumento errneo: numberp: A
a es el nombre de una variable, es un smbolo, cuya variable tiene asociado el valor 2.0
(apply + (list a 3.5 6.8)) esto si funcionar porque (list a 3.5 6.8) devolver (2.0 3.5 6.8), LIST se
evala pero QUOTE no evala la expresin que recibe.
Resumiendo: Podemos crear listas con QUOTE o con pero siempre que conozcamos los
elementos de dichas listas, y que estos sean valores concretos no determinados a partir de
expresiones o almacenados en variables.
Algunos ejemplos ms:
(setq maximo (apply (quote max) (quote (10.5 15.2 9.3))))
(setq minimo (apply min (10.5 15.2 9.3)))
(foreach p ((0.0 0.0 0.0) (10.0 10.0 0.0)) (command _.circle p 1.0))
(setq vector (mapcar - (10.0 10.0 0.0) (5.0 0.0 0.0)))
(setq ptomed (mapcar (lambda ( num ) (/ num 2.0)) (mapcar + (10.0 10.0 0.0) (5.0 0.0 0.0))))
(EVAL expresin)
Esta funcin evala la expresin que recibe.
(eval 2.5) devuelve el resultado de evaluar 2.5, es decir devuelve 2.5
(eval Soy una cadena de texto) devolver Soy una cadena de texto
Pero veamos un ejemplo algo ms complicado:
(setq a 15.5)
(setq b (quote a))
Qu valor tendr asignado b?
(READ texto)
Esta funcin lee el texto que recibe y devuelve la primera palabra pero como un literal, un smbolo,
no como una cadena de texto.
(read AutoLISP) devuelve AUTOLISP
(read Curso de AutoLISP) devolver CURSO
(read (15.2 9.3 15.5)) en este caso devolver (15.2 9.3 15.5) porque al detectar el parntesis lo
considera un mismo trmino. Es algo similar a escribir en la ventana de comandos de AutoCAD, si
no se pone un parntesis delante no dejar escribir espacios en blanco. Pues este es otro mtodo
para crear una lista, por tanto:
(apply max (read (15.2 9.3 15.5))) devolver el mximo de la lista de nmeros indicados
Y que pasa si hacemos:
(setq txt (setq a 5.5))
(read txt) devolver (setq a 5.5)
y ahora podemos evaluarlo con EVAL
(eval (read txt)) devolver 5.5 y asigna a la variable a el valor 5.5
Para qu sirve esto? Por ejemplo para solicitar al usuario una expresin de AutoLISP y evaluarla:
(setq txt (getstring T \nExpresin de AutoLISP: ))
(setq valor (eval (read txt)))
En este caso asignamos a valor el resultado de evaluar una expresin de AutoLISP introducida por
el usuario.
En el segundo modo, el archivo Circperi.lsp se cargar cuando se ejecute uno de los comandos
indicados en la funcin Autoload del archivo ACADDOC.LSP. Y al cargarse el archivo Circperi.lsp
se cargar mediante la funcin Load el archivo Rag.lsp. Utilizando este mtodo podemos utilizar
una misma funcin en mltiples rutinas, tan solo debemos asegurarnos de que dicha funcin est
definida, es decir que se ha cargado el archivo en el que se encuentre.
Los archivos ACAD.LSP y ACADDOC.LSP no tienen porque existir. Si no existen pueden crearse,
teniendo en cuenta que se deben guardar en uno de los directorios de soporte de AutoCAD. En
caso de que ya existan, se pueden editar para incluir el cdigo deseado. Conviene hacer una copia
de seguridad de estos archivos porque muchos programadores crean sus propios archivos
ACAD.LSP y ACADDOC.LSP de modo que al instalar un mdulo o aplicacin para
AutoCAD, podis sobreescribir vuestros archivos.
Existen otros dos mtodos para cargar automticamente rutinas de AutoLISP. El primero consiste en
utilizar la opcin disponible en el men de AutoCAD Herr > AutoLISP > Cargar ya que en el
letrero de dialogo que aparece se pueden cargar rutinas y se pueden seleccionar las rutinas que se
desean cargan al inicio.
El tercer mtodo para cargar automticamente las rutinas de AutoLISP es editando los mens de
AutoCAD, pero esto lo veremos ms adelante.
Existe otro mtodo para ejecutar cdigo directamente. Se trata de escribirlo directamente, es decir
sin meterlo dentro de ninguna funcin o comando. Por ejemplo, si incluimos las siguientes lneas de
cdigo en el archivo ACADDOC.LSP nos permitir dibujar un circulo dado su centro y su permetro:
(setq pto (getpoint \nCentro del crculo: ))
(setq peri (getdist pto \nPermetro: ))
(command _.circle pto (/ peri (* 2.0 PI)))
Pero en este caso, el cdigo anterior solo se ejecuta una vez. Si queremos dibujar otro crculo dado
su permetro, no tendramos la funcin CIRCPERI definida.
Para qu se suele utilizar este mtodo?
Por ejemplo, para mostrar mensajes informativos o de bienvenida:
(alert Estas seguro de que quieres utilizar AutoCAD?)
(alert Estas realmente seguro?)
(alert Seguro, seguro?)
Aunque no os aconsejo que utilicis este ejemplo, os cansarais de l a los 5 minutos.
Adems de mensajes de bienvenida podis hacer otras cosas ms tiles, como asignar valores
iniciales a algunas variables:
(setq directorio c:\\rutinas\\)
Tambin podis modificar el valor de alguna variable de sistema de AutoCAD:
(setvar osmode 7)
S::STARTUP
Existe otro mtodo para ejecutar cdigo automticamente. Hemos visto que AutoCAD utiliza una
funcin de tratamiento de errores por defecto que se llamaba *error* y tambin hemos visto
que podamos redefinirla creando nuestra propia funcin de tratamiento de errores. Bien, pues
AutoCAD tambin tiene una funcin interna que se ejecuta automticamente se trata
de S::STARTUP.
El que las funciones *error* y S::STARTUP tengan estos nombres tan raros es para evitar que a
alguien se le ocurra denominar as a alguna funcin de otro tipo.
Para definir la funcin S::STARTUP se utiliza DEFUN, al igual que para cualquier otra funcin.
(defun S::STARTUP ( / )
(setq directorio c:\\rutinas\\)
)
La funcin S::STARTUP podemos utilizarla para los mismos ejemplos que se daban antes.
Por ltimo, para terminar el tema, un consejo: Al programar hay que tener bastante cuidado para no
cometer errores, ya que el omitir un simple parntesis o unas comillas, por ejemplo, modificaran
totalmente nuestras funciones. Cuando adems estas funciones se van a ejecutar automticamente,
como en los ejemplos que se han expuesto, la precaucin al programar debe ser mxima.
(FINDFILE archivo)
Esta funcin nos permite comprobar la existencia de un archivo. Si el archivo existe devuelve su
nombre y si no existe, o no lo encuentra en la ruta indicada, devolver nil.
En caso de que no se indique la ruta en la que debe buscar el archivo, lo buscar en los directorios
de soporte de AutoCAD.
(findfile c:\\autoexec.bat) debera devolver c:\\autoexec.bat, suponiendo que vuestro PC tiene
Autoexec.bat, claro
(findfile c:\\noexisto.bat) debera devolver nil
FINDFILE en realidad no hace nada, tan solo se utiliza para comprobar la existencia de un archivo.
Entonces, Cuando se utilizar FINDFILE? Pues os voy a poner varios ejemplos en los que se
suele utilizar:
1.
2.
3.
4.
Por tanto, deberamos modificar el cdigo de la funcin CARGALISP para comprobar la existencia
de los archivos a cargar.
(defun CARGALISP ( lst / )
(while lst
(if (not (apply and (atoms-family 1 (cdar lst))))
;; Comprueba si todas las funciones del primer elemento de la lista
;; estn cargadas
(if (not (findfile (caar lst)))
(alert (strcat No se ha encontrado el archivo (caar lst)))
;; No se encuentra el archivo
(progn
(load (caar lst))
;; Carga el archivo
(prompt (strcat \nCargando archivo (caar lst) ))
;; Indica que se ha cargado el archivo
)
;; Se encuentra el archivo
)
)
(setq lst (cdr lst))
;; Pasa al siguiente elemento de la lista
)
;; Para cada elemento de la lista
)
(GETFILED titulo_letrero
archivo_defecto extensin_defecto
modo)
Esta funcin nos permitir seleccionar un archivo, ya veremos ms adelante como seleccionar
varios archivos. GETFILED muestra un letrero de gestin de archivos tpico de Windows.
Podemos pasar a GETFILED el ttulo del letrero, el archivo seleccionado por defecto y la extensin
de archivos que se buscar por defecto. GETFILED devuelve el nombre y ruta del archivo
seleccionado.
El argumento modo es de tipo binario y ofrece los siguientes valores:
3.
4.
Cerrar el archivo.
(CLOSE descriptor_archivo)
Cierra el archivo cuyo descriptor se indica y devuelve nil. Fjate en lo importante que es guardar el
descriptor del archivo en una variable, ya que si no lo hacemos no slo no podremos leer o escribir
en el archivo, tampoco podremos cerrarlo.
(close darch)
Hay que tener una cosa en cuenta al trabajar con archivos de texto: Al abrir un archivo de texto
debemos indicar el modo (lectura, escritura, o adiccin) de modo que debemos saber de
antemano lo que vamos a hacer con el archivo, y SLO podremos hacer una cosa, o leer o escribir.
Aunque podemos abrir un archivo en modo escritura, escribir en l, cerrarlo, abrirlo en modo lectura,
leer y volver a cerrarlo.
Otra cuestin de especial inters es que si abrimos un archivo de texto existente en modo escritura
w, nos habremos cargado todo lo que tena anteriormente dicho archivo. As que mucho cuidado
con los archivos que se abren en modo escritura.
Hemos indicado una expresin como argumento, si utilizamos PROMPT en lugar de PRIN1 dar un
error.
(prin1 (+ 15 5.5)) escribe (+ 15 5.5)
Si no se indica la expresin a escribir, escribe una cadena nula
(prin1)
Por eso se suele emplear como ltima expresin de los comandos, para que la salida de nuestras
rutinas sea limpia y no se vea el eco de mensajes de la ltima expresin evaluada.
(prin1 (strcat \t b)) devuelve \tCurso de AutoLISP
PRIN1 no entiende los caracteres de control como \n \t etc.
(READ-CHAR [descriptor_archivo])
Lee un carcter del archivo cuyo descriptor se indica y devuelve su cdigo ASCII.
(read-char darch) devuelve 34, que es el cdigo ASCII del primer caracter del archivo de texto, que
es unas comillas
Si no se indica el descriptor, lo lee de la ventana de comandos de AutoCAD.
(read-char) espera a que introduzcas un caracter y devolver su cdigo ASCII
(READ-LINE [descriptor_archivo])
Esta funcin lee una lnea del archivo de texto indicado.
(read-line darch) devolver Curso de AutoLISP\
Observa que las comillas iniciales del archivo ya las habamos ledo con la funcin anterior readchar.
Al leer un archivo de texto vamos avanzando en l, de modo que si volvemos a escribir la linea
anterior
(read-line darch) devolver Bienvenido al curso Muchas gracias
Esta es la ltima lnea de nuestro archivo as que si volvemos a repetir la lnea anterior
(read-line darch) devolver nil
De este modo sabremos que hemos llegado al final del archivo y podremos cerrarlo
(close darch)
Si intentamos volver a leer ahora en el archivo obtendremos un error.
Si no se indica el descriptor de archivo, la leer de la ventana de comandos de AutoCAD.
(read-line) escribe una palabra o frase y devolver una cadena de texto con lo que has escrito.
Seleccin de entidades
This entry was posted in Programacin en AutoCAD and tagged AutoCADAutoLISPCADProgramacinProgramacin en AutoCADVisual
LISP onNovember 27, 2012 by emagdalena.
Seleccin de entidades
Conjuntos de seleccin de entidades
3.
4.
5.
6.
7.
8.
9.
10.
1- Seleccin de entidades
Sin duda una de las mejores caractersticas de la programacin en AutoLISP es la posibilidad de
acceder a las entidades grficas de AutoCAD y de este modo poder modificarlas u obtener
informacin directamente de ellas, sin necesidad de solicitar datos al usuario.
En este curso accederemos, crearemos y modificaremos los datos de las entidades de AutoCAD,
pero antes tenemos que ver los mtodos existentes para seleccionar entidades y obtener sus
nombres, que son asignados automticamente por AutoCAD.
Esta funcin slo admite como argumento una cadena de texto que servir al usuario a modo de
informacin para hacer la seleccin.
(setq ent1 (car (entsel Designe una entidad de la capa a borrar)))
Veamos un pequeo ejemplo:
1.
2.
3.
4.
Redibujar entidades
(REDRAW [entidad [modo]])
Si se ejecuta esta funcin sin argumentos, realiza un redibujado del archivo de dibujo actual.
(redraw)
Para comprobar su funcionamiento, se puede activar la variable de AutoCAD BLIPMODE,
indicar una serie de puntos en pantalla de modo que se observen las marcas auxiliares y a
continuacin ejecutar la funcin (redraw) que redibujar la pantalla desapareciendo las marcas
auxiliares.
Si se indica un nombre de entidad como argumento, tan solo se redibujar esa entidad y no la
ventana grfica actual tal como sucede en el ejemplo anterior.
(setq ent (car (entsel)))
(redraw ent)
Adems, existe otro argumento opcional mediante el cual se indica a la funcin el modo en el
que se desea que se redibuje la entidad. Dicho argumento puede tener los siguientes valores:
(redraw ent 4)
Los efectos de los redibujados de las entidades se pueden eliminar regenerando el dibujo con el
comando REGEN de AutoCAD.
Si la entidad es compuesta (bloque con atributos o polilnea) la funcin REDRAW afectar tanto
a la entidad principal como a sus componentes. Si se indica el modo con un signo negativo, la
funcin REDRAW afectar nicamente a la entidad principal, y no a sus componentes simples.
(ENTNEXT [entidad])
Esta funcin devuelve la primera entidad creada, y no eliminada, en el dibujo actual.
Para ver correctamente su funcionamiento, seguiremos con el ejemplo de antes:
1.
El argumento que admite esta funcin es un nombre de una entidad de dibujo de AutoCAD. En
caso de que se indique un nombre de entidad vlido, la funcin devolver la entidad creada a
continuacin de la indicada.
1.
En el dibujo anterior tenamos dos entidades: Una lnea y un arco (creados en ese orden).
Aadimos ahora una entidad crculo.
2.
La variable ent1 utilizada en el ejemplo anterior contiene el nombre de la primera entidad
del dibujo, la lnea. Y si no es as, podemos repetir el ejemplo anterior (setq ent1 (entnext))
3.
4.
Y si hacemos ahora (setq ent2 (entnext ent2)) que suceder? Recordemos que en
AutoLISP primero se evalan las listas interiores, de modo que (entnext ent2) devuelve la
entidad siguiente a ent2, es decir la entidad siguiente al arco, que es el crculo. Despus
asigna ese valor a la variable ent2.
5.
Si volvemos a ejecutar (setq ent2 (entnext ent2)) veremos que devuelve nil. Veamos que
sucede, primero se evala la expresin(entnext ent2) que devuelve nil puesto que ent2 es el
crculo y no se ha creado ninguna entidad despus de esta.
Vamos a crear algn sencillo ejemplo de cdigo basndonos en lo visto en el caso anterior:
(setq ent (entnext))
(while ent
(redraw ent 3)
(setq ent (entnext ent))
)
Paremonos un poco en el cdigo anterior. La primera lnea obtiene la primera entidad del dibujo
actual y asigna su nombre a la variableent. A continuacin, entramos en un bucle dentro del cual
redibujamos en relieve la entidad ent. Posteriormente obtenemos la entidad siguiente y la
asignamos nuevamente a la variable ent, de modo que recorremos todas las entidades del dibujo
redibujndolas en relieve.
En el momento en que se llegue a la ltima entidad, la expresin (setq ent (entnext
ent)) devolver nil, con lo cual salimos del bucle.
En caso de que en el dibujo actual no exista ninguna entidad, la expresin (setq ent
(entnext)) devolver nil por lo cual no se entrar en el bucle.
Un ejemplo similar al anterior sera el siguiente:
(setq ent (entnext))
(redraw ent 3)
(while (setq ent (entnext ent))
(redraw ent 3)
)
Hay que notar que en este caso, si en el dibujo actual no existen entidades, la expresin (setq ent
(entnext)) devolver nil. De modo que en la siguiente lnea (redraw ent 3) la rutina dar lugar a
un error. Puede evitarse del siguiente modo:
(setq ent (entnext))
(if ent (redraw ent 3))
(while (setq ent (entnext ent))
(redraw ent 3)
)
3.
4.
Vamos ahora a ejecutar la expresin (setq ss1 (ssget)) de este modo el conjunto de
seleccin se asignar a la variable ss1. Seleccionamos slo alguna de las entidades del dibujo.
5.
El ejemplo anterior puede ser una alternativa al uso de los grupos dibujando con AutoCAD. Se crean
de un modo sencillo y rpido, por contra hay que observar que debemos recordar los nombres de
las variables y especialmente, que al terminar la sesin con ese dibujo se pierden los valores
asignados a las variables, lo cual no sucede con los grupos de AutoCAD.
En lugar de comentar ahora los numerosos argumentos que pueden asociarse a la funcin SSGET,
los dejaremos para el siguiente artculo. Antes veremos algunas funciones que nos permitirn
trabajar con los grupos de seleccin creados con SSGET.
(SSLENGTH conjunto_de_seleccin)
Esta sencilla funcin nos indica el nmero de entidades que contiene el conjunto de seleccin que
recibe como argumento.
1.
2.
3.
Al ejecutar la expresin (sslength ss1) nos devolver el nmero de entidades del conjunto
de seleccin ss1.
(SSADD [nombre_entidad
[conjunto_de_seleccin]])
Mediante esta funcin se puede aadir una entidad a un conjunto de seleccin existente. Tambin
se puede utilizar para crear conjuntos de seleccin nuevos y vacos.
Si se ejecuta esta funcin sin argumentos crear un conjunto de seleccin nuevo y vaco. Es
importante guardar dicho conjunto de seleccin en una variable, para poder trabajar despus con l.
(setq ss1 (ssadd))
Devuelve algo similar a <Selection set: 22>. Si ejecutamos el comando DESPLAZA y al designar
entidades indicamos !ss1 nos dir: 0 encontrados. Vamos ahora a aadir algunas entidades al
conjunto de seleccin anterior.
(setq ent (entnext))
(ssadd ent ss1)
(sslength ss1)
3.
4.
Hacemos lo mismo con la ltima entidad del dibujo actual, con lo cual el conjunto de
seleccin tendr ahora dos entidades.
5.
Por ltimo, obtenemos una entidad ms, pero esta vez siendo designada directamente por el
usuario, y la aadimos tambin al conjunto. Aqu puede suceder que la entidad designada por el
usuario sea adems la primera o la ltima del dibujo actual, con lo cual esa entidad ya
pertenecer al conjunto ss1. En este caso, la ltima expresin indicar que en el conjunto de
seleccin ss1 hay2 y no 3 entidades.
Como en este caso sabemos cuales son las entidades del conjunto, la primera y la ltima del
dibujo, podramos comprobar que la entidad designada por el usuario no sea ninguna de ellas antes
de aadirla al conjunto. Pero podemos hacerlo mejor con la funcin que se explica a continuacin.
(SSMEMB nombre_entidad
conjunto_de_seleccin)
Esta funcin indica si una entidad pertenece a un conjunto de seleccin. En caso afirmativo
devuelve el nombre de la entidad y si no pertenece al conjunto de seleccin devuelve nil. Podemos
ahora modificar el ejemplo de cdigo anterior:
(setq ss1 (ssadd))
(setq ent (entnext))
(ssadd ent ss1)
(sslength ss1)
(setq ent (entlast))
(ssadd ent ss1)
(sslength ss1)
(while (ssmemb (setq ent (car (entsel))) ss1)
(alert Esa entidad ya pertenece al conjunto de seleccin)
)
(ssadd ent ss1)
(sslength ss1)
Este ejemplo es muy parecido al anterior, pero ahora en lugar de designar la ltima entidad
directamente, se aade un bucle. Veamos que sucede dentro de ese bucle:
1.
Primero se designa una entidad por parte del usuario (setq ent (car (entsel))) al igual que
se haca en el ejemplo anterior.
2.
Y comprobamos si esa entidad pertenece al conjunto de seleccin (ssmemb (setq ent (car
(entsel))) ss1). En caso de que ya pertenezca al conjunto de seleccin mostrar un letrero de
alerta y en caso contrario la expresin anterior devuelve nil, con lo cual salimos del bucle y
aadimos la entidad al conjunto ss1.
(SSDEL nombre_entidad
conjunto_de_seleccin)
Adems de aadir, tambin se pueden eliminar entidades de un conjunto de seleccin. Para eso se
utiliza esta funcin, que recibe como argumentos la entidad y el conjunto de seleccin del cual
eliminarla. Funciona de un modo muy similar a SSADD.
Siguiendo con el ejemplo anterior, podemos eliminar la ltima entidad del dibujo del conjunto de
seleccin ss1.
(setq ent (entlast))
(ssdel ent ss1)
(sslength ss1)
Primero obtenemos la ltima entidad del dibujo actual, y luego se elimina del conjunto de seleccin.
Por ltimo se muestra en nmero de entidades contenidas en el conjunto, que debera ser 2.
(SSNAME conjunto_de_seleccin
ndice_posicin)
Mediante esta funcin se obtiene el nombre de una entidad contenida en un conjunto de seleccin.
Dentro de un conjunto de seleccin, las entidades se ordenan, segn se aaden al conjunto, por
medio de un ndice de posicin que comienza desde cero.
(ssname ss1 0)
La expresin anterior devuelve el nombre de la primera entidad del conjunto de seleccin ss1, que
ser en este caso la primera entidad del dibujo.
(ssname ss1 1)
En este caso devolver el nombre de la entidad designada por el usuario, ya que la ltima entidad la
hemos eliminado del conjunto de seleccin en el apartado anterior.
(ssname ss1 2)
Esta expresin devolver nil puesto que el conjunto de seleccin ss1 tan slo tiene 2 entidades.
Vamos con otro pequeo ejemplo de cdigo:
(setq ss1 (ssget))
(setq i 0)
(while (setq ent (ssname ss1 i))
(redraw ent 3)
(setq i (1+ i))
)
En este ejemplo:
1.
Por ltimo, movemos el contador para recorrer as todas las entidades del conjunto de
seleccin.
4.
Despus de pasar por la ltima entidad, la expresin (setq ent (ssname ss1
i)) devolver nil, con lo que saldremos del bucle.
(ssget pt1)
En este caso, previamente se designa un punto y despus se crea un conjunto de seleccin
con UNA de las entidades que pasan por ese punto. Si por ese punto no pasa ninguna entidad
devuelve nil. Como es lgico, la designacin del punto depender del valor que tenga asociado la
variable OSMODE, que controla los modos de referencia de AutoCAD.
Puede ser interesante, antes de la designacin del punto, activar el modo de referencia cercano.
El ejemplo anterior tambin se podra realizar del siguiente modo:
(ssget (getpoint \nDesigne punto:))
)
(setq lstpt (reverse lstpt))
(setq ss1 (ssget _cp lstpt))
Realiza una seleccin por medio de un Polgono Captura.
(setq pt (getpoint \nDesigne punto inicial:))
(setq lstpt (list pt))
(while (setq pt (getpoint pt \nDesigne siguiente punto:))
(setq lstpt (cons pt lstpt))
)
(setq lstpt (reverse lstpt))
(setq ss1 (ssget _f lstpt))
Realiza una seleccin de tipo Borde.
Un ejemplo interesante para diferenciar los tres casos anteriores es el siguiente:
(setq pt (getpoint \nDesigne punto inicial:))
(setq lstpt (list pt))
(while (setq pt (getpoint pt \nDesigne siguiente punto:))
(setq lstpt (cons pt lstpt))
)
(setq lstpt (reverse lstpt))
(setq ss1 (ssget _wp lstpt))
(setq ss2 (ssget _cp lstpt))
(setq ss3 (ssget _f lstpt))
A partir de la misma lista de puntos se crean tres conjuntos de seleccin:
Despus de haber visto todos los modos de designacin que se pueden emplear con SSGET, nos
queda por ver el ltimo argumento que admite esta funcin: Las listas de filtros. Pero eso lo
dejaremos para ms adelante. Antes veremos, a partir del siguiente artculo, cmo acceder a la
informacin de las entidades de AutoCAD.
Aunque el punto nos pueda engaar, tienen slo dos elementos. En este caso 0 y 27.
Podemos obtener el primer elemento, como en cualquier lista,
mediante (car par_punteado). Pero, si intentamos obtener el segundo elemento
mediante (cadr par_punteado) nos indicar error: tipo de argumento errneo: Para obtener
el segundo elemento utilizaremos CDR en lugar de CADR. As que
escribiramos (cdr par_punteado). Ojo! (cdr par_punteado) devolver 27y no (27).
Para qu se usan los pares punteados? Pues principalmente para crear listas de asociaciones.
Listas de asociaciones
Vale, Y qu es una lista de asociaciones? Pues una lista cuyos elementos son pares punteados.
Por ejemplo: ((perro . 0) (gato . 1) (ratn . 5))
En dicha lista de asociaciones, el cdigo 0 nos indica el tipo de entidad. De modo que:
(assoc 0 lista_de_entidad) devolver (0 . LINE)
(cdr (assoc 0 lista_de_entidad)) devolver LINE
El cdigo 8 nos indica la capa en la que est la entidad, en este caso en la capa 0. El cdigo
10 indica el punto inicial de la lnea y elcdigo 11 el punto final.
Por eso son tan importantes las listas de asociaciones y los pares punteados, porque a travs de
ellas podemos navegar por las propiedades de las entidades que se almacenan en la base de datos
de AutoCAD.
En los artculos anteriores hemos visto como se obtienen los nombres de las entidades de
AutoCAD, y como se crean conjuntos de seleccin de entidades. En el siguiente artculo vamos a
acceder a las propiedades de las entidades.
(ENTGET nombre_entidad
[lista_aplicaciones])
Mediante esta funcin se obtiene la lista de asociaciones de la entidad que recibe como argumento.
Veamos un ejemplo:
1.
2.
3.
Ahora, al ejecutar (entget ent) se obtiene la lista de asociaciones de la entidad lnea. Para
ver la lista completa puede ser til pulsar la tecla F2 para mostrar la ventana de texto de
AutoCAD.
4.
Repetimos los dos pasos anteriores pero seleccionando primero la entidad arco y despus
con la entidad crculo.
En las listas de asociaciones de las entidades estn reflejadas las propiedades de dichas entidades.
Por ejemplo
(setq ss (ssadd))
(setq ent (entnext))
(while ent
(if (= capa (cdr (assoc 8 (entget ent))))
(ssadd ent ss)
)
(setq ent (entnext ent))
)
;; Crea un conjunto de seleccin con todas las entidades de la capa.
(command _erase ss )
(princ (strcase \nSe han borrado las entidades de la capa capa))
;; Borra el conjunto de seleccin anterior.
(if (= cmd0 1)
(setvar cmdecho 1)
)
(command _.undo _end)
(princ)
)
(prompt \nNuevo comando DELCAP cargado)
Veamos entonces paso a paso como funciona esta rutina:
(while (not (setq ent (car (entsel))))
(princ \nSeleccione una entidad de la capa a borrar:)
)
Este primer bucle nos permite designar una entidad por medio de la funcin ENTSEL.
El bucle obliga al usuario a designar una entidad, por si al evaluar la funcin ENTSEL se indica un
punto en una zona vaca de la ventana grfica. Se obtiene el nombre de la entidad designada y se
almacena en la variable ent.
(setq capa (cdr (assoc 8 (entget ent))))
Esta lnea obtiene la lista de asociaciones de la entidad designada. Y por medio
de (cdr (assoc 8 (entget ent))) se obtiene el valor asociado al cdigo 8, correspondiente a la capa
de la entidad, que es almacenada en la variable capa.
(setq ss (ssadd))
(setq ent (entnext))
(while ent
(if (= capa (cdr (assoc 8 (entget ent))))
(ssadd ent ss)
)
(setq ent (entnext ent))
)
En esta parte del cdigo creamos un conjunto de seleccin vaco y mediante un bucle recorremos
todas las entidades del dibujo.
En cada entidad se obtiene su capa, de igual modo que se hizo anteriormente con la entidad
designada, y se compara con la capa almacenada en la variable capa.
En caso de que coincidan, se aade la entidad evaluada al conjunto de seleccin ss y se mueve el
bucle para que evale la siguiente entidad.
De este modo, una vez evaluadas todas las entidades del dibujo, se ha creado un conjunto de
seleccin que contiene a todas las entidades que pertenecen a la capa deseada.
(command _erase ss )
(princ (strcase \nSe han borrado las entidades de la capa capa))
Por ltimo, se borra el conjunto de seleccin ss mediante el comando de AutoCAD BORRA. Y se
avisa al usuario de que todas las entidades de esa capa se han borrado.
(ENTDEL nombre_entidad)
Esta funcin permite borrar la entidad que recibe como argumento.
Si la entidad ya ha sido borrada previamente en la misma sesin de dibujo, lo que hace es
recuperarla.
Veamos un pequeo ejemplo:
1.
2.
3.
4.
En la rutina del ejemplo anterior, podemos utilizar esta funcin para ir borrando las entidades. El
resultado sera el siguiente:
Supongamos que nos interesa crear un conjunto de seleccin en el que estn incluidas slo las
entidades crculo del dibujo. Podramos recorrer la base de datos entera y aadir a un conjunto de
seleccin las entidades crculo, esto se hara de un modo similar al empleado en la rutina DELCAP
del artculo anterior.
Aunque tambin podemos emplear las listas de filtros. Veamos el cdigo primero y despus lo
comentamos:
(setq ss (ssget x (list (cons 0 circle))))
Si ejecutamos esta expresin se crear el conjunto de seleccin que buscamos. Se puede
comprobar, por ejemplo, desplazando el conjunto ss en AutoCAD.
Fijmonos que lo que estamos haciendo en realidad es una designacin de tipo Todo, pero con una
lista de filtros (list (cons 0circle)) que ya dijimos que es una lista de asociaciones, es decir una
lista cuyos elementos son pares punteados.
En este caso tenemos un nico par punteado (cons 0 circle) que devolver (0 . circle).
Al indicar esta lista de filtros, lo que realmente hacemos es aplicar al modo de seleccin escogido
(Todos = x) el filtro (0 . circle). Es decir, estamos seleccionando slo las entidades cuyo
cdigo 0, el correspondiente al tipo de entidad, sea igual a circle.
En lugar de un solo par punteado se podran indicar ms. De este modo se restringira ms la
seleccin de entidades.
(setq ss (ssget x (list (cons 0 circle) (cons 8 Contorno))))
En este caso se seleccionaran las entidades crculo de todo el dibujo, que adems estn en la capa
Contorno.
(setvar cmdecho 1)
)
(command _.undo _end)
(princ)
)
(prompt \nNuevo comando DELCAP cargado)
Se puede apreciar que de este modo la rutina queda mucho ms sencilla.
Igual que
!=
Distinto de
+/-
Distinto de
<>
Distinto de
<
Menor que
>
Mayor que
<=
>=
&
&=
Operandos intermedios
Operador final
<AND
Uno o ms operandos
AND>
<OR
Uno o ms operandos
OR>
<XOR
Dos operandos
XOR>
<NOT
Un operando
NOT>
(list
(cons -4 <or)
(cons 0 line) (cons 8 Contorno)
(cons 0 circle) (cons 40 20)
(cons -4 or>)
)
)
)
En este caso se seleccionaran: Todas las entidades lnea del dibujo, todas las entidades de la
capa Contorno (sean lneas u otro tipo de entidad), todos los crculos del dibujo y todas las
entidades del dibujo cuyo cdigo 40 (el correspondiente al radio) tenga un valor de20, es decir tanto
crculos como arcos de radio 20.
3.
Crear, a partir de la lista de asociaciones anterior, una nueva lista con los valores
modificados que se deseen.
4.
(ENTMOD lista_entidad)
Esta es la funcin que nos permitir actualizar la lista de asociaciones de una entidad en la base de
datos de AutoCAD. El argumento que recibe es la lista de asociaciones modificada de la entidad.
(entmod lent)
Vamos a reunir todo el cdigo de este ejemplo y adems vamos a resumirlo an ms:
(setq lent (entget (car (entsel \nEntidad a modificar: ))))
(entmod (subst (cons 8 Contorno) (assoc 8 lent) lent))
Vamos con otro ejemplo, en este caso modificaremos todas las entidades arco y crculo del dibujo
actual para que su radio sea 10.
(setq ss (ssget x (list (cons 0 arc,circle))))
(setq i 0)
(while (setq ent (ssname ss i))
En primer lugar se crea un conjunto de seleccin con todas las entidades arco y crculo del
dibujo.
2.
se crea un contador, con el valor inicial 0, que ser el encargado de mover el bucle que se
encuentra a continuacin.
3.
4.
en dicho bucle:
1.
2.
3.
4.
y se mueve el contador.
en el momento que se pase por la ltima entidad, la condicin del bucle devuelve nil y no
entra en l de nuevo.
En realidad funciona, pero al pasar por la ltima entidad y evaluar nuevamente la condicin del
bucle, la expresin (ssname ss i)devuelve nil, como era de esperar. Pero (entget (ssname ss
i)) da lugar a un error: ; error: tipo de argumento errneo: lentityp nil
(ENTMAKE [lista_asociaciones])
Esta funcin es la encargada de crear una nueva entidad a partir de una lista de asociaciones.
Si la lista de asociaciones que recibe como argumento es incorrecta devuelve nil, en caso contrario
devuelve dicha lista de asociaciones. Si se ejecuta esta funcin sin argumentos tambin
devuelve nil.
La lista de asociaciones debe contener todos los pares punteados necesarios para definir la entidad.
En caso de que alguno de ellos se omita o tenga un formato (o valores) incorrectos, la funcin
devuelve nil.
Es posible omitir algn par punteado, por ejemplo el correspondiente a la capa de la entidad, de
modo que se crear la entidad tomando los valores por defecto, en ese caso en la capa actual.
Para comprender mejor el funcionamiento de la funcin, crearemos una rutina que realice lo
siguiente:
1.
2.
3.
Crear un conjunto de seleccin con todas las entidades del dibujo que pertenezcan a la
misma capa que la entidad anterior.
4.
Realizar una copia de todas las entidades del conjunto de seleccin, pero situndolas en la
capa 0.
Veremos que gran parte del cdigo es similar al de la rutina DELCAP que ya hemos visto
anteriormente:
(defun C:COPY0 ( / cmd0 ent capa ss )
(setvar cmdecho 0)
)
;; Desactiva el eco de mensajes.
(princ \nSeleccione una entidad de la capa a copiar:)
(while (not (setq ent (car (entsel))))
(princ \nSeleccione una entidad de la capa a copiar:)
)
;; Designa una entidad.
(setq capa (cdr (assoc 8 (entget ent))))
;; Obtiene la capa de la entidad designada.
(setq ss (ssget x (list (cons 8 capa))))
(setq i 0)
(while (setq ent (ssname ss i))
(entmake (subst (cons 8 0) (assoc 8 (entget ent)) (entget ent)))
(setq i (1+ i))
)
;; Copia las entidades de la capa deseada.
(if (= cmd0 1)
(setvar cmdecho 1)
)
(command _.undo _end)
(princ)
)
(prompt \nNuevo comando COPY0 cargado)
Fijmonos en la expresin en la que empleamos la funcin entmake:
(entmake (subst (cons 8 0) (assoc 8 (entget ent)) (entget ent)))
Esta expresin es similar a la que se vio como ejemplo de la funcin ENTMOD:
Por defecto en las ltimas versiones de AutoCAD se crearn polilneas ligeras. La variable de
sistema de AutoCAD PLINETYPE controla la creacin de polilneas optimizadas y la conversin de
polilneas ya existentes en dibujos de versiones anteriores. Esta variable puede tener los siguientes
valores:
0 Al abrir dibujos anteriores, las polilneas de estos dibujos no se convierten; crea polilneas
de formatos anteriores.
1 Al abrir dibujos anteriores, las polilneas de estos dibujos no se convierten; crea polilneas
optimizadas.
2 Al abrir dibujos anteriores, las polilneas de estos dibujos se convertirn; crea polilneas
optimizadas.
POLIGONO
Al entrar por primera vez en la condicin del bucle se obtiene la entidad siguiente a la
polilnea y se comprueba que no es una entidad SEQEND, verificndose la condicin ya que se
tratar de una entidad VERTEX.
Una vez en el bucle se obtiene el punto de esa entidad VERTEX y se aade a la listas lst.
Al volverse a evaluar la condicin del bucle se comprueba la entidad siguiente al vrtice
anterior, de este modo se recorren todas las entidades VERTEX de la polilnea hasta que
llegamos a la entidad SEQEND y la condicin del bucle no se cumple.
Por ltimo, tras haber salido del bucle, se invierte la lista para tener los puntos ordenados segn la
definicin de la polilnea. La ltima expresin devuelve algo similar a lo siguiente:
((-73.8683 231.122 0.0) (17.5964 347.342 0.0) (103.389 305.531 0.0) (34.6131 188.603 0.0))
(entget ent)
La lista de asociaciones que devuelve la ltima expresin es:
((-1 . <Nombre de entidad: 40089028>) (0 . LWPOLYLINE) (330 . <Nombre de entidad:
40065cf8>) (5 . 150D) (100 . AcDbEntity) (67 . 0) (410 . Model) (8 . 0) (100 .
AcDbPolyline) (90 . 4) (70 . 0) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 -69.6142 207.737) (40 . 0.0) (41 .
0.0) (42 . 0.0) (10 26.8138 331.043) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 117.569 295.61) (40 . 0.0) (41 .
0.0) (42 . 0.0) (10 5.54289 160.257) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0))
En las listas de asociaciones de estas entidades, el valor asociado al cdigo 90 indica el nmero de
vrtices.
Y los vrtices estn ya incluidos, de modo que no existen entidades componentes. Se considera
como una entidad simple, al contrario que las entidades POLYLINE.
Sin embargo los vrtices, que se incluyen asociados al cdigo 10 (que tiene mltiples entradas),
solo tienen dos coordenadas, las correspondientes a X e Y. La elevacin de los vrtices y por
consiguiente de la polilnea optimizada, est asociada al cdigo 38, que en este caso es 0.0.
Veamos pues como son las listas de asociaciones de dos inserciones de estos bloques.
Comenzaremos por el que no tiene atributos.
Utilidades
Macros
Macros en AutoLISP
Referencias
A continuacin se muestra una lista con los cdigos de error que puede contener la variable de
sistema ERRNO y una breve descripcin. En la variable de sistema ERRNO se almacena el cdigo
correspondiente al ltimo error que se ha producido en AutoLISP.
Los listados de cdigos y mensajes de error se comenzarn a aadir en breve y se irn
completando poco a poco. Avisar cuando estn completos.
Descripcin
A continuacin se muestra una tabla con los mensajes de error de AutoLISP que mostrar la funcin
de tratamiento de errores *error* definida inicialmente en AutoCAD.
Descripcin
La macro define un nuevo comando en AutoCAD para crear una circunferencia de un permetro
indicado por el usuario y podra ser tan sencilla como el siguiente cdigo:
Esta macro de tan slo 4 lneas de cdigo funcionar perfectamente tal y como est, sin embargo
es recomendable aadir varios cambios para optimizar su funcionamiento. Estos son los cambios
que se podran incluir:
hacer que la salida de la funcin sea limpia. Para lo cual se aade como ltima lnea de
la funcin la expresin (princ) o (prin1)
ajustar el texto de los mensajes mostrados al usuario. Haciendo que cada mensaje se
muestre en una nueva lnea de la ventana de comandos
ofrecer al usuario valores por defecto para la introduccin de datos. En este caso se
ofrecer por defecto como valor de permetro el correspondiente a la ltima circunferencia
dibujada
impedir la entrada de valores errneos, negativos o nulos por parte del usuario,
haciendo que se repita el mensaje de solicitud del permetro hasta que se indique un valor
apropiado o se pulse ESC para cancelar el comando
;; Dibuja el crculo.
(command _.undo _end)
;; Final para el comando desHacer
(setq *error* error0)
;; Activa la funcin de errores por defecto de AutoCAD
(VARRESC)
;; Restablece los valores iniciales de las variables de sistema modificadas.
(princ)
)
(prompt \nNuevo comando CIRCPERI cargado)
Adems se han incluido las
funciones CARGALISP, ERRORES, VARSAVE y VARRESC cuyo cdigo se incluye a
continuacin:
;;;_____________________Eduardo Magdalena_____________________;;;
;;;_______________________CARGALISP.LSP_______________________;;;
;;;_______________________Versin 1.0_________________________;;;
;;;________________________06/10/2012_________________________;;;
;;; Recibe una lista en la que cada elemento est formado por un nombre de archivo
;;; y una lista de funciones y variables globales definidas en dicho archivo.
;;; En caso de que alguna de las funciones (o variables globales) indicadas no est
;;; definida, carga el archivo en el que se encuentran.
(defun CARGALISP (flag lst /)
(while lst
(if (not (apply and (atoms-family 1 (cadar lst))))
;; Comprueba si las funciones ya estn cargadas.
(if (not (findfile (caar lst)))
(alert (strcat No se ha encontrado el archivo (caar lst)))
;; No se encuentra el archivo.
(progn
(load (caar lst))
;; Carga el archivo.
(if (not flag)
(prompt (strcat \nCargando archivo (caar lst) ))
)
;; Si flag no es T indica que se ha cargado el archivo.
)
;; Se encuentra el archivo.
)
)
(setq lst (cdr lst))
;; Pasa al siguiente elemento de la lista.
)
(princ)
)
;;;_____________________Eduardo Magdalena_____________________;;;
;;;________________________ERRORES.LSP________________________;;;
;;;_______________________Versin 1.0_________________________;;;
;;;________________________06/10/2012_________________________;;;
;;; Funcin de tratamiento de errores que puede reemplazar a la predefinida en AutoCAD
;;; Si se cancela el comando o funcin, la salida es limpia
;;; Deshace todos los cambios realizados por el comando o funcin desde la cual se llama
;;; Restaura la funcin de errores predefinida en AutoCAD
;;; Restablece los valores iniciales de las variables de sistema modificadas.
(defun ERRORES ( mens )
(if (= mens quitar / salir abandonar)
(princ)
(princ (strcat \nError: mens ))
)
;; Si se cancela el comando o funcin la salida es limpia
(command _.undo _end)
Los dos primeros puntos de la lista anterior se realizaran aadiendo las siguientes lneas de
cdigo al archivo Acaddoc.lsp del directorio Support de AutoCAD. Dicho archivo se carga
automticamente al iniciar sesin en AutoCAD y en caso de que no exista el archivo se puede
crear:
(load ERRORES)
(load CARGALISP)
(autoload CIRCPERI (CIRCPERI))
Para aadir nuestro nuevo comando a un men tan slo deberamos aadir a un archivo de men
una lnea como la siguiente:
ID_UTcircperi
Puede que creas que se ha complicado demasiado esa simple macro de 4 lneas, pero en
realidad no es para tanto. Ten en cuenta que las funciones CARGALISP, ERRORES, VARSAVE
y VARRESC se podran reutilizar en todos tus nuevos comandos.
Adems, una gran parte del cdigo de la funcin CIRCPERI ser siempre igual (o prcticamente
igual) en el resto de comandos que crees en AutoLISP, de modo que podras crear una plantilla
para tus nuevas macros similar a la siguiente:
;;;_____________________Eduardo Magdalena_____________________;;;
;;;_______________________XXXXXXXX.LSP _______________________;;;
;;;________________________Versin 1.0________________________;;;
;;;________________________xx/xx/xxxx_________________________;;;
;;; DESCRIPCIN DEL COMANDO XXXXXXXX.
(defun C:XXXXXXXX ( / lstvar error0 VARSAVE VARRESC )
(CARGALISP T
(list
(list Varsave.lsp (list VARSAVE))
(list Varresc.lsp (list VARRESC))
)
)
;; Carga las rutinas VARSAVE y VARRESC.
(VARSAVE (cmdecho osmode))
;; Almacena los valores iniciales de las variables de sistemas a modificar.
(setvar cmdecho 0)
;; Desactiva el eco de mensajes.
(setq error0 *error* *error* errores)
;; Activa nuestra propia funcin de errores
Tipo
Descripcin
inicial
Nmero de serie de la llave de hardware.
Cadena de
_linfo
Registro
Slo
lectura
12
texto
Registro
Slo
lectura
AutoCAD.
200
texto
Slo
_server
Binario
Registro
11
Cadena de
_vernum
Slo
Registro
13
texto
Nombre
Tipo
Guardada Versin
Descripcin
inicial
Controla si se carga el archivo acad.lsp en
todos los dibujos o slo en el primer dibujo
abierto en una sesin de AutoCAD.
Activada /
Acadlspasdoc
Registro
desactivada
2000
Tipo
Guardada Versin
Descripcin
inicial
Controla el nmero de posiciones de precisin
Dimadec
Entero
Dibujo
14
Activada /
Dimalt
Dibujo
13
DES
desactivada
Entero
Dibujo
13
3
unidades alternativas.
Dimaltf
Real
Dibujo
13
25.4
Dibujo
2000
0.0
las cotas.
En artculos anteriores se explicaron las variables de sistema de AutoCAD, las cuales permiten
definir el modo en el que queremos que funcione AutoCAD. En este artculo vamos a
introducirnos en las variables de entorno, las cuales almacenan informacin acerca de otro tipo
de parmetros de funcionamiento de AutoCAD.
ACADPREFIX
Acadprefix
acadprefix
ACADprefix
Sin embargo, la variable de entorno ACAD debe escribirse tal cual, en este caso todo en
maysculas. Ya que si escribimos Acad, acad, etc. AutoCAD no reconocer a la variable de
entorno ACAD.
(getenv Acad) devuelve nil.
Las variables de sistema y las de entorno tambin se diferencian en funcin del lugar en el cual
se almacenan:
Tambin podemos distinguir las variables de sistema y las de entorno en funcin de los
comandos que permiten modificar sus valores asociados:
Veamos por ltimo, otra diferencia entre variables de sistema y variables de entorno:
Las variables de entorno siempre almacenan una cadena de texto. Pero esa cadena de texto puede
a su vez representar distintos tipos de datos.
Valor
AcadClassic
Act / Des 0
ACADLOGFILE Archivo
AutoCAD.
Controla si se carga el archivo Acad.lsp en todos los
ACADLspAsDoc Act / Des 0
ACADLspAsDoc
AlarmOnError
Act / Des 0
error.
Nombre de capa.
48 Valor de coma flotante para indicar la escala del tipo de lnea. Si se omite es 1.0.
62 Nmero de color. Aparece si no es PORCAPA. El cero se corresponde al color PORBLOQUE y el 256 a
Primer vrtice
11
Segundo vrtice
12
Tercer vrtice
13
Cuarto vrtice
Indicadores de lados ocultos. Es opcional
70
A continuacin se muestra una lista con los cdigos de error que puede contener la variable de
sistema ERRNO y una breve descripcin. En la variable de sistema ERRNO se almacena el
cdigo correspondiente al ltimo error que se ha producido en AutoLISP.
Los listados de cdigos y mensajes de error se comenzarn a aadir en breve y se irn
completando poco a poco. Avisar cuando estn completos.
LISTA DE CDIGOS DE ERRORES
Valor
Descripcin
A continuacin se muestra una tabla con los mensajes de error de AutoLISP que mostrar la
funcin de tratamiento de errores *error* definida inicialmente en AutoCAD.
LISTA DE MENSAJES DE ERROR EN AUTOLISP
Mensaje
Descripcin
SolidWorks
A continuacin se recopilan diversas utilidades, macros y cursos de programacin y
personalizacin sobre el entorno de SolidWorks.
Contenido
1. Introduccin a la programacin en SolidWorks
2. Las variables en la programacin sobre SolidWorks
Para seguir este curso son necesarios ciertos conocimientos de programacin en Visual Basic,
C# y/o C++, as como de diseo con SolidWorks y del sistema operativo Windows.
Otro de los objetivos del curso es el de mostrar a SolidWorks no slo como un entorno de diseo
que se puede personalizar y optimizar, sino como una de las principales fuentes de definicin y
entrada de datos a lo largo de la realizacin de un proyecto.
Los departamentos de diseo en las empresas recopilan una enorme cantidad de
informacin proveniente de otros departamentos, de clientes, de proveedores y de subcontratas o
colaboradores. Por otra parte, en el proceso de diseo se genera una enorme cantidad de
informacin, que posteriormente puede necesitarse en otros departamentos, por los clientes,
proveedores y subcontratas o colaboradores. Gran parte de esa informacin se reutiliza de forma
recurrente y si no se optimiza correctamente puede dar lugar a:
A lo largo del curso veremos varios ejemplos que nos permitirn importar y exportar informacin
desde SolidWorks, as como diversas opciones para almacenar en SolidWorks
informacin relacionada con el diseo.
Desde luego que puede merecer la pena. Puede agilizar y facilitar enormemente el trabajo con
SolidWorks.
Gran parte del tiempo de diseo con SolidWorks, y con cualquier otra aplicacin de CAD, se dedica
a labores repetitivas que se podran automatizar. Adems, es muy posible que tu trabajo tenga
algunas particularidades especiales derivadas del sector, tipo de aplicaciones realizadas, o del
funcionamiento interno de la empresa o del departamento de diseo. De modo que la programacin
y personalizacin de SolidWorks te permitir adaptar tu entorno de diseo a tus necesidades
particulares, tal como lo hara un programa de diseo vertical (para una aplicacin o sector
concreto) o una aplicacin desarrollada a medida, y adems sin perder la potencia y versatilidad de
una aplicacin de diseo genrica como SolidWorks.
Las nociones bsicas de programacin sobre SolidWorks son muy sencillas de aprender y
se pueden crear programas interesantes y realmente tiles desde el primer momento.
Muchas veces, la mayora del tiempo empleado en crear una macro o programa se emplea
en depurar el cdigo (corregir errores). La planificacin y el anlisis previo de la macro es de suma
importancia para evitarlo. El primer paso para escribir una macro consiste en escribir en un papel
con un lenguaje simple lo que se desea que realice el programa, a esto se le
denomina pseudocdigo. Un mtodo algo ms avanzado y eficaz es utilizar diagramas de flujo.
Cuando ya empieces a programar sobre el entorno de SolidWorks por ti solo, te ser muy til reunir
todas las anotaciones sobre proyectos de aplicaciones y macros en una libreta o bloc de notas.
Tambin puedes utilizar Evernote o cualquier otro sistema que te permita almacenar de informacin
o gestionar las macros que has creado.
Interfaces de programacin
SolidWorks ofrece varios entornos y lenguajes de programacin, la seleccin del tipo de interfaz a
emplear para crear una aplicacin depender de las necesidades de la aplicacin y de la
experiencia o conocimientos del programador/es:
Visual C#
inicia SolidWorks
abre (o crea y guarda) un archivo de dibujo (aunque tambin funcionar con un archivo de
pieza o de ensamblaje)
3.
4.
5.
6.
7.
8.
la macro ya est creada, si quieres ver el cdigo selecciona en el men Herramientas >
Macro > Editar y selecciona el archivo de la macro que acabas de crear
9.
abre (o crea y guarda) otro archivo de dibujo (aunque tambin funcionar con un
archivo de pieza o de ensamblaje)
2.
3.
Introduccin a la programacin en
SolidWorks
Tabla de contenidos de Introduccin a la programacin en
SolidWorks
1.
2.
al agrupar las declaraciones de variables nos resultar ms fcil optimizar su uso y evitar
errores al definir su mbito de aplicacin
Tipos de variables
Las tres lneas de cdigo que van a continuacin de Option Explicit son declaraciones de
variables. Por medio de la instruccin Dim se declara y reserva espacio en la memoria del
sistema para almacenar el valor de las variables indicadas. El espacio reservado en la memoria
para una variable depender inicialmente del tipo de dato que se asigne en su declaracin (si no
se utiliza la declaracin explicita, por defecto las variables son de tipo variant). En la tabla
siguiente se muestran los tipos de datos con los que vamos a trabajar en Visual Basic para
Aplicaciones:
TIPOS DE VARIABLES
Tipo
Valores
Espacio en memoria
Sufijo
1 Byte
falso y 1 como verdadero
Byte
Entero de 0 a 255
1 Byte
8 Bytes
Date
Fechas
8 Bytes
(# #)
Decimal
12 Bytes
Double
8 Bytes
Integer
2 Bytes
Long
4 Bytes
&
4 bytes en plataforma
de 32 bits
Object
Referencias a objetos
8 bytes en plataforma
de 64 bits
Single
String
Cadena de texto
Variant
4 Bytes
!
$
Declaracin de variables
El mtodo ms habitual para definir o declarar una variable es por medio de la instruccin Dim
seguida del nombre de la variable y opcionalmente la partcula As y el tipo de dato que se le
desea asignar.
Dim nombreVariable [As String]
Si no se indica el tipo de variable, se le asignar por defecto el tipo Variant.
Tambin se puede utilizar un sufijo para establecer algunos tipos de variables, tal como se indica
en la tabla anterior:
Dim nombreVariable$
Notacin empleada
Los identificadores utilizados para los nombres de las variables deben verificar:
no se pueden utilizar ciertas palabras reservadas por VBA para otras funciones, por
ejemplo Dim o As
sin espacios ni ningn otro carcter entre las palabras que definen el nombre de la
variable
la primera palabra estar en minsculas
o
o
se utilizarn los mismos nombres de variables genricas en todas las macros y programas
creados. Coinciden con los definidos por defecto por el grabador de macros, por
ejemplo: swApp, Part
algunos nombres de variables se utilizarn para determinadas tareas, por ejemplo para los
contadores de los bucles se utilizarn los nombres de variable i, j, k
Procedimientos
Los procedimientos son bloques de cdigo definidos para la realizacin de tareas concretas. La
sintaxis de un procedimiento es la siguiente:
Sub nombreProcedimiento [ ( listaArgumentos ) ]
[instrucciones]
End Sub
Por tanto, en el cdigo de nuestra macro est definido un procedimiento denominado Main que
no recibe argumentos, que contiene 3 lneas de instrucciones y la ltima lnea del cdigo
coincide con la del final del procedimiento.
Las instrucciones son lneas de cdigo y como puedes apreciar estn tabuladas de forma que
visualmente se puede apreciar que estn comprendidas dentro de una estructura superior, la del
procedimiento Main al que pertenecen. De este modo se facilitar la lectura del cdigo.
En Visual Basic, todas las instrucciones ejecutables deben incluirse en algn procedimiento.
Siendo Main el nombre por defecto para el procedimiento de entrada principal en las macros de
VBA.
Macro SaveAsPDF
En la parte izquierda de la imagen podemos ver que la macro est definida en un nico mdulo
denominado SaveAsPDF, y tal como hemos comentado antes existe un nico procedimiento
denominado Main.
La declaracin de las variables est a nivel del mdulo, fuera del procedimiento Main. De este
modo, las variables estarn disponibles a lo largo de todo el mdulo
SaveAsPDF. Podramos acceder a los valores de las variables en cualquiera de los
procedimientos del mdulo.
Sin embargo, si las declaraciones de las variables estuvieran incluidas en el procedimiento Main,
se trataran como variables locales a dicho procedimiento. De modo que desde otro
procedimiento no podramos acceder a sus valores.
Cuando se habla del mbito de las variables, nos referimos a dnde estn disponibles dichas
variables.
Paradigmas bsicos de
programacin
Antes de continuar explicando lnea a lnea el cdigo incluido dentro del procedimiento Main,
vamos a repasar algunos conceptos generales de programacin.
Podramos considerar los Paradigmas de programacin como los diferentes puntos de vista
que podemos considerar para resolver un problema de programacin. Los ms habituales son los
siguientes:
otra
Funcional
Lgico
Aadir comentarios
Utilizar comentarios en el cdigo es una de las mejores prcticas que debes adoptar desde que te
inicias en el mundo de la programacin.
Los comentarios en Visual Basic se indican con una comilla simple, de modo que todo lo que se
escriba en una lnea despus del caracter es considerado un comentario y se mostrar en el
editor de Visual Basic de color verde.
Los comentario no se tendrn en cuenta al ejecutar el programa, sino que sern solo visibles al
editar el cdigo de modo que te facilitaran mucho el trabajo cuando tengas que modificar el
cdigo. Adems, si otra persona tiene que revisar o hacer modificaciones en el cdigo le sern de
gran ayuda los comentarios que has agregado.
El modelo de objetos de
SolidWorks
Las instrucciones de cdigo contenidas en la funcin Main acceden al modelo de objetos de
SolidWorks. Podemos considerar un modelo de objetos como: Una coleccin de objetos o
clases por las cuales un programa puede examinar y manipular algunas partes especficas de su
entorno. No nos vamos a parar ahora a explicar el modelo de objetos de SolidWorks,
simplemente aadiremos unos comentarios para describir lo que hace cada lnea y retomaremos
la explicacin del modelo de objetos de SolidWorks ms adelante.
Establece la variable swApp como el objeto de la aplicacin SolidWorks
conecta con la instancia actual de SolidWorks en ejecucin
Set swApp = Application.SldWorks
Establece la variable Part como el objeto del documento activo en SolidWorks
Set Part = swApp.ActiveDoc
Ejecuta el mtodo SaveAs3 para guardar el documento activo con el nuevo nombre
indicado
longstatus = Part.SaveAs3(C:\RutaDelArchivo\NombreArchivo.PDF, 0, 0)
Editar el cdigo
La macro actualmente guarda siempre un archivo PDF en la ruta C:\RutaDelArchivo\ y con
el nombre de archivoNombreArchivo.PDF. Vamos a modificar el cdigo para que obtenga la
ruta y nombre del archivo actual, y lo guarde en esa ruta con el mismo nombre pero con
extensin PDF.
En primer lugar vamos a definir una variable para almacenar una cadena de texto con la ruta y
nombre del archivo
Dim FilePath As String
Necesitamos la ruta completa del archivo actual de SolidWorks, para lo cual utilizaremos el
mtodo GetPathName.
FilePath = Part.GetPathName
Por ltimo, la extensin del archivo actual de SolidWorks ser slddrw, sldprt o sldasm. De
modo que GetPathName devolver algo parecido
a C:\RutaDelArchivo\NombreArchivo.SLDDRW. Como las tres extensiones anteriores
tienen 6 caracteres, podemos obtener la longitud de FilePath, restarle los ltimos 6 caracteres y
aadirle la cadena de texto PDF
FilePath = Left (FilePath, Len (FilePath) -6) & PDF
De este modo ya tendremos el nombre del archivo que queremos crear, con la extensin PDF.
Estas dos ltimas lneas se podran agrupar en una, quedando el cdigo de la macro as:
Option Explicit
Declaracin de variables
Dim swApp As Object
Dim Part As Object
Dim longstatus As Long
La funcin principal Main
Sub main()
Declaracin de variables locales de la funcin Main
Dim FilePath As String
Establece la variable swApp como el objeto de la aplicacin SolidWorks
conecta con la instancia actual de SolidWorks en ejecucin
Set swApp = Application.SldWorks
Establece la variable Part como el objeto del documento activo en SolidWorks
Set Part = swApp.ActiveDoc
Obtiene la ruta y nombre del archivo actual y le cambia la extensin por PDF
FilePath = Left (Part.GetPathName, Len (Part.GetPathName) -6) & PDF
Ejecuta el mtodo SaveAs3 para guardar el documento activo con el nuevo nombre
indicado
longstatus = Part.SaveAs3(FilePath, 0, 0)
End Sub
Programacin a medida
Si utilizas un sistema de CAD/CAM y quieres que se ajuste an ms a tus necesidades y al tipo de
trabajo que realizas, es posible optimizarlo o personalizarlo para mejorar considerablemente
tuproductividad.
Tampoco dudes en consultar si precisas de una formacin a medida, ayuda con el diseo, soporte
tcnico o si buscas un ponente para realizar una presentacin.
Una consultora te permitir optimizar tus procesos, estandarizar procedimientos as como detectar
las oportunidades de mejora y destacar los puntos dbiles y los cuellos de botella existentes en el
proceso de diseo.
A continuacin puedes ver una lista de los tipos de trabajos realizados:
o
o
programacin a medida
utilidades genricas y utilidades especficas
mdulos especficos completos para verticalizar o adaptar una aplicacin de CAD a
tus necesidades
modificacin de programas a medida ya existentes
consultora
formacin
libreras de elementos
creacin de catlogos
representacin fotorrealstica
animaciones fotorrealsticas
soporte tcnico
Estos son algunos ejemplos de los trabajos sobre entornos CAD que he realizado:
Podemos incluir la interfaz de usuario creada con OpenDCL en nuestro archivo de cdigo fuente de
LSP. Pero para que esta aplicacin funcione en un equipo que no tiene instalado OpenDCL debemos
incluir en nuestra aplicacin de su mdulo de tiempo de ejecucin. Asegurar la correcta instalacin de los
archivos necesarios de forma automtica requiere la creacin de un instalador, para los que no son
ampliamente usadas aplicaciones, pero este tema est ms all del alcance de este libro. Una aplicacin
gratuita excelente que se puede utilizar para crear instalador de nuestra aplicacin, incluyendo el mdulo
de tiempo de ejecucin, es de Jordan Russell InnoSetup . La pgina web OpenDCL incluye un tutorial
paso a paso escrito por Lance Gordon que muestra cmo crear un instalador de aplicaciones utilizando
InnoSetup. En el caso de una aplicacin que utiliza los cuadros de dilogo modales, como el creado en
este captulo hay que tener en cuenta la necesidad de incluir en un archivo acaddoc.lsp la expresin
necesaria
para
cargar
la
aplicacin
para
cada
dibujo.
Una aplicacin OpenDCL consiste en un cdigo de AutoLISP y datos del proyecto OpenDCL. El proyecto
OpenDCL es creado y editado en OpenDCL Studio y se puede almacenar en un archivo ODCL o
incrustado en el archivo de cdigo fuente de AutoLISP. OpenDCL sigue el paradigma de la programacin
orientada a eventos, por lo que lo que ocurre en la interfaz de usuario inicia la accin especificada por la
funcin de devolucin de llamada de ese evento en particular.Una aplicacin tpica OpenDCL incluye en
un archivo LSP asociados:
Los controladores de eventos, es decir, funciones que reaccionan a eventos tales como la
seleccin de un elemento de botn o lista.
Para simplificar la estructura de un archivo de proyecto LSP debe ser creado para cada forma, con el
cdigo organizada de tal manera que la funcin principal se coloca primero, seguido de las funciones
auxiliares y finalmente las funciones de eventos de devolucin de llamada.
referencia externa conectada. Todos los dibujos, tanto en el activo y sus referencias externas adjuntos
aparecen como ramas que dependen de un nodo raz identificado como Todos .
Junto al nombre de cada dibujo se muestra un icono para distinguir entre el dibujo actual y las
referencias externas conectadas. Este icono cambia de color para indicar si se selecciona o no el nodo
correspondiente. De los nodos de dibujo nuevas ramas se originan en representacin de sus
capas. Estas ramas son identificados como Capas por un icono diferente, que tambin cambia de color
para
indicar
que
la
capa
que
representa
est
seleccionada.
La aplicacin se puede utilizar para llevar a cabo algunas operaciones de capa como convirtindolas en y
fuera, aislando las capas seleccionadas al apagar el otros y cambiar los colores de capa. Ms
operaciones no se incluyen para mantener el cdigo lo ms simple posible, pero mediante la creacin de
ms botones y sus acciones de devolucin de llamada de la funcionalidad del comando de capa nativa
de
AutoCAD
se
pueden
reproducir.
Para este proyecto se utilizar un formulario Palette no modal. Este formulario se puede acoplar a un
lado de la ventana de AutoCAD y tambin se puede mostrar u ocultar de forma automtica de acuerdo a
la posicin del cursor.Ser un formulario no modal se ser necesario:
Para cargar el cdigo de AutoLISP para cada dibujo abierto, lo que podra hacerse con una
expresin incluida en el acaddoc.lsp archivo.
Para prever los posibles cambios en el entorno, tales como la apertura de nuevos archivos o
cambiar el foco entre diferentes dibujos abiertos con el fin de actualizar la vista de Dibujos y Capas Tree.
Considerar la posibilidad de que todos los dibujos estn cerradas, entrando en un nodocumento estatal. En este caso, el formulario debe ser cerrado.
Adems de esto, el cambio de tamao se activar mostrando cmo mantener una disposicin coherente
de los controles en el formulario cambia de tamao.
proyecto
de
desarrollo
de
para
la
propiedad
Una
aplicacin
desarrollada
los
controles
distribucin
de
la
entorno
de
con
OpenDCL.
OpenDCL.
formulario.
control.
OpenDCL.
necesarios.
aplicacin.
Alguna vez ha pasado un par de horas a escribir un fantstico programa slo para
encontrar que se bloquea la primera vez que se ejecuta?
Pues donde podra ese error haber venido de ...?
Si alguna vez ha profundizado en el mundo de AutoLISP, (o cualquier lenguaje de
programacin para el caso) Casi puedo garantizar que va a tener, en algn
momento, encontr un error al escribir y ejecutar un programa - es casi inevitable:
Tan pronto como empezamos la programacin, nos enteramos con sorpresa que no era tan
fcil de conseguir programas de derecho como lo habamos pensado. Depuracin tuvo que
ser descubierto. Puedo recordar el instante exacto en que me di cuenta de que una gran parte de
mi vida a partir de entonces iba a ser gastado en la bsqueda de errores en mis propios
programas.
- Sir Maurice Wilkes
En este punto, la mayora de los usuarios se encontrarn recorriendo el cdigo para
los errores tipogrficos y otros errores tan - un proceso que podra tomar el mismo
tiempo que la escritura del programa en s.
Este tutorial tiene el objetivo de ensear a usar las instalaciones de depuracin que
ofrece el IDE Visual LISP (VLIDE) para detectar de inmediato el punto en que un
programa se ha estrellado y adems le mostrar los pasos que puede tomar para
determinar por qu el cdigo se ha estrellado en ese punto en particular.
Este tutorial asume que el usuario tiene un conocimiento bsico de cmo usar el IDE
de Visual LISP. Si usted no es uno de estos usuarios, me permito sugerir que usted
da a esto una lectura: Una introduccin a la IDE de Visual LISP .
Contenido
Introduccin
Un ejemplo de programa
Dnde est el cdigo de fallo?
Por qu el Cdigo de Falla?
Adicin de puntos de ruptura
Observacin de variables
Animacin del Cdigo
Restablecimiento del Medio Ambiente
Fijacin del Cdigo
Ms informacin
Un ejemplo de programa
A lo largo de este tutorial voy a mostrar diversos mtodos de depuracin mediante la
siguiente prueba de cdigo que simplemente pide al usuario una seleccin de las
entidades de lnea y procede a imprimir la longitud total combinada de las lneas a la
lnea de comandos de AutoCAD.
SELECCIONE TODOS
Para ayudar a responder esta pregunta la VLIDE tiene algunas otras herramientas
que podemos utilizar.
Como sabemos que el error se produce en el tiempo de bucle, nos vamos a centrar
nuestros esfuerzos de depuracin en esa seccin del cdigo.
Observacin de variables
El IDE de Visual LISP tambin nos permite 'ver' las variables utilizadas en el cdigo,
mostrando sus valores como se evala el cdigo. Con esto en mente, vamos a
agregar un reloj a la variable ndice idx y la variable que contiene cada lnea de la
entidad: ent .
Para ello, haga doble clic en cualquier instancia de la idx variable para resaltarlo y
abra la ventana de visualizacin, vaya a Ver Ventana de vigilancia ( Ctrl + Shift +
W ).
Esta variable tambin debe aparecer ahora en la lista, tambin con un valor de cero .
Observe cmo las variables en la ventana Inspeccin cambiarn sus valores como los
diversos setq expresiones dentro del tiempo se evalan bucle.
Los valores que se muestran en la ventana Inspeccin revelan la causa de un error
nuestro: el valor de la ent variables se convierte en nula cuando nuestra variable
ndice conjunto de seleccin entero idx alcanza 2.
Esto indica que ninguna entidad se encuentra en el conjunto de seleccin SEL en el
ndice 2, lo que significa que la condicin de prueba para el mientras bucle est
permitiendo que el contador sea demasiado alta antes de la condicin de prueba
devuelve nil y por lo tanto deja de evaluacin del tiempo de bucle.
Ms informacin
Para obtener ms informacin acerca de las capacidades de depuracin del IDE
Visual LISP (VLIDE), consulte la documentacin VLIDE Ayuda:
Control de errores
Mapcar y Lambda
DCL Tutoriales
TheSwamp.org
CADTutor.net
AUGI.com
Referencias a la programacin
dibujo. Por suerte, voy a presentar dos mtodos para realizar esta tarea, cada uno
con sus propias ventajas en diferentes situaciones.caja de herramientas de los
programas LISP que utiliza con regularidad, sera tedioso tener que cargar cada
programa cada vez que se abre un dibujo. Por suerte, voy a presentar dos mtodos
para realizar esta tarea, cada uno con sus propias ventajas en diferentes situaciones.
Todos los programas que aparecen en el panel de arriba se cargarn cada vez que se
abre un dibujo.
El mtodo de uso de la suite de inicio para cargar programas automticamente tiene
algunas desventajas, sin embargo: si el usuario desea migrar sus programas a otro
equipo, tendr que ser aadido a la Suite de inicio en el equipo nuevo todos los
programas.
Tambin ha habido algunos errores conocidos que rodean la suite de inicio en
versiones anteriores de AutoCAD. Por estas razones, voy a introducir otro mtodo
que, aunque requiere que el usuario tenga un conocimiento bsico de AutoLISP,
supera estas dificultades.
ordenador a otro, o incluso residir en una red para cargar programas en varios
equipos simultneamente.de hecho residir en una red para cargar programas en
varios equipos simultneamente.
La funcin de carga
La carga de la funcin evaluar todas las expresiones de AutoLISP se encuentran
dentro de un archivo con un nombre de archivo suministrado (si se encuentra), la
carga efectivamente un archivo de programa (.lsp / .fas / .vlx) en la sesin de dibujo
actual.
La carga funcin toma dos argumentos:
( carga <nombre de archivo> [el fallo] )
Cuando el nombre de archivo es el nombre del archivo de un archivo de programa
para cargar, y en caso de fallo es un argumento opcional a devolver si el programa
no se cargar (esto suele ser una cadena o nulo).
Si el archivo del programa reside en una ruta de AutoCAD Apoyo, el nombre del
archivo slo debe ser el nombre del fichero a cargar; ms se requiere una ruta de
archivo completa para localizar el archivo, por ejemplo:
Archivo que reside en Camino AutoCAD Soporte:
( carga "MyProgram" "MyProgram no se pudo cargar." )
( carga "MyLISP.lsp" "MyLISP no se pudo cargar." )
Archivo residentes en otros pases:
( carga de "C: \\ Mi carpeta \\ MyProgram.vlx"
cargar". )
"MyProgram no se pudo
Tenga en cuenta que se debe omitir la extensin del archivo, la carga de la funcin
agregar .vlx, .fas, .lsp (en ese orden) de parada cuando se encuentra un archivo.
Aunque el fallo en el argumento es opcional, yo recomendara a incluirlo en la
declaracin de carga, de lo contrario la funcin devuelve un error si el archivo no se
cargar.
El uso de este conocimiento podemos llenar nuestro archivo acaddoc.lsp con
instrucciones de carga para ser evaluados cuando el archivo acaddoc.lsp se carga en
el inicio.
De esta manera, el acaddoc.lsp puede ser algo como esto:
( carga de "C: \\ MyLISP.lsp MyPrograms \\" "MyLISP no se pudo
cargar." )
( carga "F: \\ Mi Carpeta \\ MyApp.fas" "MyApp no se pudo cargar." )
( carga "MyProgram" "MyProgram no se pudo cargar." )
Para ayudar en la construccin de un acaddoc.lsp utilizando la carga de la funcin
que he construido un acaddoc.lsp Creador del Programa que puede escribir
declaraciones a la acaddoc.lsp para cargar todos los programas en un directorio (y
subdirectorios) - que le ahorra todo el mecanografiar aburrido .
Una desventaja del uso de la carga de la funcin surge cuando el usuario desea
cargar un gran nmero de programas. Este mtodo va a cargar cada programa en la
memoria cada vez que se abre un dibujo, por lo tanto, si un gran nmero de
/ pq )
( y
( entmake ( lista
0 )) ( contras 11
( cons 0 "lnea" )
( trans q 1 0 ))))
( contras
10
( trans p
)
( princ )
)
El anterior programa simplemente construir una lnea entre dos puntos
seleccionados; pero, lo ms importante de este ejemplo, puede ser llamado con la
sintaxis: DrawLine .
Asumamos que el cdigo de seguridad se guarda en un archivo LISP en una ruta de
AutoCAD Apoyo llamada: LineProgram.lsp .
Exigir a cargar este programa automticamente podramos incluir esta lnea en el
acaddoc.lsp:
( carga automtica
"LineProgram"
' ( "DrawLine" ))
Ms informacin
Para ms informacin acerca de las funciones que he demostrado en este tutorial se
puede encontrar en la documentacin VLIDE Ayuda. Luchando para acceder a la
ayuda? Ver mi tutorial aqu .VLIDE Ayuda Documentacin. Luchando para acceder a
la ayuda? Ver mi tutorial