Property reading

Hi,

I solved my problem with setting some properties in a drawing. Next thing is to read all the properties, from for example excel (drawings are all closed). I tried this, but it only works for MS Office files:

Private Sub Doc_Props()

Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object
Dim strFileName As String
Dim i As Integer
Dim DSO As DSOleFile.PropertyReader

Set DSO = New DSOleFile.PropertyReader
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder("C:\Test")
i = 1

For Each oFile In oFolder.Files
strFileName = oFile
With DSO.GetDocumentProperties(sfilename:=strFileName)
Blad1.Cells(i, 1).Value = .Author
'Debug.Print .AppName
'Debug.Print .ByteCount
'Debug.Print .Company
'Debug.Print .CustomProperties("Cust Prop").Value
End With
Next oFile

End Sub

As you can understand, I want to be able to do the same for Acad files. Does anyone know how?

Frank

 

The SummaryInfo property on the Drawing object (AutoCAD 2004/2005).

--
R. Robert Bell


Hi,

I solved my problem with setting some properties in a drawing. Next thing is
to read all the properties, from for example excel (drawings are all
closed). I tried this, but it only works for MS Office files:

Private Sub Doc_Props()

Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object
Dim strFileName As String
Dim i As Integer
Dim DSO As DSOleFile.PropertyReader

Set DSO = New DSOleFile.PropertyReader
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder("C:\Test")
i = 1

For Each oFile In oFolder.Files
strFileName = oFile
With DSO.GetDocumentProperties(sfilename:=strFileName)
Blad1.Cells(i, 1).Value = .Author
'Debug.Print .AppName
'Debug.Print .ByteCount
'Debug.Print .Company
'Debug.Print .CustomProperties("Cust Prop").Value
End With
Next oFile

End Sub

As you can understand, I want to be able to do the same for Acad files. Does
anyone know how?

Frank

 

Sorry I forgot to tell, I'm using 2000i.

So anyone that knows how it works for 2000i?

Thanks,
Frank

 

The data is stored in a dictionary prior to 2004. Search this ng for the
name (I'm lazy).

--
R. Robert Bell


Sorry I forgot to tell, I'm using 2000i.

So anyone that knows how it works for 2000i?

Thanks,
Frank

 

Thanks Robert.

But if I'm not wrong, the dictionary can only be accesed when Acad is running? And I want to be able to get the DWG Props, just like you would get document properties from a word document without word running.

Does anyone know how this can be done?

Frank