Como Utilizar Las Rutinas LISP

Autor: Yolanda Sebastián

Como utilizar las rutinas LISP que se encuentran en este foro
Todas las rutinas lisp que se encuentran en este foro pueden ser ejecutadas en tu instalación bajo turesponsabilidad. El
proceso de instalación es muy sencillo, hay tres pasos básicos, crear el archivo lisp (extensión lsp), cargar en AutoCAD el
archivo lisp y ejecutar la rutina.
Atención:

Las rutinas deAutolisp sólo funcionan en versiones completas de AutoCAD, no funcionan para AutoCAD LT.
Algunas rutinas están creadas específicamente para AutoCAD en idioma inglés, por lo tanto puede que no
funcionen enla versión en idioma castellano. Generalmente para que las rutinas sean multilingües se
debería tener en cuenta al hacerlas en poner las órdenes con un guión bajo delante (_) ya que así AutoCAD
puedeinterpretar la orden en cualquier idioma, pero bueno eso se lo dejaremos a los programadores,…

Crear el archivo lisp (extensión lsp)
En el foro encontrarás rutinas que ya están como archivoextensión LSP o bien están compiladas por el autor en extensión
VLX o FAS. Después explicaremos como ejecutarlas.
Otras veces el código de la rutina esta pegado en el post, entonces deberemos crear el archivolisp haciendo lo siguiente:
Copiar y pegar todo el texto que hay en la ventana Código: dentro del Bloc de notas de Windows. Cuidado con dejarte
algún texto sin poner. Ejemplo:

Código:
(defun C:Vv ( /SelSet VptObj)
(cond
((< (atof (getvar "ACADVER")) 15.0)
(alert " GetVpScale requires AutoCAD 2000 or higher. ")
)
((or (= (getvar "TILEMODE") 1) (> (getvar "CVPORT") 1))
(alert " GetVpScale can onlybe done in paper space. ")
)
((and
(not (prompt "\nSelect Viewport... "))
(not (setq SelSet (ssget "_:E:S" '((0 . "VIEWPORT")))))
)
)
(T
(vl-load-com)
(setq VptObj (vlax-ename->vla-object (ssnameSelSet 0)))
(alert
(strcat
" Escala de Viewport 1: "
(rtos (/ 1000.0 (vla-get-CustomScale VptObj)))
)
)
)
)
(princ)
)
Cuando hayas pegado todo el código dentro del Bloc de notas de Windows, debe...