How to Get iProperties in Tab "General" - File NOT Saved

[ngdnam88]

Dears,

Could you please help me this point. I wanna check this information in Tab "General"/iProperties. Is it possible to do it?

Or any way can check extension (in this case are .idw vs .dwg) before do something next.
Thanks,

[m_baczewski]

Hello,

In my opinion, to check if a file is saved or unsaved, it is enough to check the path of the document. If the path is empty, it means that the document has not been saved yet.  There are several ways to obtain the file path. One of them looks like.

Dim oDoc As Document = ThisApplication.ActiveDocument
Dim oDocPath As String = oDoc.FullFileName

If oDocPath = String.Empty
	MessageBox.Show("Your file has not been saved","Warning",MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
	MessageBox.Show("You can continue your task","Information",MessageBoxButtons.OK, MessageBoxIcon.Information)
End If 

[ngdnam88]

Hi @m_baczewski 
Thank but I mean I wanna to check the ext. file information in case file still NOT saved because if file saved it'll be easy to check ext. file.

[m_baczewski · Accepted solution]

In the drawing, you can check something like DrawingDocument.IsInventorDWG to determine if the drawing is an .idw or a DWG. Take a look and let me know if I understand you correctly.

Dim oDoc As Document = ThisApplication.ActiveDocument
Dim oDocPath As String = oDoc.FullFileName

If oDoc.SubType = "{BBF9FDF1-52DC-11D0-8C04-0800090BE8EC}"
	
	Dim oDDoc As DrawingDocument = oDoc
	Dim isInventroDwg As Boolean = oDDoc.IsInventorDWG
	
	If isInventroDwg = True
		MessageBox.Show("This is a DWG files.","Information",MessageBoxButtons.OK, MessageBoxIcon.Information)
	Else
		MessageBox.Show("This isnt a DWG files.","Information",MessageBoxButtons.OK, MessageBoxIcon.Information)
	End If
	
End If
If oDocPath = String.Empty
	MessageBox.Show("Your file has not been saved","Warning",MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
	MessageBox.Show("You can continue your task","Information",MessageBoxButtons.OK, MessageBoxIcon.Information)
End If

[Michael.Navara · Accepted solution]

Information asked can be obtained from document properties. DocumentType, DocumentSubType. Or in case of drawing from IsInventorDWG.

Check file extension before the file is saved is not possible, because it can be changed.

@m_baczewski Check property oDoc.FullFileName has limitation because until the file was saved first, this property is Read/Write. You can get non-empty oDoc.FullFileName and the file is not saved. Better solution is to check Document.FileSaveCounter Property is 0 (zero)

[m_baczewski]

Thanks for your tip 😉

[_dscholtes_ · Accepted solution]

I opened a dwg and idw file to check if their document.type or document.subtype were different, but instead I found the following:

'Set reference
Dim oDoc As DrawingDocument = ThisApplication.ActiveDocument

'Check type
If oDoc.IsInventorDWG = True Then
    'This is a dwg file
Else
    'This is an idw file
End If

Oh, to check whether a file has been saved, you can use:

'Check if the document has been saved
If oDoc.FileSaveCounter = 0 Then
    'Document not saved
Else
    'Document has been saved
End If

[ngdnam88]

Thanks all of you!
I got it!