Change attributes in ObjectDBX

[BHAus]

Hi everyone,

 

I have made an excel sheet that generates new drawings based on a template. It can open and save the new drawing using objectDBX, but my code to change the attribute values and text will not work.

 

At this stage, I have turned off the dbx and am just using an open and save application, but it is slow.

 

Can anyone point me in the right direction as to the changes I need to make on the following:

 

For Each oEntity In oACAD.ActiveDocument.ModelSpace

If TypeOf oEntity Is AcadBlockReference Then

Set oBlockRef = oEntity

If oBlockRef.HasAttributes Then

For Each varAttribRef In oBlockRef.GetAttributes

Select Case varAttribRef.TextString

Case strFindval

varAttribRef.TextString = strFillval

End Select

Next varAttribRef

End If

End If

Next oEntity

 

Any help or directions towards an ObjectDBX information link would be much appreciated.

 

Brett

[SLW210]

Please read the Code posting guidelines and edit your post to include the Code in Code Tags.