Delete Text in AutoCAD from Excel with vba (Borrar Texto en autocad desde excel con vba)

dibujoelectricopesapack — Wed, 22 Feb 2023 23:37:12 GMT

buenas tardes, me gustaría que me ayudaran con el siguiente problema, no tengo mucho conocimiento en programación pero reutilice un código para insertar texto de una columna de Excel en unas coordenadas especificas en AutoCAD, el problema surge cuando quiero borrar el texto debido a que si vuelvo a ejecutar la macro el nuevo texto se escribe sobre el que ya se había agregado, como puedo borrar el texto de AutoCAD desde Excel?

Este es el código que utilice para insertar el texto.

good afternoon, I would like you to help me with the following problem, I do not have much knowledge in programming but reuse a code to insert text from an Excel column in specific coordinates in AutoCAD, the problem arises when I want to delete the text because if I run the macro again the new text is written on the one that had already been added, how can I delete AutoCAD text from Excel?

This is the code you use to insert the text.

Sub SALIDAS() Dim content(0 To 15) Dim insertionPnt(0 To 2) As Double Dim db1width, db1heigth As Double Dim strText As String Dim objEnt As AcadMText content(0) = Hoja1.Cells(2, 1) content(1) = Hoja1.Cells(3, 1) content(2) = Hoja1.Cells(4, 1) content(3) = Hoja1.Cells(5, 1) content(4) = Hoja1.Cells(6, 1) content(5) = Hoja1.Cells(7, 1) content(6) = Hoja1.Cells(8, 1) content(7) = Hoja1.Cells(9, 1) content(8) = Hoja1.Cells(10, 1) content(9) = Hoja1.Cells(11, 1) content(10) = Hoja1.Cells(12, 1) content(11) = Hoja1.Cells(13, 1) content(12) = Hoja1.Cells(14, 1) content(13) = Hoja1.Cells(15, 1) content(14) = Hoja1.Cells(16, 1) content(15) = Hoja1.Cells(17, 1) insertionPnt(0) = 152.7675 'PUNTO DE INSERCION insertionPnt(1) = 312.6827 insertionPnt(2) = 0 db1heigth = 3.175 For i = 0 To 15 insertionPnt(1) = insertionPnt(1) - 14.8387 'ESPACIO ENTRE LINEAS strText = content(i) Set objEnt = AutoCAD.Application.ActiveDocument.ModelSpace.AddMText(insertionPnt, db1width, strText) objEnt.Height = db1heigth objEnt.Update Next End Sub

--Moderator edit: Put code into code window. Please use the </> button and select Visual Basic for the format. Translated to English. Por favor, use https://www.bing.com/translator/ para traducir al Ingles.

Re: Delete Text in AutoCAD from Excel with vba (Borrar Texto en autocad desde excel con vba)

Ed__Jobe — Wed, 22 Feb 2023 23:47:06 GMT

Por favor, use https://www.bing.com/translator/ para traducir Ingles al Espanol.

You would need to select text that has the insertion points you used for the original text. You can select them using the SelectionSet.SelectAll method and supply a filter that looks for text and an insertion point. For a sub that finds text, search this forum for "GetSS_TextFilter". Then you can iterate the selectionset, examining each entity's InsertionPoint property. If it's the right one, then use the entity's Delete method.

Re: Delete Text in AutoCAD from Excel with vba (Borrar Texto en autocad desde excel con vba)

dibujoelectricopesapack — Tue, 28 Feb 2023 20:33:44 GMT

Muchas gracias, introduje el texto en una capa y luego utilice un filtro para seleccionar el texto que se creo en esa capa y así poder borrarlo.

tema Re: Delete Text in AutoCAD from Excel with vba (Borrar Texto en autocad desde excel con vba) en AutoCAD - Todos los productos - Foro en Español

Delete Text in AutoCAD from Excel with vba (Borrar Texto en autocad desde excel con vba)

Re: Delete Text in AutoCAD from Excel with vba (Borrar Texto en autocad desde excel con vba)

Re: Delete Text in AutoCAD from Excel with vba (Borrar Texto en autocad desde excel con vba)