This example shows how to set and get the paths and file names of DraftSight system files.
'-------------------------------------------------------------- ' Preconditions: ' 1. Create a VB.NET Windows console project. ' 2. Copy and paste this project into the VB.NET IDE. ' 3. Add a reference to ' install_dir\APISDK\tlb\DraftSight.Interop.dsAutomation.dll ' 4. Start DraftSight. ' 5. Open the Immediate window. ' 6. Press F5. ' ' Postconditions: ' 1. The paths to the DraftSight support and font files are set. ' 2. The paths and names of the DraftSight system files are printed ' to the Immediate window. '----------------------------------------------------------------
Imports DraftSight.Interop.dsAutomation Module Module1 Sub Main() Dim dsApp As Application Dim dsSystemFiles As SystemFiles Dim setFontPaths(1) As String Dim setSupportPaths(2) As String Dim getFontPaths As Object Dim getSupportPaths As Object Dim i As Integer Dim arraySizeFonts As Long Dim arraySizeSupport As Long 'Connect to DraftSight dsApp = GetObject(, "DraftSight.Application") 'Abort any command currently running in DraftSight 'to avoid nested commands dsApp.AbortRunningCommand() 'Get system files dsSystemFiles = dsApp.GetSystemFiles 'Set system files setFontPaths(0) = "C:\Dassault Systemes\ProgramData\DraftSight\TextFonts" setFontPaths(1) = "C:\Dassault Systemes\ProgramData\DraftSight\TablesFonts" arraySizeFonts = UBound(setFontPaths) dsSystemFiles.FontsPaths = setFontPaths setSupportPaths(0) = "C:\Dassault Systemes\ProgramData\DraftSight\SupportPathAddins" setSupportPaths(1) = "C:\Dassault Systemes\ProgramData\DraftSight\SupportPathCustomFiles" setSupportPaths(2) = "C:\Dassault Systemes\ProgramData\DraftSight\DrawingFiles" arraySizeSupport = UBound(setSupportPaths) dsSystemFiles.supportPaths = setSupportPaths Debug.Print("System files:") Debug.Print(" Help file: " & dsSystemFiles.HelpFile) Debug.Print(" Logfile path: " & dsSystemFiles.LogFilePath) Debug.Print(" Dictionary file for SpellCheck: " & dsSystemFiles.MainDictionaryFile) Debug.Print(" Custom dictionary file: " & dsSystemFiles.CustomDictionaryFile) Debug.Print(" Location for temporary drawing files: " & dsSystemFiles.TempPath) getFontPaths = dsSystemFiles.FontsPaths Debug.Print(" Font paths: ") For i = 0 To arraySizeFonts Debug.Print(" " & getFontPaths(i)) Next i getSupportPaths = dsSystemFiles.supportPaths Debug.Print(" Support paths: ") For i = 0 To arraySizeSupport Debug.Print(" " & getSupportPaths(i)) Next i End Sub End Module