Export of Single Line Text from Multiple Drawings to Excel

[AbdulBasit1473]

How to Export of Single Line Text from Multiple Drawings to Excel

[jayhar]

Hi,

https://www.cadforum.cz/cadforum_en/how-to-export-autocad-drawing-texts-to-excel-tip8559

Please Mark the Post or Posts as Solution(s) to help others find the answer quickly. If your issue persists,

Please give me a bit more detail on this issue so we can continue to work towards getting this solved.

Thanks You
Jayhar.M.J

Helpful Links: Prepare your computer for download |  Autodesk Virtual Agent | Clean Uninstall | Steps for Setting-Up Student Software

[AbdulBasit1473]

Hi

Already tested. It works only by Selection of Text manully  not for Multiple Drawings to extract single line text

[AbdulBasit1473]

Text is available on Each File on Right Upper Corner 

[jayhar]

Hi,

you can Add Multi drawing in DATAEXTRACTION

[AbdulBasit1473]

DataExtraction gives out put in Single Column of Excel....

[AbdulBasit1473]

See the Sample Files 

[Erense]

Best way do do so:

Change the 'partslist' into a block with attributes.

Use these blocks and attributes to create your data-extraction.
Because there are different Tags you can seperate them in your extraction.

Hope this works for you.

[KLUG-TICIANO]

Hi.

I use this solution, in this case only to active doc.

You can look for open, work and close doc, after know a one path, by a doc opened.

Ticiano 

=======================================

[AbdulBasit1473]

I am unable to understand how to use SEND_TEXT-DEMO.zip

[KLUG-TICIANO]

Hi. 

Do you use vba code in other case?

1) Copy vba code (excel) "Sub Send_Text ()" to auto cad vba editor, after line 3;

2) For this example left doc "T-TAD........" as active doc. Use other to see, too ;

3) Clear "A and B" collumns;

4) Run the macro;

5) All texts are in "A and B" collums (excel doc - only simple.text). To mulit.text and attribute.text we have to use another vba code;

If you want replace some or all text of a one doc use macro "posted yestarday" (11-10-18) too, picking before all text in collumn "B". After, write new text in collumn "C", and run "Replace_text....." . Rewrite texts that will continue or delete line.

Ticiano ([email protected])

[AbdulBasit1473]

Example file missing in attachment

[KLUG-TICIANO]

Hi. 
Some people have problem  with attached file, them I send this.

1) Copy vba code "Sub Send_Text ()", in the end, to auto cad vba editor;
2) Use any autocad doc with simple text (active doc). Use others too ;
3) Open Excel and use a plan active with  "A and B" collumns clears;
4) Run the macro;
5) All texts will be send to  "A and B" collumn  (excel doc - only simple.text). To mulit.text and attribute.text we have to use other vba code;

In other problem (case), if you need replace some or all text of a one doc use macro "posted yestarday" (11-10-18) too, picking before all text in collumn "B". After, write new text in collumn "C", and run "Replace_text....." . Rewrite texts in collumn "C" that will continue or delete line. 
I want  know if now is ok.
Thank you.
Ticiano ([email protected])
================================================================================
VBA CODE:
Sub SendText()
'IN THIS CASE, ONLY SINGLETEXT AND ACTIVEDOC
'CLEAR COLUMM "A" AND "B" (EXCEL) AND RUN THE VBA
Dim obj As AcadObject
Dim ent As AcadEntity
Dim text As AcadText
'Dim blk As AcadBlock
DDOC = ThisDrawing.Name
DOC_PATH = ThisDrawing.Path
Set APPX = GetObject(, "Excel.Application")
tot_ent = ThisDrawing.ModelSpace.count
Lin = 1
For i2 = 0 To tot_ent - 1
TYPE_ENT = ThisDrawing.ModelSpace.Item(i2).ObjectName
If TYPE_ENT <> "AcDbText" Then GoTo 80
45 AUX04 = ThisDrawing.ModelSpace.Item(i2).handle
Set text = ThisDrawing.HandleToObject(AUX04)
APPX.Cells(Lin, 1).Value = Lin
APPX.Cells(Lin, 2).Value = text.TextString
Lin = Lin + 1
80 Next i2
1000 End Sub
===============================================================================

[AbdulBasit1473]

Hi Thanks ..

It is working for Whole drawing ... Can we limit it to certain area of the drawing to select the required text only.

[KLUG-TICIANO]

Hi.

This macro transfer singletexts selected by a windows in the drawing.

This selection may be a small or a big window.

Bye.

Ticiano ([email protected])