AutoCad - añadir una lisp dentro de otra (pasando de defun:c a defun

Buenas, estoy tratando de incluir una lisp bastante buena, que he descargado de internet "PLDiet.lsp".
He intentado adaptarla cambiando "defun c:pld" por "(defun pld (variable1 variable2 variable3).....)" y he borrado donde pide las variables, para luego dárselas directamente en la llamada de la forma "(pld uno dos tres)".
Pero no consigo que funcione.

No se si he borrado algo que no era, o si hay algo que no estoy el errando en la forma de hacerlo.

Subo la lisp original y el intento. (en el intento hay que seleccionar solo polilíneas, aunque no he limitado nada en el código

• pld_y_usarpld.zip(5,6 KB)

Hola Juanma

hay un error en la forma como lo modificaste

(defun nombre (parametros) (accion 1) (accion 2) ... (acccion n))

La función "DEFUN" para construir una funcion siempre tomará el primer argumento como nombre, el segundo como lista de argumentos y del tercero en adelante como acciones a procesar.

En cuanto a los argumentos esta puede ser una lista vacía o nil si no los hay, o puede contener parámetros y variables. Los parámetros son variables que el invocante le pasa a la función y las variables son declaraciones de las mismas para que solo existan localmente, en el ámbito de esta función. Si declaramos variables locales debemos separar la lista de argumentos por un / que indicará que los que estén antes son parámetros recibidos y los que están después son variables declaradas como locales.

Lo que sucede en este caso es que separaste ambas listas (parametros y variables)


Entonces defun va a crear una función llamada PLD, su segundo argumento que es (disttemp cidtemp arctemp plsel) lo va a interpretar correctamente, como lista de parámetros y espera esos 4 valores en la llamada de la función, pero ya la siguiente lista la asumirá como la primera accón a realizar, y como empieza con / va a tratar de dividir *error* entre cmde y el resultado entre plinc y el resultado entre pl... etc y como esos nombres de fijo no contienen numeros divisibles o divisores ahi te da error.

Supongo que aquí ya comprendiste como debes ponerlo, no hace falta decirlo, pero para que quede completa la respuesta es así:

entonces defun entenderá que los elementos antes del / son parametros de llamada y los de luego son variables y que
(defun *error* (errmsg)...
es realmente la primera accion a ejecutar

hmmm, it is hard for me

Si te interesa el tema de programación de autolisp te recomiendo la web afralisp. Que además está en inglés, y supongo que te resultará más sencillo de entender