Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
MechMachineMan
in reply to: JamieSENG

Imports SysIO = System.IO

Sub Main()

   'Check pre-processing conditions.
   If (ThisApplication.Views.Count = 0) Then: Exit Sub: End If

   Dim DWGAddIn As TranslatorAddIn = ThisApplication.ApplicationAddIns.ItemById("{C24E3AC2-122E-11D5-8E91-0010B541CD80}")
   Dim oContext As TranslationContext = ThisApplication.TransientObjects.CreateTranslationContext
   oContext.Type = kFileBrowseIOMechanism

   Dim oOptions As NameValueMap = ThisApplication.TransientObjects.CreateNameValueMap
   Dim oDataMedium As DataMedium = ThisApplication.TransientObjects.CreateDataMedium


   For Each oVisDoc In ThisApplication.Documents.VisibleDocuments
      If oVisDoc.DocumentType = kDrawingDocumentObject Then 
             DocName = SysIO.Path.GetFileName(oVisDoc.FullFileName)
             'Dim dwgDir = SysIO.Path.GetDirectoryName(oVisDoc.FullFileName)
             Dim dwgDir = "S:\Drawing Office\Inventor Design Folder\Export Copy Main Directory - Shared\dwg\"
	     oDataMedium.MediumType = kFileNameMedium
             oDataMedium.FileName = dwgDir & iProperties.Value(DocName, "Project", "Part Number") & " Rev. " & iProperties.Value(DocName, "Project", "Revision Number") & ".dwg"

             If DWGAddIn.HasSaveCopyAsOptions(oVisDoc, oContext, oOptions) Then
                 Dim strIniFile As String = "S:\Drawing Office\Inventor Design Folder\Export Copy Main Directory - Shared\dwg\Format2000DONOTDELETE.ini"
                 oOptions.Value("Export_Acad_IniFile") = strIniFile
                 
                 Call DWGAddIn.SaveCopyAs(oVisDoc, oContext, oOptions, oDataMedium)
             End If
       End If 
    Next
End Sub

--------------------------------------
Did you find this reply helpful ? If so please use the 'Accept as Solution' or 'Like' button below.

Justin K
Inventor 2018.2.3, Build 227 | Excel 2013+ VBA
ERP/CAD Communication | Custom Scripting
Machine Design | Process Optimization


iLogic/Inventor API: Autodesk Online Help | API Shortcut In Google Chrome | iLogic API Documentation
Vb.Net/VBA Programming: MSDN | Stackoverflow | Excel Object Model
Inventor API/VBA/Vb.Net Learning Resources: Forum Thread

Sample Solutions:Debugging in iLogic ( and Batch PDF Export Sample ) | API HasSaveCopyAs Issues |
BOM Export & Column Reorder | Reorient Skewed Part | Add Internal Profile Dogbones |
Run iLogic From VBA | Batch File Renaming| Continuous Pick/Rename Objects

Local Help: %PUBLIC%\Documents\Autodesk\Inventor 2018\Local Help

Ideas: Dockable/Customizable Property Browser | Section Line API/Thread Feature in Assembly/PartsList API Static Cells | Fourth BOM Type