tema Re: Eliminar curvas de nivel en Civil 3D - Foro en Español

Eliminar curvas de nivel

proyectista.civil — Sat, 09 Jan 2021 20:07:06 GMT

Hola a todos, tengo una topografia con curvas de nivel (polilineas) y necesito filtrar ya sea eleiminando curvas que no me sirven y/o seleccionando las que me sirven.

El archivo vienen con curvas cada 0,5m y necesito solo curvas cada 5,m. El archivo pesa 2GB y no me sirve crear una superficie para luego mostrar cada 5,0m y exportar. Existe alguna opcion o rutina que me permita por ejemplo seleccionar todas las curvas *.5m para eliminarlas? o seleccionar curvas 5-10-15...??

Saludos a todos

Re: Eliminar curvas de nivel

davilavanegas — Sat, 09 Jan 2021 21:13:48 GMT

Hola @proyectista.civil puedes realizar varios procedimientos para eso:

Opción No.1 Usar Dynamo.

Seleccionar las polylineas obtener su elevación y calcula el residuo (modulus o nodo &) entre 5, si el resultado es cero se mantiene caso contrario se borra. Adjunto un Script que borra las curvas que no cumplen el criterio.

Recomiedo copiar las curvas en un archio nuevo, debido al tamaño es probale que tarde un poco en ejecutarse.

Opción No.2 Usar programació no visual en este caso Autolisp.

Igual q el anterior seleccionar todo y filtar de acuerdo a la elevación.

Opción No.3 Asignar Property Set a los objetos

Crear un Pset para los objetos, agregar en Handel y la propiedad elevacion.

Convertir a un formato GIS y luego gestionar desde MAP3D o cualquier programa GIS.

Slds,

Re: Eliminar curvas de nivel

proyectista.civil — Sat, 09 Jan 2021 21:51:44 GMT

Saludos

Re: Eliminar curvas de nivel

proyectista.civil — Sat, 09 Jan 2021 21:49:38 GMT

Gracias amigo por tu respuesta, se nota que sabes mucho, lamentablemente yo no se de programación de Dynamo y las otras cosas que mencionas, solo soy usuario de Civil 3D.

Saludos

Re: Eliminar curvas de nivel

davilavanegas — Sun, 10 Jan 2021 00:50:16 GMT

Hola @proyectista.civil,

No hay problema.

Carga este Lisp y ejecuta el comando "SelectCurvaN" luego seleccionar las curvas de nivel, te solicitará el intervalo de las curvas, ingresa el valor y presiona enter.

Devolvera un conjunto de seleccion con las curvas que cumplan el criterio. Ya con esto puedes copiar, cambiar de capa, etc.

Tambien @calderg1000 debe tener un lisp super genial para esto.

Slds,

Re: Eliminar curvas de nivel

calderg1000 — Sun, 10 Jan 2021 13:36:13 GMT

Estimado @proyectista.civil

Algunas cosas no se pueden hacer directamente con C3D, entonces debemos recurrir a hacerlo de forma manual o de lo contrario cuando tenemos un gran volumen de tarea es mejor automatizar los procedimientos utilizando programación; ya sea con Autolisp, Vlisp, Vla o Dinamo para ello es bueno conocer algo de programación y aunque no necesariamente al nivel del compañero @davila.vanegas que es especialista en programación aplicado al C3D.

Aunque no conozcas de programación pero creo que si puedes aplicar una rutina de forma muy sencilla. En este caso te voy a compartir la siguiente rutina Auto Lisp que he realizado que elimina las curvas de nivel con valor de elevación diferente a multiplos de 5, tiene la opción para que sea aplicada a todo el dibujo o solo a una parte mediante una selección. Espero se ajuste a lo que requieres y te sea de ayuda.

Adjunto la rutina en código fuente, creada de forma rápida y mínimamente probada, para que pueda ser editada y adaptada a sus requerimientos personales.

Cualquier consulta sobre el funcionamiento de la rutina con mucho gusto, estaremos pendiente a tu replica

Saludos.

Re: Eliminar curvas de nivel

calderg1000 — Sun, 10 Jan 2021 13:42:08 GMT

Estimado @proyectista.civil

Aqui adjunto la rutina.

Saludos.

;;;Routine Autolisp For Calderg1000, V01:10-01-21, para dar respuesta en el foro de la comunidad Autodesk en Español ;;;Selecciona todas las polilineas con valor de elevacion multiplo de 5 y las elimina. ;;;-------------------------------------------Del_Curv----------------------------------------------------------------- (defun c:Del_Curv (/ op) (setvar 'Dynmode 1) (setvar "OSMODE" (logior (getvar "osmode") 16384)) (initget "A S") (setq Op(cond((getkword"\nEliminar Curvas de Nivel, todAs/Seleccion: [A/S] <A>:")) ("A"))) (if (= Op "A") (selT) (selS) ) ) (defun selT(/ s i elist ename cota) ;;;(progn (setq s (ssget "all" '((0 . "*line")))) (repeat (setq i (sslength s)) (setq elist (entget (setq ename (ssname s (setq i (1- i)))))) (setq cota (cdr (assoc 38 elist))) (if (not (zerop (rem (abs cota) 5))) (vl-cmdf "erase" ename "") ) ) ) ;;;) ;;;(if (= Op S) (Defun selS(/ s i elist ename cota) ;;;(progn (setq s (ssget '((0 . "*line")))) (repeat (setq i (sslength s)) (setq elist (entget (setq ename (ssname s (setq i (1- i)))))) (setq cota (cdr (assoc 38 elist))) (if (not (zerop (rem (abs cota) 5))) (vl-cmdf "erase" ename "") ) ) )

Re: Eliminar curvas de nivel

proyectista.civil — Sun, 10 Jan 2021 16:19:31 GMT

Muchas gracias por compartir sus conocimientos.

Saludos

Re: Eliminar curvas de nivel

proyectista.civil — Sun, 10 Jan 2021 16:20:12 GMT

Muchas gracias por compartir sus conocimientos, la rutina funciono perfect.

Saludos