Topic: properties summary

[Humbertogo]

Is there a way to add  properties without running AutoCAD VB6.?

properties summary
title:
subject:
author:

category:

[Jim Yadon]

Go to the File menu and select Drawing Properties.



Does that help or were you looking for a way to access it with another programming language?

[Humbertogo]

i mean from vb


I want to get/set File Summary Information related to files, e.g., Title, Subject, Comments etc. We can set these properties by right clicking on a file, taking its properties and going to summary section.
I have already tried System.Diagnostics.FileVersionInfo.GetVersionInfo which has several methods and properties to do so but it did'nt work out.

Does any one have any idea how to do this?

[Jürg Menzi]

Look at this to get some ideas (needs a reference to 'AutoCAD/ObjectDBX Common 16.0 Type Library'):

Code: [Select]

Sub testdbx()

    Dim oAca As Object
    Dim oDbx As AxDbDocument
    Dim oSin As AcadSummaryInfo
   
    Set oAca = GetObject(, "AutoCAD.Application.16.1") 'AutoCAD 2005
    Set oDbx = oAca.GetInterfaceObject("ObjectDBX.AxDbDocument.16") 'ObjectDBX 2004-2006
   
    oDbx.Open "C:\Temp\Test.dwg"
    Set oSin = oDbx.SummaryInfo
   
    With oSin
        Debug.Print .Author, .Title, .Subject 'etc.
    End With
   
    Set oSin = Nothing
    Set oDbx = Nothing
    Set oAca = Nothing

End Sub


[Humbertogo]

thank again
Jürg 

[Humbertogo]

one more question how can i change the SaveAsType to  ac2000_dwg in your sub testdbx

[Jürg Menzi]

I'm sorry to say that - it's not supported (ObjectDBX has some limitations/bugs)...

[Humbertogo]

Thanks any way