|
Tema Anterior :: Tema siguiente
|
| Autor |
Mensaje |
txus
Moderador
Registrado: 30 Jun 2004
Mensajes: 3537
Ubicación: Andalucía - España
|
 Publicado: Sab 30 Jun 2007, 18:24 Asunto: |
|
|
En este tema también podemos recopilar bloques CAD interesantes y útiles.
Para empezar, aporto un bloque dinámico con una escala gráfica |
|
| Volver arriba |
|
 |
txus
Moderador
Registrado: 30 Jun 2004
Mensajes: 3537
Ubicación: Andalucía - España
|
| Publicado: Dom 09 Dic 2007, 13:24 Asunto: |
|
|
Una aplicación lisp que exporta las presentaciones como archivos DWG, individualmente.
Importante: Renombrar el archivo con la extensión lsp |
|
| Volver arriba |
|
|
Pitxu
Registrado: 28 Jun 2007
Mensajes: 6
|
| Publicado: Lun 10 Dic 2007, 16:51 Asunto: |
|
|
| Rutina para areas y otra para coordenadas,a mi me vienen mu bien. |
|
| Volver arriba |
|
|
shehaan
Registrado: 22 Dic 2007
Mensajes: 6
|
| Publicado: Lun 24 Dic 2007, 00:06 Asunto: |
|
|
Alguien puede explicar cómo trabajar con una rutina?.
Soy nuevo y esto de programar en lisp no se me da bien.
Es decir, qué hago con los archivos que tengo, cómo los ejecuto para que funcione y hagan lo que quiero¿?
Gracias. |
|
| Volver arriba |
|
|
pfusterv
Moderador
Registrado: 11 Feb 2007
Mensajes: 2078
|
| Publicado: Lun 24 Dic 2007, 07:00 Asunto: |
|
|
Shehaan en el primer mensaje que pusiste te explico como hacerlo.
SALUDOS. |
|
| Volver arriba |
|
|
shehaan
Registrado: 22 Dic 2007
Mensajes: 6
|
| Publicado: Lun 24 Dic 2007, 15:45 Asunto: |
|
|
Hola,
antes de nada...quería aprovechar para felicitaros las fiestas! 
he estado buscando rutinas para exportar una polilinea desde autocad como una archivo de puntos xyz.
Gracias pfusterv por los archivos y la explicación, más o menos consigo hacer rodar el CAD.
A ver si alguien le puede echar un vistazo a esta rutina, porque otras que he utilizado como ejemplos sí me han cargado...
Gracias de antemano.
| Código: | (defun expunto (/ punto n x archivo)
(setq puntos (ssget "_X" '((0 . "POINT") (8 . "mi_capa")))
(if puntos
(progn
(setq n 0
x 1
)
(setq archivo (open "c:\\expuntos.txt" "w"))
(repeat (sslength puntos)
(write-line
(strcat
(itoa x)
";"
(rtos (car (cdr (assoc 10 (entget (ssname puntos n)))))
2
(getvar "luprec")
)
";"
(rtos (cadr (cdr (assoc 10 (entget (ssname puntos n)))))
2
(getvar "luprec")
)
)
archivo
)
(setq n (1+ n)
x (1+ x)
)
) ;_repeat
(close archivo)
) ;_progn
) ;_if
) ;_defun
(defun c:expuntos ()
(expunto)
(prin1)
) ;_defun
(prompt
"\nNuevo comando EXPUNTOS definido por SpeedCAD (C) 2004"
)
(prin1) |
|
|
| Volver arriba |
|
|
pfusterv
Moderador
Registrado: 11 Feb 2007
Mensajes: 2078
|
|
| Volver arriba |
|
|
juanmanuellopezcastillo
Registrado: 09 Ene 2008
Mensajes: 1
|
| Publicado: Mie 09 Ene 2008, 04:17 Asunto: BUSCO AYUDA |
|
|
| HOLA SOY NUEVO EN ESTO Y BUSCO AYUDA PARA CREAR UNA RUTINA KE ME GENERE CONEXIONES METALICAS ESTRUCTURALES SI SABEN DE ALGUIEN AGRADECERIA |
|
| Volver arriba |
|
|
EMS
Registrado: 19 Ene 2008
Mensajes: 1
|
| Publicado: Sab 19 Ene 2008, 14:30 Asunto: |
|
|
Saludos y muy interesante el foro, tendran alguna rutina que permita marcar con un bloque o algun otro elemento las intersecciones y/o intersecciones ficticias entre polilineas que se encuentren en un mismo layer? Es para determinar cuando se me cruzan curvas de nivel despues de generarlas mientras me encuentro en edicion de las laminas.
Saludos. |
|
| Volver arriba |
|
|
akurami
Registrado: 03 Oct 2005
Mensajes: 151
|
| Publicado: Mar 22 Ene 2008, 11:11 Asunto: |
|
|
| txus una pregunta un poco tonta, ¿como se inserta un bloque dinámico? te lo digo porque a la hora de insertar el bloque con al escala grafica (el que has colgado arriba) me lo inserta como un bloque normal no como uno dinámico |
|
| Volver arriba |
|
|
txus
Moderador
Registrado: 30 Jun 2004
Mensajes: 3537
Ubicación: Andalucía - España
|
| Publicado: Mar 22 Ene 2008, 12:36 Asunto: |
|
|
| akurami escribió: | | txus una pregunta un poco tonta, ¿como se inserta un bloque dinámico? te lo digo porque a la hora de insertar el bloque con al escala grafica (el que has colgado arriba) me lo inserta como un bloque normal no como uno dinámico |
El archivo que subí, contiene el bloque en el espacio modelo, por tanto cuando insertes este archivo en tu dibujo deberás descomponerlo para tener así el bloque dinámico.
Otra opción es insertar el bloque mediante Design Center, importando sólo el bloque y no el archivo de dibujo completo |
|
| Volver arriba |
|
|
akurami
Registrado: 03 Oct 2005
Mensajes: 151
|
| Publicado: Mar 22 Ene 2008, 12:48 Asunto: |
|
|
| txus como de costumbre un 10, gracias |
|
| Volver arriba |
|
|
geoleo
Registrado: 18 Ene 2008
Mensajes: 7
|
| Publicado: Mar 22 Ene 2008, 19:02 Asunto: |
|
|
Amigos...
Recien estoy empezando a entender esto de las rutinas AutoLISP para AutoCAD. Les pido su ayuda:
Necesito una rutina que lea un archivo .txt que contenga: punto, norte, este, cota y descripción.
Por lo que he averiguado, me han indicado que en internet existen estos tipos de rutinas, pero yo no las encuentro 
Encontré una rutina llamada "ascpoint" pero tiene problemas para leer (ó reconcer), la descripción.
Consultando, tambien me han comentado que existe una rutina que, a parte de reconocer la descripción y el nº del punto, crea layers para los puntos, el nº del punto y su descripción.
Les estaría muy agradecido por sus comentarios y ayuda! |
|
| Volver arriba |
|
|
RCG
Registrado: 04 Jul 2007
Mensajes: 19
|
| Publicado: Mie 23 Ene 2008, 17:21 Asunto: |
|
|
Alguna rutina que permita acotar un punto con un identificador, genere un cuadro de texto en AUTOCAD y un archivo txt con las coordenadas de los puntos.
Un saludo |
|
| Volver arriba |
|
|
HectorH
Registrado: 06 May 2008
Mensajes: 1
|
| Publicado: Mar 06 May 2008, 15:50 Asunto: |
|
|
Hola, vengo leyendo este foro hace bastante tiempo, por lo mismo parto agradeciendo a todos los que hacen estos tremendos aportes.
Ahora mi pregunta, alguien tiene aluna rutina que enumere las lineas que seleccione con números con intervalos "x". Se entiende ? |
|
| Volver arriba |
|
|
|
|
|
·
Indice 
FAQ
Registrarse 
Entrar
