Edit dwg Properties

[Anonymous]

Is it possible to edit the properties of a dwg file that isn't open in AutoCAD via VB/VBA/VL? I want to add summary information to the comments text box without opening the files.

Thanks

[Anonymous]

ObjectDBX ?

--
http://www.caddzone.com

AcadXTabs: MDI Document Tabs for AutoCAD 2004/2005/2006/2007
http://www.acadxtabs.com

wrote in message news:5482448@discussion.autodesk.com...
Is it possible to edit the properties of a dwg file that isn't open in AutoCAD via VB/VBA/VL? I want to add summary information to the comments text box without opening the files.

Thanks

[Anonymous]

Agreed,
Is this code correct?

Option Explicit
' request reference to your current version of
' AutoCAD/ObjectDBX Common XX.0 Type Library
Sub AddSumInfoDBX()

On Error GoTo Err_Control
Dim fn As String
Dim oDBX As AxDbDocument

fn = "C:\temp.dwg"

Set oDBX = New AxDbDocument
Dim sInfo As Object

Set oDBX = Application.GetInterfaceObject("ObjectDBX.AxDbDocument.16") '<--17 for higher then A2005

' Add custom info
Set sInfo = oDBX.SummaryInfo
sInfo.Title = "Title"
sInfo.Author = "Me"
sInfo.Comments = "No comments, sir"
sInfo.Keywords = "Keywords"
sInfo.RevisionNumber = Format(Now, "dd/mm/yyyy")
sInfo.LastSavedBy = "Me"
sInfo.Subject = "Subject"

' Add custom properties (and remove prior one)

Dim cusKeys As Variant
Dim cusPropArr As Variant
Dim cusValArr As Variant
Dim i As Integer
Dim keyName1, keyName2, keyName3, keyName4

cusKeys = Array(keyName1, keyName2, keyName3, keyName4)
cusPropArr = Array("First Property", "Second Property", "Third Property", "Fourth Property")
cusValArr = Array("First Property Value", "Second Property Value", "Third Property Value", "Fourth Property Value")

For i = 0 To UBound(cusKeys)
sInfo.AddCustomInfo cusPropArr(i), cusValArr(i)
Next


oDBX.SaveAs fn
Set oDBX = Nothing

Err_Control:

MsgBox "Error Number: " & Err.Number & vbNewLine & _
"Error: " & vbNewLine & Err.Description

End Sub

~'J'~

[Anonymous]

works great, thanks

[Anonymous]

Glad if that helps

Cheers 🙂

~'J'~

[Anonymous]

Ok this works to put in the author info, but drawing is set to a new drawing. I need it to edit an existing drawing, Any ideas? Thanks for the help.

Option Explicit
' request reference to your current version of
' AutoCAD/ObjectDBX Common XX.0 Type Library
Sub AddSumInfoDBX()
Dim fn As String
Dim oDBX As AxDbDocument
fn = "C:\temp.dwg"
Dim sInfo As Object
Set oDBX = Application.GetInterfaceObject("ObjectDBX.AxDbDocument.17")
Set sInfo = oDBX.SummaryInfo
sInfo.Author = "Me"
oDBX.SaveAs fn
Set oDBX = Nothing
End Sub

[Anonymous]

wrote in message news:5484240@discussion.autodesk.com...
Ok this works to put in the author info, but drawing is set to a new
drawing. I need it to edit an existing drawing, Any ideas? Thanks for the
help.

Option Explicit
' request reference to your current version of
' AutoCAD/ObjectDBX Common XX.0 Type Library
Sub AddSumInfoDBX()
Dim fn As String
Dim oDBX As AxDbDocument

fn = FilenameToOpen '<----------

Dim sInfo As Object
Set oDBX = Application.GetInterfaceObject("ObjectDBX.AxDbDocument.17")

'trap for errors of course...
oDbx.Open fn '<----------

Set sInfo = oDBX.SummaryInfo
sInfo.Author = "Me"
oDBX.SaveAs fn
Set oDBX = Nothing
End Sub

hth
Mark

[meck]

Hi everyone,

I've been programming Inventor for 8 years now so programming AutoCAD is rather new to me. We are implementing Vault Pro and we have a huge amount of legacy drawing in AutoCAD that need to go into the vault. So I am trying to set the properties of these drawings using VB6. I have used the code provided here in this thread, but I am getting an error that says "Problem in loading application" on this line...

Set oDBX = oAcadApp.GetInterfaceObject("ObjectDBX.AxDbDocument.17")

I have referenced the AutoCAD Type Library 2013 and the AutoCAD/ObjectDBX Common 19.0 Type Library (which for some reason I have 2 in my reference list and I've tried both).

Any help here would be greatly appreciated! 

[meck]

I tried changing the ObjectDBX.AxDbDocument.17 to ObjectDBX.AxDbDocument.19 and now I get a Type Mismatch error.

BTW will I be able to edit the property values?

This is my code...

Dim oAcadApp As AcadApplication          'The AutoCAD application object
Set oAcadApp = GetObject(, "AutoCAD.Application")

Dim oDBX As AxDbDocument
Set oDBX = oAcadApp.GetInterfaceObject("ObjectDBX.AxDbDocument.19")

[meck]

No help?

Anyone?

[Anonymous]

Can this be done with Microsoft access?

[Ed__Jobe]

---

@Anonymous wrote:
Can this be done with Microsoft access?

---

Yes, but acad needs to be installed on the pc in order for the class to be registered, and your project needs to reference AutoCAD/ObjectDBX Common ##.# Type Library.

[Anonymous]

Done...  Can you suggest code?

[Ed__Jobe]

^^ Look above.

[Anonymous]

AcadApplication does not work with the 22.0 library.

[Ed__Jobe]

Look at Marks' reply in post 7. You don't need to use AcadApplication. You use the odbx app instead.

[Anonymous]

Working on it now.  Thanks for your help!

[Anonymous]

Ugh...  GetInterfaceObject doesn't work either...

[Ed__Jobe]

Did you substitute 22 for 19? Is 22 the version you have installed? What version of acad are you running? You can check the registry in the Classes section.

[Anonymous]

The object library is 22.0.  We are running Civil 3d 2018.