text in an Autocad drawing

Hello,

I am writing a VB program to extract all the text from an Autocad drawing to
put it in an excel spreadsheet.
Could anybody tell me
- what all the different places in theobject model are where one can find
text
- If there is an eays way to go through all hte objects in a drwaing, and if
there are any watchouts.
- If there are any code samples anywhere?

thanks,
Olivier

 

HiHo;
Using a filter, (ssget "x" ((0 . "TEXT")))
will create a selection set of all text.
Step trough the selection set and extract all text entities
and print to a *.txt file with a comma delimiter.
Check out at www.cadalyst.com "get the code"
for June 97 tip 1336 or Aug 01 tip 1730.
Happy holidays.

 

VB ... ?
___

 

I am not sure what your message meant.
If it means you do not know what VB stands for, it means Visual Basic.
If it means you are surprised that I would use VB then, I would ask you why?


Olivier

 

Do you have any idea how to do this in VB or VBA ?

thnaks,

Olivier

 

Do you have any idea how to do this in VB or VBA ?

thnaks,

Olivier

 

My reply was to "bestafor," not to you. I was questioning "bestafor's"
advice for solving your problem. You asked for a VB solution, and he offered
you a LISP solution. Yes, I do know what VB stands for, but apparently
"bestafor" missed that part of your request.
___

 

Here are 2 functions to get you started. I've created a selection set of ALL
text and Mtext in the drawing and placed the textstrings into an array that
can be fed to Excel. See the sample excel link file in the Acad/Sample/VBA
directory for help on that portion of the code.

Option Explicit
Private Function GetText() As Variant

Dim aCod(0) As Integer, aVal(0) As Variant
Dim oSet As AcadSelectionSet
Dim iTmp As Integer
Dim eEnt As AcadEntity
Dim iCnt As Integer

aCod(0) = 0: aVal(0) = "TEXT,MTEXT"
Set oSet = SelSetInit("ssText")
oSet.Select acSelectionSetAll, , , aCod, aVal
iCnt = oSet.Count
If iCnt > 0 Then
ReDim vRet(1 To iCnt + 1) As String 'one added for header row
vRet(1) = "Text Value"

For iTmp = 0 To oSet.Count - 1
Set eEnt = oSet.Item(iTmp)
vRet(iTmp + 2) = eEnt.TextString
Next
Else
MsgBox "No Text found!"
End If

Set eEnt = Nothing: Set oSet = Nothing
GetText = vRet
End Function

Private Function SelSetInit(sName As String) As AcadSelectionSet
Dim oRetVal As AcadSelectionSet
On Error GoTo DeleteAndAdd
Set oRetVal = ThisDrawing.SelectionSets.Add(sName)
Set SelSetInit = oRetVal
Exit Function
DeleteAndAdd:
ThisDrawing.SelectionSets.Item(sName).Delete
Set oRetVal = ThisDrawing.SelectionSets.Add(sName)
Set SelSetInit = oRetVal
End Function

HTH,
Jeff

 

Jeff,

thanks, this works great.
Is there any text in an Autocad drawing besides Text and Mtext?

thanks,

Olivier

 

One possibility: RText (Express Tools).
___

 

Oh ... and Attributes.
___

 

And dimensions.....

Jeff

 

Is there an easy way to modify the procedure you sent me to accomodat for
attributes and dimensions?
is it just a matter of changing the follwoing lien:

aCod(0) = 0: aVal(0) = "TEXT,MTEXT"


Thanks,

Olivier