Cómo utilizar las rutinas de lenguaje de AutoLISP
El lenguaje AutoLISP es un lenguaje de programación integrado en AutoCAD. Se puede utilizar para crear nuevos comandos o redefinir comandos existentes. El lenguaje AutoLISP es una herramienta de personalización muy poderosa. Este artículo describe cómo cargar el lenguaje AutoLISP.
Puedes copiar y pegar como en el ejemplo siguiente, o puedes descargar un archivo *.LSP. Para comenzar, querrá utilizar el Bloc de notas porque los archivos AutoLISP *.LSP son simplemente archivos de texto sin formato. Mirar el código de lenguaje de AutoLISP escrito por otros es una excelente manera de aprender y hay muchos archivos .LSP disponibles para descargar en línea.
El proceso básico es muy sencillo y se muestra a continuación. Hay principalmente 3 pasos (solo 2 pasos si tiene un archivo *.LSP): crear el archivo lisp, cargar el archivo lisp y ejecutar el programa lisp todos los días.
Nota: Las rutinas de lenguaje de AutoLISP solo se pueden ejecutar en la versión completa de AutoCAD, no en la versión LT de AutoCAD.
Crear archivo lisp
Copia el código del programa y pégalo en el Bloc de notas de Windows.
(defun?c:zone?(?/?ss la rv i tv op en)
( while?(not?ss)
(princ ?"/nSeleccione cualquier objeto en la capa requerida: ")
(setq?ss?(ssget)))
(initget?"Length Area")
(setq?rv?(getkword?"\n¿Le gustaría medir Longitud/Área lt;Areaagt;:"))
(y?(not?rv)
(setq?rv?" Área"))
(setq?la?(cdr?(assoc?8)(entget?(ssname?ss?0))))
ss?(ssget?"X"?(lista?(cons?0? "*POLYLINE")
(cons?8?la)))
i?(sslength? ss)
tv?0
op?)
(mientras?(¿no?(menosp?(setq?i?(1-?i)) ))
(setq?es?(ssname?ss i))
(comando?"_.AREA"?" _E"?es)
(cond?(=?rv? "Longitud")
(setq?tv?( ?tv?(getvar? "PERÍMETRO"))))
(T
(setq?tv?( ?tv?(getvar? "AREA"))))
(if?(/=?(logand?(cdr?(assoc? 70?(entget?en)))?1)?1)
(setq?op?(1 ?op))))))
(princ?(strcat? "\nTotal "?rv
" para la capa "?la
" = "? (rtos?tv?2??2)
" en " ? (itoa?(sslength?ss))?" polilíneas\n"
(if?(/=?rv? "Longitud")
(strcat?(itoa?op )?" con polilíneas abiertas")?""))))))
(prin1))
Ahora guarde el archivo como zona.lsp, dándole el nombre de archivo correcto Y asegúrese de que su extensión sea .LSP.
Cargar archivo lisp
Abrir AutoCAD, seleccionar el menú "Herramientas"--"AutoLISP"--"Cargar aplicación".... Aparece un cuadro de diálogo (como se muestra a continuación):
Cargue y desinstale la aplicación
Utilice las siguientes operaciones para cargar el archivo lisp guardado:
Busque el archivo donde se guarda el archivo lisp.
Seleccione el archivo deseado de la lista.
Haga clic en el botón Cargar. Si todo va bien aparecerá el mensaje "*.lsp cargado correctamente".
Haga clic en el botón Cerrar para cerrar el cuadro de diálogo.
Ejecute el programa AutoLISP
Después de cargar el archivo lisp, puede ejecutar el programa a través de la línea de comando. Simplemente ingrese el nombre del comando (no el nombre del archivo) cuando lo ejecute.
En el archivo lisp, "..." (defun?c:zone, ingrese zona en la línea de comando.