Set and Get Paths of Interface Files Example (VB.NET)
This example shows how to set and get the paths of interface files.
'--------------------------------------------------------------
' Preconditions:
' 1. Create a VB.NET Windows console project.
' 2. Copy and paste this example into the VB.NET IDE.
' 3. Add a reference to:
' install_dir\APISDK\tlb\DraftSight.Interop.dsAutomation.dll.
' 4. Add a reference to System.Windows.Forms.
' 5. Start DraftSight.
' 6. Press F5.
'
' Postconditions:
' 1. Connects to DraftSight.
' 2. Sets different alias, custom icon, customization, and
' menu file paths.
' 3. Gets different alias, custom icon, customization, and
' menu file paths. Click OK to click each message box.
'
' NOTE: To verify, you can also click Tools > Options >
' File Locations and expand Interface. Then expand and
' examine Alias File Location, Custom Icon Location,
' Customization File, and Menu Files.
'--------------------------------------------------------------
Imports System
Imports DraftSight.Interop.dsAutomation
Imports System.Runtime.InteropServices
Imports System.Windows.Forms
Module Module1
Sub Main()
Dim dsApp As DraftSight.Interop.dsAutomation.Application
'Connect to DraftSight application
dsApp = GetObject(, "DraftSight.Application")
If dsApp Is Nothing Then
Return
End If
'Abort any command currently running in DraftSight
'to avoid nested commands
dsApp.AbortRunningCommand()
Dim dsInterfaceFiles As InterfaceFiles = dsApp.GetInterfaceFiles()
If dsInterfaceFiles Is Nothing Then
MessageBox.Show("There are no valid interface files.")
Return
End If
'Set and get different file paths
dsInterfaceFiles.AliasFilePath = "C:\Program Files\Dassault Systemes\DraftSight\Default Files\Alias"
dsInterfaceFiles.CustomIconPath = ""
dsInterfaceFiles.CustomizationFilePath = ""
dsInterfaceFiles.MenuFilesPath = "C:\Program Files\Dassault Systemes\DraftSight\Default Files\StartupMenu\english"
MessageBox.Show("Alias file path: " + dsInterfaceFiles.AliasFilePath)
MessageBox.Show("Custom icon path: " + dsInterfaceFiles.CustomIconPath)
MessageBox.Show("Customization file path: " + dsInterfaceFiles.CustomizationFilePath)
MessageBox.Show("Menu files path: " + dsInterfaceFiles.MenuFilesPath)
End Sub
End Module