Exporting Mtext from Autocad to Excel 1

Erica,

You will probably have code in hand by this afternoon if you go to the newsgroup

discussion.autodesk.com
then forum autodesk.autocad.customization.vba

or

msnews.microsoft.com
then forum microsoft.public.excel.programming

you don't want to select the text on the screen , you want to loop thru the thisdrawing objects find it all with code and output right to excel...with the push of one button
my vba in acad is a bit rusty..using ProE these days...but you'll get answers on those 2 newsgroupd real fast

Thank you so much. Got the answer.

Here is a link to an LISP routine that does it


(This Site Rocks!)

While there is nothing wrong with Lisp, my feeling is in the long run you will have more flexibility with VBA.

I realize there is the "Get the job done" factor. But if there is a need later to port other info to Excel with VBA you could add other routines based on Geometry type.

With VBA you will loop thru ThisDrawing.ModelSpace and do something based on what it finds..in your case text and or mtext..because I believe they are 2 different items in the drawing database

So if you set up the loop thru drawing as a selectcase function then it goes to a subroutine based on item type ; text,mtext later on if you have the need to extract info from a different item; you could build on your existing routine by just adding to the selectcase and another sub.

example...looping thru data base

For Each obj In ThisDrawing.ModelSpace
'Debug.Print q, obj.ObjectName
Select Case obj.ObjectName

Case "AcDbLine"
Set ln = ThisDrawing.HandleToObject(obj.Handle)
aline

Case "AcDb3dPolyline"
Set poly = ThisDrawing.HandleToObject(obj.Handle)
apoly

Case "AcDbArc"
Set ar = ThisDrawing.HandleToObject(obj.Handle)
arc

End Select

and another example opening excel with acad vba code to get text insertion points

Sub test()
Dim text As AcadText
Dim testpoint(1) As Double
Dim wkBook As Workbook
Dim wkSheet As Worksheet

On Error GoTo test_Error

testpoint(0) = 10
testpoint(1) = 10

Set wkBook = Workbooks.Open("C:\urXLFile.xls", True, False)
Set wkSheet = wkBook.Sheets("sheet1")

For Each text In ThisDrawing.ModelSpace
If text.InsertionPoint(0) = testpoint(0) And _
text.InsertionPoint(1) = testpoint(1) Then
wkSheet.Cells(1, 1) = text.TextString
wkSheet.Cells(1, 2) = "X: " & text.InsertionPoint(0)
wkSheet.Cells(1, 3) = "Y: " & text.InsertionPoint(1)
End If
Next text

wkBook.Close True
Set wkBook = Nothing
Set wkSheet = Nothing

test_Exit:

On Error GoTo 0
Exit Sub

test_Error:

Select Case Err.Number

Case 1004

Call MsgBox("XL file not found", vbExclamation,
Application.Name)

Resume test_Exit

Case Else: Resume test_Exit

End Select

End Sub

these are just some code snigglets... one would be able to set this up better to port to Excel..open the sheet in a sub wouldn't be the best of ways as it it open and close
but I think it gets the general idea across that VBA has it advantages over Lisp...the acad and excel forums from above can help in tweaking it in. There is also a VBA forum here
But the other 2 move at a bit faster pace. If you use Outlook config them as newsgroups

Hope this doesn't cause more confusion..since my Acad VBA is a little rusty.. the examples go back a ways

HTH....Bill