AutoCad - Convertir Polilinea 3D en Polilinea (con su altura

Hola!

Soy nuevo en este foro y totalmente novato en el mundo del diseño en Autocad...

La cuestion es que tengo en autocad un plano cartografico aereo del centro de una ciudad donde los edificios estan representados por polilineas 3d. Es decir, estan situados en el plado en una posicion X e Y determinada pero tambien su altura puede variar en Z a lo largo de la polilinea (imaginad por ejemplo que un edificio mide en 15 metros de alto en una parte de la polilinea y 15. 01 en otra parte).

Pues bien, necesito pasar esas Polilineas 3d a Polilineas a secas pero que guarden la altura que tenia la Polilinea 3d, es decir, que sean de tipo Polilinea pero que guarden en su atributo "Elevacion" la altura Z que anteriormente tenia la Polilinea 3d... No se si me explico...

Ya he leido por ahi que existe el comando FLATTEN que deja la componente Z=0 en las polilineas 3d, pero esto no me sirve por 2 motivos:

-Aunque tengan altura 0 en todo su Z, siguen siendo Polilineas 3d y yo necesito Polilineas a secas
-Necesito conservar la altura en el atributo elevacion y de esta forma solo me queda una polilinea 3d pegada al suelo pero la altura la pierdo.

Bueno, espero que alguien pueda iluminarme! Quizas hay alguna opcion magica en autocad que hace lo que estoy preguntando... Pero es que estoy muy perdido!

Saludos y gracias!

Hola

Eso se puede hacer mediante una rutina.
Yo podria facilitartela.

Tengo una pregunta. Si una polilinea en 3d tiene diversas elevaciones, como por ejemplo 15.0 en un punto y 15.01 en otro, cual es la elevacion que debe quedar para la polilinea liviana? Debes darme un criterio fijo como por ejemplo, la menor, la mayor, el promedio...

Hola Gerardo,

Ante todo muchas gracias por tu respuesta.

Creo que el mejor criterio fijo que podemos elegir sería el promedio ya que de esta forma el error cometido en cualquier punto estará minimizado.

Si puedes hacerlo te estaría super agradecido.

Estamos en contacto!

Un saludo y muchas gracias!

Bien, aqui hay un intento de rutina, que me parece que funciona bien, Tu tendras que probarla en tus dibujos a ver como va y ya me diras.

Como vez es dificil pasar rutinas por aqui porque no puedo adjuntarlo como archivo, entonces te copio el codigo. Solo debes copiarlo asi en un archivo con extension ".lsp" y cargarlo en el cad.

Por si acaso no supieras como cargar la rutina, se hace desde el comando _appload o simplemente arrastrando el icono del archivo .lsp sobre la pantalla grafica de autocad. Tambien te funciona si copias el texto que te adjunto textual en la linea de comandos del cad, pero seria tedioso hacer eso cada vez que quieras cargarla.

El nuevo comando que creamos se llama "p3d->p2d" y tambien puedes llamarlo con p3p2

El codigo de la rutina a continuacion:
*************************************************************************************


;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))
lstpt (reverse lstpt)
lent (entget poly3d)
semilst nil
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 ([email protected])\n\n\n\n\n")
(textscr)

Eso si que fue impresionante ya quisiera yo programar asi dime esto es autolisp ,me recomiendas algun libro.

Hola.

Eso es autolisp, una de las muchas formas que tiene el autocad para ser personalizado y de los varios lenguajes de programacion que se pueden usar sobre el.

En este mismo sitio web hay un manual que a mi me ayudo mucho a aprender. El de Jonathan Prestamo.
http://www.lawebdelprogramador.com/cursos/autocad/autocad_inicio.php

Otra fuente imprescindible es el propio archivo de ayuda de personalizacion del autocad. Para verlo puedes abrir el IDE de Visual Lisp (comando _vlide en autocad) y ahi le das F1

Suerte

Habia un error en la rutina, que me lo hizo notar el amigo Cesar Esparza. Disculpas por eso y aqui esta corregido.

EXCELENTE RUTINA MUCHISIMAS GRACIAS POR FACILITARNOS EL TRABAJO CON TUS CONOCIMIENTOS.

excelente amigo gracias por la ayuda
saludos

ERES UN MASTER ME AHORRASTE UN CH... DE TIEMPO PARA CIVIL CAD FELICITACIONES Y DIME DONDE TE PONGO 20 ESTRELLAS SALUDOS Y GRACIAS

Impresionante!!! gracias, ahora puedo continuar con mi proyecto de final de carrera