Las rutinas Lisp que uso

En esta parte les subo las rutinas lisp que uso normalmente para trabajar... tambien una pequeña explicacion de ellas.

Para cargar lisp automaticamente al iniciar cada sesion de autocad, se deben colocar los nombres de los lisp a cargar al final del archivo "acad2006doc.lsp" o "acad2008doc.lsp" (segun la version), como se ve abajo.

Los archivos lisp que desean cargarse deberan colocarse tambien en alguna carpeta de soporte de autocad como "C:\Archivos de programa\AutoCAD 2008\Support", o bien pueden colocarlas en cualquier otra carpeta de su disco duro o de alguna red, asegurandose de colocar la ruta de esa carpeta en la lista de rutas de archivos de
soporte de autocad, que se puede modificar con el comando options, y en la primera pestaña "files".

;; Estas lineas deben colocarse al final del archivo (acad2008.doc, acad2009doc.lsp)
;; para cargar funciones o cargar archivos lisp separados.
(vmon)
(defun c:ae ()(command "dim""update"))
(defun c:ce ()(command "ucs""e"))
(load "acc.lsp")
(load "ara.lsp")
;;;

Mis funciones mas utiles, son pequeñas funciones lisp que pueden agregarse al final del archivo "acad2006doc.lsp" o "acad2008doc.lsp" para que se carguen automaticamente en cada sesion de autocad. Estas funciones combinan comandos, así como opciones de los comandos, valores y pausas para picar puntos al ejecutar estas funciones.

