exploding everything in a drawing using VBA

[msstrang]

i am currently using a vba program that copies all the text from an autocad 2002 drawing and then places it into an excel spreadsheet. i used to use a lisp program to do this, but it mysteriously stopped working one day..

regardless, with the help of someone on this forum i got my vba to work, but i forgot that i need to explode everything 3 times before all the dimensions will be selected and copied to the excel spreadsheet as well, which is a crucial part of my process.

to do this with lisp i also had to set my qaflags to 0 or 1, i can't rememeber.

i guess my question is how do you explode everything in a drawing using vba, and how do you manipulate the qaflags in autocad with vba.

thanks.

 

[lucaso]

don't explode, you can read every dimension value and use it to export it, not only in vba, but in lisp too.

 

[msstrang]

eh?
how do i do that? all i know is how to read text from a drawing, how do i export or read dimensions with exploding them into text using VBA?

 

[TCARPENTER]

Hi msstrang,

Just off the top of my head:

Sub DimStrings()
  Dim Ent As AcadEntity
  Dim objDim As AcadDimension
  
  
  For Each Ent In ThisDrawing.ModelSpace
    If Ent.ObjectName = "AcDbRotatedDimension" Then
      Set objDim = Ent
      If objDim.TextOverride = vbNullString Then
        Debug.Print objDim.Measurement
      Else
        Debug.Print objDim.TextOverride
      End If
      
    End If
  Next Ent
  
End Sub

Of course you'll need to make it work for your routine, but hopefully this will point you in the right direction.

HTH
Todd

 

[lucaso]

the hard part is to get the ObjectName spelled exactly right with upper and lower cases. You can use the "immediate" window for that, the objectbrowser doesn't mention them.