spline a polilínea

Dudas y consultas sobre CAD. AutoCAD, Microstation y resto de aplicaciones CAD

Moderador: Moderadores

Geologo
En prácticas
Mensajes: 6
Registrado: Mar May 20, 2008 6:12 pm
Contactar:

spline a polilínea

Mensaje por Geologo »

Hola!

Tengo un problema con el que me he topado varias veces en el poco tiempo que llevo manejando AutoCAD, y que siembre he terminado solucionando chapuceramente:

¿Es posible convertir las splines en polilíneas? ¿Cómo puede hacerse?

Muchas gracias.

Plannerly ™ La plataforma de gestión BIM ™ SmartLeanBIM® © 2021
Plantillas para crear el Plan de Ejecución BIM (BEP). Cumplimiento de la norma ISO-19650
Plan gratuito en el que puedes acceder a todas las plantillas y si al comprarlo introduces el código DELINEACION obtendrás un 10% de descuento
wentoya
En prácticas
Mensajes: 16
Registrado: Lun Jun 09, 2008 2:54 pm
Contactar:

splines a polilineas

Mensaje por wentoya »

El comando FLATTEN hace lo que quieres.
Espero haberte ayudado,
un saludo.
Avatar de Usuario
Chus
Gran Jefe
Mensajes: 1042
Registrado: Jue May 08, 2008 10:22 pm
Ubicación: Valentia
Contactar:

Re: splines a polilineas

Mensaje por Chus »

wentoya escribió:El comando FLATTEN hace lo que quieres.
Espero haberte ayudado,
un saludo.
No conocia el Comando. muy bueno.. Gracias. :wink:
Avatar de Usuario
Tronius
Jefe
Mensajes: 454
Registrado: Dom Jun 18, 2006 11:50 pm
Ubicación: En mi cabeza
Contactar:

Mensaje por Tronius »

No sabía que el flatten hacía eso, perfecto para los 3D entonces.
[img]http://i60.photobucket.com/albums/h21/Tronius/Firmas/delineante.jpg[/img]
[img]http://i60.photobucket.com/albums/h21/Tronius/Firmas/videogamesfan.jpg[/img]
Geologo
En prácticas
Mensajes: 6
Registrado: Mar May 20, 2008 6:12 pm
Contactar:

Mensaje por Geologo »

