Dejó de funcionar VBA excel con AutoCAD.

Guio, Carlos 0 Puntos de reputación
2025-09-11T22:44:57.1933333+00:00

La siguiente rutina dejó de funcionar. Al parecer VBA excel no logra conectar con AutoCAD.  Supongo que es en las líneas comentadas. 

Set acadApp = GetObject(, "AutoCAD.Application") Set acadDoc = acadApp.ActiveDocument

VBA excel para en la parte:      With acadDoc.Utility

 

Y simplemente no anda más!!

 

Código que previamente funcionaba:

Public Sub Bloques_Excel§ACAD() 'Activar en VBA por la pestaña: Herramientas --> Referencias --> AutoCad 2021 Type Library Dim acadApp As AcadApplication Dim acadDoc As AcadDocument Dim objEnt As AcadEntity Dim objBRef As AcadBlockReference Dim strName As String Dim varInsertionPoint(0 To 2) As Double Dim Esc_X As Double Dim Esc_Y As Double Dim Esc_Z As Double Dim dblRotation As Double Dim contadora As Integer Dim QtyPipes As Double

MsgBox "Se debe tener cargado el Bloque de Nombre ·PIP_CARGA_PUNTUAL· en el archivo de AutoCAD abierto par generar los bloques"

On Error Resume Next Set acadApp = GetObject(, "AutoCAD.Application") Set acadDoc = acadApp.ActiveDocument On Error GoTo 0

QtyPipes = ActiveSheet.UsedRange.Rows.Count - 10

For j = 1 To QtyPipes With acadDoc.Utility strName = "PIP_CARGA_PUNTUAL" varInsertionPoint(0) = Cells(10 + j, 2).Value varInsertionPoint(1) = Cells(10 + j, 3).Value varInsertionPoint(2) = Cells(10 + j, 4).Value 'Estar atento de ajustar la escala Esc_X = 1000 Esc_Y = 1000 Esc_Z = 1000 dblRotation = 0 End With '' create the object On Error Resume Next acadDoc.ModelSpace.InsertBlock varInsertionPoint, strName, Esc_X, Esc_Y, Esc_Z, dblRotation If Err Then MsgBox "Unable to insert this block." Next

contadora = 1

For Each objEnt In acadDoc.ModelSpace If objEnt.ObjectName = "AcDbBlockReference" Then Set objBRef = objEnt varAttribs = objBRef.GetAttributes For i = 0 To 11 On Error Resume Next varAttribs(i).TextString = Cells(contadora + 10, i + 6).Value strAttribs = varAttribs(i).TextString Next contadora = contadora + 1 Else GoTo siguiente End If siguiente: Next MsgBox "funcionó?" End Sub

Microsoft 365 y Office | Excel | Para el negocio | Otros
0 comentarios

2 respuestas

Ordenar por: Menos reciente
Lo más útil Más reciente Menos reciente
  1. Ian-Ng 14,180 Puntos de reputación Personal externo de Microsoft Moderador
    2025-09-12T16:43:12.5866667+00:00

    Esta respuesta fue traducida automáticamente. Por lo tanto, puede contener errores gramaticales o expresiones extrañas.

    Hola @Guio, Carlos, ¡Buen día! Gracias por contactar al foro de Microsoft Q&A y compartir los detalles.

    Con respecto a tu pregunta, me gustaría precisar un poco más para poder proporcionarte los pasos exactos. ¿Podrías confirmarme lo siguiente?

    • ¿Cuál es la versión exacta de AutoCAD que tienes instalada (por ejemplo, AutoCAD 2021, AutoCAD 2024, AutoCAD LT 2025)?
    • ¿Cuál es la versión y arquitectura (bitness) de Excel que estás utilizando (por ejemplo, Microsoft 365 Excel de 64 bits, Excel 2019 de 32 bits)?
    • En el editor de VBA, bajo Herramientas > Referencias, ¿ves marcada la referencia “AutoCAD xx Type Library” o aparece como FALTANTE?
    • Cuando ejecutas la macro, ¿ya tienes un archivo DWG abierto en AutoCAD o AutoCAD se inicia sin ningún dibujo cargado?
    • Si desactivas “On Error Resume Next”, ¿cuál es el mensaje de error exacto y en qué línea aparece?

    Una vez que tenga estos detalles y tu actualización después de probar las acciones recomendadas arriba, por favor manténme informado. Espero tu respuesta.

    Nota: Por favor comprende que nuestra respuesta inicial no siempre resuelve el problema de inmediato. Sin embargo, con tu ayuda y más información detallada, podemos trabajar juntos para encontrar la solución adecuada.

    Gracias por tu paciencia y comprensión. Si tienes alguna pregunta, no dudes en contactarnos. Espero tu respuesta.

    Si la respuesta te resulta útil, por favor haz clic en "Aceptar respuesta" y amablemente dale un voto positivo. Si tienes preguntas adicionales sobre esta respuesta, haz clic en "Comentar".

    Nota: Por favor, sigue los pasos en nuestra documentación para habilitar las notificaciones por correo electrónico si deseas recibir notificaciones relacionadas con este hilo.

    ¿Le resultó útil esta respuesta?

  2. Ian-Ng 14,180 Puntos de reputación Personal externo de Microsoft Moderador
    2025-09-17T21:21:26.9733333+00:00

    Esta respuesta fue traducida automáticamente. Por lo tanto, puede contener errores gramaticales o expresiones extrañas.

    Hola @Guio, Carlos,

    Espero que estés teniendo un excelente día.

    Ha sido realmente un placer trabajar contigo en este hilo. Entiendo que podrías tener otros asuntos importantes que atender y que este no sea el momento más conveniente. Si aún estás teniendo problemas o te has encontrado con nuevos desafíos, por favor dime en qué pasos estás atascado y estaré encantado de ayudarte cuando lo necesites. Si tienes más preguntas, no dudes en etiquetarme en tu respuesta para que pueda asistirte directamente.

    Quedo atento a tu actualización.

    Si la respuesta te resulta útil, por favor haz clic en "Aceptar respuesta" y amablemente dale un voto positivo. Si tienes preguntas adicionales sobre esta respuesta, haz clic en "Comentar".

    Nota: Por favor, sigue los pasos en nuestra documentación para habilitar las notificaciones por correo electrónico si deseas recibir notificaciones relacionadas con este hilo.

    ¿Le resultó útil esta respuesta?

    0 comentarios

Su respuesta

Las respuestas pueden ser marcadas como Respuestas aceptadas por el autor de la pregunta, lo que indica a los usuarios que la respuesta resolvió su problema.