Extracting AutoCAD drawing name

Could you please help me get the drawing name and path.
Thank you

 

Hi Lynne

Did you read the answers in thread 'Exporting text from AutoCAD to Excel'?

Cheers

 

Yes I did Thanks
My programme is running nicely.
But I want to automate saving the excel file to the same name as the drawing from which I am extracting the text.
It doesnt seem to give me the drawing name and path.
Lynne

 

If you are creating a new drawing [that has not been saved] then use

ThisDrawing.Path & "\" & ThisDrawing.Name

If your drawing has been saved or you are opening a pre-existing drawing
then use

ThisDrawing.FullName

Joe
--

drawing from which I am extracting the text.

 

Hi Lynne

This function grabs the dwg name and path and returns it with
the requested extension, eg.:

CreateFileNameByDwg(".xls")
X:\Projects\MyDrawings\Test.xls

Public Function CreateFileNameByDwg(FilExt As String) As String
'Requires a reference to 'Microsoft Scripting Runtime'

Dim FilObj As FileSystemObject

Set FilObj = CreateObject("Scripting.FileSystemObject")

With ThisDrawing
CreateFileName = .Path & "\" & FilObj.GetBaseName(.Name) & FilExt
End With

Set FilObj = Nothing

End Function

Cheers