No me reconoce el comando "FLATTEN" (uso el 2008)... :(
Avatar de Usuario
mamensbd
Gran Jefe
Mensajes: 1155
Registrado: Jue May 15, 2008 11:20 pm
Ubicación: Barcelona
Contactar:

Mensaje por mamensbd »

Si no te reconoce el comando "flatten" o "_flatten" es por que no has cargado la aplicación LISP.

Tienes que ir a la pestaña de herramientas "Herr.", despues a "Cargar aplicación..." y buscar el archivo FLATTEN.LSP, lo cargas y ya esta.

Espero que te funcione.
luisgi

Mensaje por luisgi »

Hola.. el comando FLATTEN pertenece a las EXPRESS TOOLS, las debes tener instaladas para activar la orden.
Saludos.
Avatar de Usuario
MCCDELINEANTE
Técnico
Mensajes: 93
Registrado: Jue Dic 20, 2007 12:29 am
Ubicación: Las Palmas de G.C.
Contactar:

Mensaje por MCCDELINEANTE »

Por lo que yo se lo único que hace el comando FLATTEN es pasarte las lineas con determinada cota Z a la cota 0,0,0. No veo la manera de que te convierta las splines a polilineas.
Afga
Jefe
Mensajes: 886
Registrado: Lun Sep 04, 2006 4:10 pm
Contactar:

Mensaje por Afga »

Otra posible solución mediante LISP.

Código: Seleccionar todo

; Convierte SPLINE en LWPOLYLINE
;;;(c) 2006 Cadalyst and Lloyd Beachy

(Defun C:spl_pl (/ ss pt# cmdecho osmode clayer count ent lay lng pt-list cnt)
  (vl-load-com)
  (setq ss	(ssget '((0 . "spline")))
	multi#	(getint "Indique número de puntos de polilínea por un multiplo de puntos de control de la spline <5>: ")
	cmdecho	(getvar "cmdecho")
	osmode	(getvar "osmode")
	clayer	(getvar "clayer")
	count 	0
  )
  (if(null multi#)(setq multi# 5))
  (setvar "cmdecho" 0)
  (command "_.undo" "_begin")
  (setvar "osmode" 0)
  (repeat(sslength ss)					;repeat for each spline
    (setq ent	(vlax-ename->vla-object (ssname ss count));change spline to vla-object
	  lay	(vlax-get-property ent "layer")		;spline's layer
	  cp#	(vlax-get-property ent "numberofcontrolpoints")		;spline's control points number
	  lng	(vlax-curve-getDistAtPoint ent(vlax-curve-getEndPoint ent));length of spline
	  pt-list(list(vlax-curve-getStartPoint ent))	;coords for start of spline
	  cnt 	1.0					;segment counter
	  pt#(* cp# multi#)
    );end setq
    (repeat pt#						;repeat for each segment
      (setq pt-list(cons(vlax-curve-getPointAtDist ent (* lng(/ cnt pt#)))pt-list));add segment's point to pt-list
      (setq cnt(1+ cnt))				;counter to next segment
    );end segment repeat
    (setq cnt 0)					;pline counter
    (setvar "clayer" lay)				;match spline's layer
    (command "_.pline"					;start "pline" command
	     (repeat(length pt-list)			;repeat for each point
	       (command(nth cnt pt-list))		;enter current point
	       (setq cnt(1+ cnt))			;counter to next point
	       ""
	     )
    )
    (setq count(1+ count))				;counter to next spline
  )
  (command "_.erase" ss "")
  (setvar "osmode" osmode)
  (setvar "clayer" clayer)
  (command "_.undo" "_end")
  (setvar "cmdecho" cmdecho)
  (prin1)
)
Avatar de Usuario
erichguaman
Jefe
Mensajes: 343
Registrado: Jue Abr 17, 2008 12:02 am
Ubicación: Madrid
Contactar:

Mensaje por erichguaman »

Hola, tengo el autocad 2008, y no me sale ese comando...¡¡???
sera por q no tengo el express entonces.. :cry:
Compañeros delineantes.... sinceramente sois la leche¡¡.
Afga
Jefe
Mensajes: 886
Registrado: Lun Sep 04, 2006 4:10 pm
Contactar:

Mensaje por Afga »

Será que no las tienes isnaladas erichguaman. Prueba como solución alternativa con la aplicación Lisp que adjunté anteriormente,a ver que tal.


Saludos
Avatar de Usuario
Rohirrin
Técnico
Mensajes: 119
Registrado: Lun Jun 09, 2008 9:16 pm
Ubicación: Badajoz
Contactar:

Mensaje por Rohirrin »

Joé, la cantidad de cosas que sabéis!!!!

No tenía ni idea de este comando. Muchas gracias, lo he probado y nos va a resultar útil en más de una ocasión.
"Podo Mellon a minno" (Di Amigo y entra)
Avatar de Usuario
NURIA
Auxiliar
Mensajes: 61
Registrado: Vie Jul 11, 2008 1:22 pm
Ubicación: MALAGA
Contactar:

Mensaje por NURIA »

AFGA a mi tampoco me funciona flatten y ...no se como probar con tu alternativa porque no se que es un lisp ni como utilizarlo :oops: :oops: :oops: :oops:
¡Triunfare!...aunque sea trabajando...
Avatar de Usuario
erichguaman
Jefe
Mensajes: 343
Registrado: Jue Abr 17, 2008 12:02 am
Ubicación: Madrid
Contactar:

Mensaje por erichguaman »

Gracias por responder AFGA.
Pero esa cantidad de letras y caracteres q adjuntas (lisp), como las utilizo, q se hace con eso...son demasiadas cosas q pones con letra verda... :?
Compañeros delineantes.... sinceramente sois la leche¡¡.
Avatar de Usuario
NURIA
Auxiliar
Mensajes: 61
Registrado: Vie Jul 11, 2008 1:22 pm
Ubicación: MALAGA
Contactar:

Mensaje por NURIA »

ok me estoy informado sobre lisp
estoy harta de escuchar lisp por aqui, lisp por alli y yo sin saber nada, me he ido a archivos de programas/autocad 2006/Help/acad_alt
erichguaman ahi te lo van explicando
a ver si hay suerte y me entero
¡Triunfare!...aunque sea trabajando...
Responder

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 25 invitados