topic Re: Edit dwg Properties in VBA Forum

Edit dwg Properties

Anonymous — Sat, 10 Feb 2007 17:32:44 GMT

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

Re: Edit dwg Properties

Anonymous — Sun, 11 Feb 2007 08:50:24 GMT

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

Re: Edit dwg Properties

Anonymous — Sun, 11 Feb 2007 13:08:15 GMT

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'~

Re: Edit dwg Properties

Anonymous — Sun, 11 Feb 2007 15:49:32 GMT

works great, thanks

Re: Edit dwg Properties

Anonymous — Sun, 11 Feb 2007 17:27:29 GMT

Glad if that helps

Cheers 🙂

~'J'~

Re: Edit dwg Properties

Anonymous — Mon, 12 Feb 2007 22:51:06 GMT

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

Re: Edit dwg Properties

Anonymous — Mon, 12 Feb 2007 23:01:45 GMT

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

Re: Edit dwg Properties

meck — Wed, 08 May 2013 17:22:56 GMT

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!

Re: Edit dwg Properties

meck — Wed, 08 May 2013 18:11:09 GMT

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")

Re: Edit dwg Properties

meck — Mon, 13 May 2013 18:48:40 GMT

No help?

Anyone?

Re: Edit dwg Properties

Anonymous — Thu, 15 Feb 2018 12:01:09 GMT

Can this be done with Microsoft access?

Re: Edit dwg Properties

Ed__Jobe — Thu, 15 Feb 2018 18:11:04 GMT

@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.

Re: Edit dwg Properties

Anonymous — Thu, 15 Feb 2018 18:15:38 GMT

Done... Can you suggest code?

Re: Edit dwg Properties

Ed__Jobe — Thu, 15 Feb 2018 18:43:23 GMT

^^ Look above.

Re: Edit dwg Properties

Anonymous — Thu, 15 Feb 2018 18:44:31 GMT

AcadApplication does not work with the 22.0 library.

Re: Edit dwg Properties

Ed__Jobe — Thu, 15 Feb 2018 18:47:54 GMT

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

Re: Edit dwg Properties

Anonymous — Thu, 15 Feb 2018 18:48:45 GMT

Working on it now. Thanks for your help!

Re: Edit dwg Properties

Anonymous — Thu, 15 Feb 2018 18:55:30 GMT

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

Re: Edit dwg Properties

Ed__Jobe — Thu, 15 Feb 2018 19:15:09 GMT

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.

Re: Edit dwg Properties

Anonymous — Thu, 15 Feb 2018 19:16:21 GMT

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