miércoles, 29 de julio de 2009

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

61 comentarios:

  1. buenisimo todo, podrias revisar el link, ya que la descarga desaparecio. Gracias.

    ResponderEliminar
  2. Oh, si... un problema en el hyperlink... le habia dejado un ".rar" al final de la direccion, de manera que al darle click directo no te llevaba a ninguna parte real... pero ya le quite eso y ya se le puede dar click y te llevara directamente a la pagina de descarga.

    ResponderEliminar
  3. muy buen aporte bajando y revisando muchas gracias.

    ResponderEliminar
  4. Maestros! gracias por la aportacion!

    ResponderEliminar
  5. ya los baje pero no puedo hacerlos funcionar me podrias ayudar con eso para uqe los cargue automaticamente

    ResponderEliminar
  6. Sip... Primero dDebes buscar en tu disco duro en

    C:\Archivos de programa\AutoCAD 2008\Support\ o
    C:\Program Files\AutoCAD 2008\Support\

    (dependiendo la version de autocad que tengas instalado, obviamente)

    hay un archivo en ese directorio que se llama:
    acad2008doc.lsp o
    acad2009doc.lsp (segun la version de autocad que tengas, tambien)

    abres ese archivo y al final del archivo le pones las rutinas que quieras cargar, usando esta forma

    (load "atedit.lsp")
    (load "tre.lsp")

    y asi, pones un listado de todos los lisps que quieras que se carguen automaticamente en cada sesion.. y además

    y además debes colocar esos archivos en un directorio que se encuentre en la ruta de soporte, por ejemplo guardalos en el mismo directorio de tu disco duro:

    C:\Archivos de programa\AutoCAD 2008\Support\ o
    C:\Program Files\AutoCAD 2008\Support\

    y ya... cierras el archivo acad2008doc.lsp o acad2009doc.lsp al que le agregaste ese listado, y listo.. cierras el autocad y lo vuelves a abrir, y se deben cargar esas rutinas.

    si usas windows vista o windows 7 y no te deja guardar el archivo por estar restringido... pues lo guardas en otra ubicacion, y despues simplemente lo cortas de esa ubicacion y lo pegas donde debe ir, adentro del directorio de archivos de programa, y ahi te preguntara si lo quieres reemplazar y lo reemplazas... y con eso ya debe quedar guardado... sale. Me dices si te sale algun problema.

    ResponderEliminar
  7. Hola Paulo!!

    Muchisimas gracias por todo esto!. No sabia nada de las aplicaciones y estoy aprendiendo desce cero gracias a tus consejos.

    Has cambiado mi Autocad de una manera que nunca pensé que esto era posible.

    Gracias de nuevo

    ResponderEliminar
  8. No nos conocemos en persona, verdad? Nomas pa segurarme.

    Y bueno.. la verdad es que si conoces y manejas los lisp, ya eres de un nivel superior en el uso de autocad.

    Si dividimos al universo de usuarios de autocad en 4 grandes grupos, serían:

    1. Los que lo usan 1 vez al año solo para pequeños sketchs.

    2. Los que lo usan regularmente sin afan de conocerlo a fondo, con los comandos regulares de autocad.

    3. Los que lo usan regularmente, se esfuerzan por conocerlo a fondo y al ver sus limitantes, usan algunas rutinas segun las requieren para su trabajo.

    4. Los que lo usan regularmente, conocen sus limitantes, usan rutinas lisp y además programan sus propias rutinas segun lo necesitan o para sus empresas o para terceros.

    En este entendido, en cuanto a sueldos, no temo decir que es posible obtener un mayor sueldo mientras más se conoce de autocad, aunque no es una regla, ya que los empleados ejecutivos como gerentes y directores pueden pertenecer a cualquiera de estos grupos y ser los que tienen un suelo superior, pero dentro de un marco general de profesionistas que usan autocad, los que pueden lograr mejores ingresos son en general los que siempre tienen mayor conocimiento de programas, y no hablo exclusivamente de autocad, sino programas en general.

    Yo puedo decirte ademas (si es que no es obvio) que me encuentro en el grupo 3, ¿como la vez?

    ResponderEliminar
  9. No nos conocemos en persona y si tu sólo eres del 3? Pues yo debo ser del grupo 2.01 o asi
    jajajaj

    bueno,te quería preguntar sobre unas lips que encontré en tu descarga que me interesan mucho, pero no las consigo hacer funcionar. Son:

    BIP
    LPLOT
    BATCH
    PTS
    PlotDwgs

    Sabrías decirme qué debería hacer?

    Muchas gracias
    Un saludo desde Holanda

    ResponderEliminar
  10. unas de ellas si me las sé.... ¿cual es tu correo?

    ResponderEliminar
  11. Bueno yo me considero el nivel 2.8, hago mis propias rutinas lisp y trato de mejorar y hacerlas mas completas. Quisiera saber donde puedo bajar o intercambiar rutinas lisp. me interesan las rutinas de Paulo Gil soto son interesantes y dan al clavo

    ResponderEliminar
  12. Que interesante comentario!, basados en la escala que esscribí arriba, si haces tus propias rutinas deberías estar en el nivel 3 punto y algo.. o en el 4. Y si haces rutinas, ya debes conocer varios sitios, pero si quieres ver la mayoría de los que hay disponibles en la red te recomiendo veas aqui en mi bloguito un post que se llama "Links to lisp routines" de Octubre del 2009.

    ResponderEliminar
  13. estan excelentes la rutinas en el paquete *.zip que nos proporcionas viene lagunas *.lsp que no se conce su funcion, nos podrias explicarla en cuanto tengas teimpo. buen aporte y saludos

    ResponderEliminar
  14. Necesito una rutina para enumerar vigas... v1 , v2, v3, v4 ... etc. quien me pasa una gracias

    ResponderEliminar
    Respuestas
    1. hay unas rutinas de secuencia de numeros... pero son solo para crear textos de tipo texto simple, no ligados a ningun objeto en particular, de manera que los puedes usar para colocarle claves o numeros a lo que gustes, ahi están esas rutinas adentro del archivo que pongo para descargar, se llaman SEQ1, SEQ2, SEQ3, SEQ4...

      Eliminar
  15. hola Paulo!
    para empezar y antes de nada, GRACIAS por estas joyas!

    Y ahora te comento mi problema que he intentado utilizar Edit_Bloc_3.5.LSP y autocad me da un error: "interrupción de salida". No sé si será pq trabajo cn 2012. Me podrías ayudar?

    ResponderEliminar
  16. posiblemente estés usando el autocad en español.... si es así... pues ese es el problema... Yo uso el autocad 2012 también y a mi no me dió problema en cargar ni al ejecutar... así que imagino que es la versión en español la que usas. La verdad es que la mayoría de estas rutinas están hechas por personas de Estados Unidos y para versiones en ingles solamente. Yo siempre he trabajado la versión en inglés y de hecho es lo que recomiendo para todo mundo, por la cantidad de rutinas que hay para este idioma y por la facilidad para comparar los textos y palabras con otros programas.

    ResponderEliminar
  17. Hola hermano, te felicito por la rutina de las escalas, la verdad yo no se mucho sobre programación de cad, pero lo que hice fue manipularla un poco para cambiarle los colores y el nombre de las escalas, pero tengo un problema ya que al yo cambiarle la altura de texto a 2.5 el texto se agranda perdiendo la escala, ya que necesito que en match properties salga text heigth 2.5 y no 0.25, a ver si me podrías ayudar con eso, es que el acotado que utilizo es en metros pero las cotas salen milimetros, entonces ocupo que salga 2.5 y no 0.25

    ResponderEliminar
  18. Esa rutina (std.lsp) la hice yo y me ayudaron a terminarla en el foro Cadtutor.net. la verdad está hecha para trabajar dibujos en unidades de Metros, la variable que necesitarías cambiar si quieres que el texto aparezca mas grande 10 veces, sería "DIMTXT" "0.2" ; Text height
    lo tendrías que cambiar a 2.0... pero la verdad es que esto está hecho para trabajar dibujos en model a escala real, y especificando la escala en paper space o layout usando la opcion zoom y luego 1/escala deseada + XP. Todo eso es el formato que usamos en la oficina para hacer los proyectos, pero necesitaría explicarte con más detalle como se hace esto para que usaras la rutina tal y como está orita concebida. Puedes enviarme un mail a gilsoto13@gmail.com si quieres que te explique mejor con ejemplos.

    ResponderEliminar
  19. Por otro lado, si quisieras cambiar el tamaño de la cota o dimension de manera proporcional, o sea que aumente el tamaño del texto junto con el tamaño de la flecha y las demás proporciones, lo que necesitas cambiar es de hecho, el dimscale. Pero ese va de acuerdo a la escala que quieras cargar, en todo caso si simplemente quieres que la cota aparezca más grande, el renglon a modificar sería
    (COMMAND "DIMSCALE" (/ value 100))
    y le podrías poner
    (COMMAND "DIMSCALE" (/ value 10))
    para que la cota te aparezca 10 veces más grande... y así...

    ResponderEliminar
  20. De verdad me has solucionado mucho trabajo con alguna lisp que tienes aqui.

    No se si existe alguna que copie las propiedades de impresion de una presentacion, al resto de presentaciones

    Muchas gracias.

    ResponderEliminar
  21. Para eso siempre he usado el Previous Plot, que es una opcion que viene hasta arriba del cuadro de dialogo de Impresión, la uso cada vez que quiero hacer una nueva impresion, ya sea en el mismo dibujo o en otro dibujo... esto te carga las opciones de impresión seleccionadas en la impresión anterior.

    Tambien hace años busqué un lisp para batch plot, hallé muchos, e incluso uno de ellos lo hice funcionar a la perfección y los archivos que se necesitan están dentro de ese paquete de lisp, pero no lo uso, ya que el soporte que usamos aquí en la ofis detiene cada dibujo al abrir con un mensaje, y eso hace que el lisp ya no funcione en forma continua. Pero en una instalación normal de autocad sí funciona, y si gustas me pasas tu correo y te explico como usarlo.

    ResponderEliminar
  22. Hola. el previus plot o impresion previa, no me sirve. te pongo un ejemplo.

    yo tengo 10 planos con 5 presentaciones cada uno. la canfiguracion de impresora de cada plano es una llamada por nosotros (impresora color)

    yo lo que quiero es poder cambiar a otra configuracion de impresora que ya tenemos definida a todos los planos automaticamente, y que queden guardados los planos con esta nueva configuracion. no se si me he explicado.

    ResponderEliminar
  23. Ahh, si...

    eso lo puedes hacer también con el lisp que acabo de mencionar en mi respuesta anterior, lo que usa este lisp es un archivo lisp o funcion que cargue el comando PLOT y especifique en ese comando todas las opciones de configuración que desees, y al final el comando te pregunta 2 cosas, una es si quieres imprimir o no, y la otra es si quieres guardar los cambios en la presentación, de manera que a la primera se le especifica que no, y a la segunda que sí, de esa manera no imprimirá, solo guardará la configuración de impresión.

    Y para que esto lo aplique a todos los dibujos que quieras y todas sus presentaciones (layouts) se usa otro lisp que abrirá cada uno de los dibujos y cada una de sus presentaciones y ejecutará el lisp de ploteo que guarda la configuración de impresión, y al final este lisp lo que hace es cerrar el dibujo guardando los cambios, y abre el siguiente hasta terminar con todos los dibujos de un directorio especificado.

    Lo malo es que el lisp que puse (que se llama BATCH.lsp y está adentro de la carpeta BATCH and Script at startup) sólo abre los dibujos en el layout actual unicamente y no abre los demás layouts o presentaciones, habría que hacer la modificación para que abra todas las presentaciones, y en mi caso, buscarla en internet mas bien, porque yo no sé hacer esa modificación, pero si ví que lo hicieron en un ejemplo de un lisp para impresión..

    ResponderEliminar
    Respuestas
    1. Mira, de hecho, me entró la curiosidad y lo probé, ya lo había probado antes y había funcionado y busqué orita la modificacion para que abriera todos los layouts o presentaciones y también funcionó. Para que lo pruebes te puse un archivo comprimido en

      ftp://soporte.uson.mx/PUBLICO/06_ARQUITECTURA/

      Se llama Batch and script at startup page (page setup).zip

      y adentro tiene como 5 archivos, que puedes guardar en la carpeta de soporte de autocad. Lo que hace el batch es unicamente abrir todos los dibujos de un directorio, se ejecuta con el comando "OPB". También deberás agregar unas líneas en tu archivo acadxxxxdoc.lsp, ahi te puse las instrucciones en un archivo .txt. Y finalmente deberás modificar el archivo page.lsp con tu configuración de impresión, Luego abres tu autocad, tecleas OPB, seleccionas el directorio al que le quieras cambiar todos los dibujos y sus presentaciones con esa configuración y ya, se abrirán de uno por uno y se aplicará la configuración a todos los layouts o presentaciones.

      Sin embargo, como este lisp te cambiará esa configuración a todos los dibujos que abras de ahora en adelante, lo que tendrás que hacer para evitar que siga pasando eso será quitar las líneas que agregaste en el archivo acadxxxxdoc.lsp para que no se vuelvan a cargar estos archivos cada vez que se abra un dibujo en tu autoCAD.


      Eliminar
  24. Hola que tal?

    Habra una rutina lisp que haga lo siguiente:

    Tengo una linea que en vista "planta" es recta, sin embargo en vista "frontal", se muestra como sube y baja. Bajo esta linea (en "vista frontal"), tengo una serie de rectangulos que quiero alinear perpendicularmente con dicha linea, sin embargo, tengo que hacerlo uno por uno, trazando una linea vertical por cada rectangulo y recortar (trim) segun quede en la "vista frontal" contra cada sube baja, y finalmente mover el rectangulo contra la linea trazada, espero y haberme dado a entender, de antemano gracias, y saludos

    Antonio

    ResponderEliminar
  25. Hola, lo que veo es que la explicación podría ser todavía más larga para definir correctamente lo que quieres hacer, sin embargo, te propongo que mejor me envíes un correo con el dibujo de ejemplo y ya por correo te doy opciones, si es que conozco alguna, para lograr lo que buscas.

    A lo que me refiero es que por la posible falta de conocimientos del AutoCAD o tal vez por querer hacer la explicación más fácil de entender, simplemente no entiendo exactamente lo que necesitas, pero igual en varios correos podríamos definir mejor tus necesidades y las posibilidades que tengo para ofrecerte ayuda.

    gilsoto13@gmail.com

    ResponderEliminar
  26. He querido descargar los lisp de los cuales haces mencion pero no he podido porq el link esta como caducado u otro problema ... espero se pueda arreglar el inconveniente ... o de ser posible enviarmelo a mi correo jeicob_74@hotmail.com me seria de gran ayuda ... muchas gracias anticipadas ...

    ResponderEliminar
  27. Hola Paulo Gracias por tus grandes aportes LISP, ya que son de gran utilidad para mejorar y facilitar los trabajos que desarrollemos. GRACIAS

    ResponderEliminar
  28. muchas gracias era lo que estaba buscando amigo, tengo especial problema con los objetos que no tienen elevación 0, gracias

    ResponderEliminar
  29. parece genial pero creo que no esta en orden los lisp que mencionas en el archivo comprimido .....y ando perdido... no quiero desconfigurar mi autocad y volver a restaurar.. tambien no veo los comando para que abra el lips por ejm de los perfiles? agregas el lips y tecleo stl y aparece pero lo demas lips?????

    ResponderEliminar
  30. si, por desgracia solamente tengo una carpeta donde guardo todos mis lisp y un día se me ocurrió postearla en mi bloguito ya que muchos compañeros y conocidos querían usar algunas de estas rutinas y supuse que a muchos otros les servirían si las colocaba en público en la red, así que les puse una descripción y adelante, todas las rutinas que posteo requieren solamente del archivo que nombra la rutina, y posiblemente en ocasiones alguna de ellas requiera un archivo .dcl... te las podría mencionar a detalle las que requieran un dcl ya que son pocas. Debido a que en la mayoría de los casos el archivo de cada rutina corresponde al nombre la rutina que describí en la lista de este post, así se puede rápidamente encontrar el archivo en la carpeta que compartí, no me pareció necesario hacer más ordenado el archivo compartido. Por otro lado, la rutina stl y la de stlplus14 aparecen en carpetas separadas, ya que ambas requieren de varios archivos para funcionar, y por ello se debe colocar todos esos archivos en alguna carpeta que sea listada en las carpetas de soporte en autocad. Como los archivos de estas dos rutinas están separados en sus propias carpetas, así no tendrías problema en identificarlos y usar estas 2 rutinas. Solo cabría añadir que para que puedan ejecutarse estas rutinas, solo necesitas cargar el archivo stl.lsp y el stlplus.lsp o el Steel.lsp (no estoy completamente seguro si los dos o cual de estos dos últimos, pero igual yo cargaría los dos para no errarle)

    ResponderEliminar
  31. quetal paulo fijate que tengo un lisp para pasar planta y perfil de camino de excel a autocad pero no me funciona ahora solo una ves me funciono no se si me podrias ayudar

    ResponderEliminar
    Respuestas
    1. Pues mándamelo a mi correo gilsoto13@gmail.com, y veré si le hallo, pero la verdad las rutinas para perfiles son tan complejas que dudo mucho poder hacer algo... si fue algo sencillo como agregar una línea para que funcione o ver si tiene que ver con la versión actual del autocad, entonces creo que sí podría... pero apenas viendolo

      Eliminar
  32. tengo un lisp para pasar planta y perfil de excel a autocad pero no me funciona me podrias ayudar paulo

    ResponderEliminar
  33. Saludos Paulo gracias por compartir, podrias dar un ejemplo de como crear una barra de herramientas para las rutinas gracias hasta pronto.

    ResponderEliminar
    Respuestas
    1. La verdad a eso si no le hago, son tantas las que uso y puedo seguir agregando, que prefiero mantenerlas en un mensaje de autocad, con una simple descripción, para ver esto del mensaje de autocad, puedes cargar los lisp que vienen adentro del archivo zip que estoy compartiendo, se llaman q1, q2, q3, etc...
      esos son lisp que cargan un mensaje para recordar las rutinas que uso... eso me parece mas útil que una barra de herramientas. Si de todas maneras quieres hacer una, simplemente haz una búsqueda entre los foros usando autocad create custom toolbar, "https://www.google.com.mx/#q=autocad+create+custom+toolbar"
      es mas complicado, y por eso yo lo descarte para este caso..

      Eliminar
  34. Como encontrar una rutina autolips para sumar textos..

    ResponderEliminar
  35. alla arriba en la lista aparece el sumn.lsp--- y va dentro del mismo archivo comprimido que puse para descarga...

    ResponderEliminar
  36. Saludos Paulo, antes que nada gracias por compartir y tomarte el tiempo para respondernos, molestandote, traté de instalar la rutina imca.lsp y me manda este error "c:\\imca\\chk_str", no se si me puedas ayudar a instalarlo adecuadamente de antemano te lo agradezco.

    ResponderEliminar
  37. Probablemente te pase si lo instalaste en alguna version de autocad en español o en alguna version mas nueva como la 2012 o 2013, o 2014, yo la verdad ese programita lo use desde el 2008 al 2009 sin problemas, intentare cargarlo en la version 2013 que tengo instalada y ya te digo si jala... por el momento si me puedes decir en que version de autocad lo instalaste, con eso me darias una idea, tambien puede ser porque desde el 2013 el autocad puso una nueva caracteristica, que se trata de que cualquier carpeta que tenga rutinas lisp que quieras cargar, como en este caso el directorio de c:/imca, lo debes agregar en las rutas (path) de confianza en options, lo veras al ejecutar el comando options, en la pestaña files, primera pestaña files, luego en el renglon de trusted locations... ahi tendras que agregar la ruta de C:/imca... para que el programa pueda cargar los lisp de ese directorio y funcionar sin problemas.

    ResponderEliminar
    Respuestas
    1. hola, yo tambien tengo ese problema me aparece ; error: LOAD failed: "c:\\imca\\chk_str"
      Command:
      Command: OP
      OPTIONS
      Command:
      Command: APPLOAD
      Imca.lsp successfully loaded.
      Command:
      Command:
      Command: APPLOAD
      Command: IMCA
      ; error: LOAD failed: "c:\\imca\\chk_str"
      y ya lo puse en una carpeta de confianza

      ayuda porfavor

      Eliminar
    2. Hola, que ubits... ya chequé el asunto, la clave está en que no hay un set de instrucciones para usar este programa del IMCA, o tal vez sí, pero bueno... el caso es que para que funcione, debes colocar la carpeta completa "IMCA" directamente en la raíz del disco local C:, de manera que quede ahi guardado como C:\IMCA\, con todos sus archivos adentro de esa carpeta, y ya esa carpeta es la que deberás poner en la lista de carpetas de soporte y también en la lista de carpetas Trusted o de confianza y ya con eso, cargas el lisp imca desde autocad, el mismo IMCA.lsp y ya lo ejecutas tecleando ya el comando IMCA, y ya con eso te aparecerá el cuadro de diálogo.

      Eliminar
    3. no se si se me mando el ultimo msj, pero en resumen es que ya me aparece la vena del cuadro de dialogo del imca pero solo dura medio segundo y desaparece, que cres que se a paulo?

      Archivo no encontrado.. ; error: quit / exit abort

      Eliminar
    4. Buenas de nuevo, acabo de hacer el procedimiento que te puse ahí arriba y funcionó sin problemas, se abrió la caja de diálogo e inserté un perfil. El problema que me dices tal vez podría ser por poner la carpeta de IMCA en el listado de soporte al final de la lista, me ha sucedido con otros lisp. Pon la carpeta C:\IMCA\ al principio de la lista de soporte, y también no se te olvide poner la misma carpeta en Trusted locations, y finalmente asegurate que cuando hayas descomprimido el archivo, no queden los archivos como dentro de una subcarpeta así: C:\IMCA\IMCA\, sino que queden solo como C:\IMCA\ y ahi adentro todos los archivos del programa. si ya está todo eso, solo se reinicia autocad, al reiniciar se carga con appload el archivo imca.lsp y se ejecuta con "imca".

      Eliminar
  38. Paulo , para el lisp SEQ , se podrá hacer el mismo pero que arranque con V o C, porque en ese caso ya puedo automatizar la numeración de vigas y columnas. Debería quedar cada vez que hago click por ejempo: V1,V2,V3,V4,V5.....etc. Muchas gracias, espero tu respuesta. Abrazo

    ResponderEliminar
    Respuestas
    1. obviamente se puede y seria muy facil con unos cuantos intentos.. pero porque no mejor usas otro lisp despues de haber insertado los textos... usa un lisp para agregar un prefijo o sufijo a los textos seleccionados, como este

      https://forums.augi.com/showthread.php?6364-Text-prefix-suffix

      Eliminar
  39. Muchísimas gracias! esto me reduce los tiempos jeje!!..abrazoooo

    ResponderEliminar
  40. Hola gracias por este material de mucha ayuda.. peregunta ¿sirve para versiones recientes como 2015? tengo algunas cuestiones.. no pude bajar el segundo archivo.. como que no lo encuetra, y con que primero que baje... no me aplica nada la rutina stamp.lsp, podrias ayudarme aclarar esta cuestion..

    ResponderEliminar
  41. si sirven los lisp en cualquier version habida y por haber, los dos archivos que tengo publicados me aparecen activos y descargables todavía, intenta de nuevo o desde otra compu, no se cual pueda ser tu problema. La rutina Stamp como la mayoria la bajé de internet y tal vez la modifiqué un poco, al cargarla, se aplica con el comando qs, o sea al guardar el dibujo tecleando qs, se aplica la rutina stamp y ésta inserta block llamado cadref que es un archivo que debe estar tambien guardado en alguna carpeta de la lista de soporte en autocad, para que se inserte, y aparezca en una esquina de tu recuadro la actualizacion de fecha y ubicacion de tu plano, creo... igual te puedo pasar un plano donde aparece una estampa que no requiere de un lisp para actualizarse, si te interesa.

    ResponderEliminar
  42. Alquien tendra un lisp que introduzca un bloque cualquiera al centro de arcos seleccionados, por favor si alquien lo tuberia que me envie al correo. sebas_jin@hotmail.com

    ResponderEliminar
  43. Muchas gracias ! Estas aportaciones son muy valiosas y mejoran mucho la velocidad de trabajo

    ResponderEliminar
  44. Hola que tal soy estudiante de ingenieria civil y me gustaria crear un lisp con perfiles de acero, algun video o libro que explique como hacer los codigos para crearlo?

    ResponderEliminar
    Respuestas
    1. Creo que ya puse dos de esos programas en este archivo comprimido, son el stl y el stlplus14, si no los ves ahí me pasas tu correo y te los paso... ya tienen muchisimos perfiles cada uno de ellos y se utilizan con cuadros de diálogo, con esos puedes aprender a hacer los tuyos propios.

      Eliminar
    2. también está el IMCA.lsp ahí incluido, para los perfiles del IMCA:

      Eliminar
  45. Hola, tendras alguna donde genere isometricos de tubos, bridas, tees para piping?

    ResponderEliminar
    Respuestas
    1. La verdad no que yo recuerde, normalmente dibujaría un isométrico si fuera en formato de vectores o líneas para representar tuberías, no sé como podría una rutina conformarse para ofrecer alguna ventaja.

      Eliminar
  46. Buenos días y gracias por compartir estos lsp para mejorar el trabajo y rendimiento de todos nosotros.
    Estoy interesado en poder insertar perfiles de acero, espero me puedas en viar los archivo que mencionas en otro comentario (son el stl y el stlplus14), mi correo es r.mamani@gmail.com
    Gracias de antemano por el apoyo.

    ResponderEliminar
  47. Buenas noches, ya tengo los lsp (stl y el stlplus14), pero solo uno lo he podido cargar en el autocad 2022, el stl.lsp, el cual se abre escribiendo en la ventana de comando stl, y abre un cuadro de dialogo para elegir los perfiles de acero.
    Pero no he podido cargar el stlp.lsp, me puedes indicar como hacerlo, se que se tiene que cargar desde el appload, y despues ponerle la ruta de acceso para que cargue, pero no se cual es el archivo o archivos a cargar, y las rutas a poner, también cual seria el comando, para poner en la ventana de comandos y que abra el cuadro de dialogo para elegir los perfiles de acero.
    Me puedes ayudar por favor, cualquier información me la puedes indicar por aquí o enviármelo a mi correo.
    De antemano te agradezco por el apoyo.

    ResponderEliminar
    Respuestas
    1. 1. extraer la carpeta STLPLUS14 de adentro del archivo comprimido... usualmente descomprimes todo el archivo Lisp_Pgil2.rar a una carpeta en tu disco duro.
      2. Después de eso, habrá entonces una carpeta STLPLUS14 dentro de la carpeta donde
      descomprimiste todo el archivo rar. Esa carpeta STLPLUS14 la debes de colocar en los paths
      (rutas) de soporte del autocad, de preferencia, colocar esa carpeta directamente en tu disco
      local C: o dentro de alguna carpeta en C:, o sea que quedaría así:
      C:\STLPLUS14\.
      3. Ya estando en C:, te decía que se debe cargar en las rutas de soporte del autocad, para eso
      ejecutas el comando options, luego te vas a la primera pestaña "Files", luego le das click al primer renglón "Support File Search Path", y le picas al botón de la derecha "Add", luego le das click al botón "Browse", y ya en el cuadro de diálogo buscas la carpeta del STLPLUS14 que pusiste en el disco C:, y le das "OK", también al menos deberías agregar la misma carpeta en el 3er renglón de esa misma pestaña, que es el que se llama "Trusted Locations", se sigue el mismo procedimiento para que quede en ese apartado.
      4. Ya quedando eso, reinicias el autocad para que se cargue esa carpeta, y ya habiendo reiniciado, cargas el archivo que ejecutará el programita, que es el "STLPLUS.LSP", para eso puedes ejecutar el comando "appload", y ya buscas dentro de esa carpeta ese archivo "STLPLUS.LSP", le das "load" y "close" y ya habiendose cargado, lo ejecutas tecleando "STLP", y ya lo demás es historia.

      Eliminar