iLogic to create autocad DWG

[Anonymous]

Hello,

I found and modify slightly a code below which is working very good for me but i would like to add Yes/No message box.
Can anyone have a look and help me with this??

Imports SysIO = System.IO
Sub Main()
'See if there are any open views
If (ThisApplication.Views.Count > 0) Then
'Setup Translator to dwg
Dim DWGAddIn As TranslatorAddIn = ThisApplication.ApplicationAddIns.ItemById("{C24E3AC2-122E-11D5-8E91-0010B541CD80}")
Dim oContext As TranslationContext = ThisApplication.TransientObjects.CreateTranslationContext
oContext.Type = kFileBrowseIOMechanism
' Create a NameValueMap object
Dim oOptions As NameValueMap = ThisApplication.TransientObjects.CreateNameValueMap
' Create a DataMedium object
Dim oDataMedium As DataMedium = ThisApplication.TransientObjects.CreateDataMedium
'Go through each view and save if it's a drawing document
For Each view As View In ThisApplication.Views
If view.Document.DocumentType = kDrawingDocumentObject Then
'Get the directory file is saved in. Can replace this with specific directory
Workspacepath = ThisDoc.WorkspacePath ()

WorkspacePathLength = Len (Workspacepath)

Pathonly = ThisDoc.Path

Directorypath = strings.right(pathonly, pathonly.length-WorkspacePathLength)

DWGPath = "\\VPE-SERVER\Drawings\" & Directorypath

If(Not System.IO.Directory.Exists(DWGPath))Then
    System.IO.Directory.CreateDirectory(DWGPath)
End If
Dim dwgDir = DWGPath
'Get name of file without the extension and add _acad2k to it.
oDataMedium.MediumType = kFileNameMedium
oDataMedium.FileName = dwgDir & "\\" & _
 SysIO.Path.GetFileNameWithoutExtension(view.Document.FullFileName) & _
 "_acad2k.dwg"
' Check whether the translator has 'SaveCopyAs' options
If DWGAddIn.HasSaveCopyAsOptions(view.Document, oContext, oOptions) Then
'Use Export To DWG to save drawing configuration and set here
Dim strIniFile As String = "\\VPE-SERVER\Drawings\Template\Inventor\Templates\DWGOut.ini"
' Create the name-value that specifies the ini file to use.
oOptions.Value("Export_Acad_IniFile") = strIniFile
'Save File
DWGAddIn.SaveCopyAs(view.Document, oContext, oOptions, oDataMedium)
End If
End If
Next
End If


  
End Sub

[MechMachineMan · Accepted solution]

If MsgBox("Create DWG?" & vblf & vblf & oFileName, MsgBoxStyle.YesNo, "DWG CREATER TITLE") = MsgBoxResult.Yes

[Anonymous]

Thanks for your help it working good for me.