(defun c:AZ ()(command "dim""update"))
(defun c:pp()(command "pedit" pause "y""j""c" pause pause """w")
(defun c:SD()(command "ortho""off""stretch""c"))
(defun c:SF()(command "ortho""on""stretch""c"))
(defun c:yu()(command "-osnap""end,int,nea,per""line" pause pause """ortho""on""-osnap""mid""line"))
(defun c:plo()(command "tilemode""0""-osnap""off""-plot""y""""ImpresionHP1220.pc3""11x17""I""L""N""W" "25.4,3.81""908.685,603.885""F""0.75,0""Y""ByN11x1 7.ctb""Y""N""N""N""N""N""Y"))


RUTINAS LISP

LAYERS
------------------------------------------
acc.lsp -- Cambia una seleccion de objetos al layer actual
ara.lsp -- Hace un array pero con un angulo seleccionado
ull.lsp -- Desencadena (unlock) todos los layers.
aac.lsp -- permite cambiar el color del layer de uno o varios objetos seleccionados sin entrar a la caja de dialogo ni averiguar el nombre del layer.
cco.lsp -- cambia todos los objetos seleccionados que tengan color ajustado a un layer nuevo con el nombre del color ajustado que tengan y les cambia la propiedad de color a bylayer. No afecta a objetos con color Bylayer.
ela.lsp -- borra todos los objetos que pertenezcan al layer de un objeto seleccionado
mm.lsp -- mueve todos los objetos que pertenezcan al layer de un objeto seleccionado.
ccu.lsp -- Copia una seleccion de objetos al layer actual

TEXT Y MTEXT
------------------------------------------
BA.lsp -- Background fill all. Aplica un background fill a todos los textos, mtext y dimensiones seleccionadas.
dt.lsp -- editor de multiples textos, mtext y atributos seleccionados, mediante caja de dialogo con multiples opciones como cambiar altura, rotacion, layer, estilo,
my.lsp -- copia el valor del texto de un text o mtext a otro text o mtext.
my3.lsp -- copia el valor del texto de un text o mtext o atributo a otro text o mtext o atributo
tmm.lsp -- alinea todos los dtext seleccionados en una columna con el espaciamiento deseado entre lineas.
ut.lsp -- Une dos textos (dtext) seleccionados
umt.lsp -- Une dos mtext (o un text y un mtext) seleccionados.
SMT.lsp -- stripmtext. Devuelve los valores originales a los mtext seleccionados que hayan sido modificados manualmente.

LEADERS
------------------------------------------
llp.lsp -- escribe las cooodenadas x,y,z de un punto seleccionado
ll.lsp -- Crea una leader en formato clasico (primer segmento diagonal y segundo segmento recto)

SECUENCIAS
------------------------------------------
seq, seq2, seq3, seq4 -- utilidades para crear o cambiar secuencias de numeros o letras en orden alfabetico

SUMAS DE AREAS, LONGITUDES
------------------------------------------
suma.lsp -- Sirve para obtener la suma de las areas de un conjunto de polilineas abiertas o cerradas.
suml.lsp -- Sirve para obtener la suma de todas las lineas, arcos y polilineas seleccionadas
sumn.lsp -- Sirve para obtener la suma de todos los numeros seleccionados (formato Dtext)

VISTAS
------------------------------------------
dva.lsp -- Rota la vista actual para alinearla a una linea seleccionada.
dvw -- Regresa la rotación de la vista actual a world.

DIMENSIONES
------------------------------------------
cdd.lsp -- Sobreescribe el valor actual de las dimensiones seleccionadas (para que no se modifique el valor al aumentar al cambiar la dimension)
cda.lsp -- Restaura el valor de las dimensiones seleccionadas por el valor que le corresponde.

POLILINEAS
------------------------------------------
chw.lsp -- cambia el grosor (width) de las lineas y polilineas seleccionadas
cu.lsp -- Crea una polilinea cuadrada tecleando o dando dos puntos para la distancia del lado.
PLDiet.lsp -- Permite reducir el numero de vertices de una seleccion de polylineas especificando el espaciamiento entre vertices.
spl2pl.vlx -- Convierte todas las splines seleccionadas a polilineas de segmentos rectos con una longitud de segmento determinada.

CONVERSION DE OBJETOS
------------------------------------------
conver.lsp -- Convierte todas las lineas del dibujo actual con thickness diferente de 0 a 3dfaces.
LV.lsp -- Crea una malla cuadriculada (mesh) a partir de lineas en 3d (contours) con la resolucion deseada. la malla tendra el curveado de las curvas de nivel en 3d.
Segs.lsp -- Convierte todos los arcos, circulos, splines y polilineas a polilineas de segmentos rectos con el espaciamiento entre puntos especificado.


EDICION DE OBJETOS
------------------------------------------
c.lsp -- comando copy con la opcion multiple por default
flat.lsp -- Pasa a Elevacion 0 todos los objetos simples del dibujo, junto con sus puntos de control (lineas, polilineas, arcos, circulos, 3dpolys)
om.lsp -- Crea dos lineas (una a cada lado de una linea seleccionada) a semejanza de muros en una planta, con una distancia dada.
cut.lsp -- hace un slice completo de un 3dsolid con solo dar 2 puntos y conserva ambas figuras al terminar.
ta.lsp -- rota un block, text o mtext seleccionando una linea y luego el objeto deseado a alinear a esta.
DU.lsp -- Detail updater por Marco Jacinto. Actualiza todos los textos, mtext, dimensiones, leaders y blocks estandar de acuerdo al dimscale actual.
LinesRegularizeAngles.lsp -- Este lisp modificará las lineas ligeramente chuecas (de acuerdo al angulo maximo especificado) a que queden a 0 90 180 o 270 grados (orthogonales).


BLOCKS
------------------------------------------
B1.lsp --- Cambia los blocks seleccionados para que queden con escala x,y y z igual a 1.
BL0.lsp -- Redefine los blocks seleccionados a layer 0 y sus propiedades de color, linetype y lineweight a bylayer.
BL03.lsp -- Redefine automaticamente todos los blocks del dibujo actual al layer 0.
BL02.lsp -- Redefine automaticamente todos los blocks del dibujo actual a propiedad de color bylayer. Se puede usar en su luager al comando "SETBYLAYER"
bi.lsp -- inserta todos los dibujos de un directorio adentro del dibujo actual en forma horizontal y con una distancia dada entre cada block insertado.
bip.lsp -- Cambia el punto de insercion de un block seleccionado sin tener que explotarlo.
BLR.lsp -- Renombra todos los blocks del dibujo actual usando un prefijo y numeracion.
bre.lsp -- Reemplaza los blocks seleccionados por un block existente escribiendo el nombre.
bro.lsp -- Rota todos los blocks seleccionados con un angulo dado y con base en su propio punto de insercion particular.
bs.lsp -- Escala todos los blocks seleccionados con un angulo dado y con base en su propio punto de insercion particular.
Edit_Bloc_3.5.LSP -- Redefine los blocks seleccionados sin explotarlos. Redefine layer, color, linetype, lineweight y unidades.
GG.lsp -- convierte los objetos seleccionados a block automaticamente con solo dar un punto de insercion y seleccionarlos.
renb.lsp -- Renombra un block sin entrar a la caja de dialogo (mas rapido)
sb.lsp -- Selecciona todas las inserciones de un block en el dibujo con solo seleccionar uno de ellos.
RescaleBlocks.lsp -- Redefine todos los blocks del dibujo actual de manera que su escala y tamaño actual se conviertan en escala 1,1,1.
SYB.lsp -- sincroniza (attsync) todos los blocks seleccionados.
WBA.lsp -- Exporta (wblock) todos los blocks del dibujo actual a un directorio especificado.

HATCH
------------------------------------------
hb.lsp -- Crea polilineas en todo el contorno usado para formar los hatchs seleccionados

SELECCION
------------------------------------------
se.lsp -- De una seleccion de objetos, este lisp dejara seleccionados solamente los objetos deseados que pertenezcan a un layer, que tengan un color, que sean de un mismo tipo, que tengan un nombre de block seleccionado, un tipo de linea seleccionado o un estilo de texto seleccionado.
gt.lsp -- mismo comando getsel del express que permite seleccionar un tipo de objeto de entre todos los objeto de un layer o de todo el dibujo.
loo.lsp -- permite seleccionar todos los ultimos objetos creados con darle al autocad el numero de ultimos objetos creados que se quiera seleccionar. Muy util al copiar una cierta cantidad de objetos y querer seleccionar esos ultimos X numero de objetos creados al copiar.
sol.lsp -- selecciona todos los objetos de un layer con solo seleccionar uno de ellos.

INFORMACION
------------------------------------------
q1 al q12.lsp -- abre ventanas de mensajes de autocad para ver lista comandos que necesito recordar.
esc.lsp -- carga un cuadro de informacion con la tabla de escalas estandar
stamp.lsp -- inserta un block en la esquina inferior izquierda del recuadro en el layout al ejecutar el comando qsave con la informacion de la ubicación y nombre del archivo, asi como la fecha y hora en que se guardo.

ESTRUCTURAS
------------------------------------------
imca.lsp -- permite insertar los perfiles estructurales del Instituto mexicano de la construccion en Acero. Los inserta como polilineas.
stl.lsp -- Abre el cuadro de dialogo para insertar perfiles estructurales del sistema ingles, los inserta como polilineas.
stlp.lsp -- Abre el cuadro de dialogo para insertar perfiles estructurales del sistema ingles, los inserta como blocks con el nombre del perfil.

IMPRESION
------------------------------------------
Sq.lsp -- Hecho por mi hermano Marco Vinicio Gil Soto. Inserta una hoja tamaño Carta o Plano de 90x60 en unidad metros y nos pregunta la escala deseada para insertarlo.
PDF.lsp -- Creara un pdf del layout actual y lo guardara en la misma carpeta del dibujo de forma automatica con los valores especificados y usando la impresora DWG to PDF.pc3 de autocad.

PERFILES
------------------------------------------
Perfilterr3.fas
Crea un perfil a partir de trazar una simple línea que corte Lwpolylineas con elevaciones y dar el punto de inserción del perfil.

3DSOLIDOS
------------------------------------------
m2s.lsp Crea un 3dsolid a partir de una malla (mesh) seleccionada.


ESCALAS
------------------------------------------
std.lsp -- Se teclea "ES" y se escribe la escala deseada, usando cualquier numero del sistema metrico decimal, como 1, 2, 20, 50, 80, 125, 250, 1420, o cualquier otro y esta rutina creara un nuevo estilo de dimensiones con la escala especificada.

ENVIO DE DIBUJOS
------------------------------------------
send.lsp -- guarda automaticamente un archivo zip en el mismo directorio del dibujo con todos los archivos necesarios para llevar el dibujo actual a otra computadora como para plotear o seguir usando, incluye fonts, xrefs, imagenes y ctb files.

VARIABLES
------------------------------------------
Reset.lsp -- Resetea las variables de sistema a que tenga el valor mas comúnmente usado.

PROCESOS EN SERIE
------------------------------------------
PurgeAuditfiles.lsp -- Purga y audita todos los dibujos de un directorio especificado abriendolos, guardando y cerrando de uno por uno.
Batch.lsp -- lisp para aplicar las variables deseadas (a escribir dentro del lisp) a todos los dibujos de un directorio especificado.


DESCARGAR

lisp_Pgil2.rar
http://www.mediafire.com/download.php?0e8vhj2h5csnxbl
Size: 5976 KB

Actualización
lisp_Pgil3.rar
http://www.mediafire.com/?f090hbv17ux6xj9
Size: 11.33 MB