Message 1 of 15
Save idw as dxf
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Can anyone tell me how would I go about adding a path to this code so that I can specify the folder where the dxf should be saved?
Public Sub ExportToDXF()
Dim odoc As DrawingDocument
Set odoc = ThisApplication.ActiveDocument
Dim sFname As String
sFname = odoc.FullFileName
sFname = Left$(sFname, Len(sFname) - 3) & "dxf"
Call odoc.SaveAs(sFname, True)
End Sub
thank you very much in advance!
Joan
Public Sub ExportToDXF()
Dim odoc As DrawingDocument
Set odoc = ThisApplication.ActiveDocument
Dim sFname As String
sFname = odoc.FullFileName
sFname = Left$(sFname, Len(sFname) - 3) & "dxf"
Call odoc.SaveAs(sFname, True)
End Sub
thank you very much in advance!
Joan