Usuar.:
Pass:
Recordar
Portal libre y gratuito sobre construcción. Cálculos on line, fotografías, definicion, proveedores, y más...
Logotipo de konstruir.com

POST: AUTOMEDICION AUTOCAD-EXCEL (VBA AUTOCAD)

Se trata de una aplicación realizada en VBA para Autocad


El funcionamiento básico consiste en que hace un rastreo de polilíneas (rectángulos, contornos o generadas con la orden POL) y traspasa automáticamente a una hoja de calculo Excel el valor de áreas o perímetros de las polilíneas encontradas ordenadas por capas. Con esta sencilla combinación podemos hacer mediciones automaticas de dibujos complejos o no tanto.

Las macros están probadas para la versión de Autocad 2008 y las versiones de Excel que aparecen a continuación

Versión para office 2003 medi_excel03.zip

Version para Office 2007 medi_excel07.zip

A continuación se muestra un video de como funciona la macro.

Fecha POST:
14-05-2012 19:35:29

KONSTRUIR
Puntos: 1007
Fecha: 11-04-2012
Pais: España

COMENTARIOS AL POST

Si quieres puedes hacer algun comentario a este post.

Nuevo comentario

Consigue 1 punto en tu cuenta de usuario

Nº 1
QUINTEROS_SB 23-12-2016 14:28:56
Cargue el macro y cuando lo hago correr, en la tabla de exel no mide las longitudes de la polilinea por favor alguien que me pueda ayudar
Nº 2
DAVID ALDAZORO 10-12-2016 14:11:43
amigo muy buen video y macro pero lo instale y no me carga en autocad 2015 de ahtemano muchas gracias y si me puede solucionar el problema le agradeceria desde carora venezuela
Nº 3
JUANPABLIOLY 21-05-2016 19:30:11
Se ve muy bien en el vídeo pero en la realidad y actualidad ( Autocad 2014 a 2016 y excel 2010-2013) No Funciona!!!
Nº 4
EFRAGALICIA 26-02-2016 21:36:56
Tengo autocad 2015 y excel 2010, desde el autocad si carga la macro medi_excel07 pero a la hora de exportar los datos a excel se queda en blanco ¿hay alguna actualización u otra manera de que lo reconozca en esta versión de excel? saludos desde Chiapas, México
Nº 5
ALONSO.AL 27-10-2015 19:52:41
Buenas tardes Krayton.
Lo he instalado con una versión de autocad 2015 y el office es de 2013. Lo que no me hace es cargar los datos en excel. ¿Qué hiciste para conseguirlo? He probado a guardar el excel en formato 2007, pero se queda "pillada" la herramienta.
Nº 6
LQUIMBAYO 20-10-2015 21:33:25
instale la aplicación en AutoCad 2015 y la Macro funciona pero no exporta el dato de la polilinea al excel , si me pueden colaborar agradecería muchísimo Gracias
Nº 7
KRAYTON 10-09-2015 18:03:09
Estimados, lo probé en Autocad 2016 y Excel 2013, funciono a la perfeccion. Saludos y Gracias
Nº 8
JIM357 06-04-2015 15:05:46
amigos exelente aporte, pero no entiendo porque solo para exel 2003 y 2007 tampoco sirve con el autocad 2014,deveriamos actualizarlos gracias....
Nº 9
RAMONGONZALEZ 12-01-2014 22:19:23
PORFAVOR,YO TENGO EL AUTOCAD 2013 Y EXCEL 201 CUANDO QUIERO UTILIZAR ESTA MACRO ME PASA LO MISMO NO `PUEDO,
PORFAVOR SI NO ES COMPATIBLE PORQUE NO CREAN OTRO PARA AUTOCAD 2012,2013,2014:SERIA MAS FAVORABLE PARA TODO GRACIAS
Nº 10
MARTINURIBE 25-11-2013 16:30:34
Buenos días : Descargue la macro medi_excel07, pero no lo admite aplicar en mi autocad, tengo la versión 2012 y el Excel 2010, alguna sugerencia para poder hacerlo funcionar ? , lo que veo en el video es maravilloso, y me ayudaría bastante a realizar con agilidad la cuantificación de elementos en mis presupuestos.

agradecería cualquier comentario para poderlo ejecutar.

De antemano muchas gracias por la realización de este macro, y facilitarlo al publico.

Quedo en espera de sus comentarios

Martin Uribe l. desde Guadalajara, Jalisco , méxico
Nº 11
ALHERMU 20-11-2013 04:38:09
esta aplicacion se usa con autocad 2014 y hay que instalarla dentro de autocad para que funcione? o solamente con realizar polilineas se activa?
favor explicarme
urgente
Nº 12
UNIBLOCK 05-06-2013 17:01:40
e instalado la aplicación pero no lee las polilineas
Nº 13
ALVAROJAVIER 14-12-2012 02:55:09
Que genial aporte! justo lo que iba buscando, sin embargo al ejecitar el macro me sale un error, en la linea "For Each objLayer In ThisDrawing.Layers", dando en objLayer = Nothing y en ThisDrawing.Layers = <>, a que se debe este error?
Muchas Gracias!!
Diseño y Programación Web
CREAWWW.COM