Polilinea 3D a Polilinea
+2
ronaldT
Luis Alberto Benitez
6 participantes
Página 1 de 1.
Polilinea 3D a Polilinea
Estimados Foristas.
Encontré un lisp que convierte polilineas 3d en polilineas
livianas tomando como altura un promedio,
de ser posible modificar la misma para que convierta la polilinea
con la z correspondiente sin realizar un promedio.
Desde ya gracias por los aportes.
Encontré un lisp que convierte polilineas 3d en polilineas
livianas tomando como altura un promedio,
de ser posible modificar la misma para que convierta la polilinea
con la z correspondiente sin realizar un promedio.
Desde ya gracias por los aportes.
- Código:
;Comando que convierte polilineas 3d en polilineas livianas tomando como altura un promedio
;de las elevaciones de los vertices de la 3dpoly
(defun c:p3d->p2d ( / ss i poly3d vertice lent pt xy z lstz lstpt elev lentlw tmp semilst)
(setq ss (ssget '((0 . "POLYLINE")))
i 0)
(repeat (sslength ss)
(setq poly3d (ssname ss i)
i (1+ i)
vertice poly3d
lstz nil
lstpt nil
)
(while (= "VERTEX"
(cdr (assoc 0
(setq vertice (entnext vertice)
lent (entget vertice))
))
)
(setq pt (cdr (assoc 10 lent))
xy (list (car pt)(cadr pt))
z (last pt)
lstz (cons z lstz)
lstpt (cons xy lstpt)
)
)
(setq elev (/ (apply '+ lstz) (length lstz)))
(setq lstpt (reverse lstpt))
(setq lent (entget poly3d))
(setq semilst nil)
(setq lentlw (append
(list
'(0 . "LWPOLYLINE")
'(100 . "AcDbEntity")
'(410 . "Model")
(assoc 8 lent)
(cons 38 elev)
(cons 62 (if (setq tmp (assoc 62 lent)) tmp (atoi (getvar "CECOLOR"))))
(cons 6 (if (setq tmp (assoc 6 lent)) tmp (getvar "CELTYPE")))
(cons 48 (if (setq tmp (assoc 48 lent)) tmp (getvar "CELTSCALE")))
'(100 . "AcDbPolyline")
(cons 90 (length lstpt))
(cons 70 (logand 129 (cdr (assoc 70 lent))))
'(43 . 0.0)
)
(foreach caso lstpt
(setq semilst (append semilst (list (cons 10 caso) '(42 . 0)))))
(list (assoc 210 lent))
)
)
(if (entmake lentlw)
(entdel poly3d)
)
)
)
(defun c:p3p2 nil (c:p3d->p2d))
(princ "\n\n\n\n\t\t\tNuevo comando cargado: \"p3d->p2d\" o \"p3p2\"\n\n\n\n\n\n\t\t\tPor Gerardo Calvo (gerardogqa@yahoo.es)\n\n\n\n\n")
(textscr)
Luis Alberto Benitez- Mensajes : 112
Fecha de inscripción : 29/03/2016
Re: Polilinea 3D a Polilinea
Si de seas que siga con las misma Z cada punto no veo porque la necesidad de convertir en polilinea, pues una polilinea es un elemento que se desarrolla en un plano, por lo tanto la Z es constante.
ronaldT- Mensajes : 54
Fecha de inscripción : 20/03/2016
Re: Polilinea 3D a Polilinea
Ronald
Gracias por interiorizarte por el tema,
necesito que al aplicar propiedades me
tome como polilinea y no como polilinea 3d.
Un Saludo
Luis
Gracias por interiorizarte por el tema,
necesito que al aplicar propiedades me
tome como polilinea y no como polilinea 3d.
Un Saludo
Luis
Luis Alberto Benitez- Mensajes : 112
Fecha de inscripción : 29/03/2016
Re: Polilinea 3D a Polilinea
Y con Flatten no se puede hacer? solo pregunto
Saludos
Bernardo Corradine M
Saludos
Bernardo Corradine M
bernie67- Mensajes : 98
Fecha de inscripción : 22/03/2016
Edad : 56
Localización : Bogota DC-Colombia
Re: Polilinea 3D a Polilinea
Bernardo: Gracias por el aporte pero aplicando Flatten
la coordenada z queda en 0.0 y lo que quiero es que se mantenga
la z con polilinea para luego aplicar un lisp (qp1) ver en Perfil de Terreno.
Un Saludo
Luis
la coordenada z queda en 0.0 y lo que quiero es que se mantenga
la z con polilinea para luego aplicar un lisp (qp1) ver en Perfil de Terreno.
Un Saludo
Luis
Luis Alberto Benitez- Mensajes : 112
Fecha de inscripción : 29/03/2016
Re: Polilinea 3D a Polilinea
Creo que no te has explicado todo lo bien que quisiéramos, para poder darte una respuesta adecuada.
Una 3DPOLY puede tener todos los puntos a la misma Z o cada punto a una Z diferente.
De qué caso se trata???
Son 3DPOLY que representan curvas de nivel??? Si es así, qué problema tienes en que haga la media de todas las Z, si todas las Z son iguales????
Una 3DPOLY puede tener todos los puntos a la misma Z o cada punto a una Z diferente.
De qué caso se trata???
Son 3DPOLY que representan curvas de nivel??? Si es así, qué problema tienes en que haga la media de todas las Z, si todas las Z son iguales????
Re: Polilinea 3D a Polilinea
Robierzo gracias por contestar,aclaro que cada curva de nivel
debe tener la misma z o sea que cada cueva deberá ser
una polilinea para aplicar el lisp (qp1) ver en tema Perfil de Terreno.
Un saludo
Luis
debe tener la misma z o sea que cada cueva deberá ser
una polilinea para aplicar el lisp (qp1) ver en tema Perfil de Terreno.
Un saludo
Luis
Luis Alberto Benitez- Mensajes : 112
Fecha de inscripción : 29/03/2016
Re: Polilinea 3D a Polilinea
Hola
No se si ha quedado suficientemente claro, las polilineas livianas LWPOLYLINE no pueden tener mas que una elevación constante, es decir una z en todos y cada uno de sus puntos.
Por eso, creo que lo que pides es imposible
Un saludo
No se si ha quedado suficientemente claro, las polilineas livianas LWPOLYLINE no pueden tener mas que una elevación constante, es decir una z en todos y cada uno de sus puntos.
Por eso, creo que lo que pides es imposible
Un saludo
nolo- Mensajes : 182
Fecha de inscripción : 17/03/2016
Re: Polilinea 3D a Polilinea
No creo que se imposible . Quizás no nos estamos entendiendo , o yo al menos no entiendo el problema.
¿Serías tan amable de compartir un dwg ejemplo?
¿Serías tan amable de compartir un dwg ejemplo?
Re: Polilinea 3D a Polilinea
Maestro gracias por reflotar el tema, pero ya entendí del tema
es lo que dice Nolo de las polilineas livianas LWPOLYLINE.
Gracias a todos por los continuos Aportes para con este Foro.
Un Saludo
Luis
es lo que dice Nolo de las polilineas livianas LWPOLYLINE.
Gracias a todos por los continuos Aportes para con este Foro.
Un Saludo
Luis
Luis Alberto Benitez- Mensajes : 112
Fecha de inscripción : 29/03/2016
Temas similares
» Longitud de Polilinea
» Acotar Polilínea
» Texto a Polilínea o curvas o lo que sea.
» Polilínea cóncava o convexa?
» Dibujar polilinea 3d en 3dfaces
» Acotar Polilínea
» Texto a Polilínea o curvas o lo que sea.
» Polilínea cóncava o convexa?
» Dibujar polilinea 3d en 3dfaces
Página 1 de 1.
Permisos de este foro:
No puedes responder a temas en este foro.
|
|