VTable = ReadCsvFile(swApp.GetCurrentMacroPathFolder() & '\' & NO_INCREMENT_FILE, False) Set dicBaseNames = CreateObject( 'Scripting.Dictionary') If Not swPart Is Nothing Then Dim dicFeatsCount As Object Dim collFeatsNonIncr As Collectionĭim dicBaseNames As Object Set dicFeatsCount = CreateObject( 'Scripting.Dictionary') Const NO_INCREMENT_FILE As String = 'noincrement.csv' Const CUSTOM_MAP_FILE As String = 'custommap.csv' Dim swApp As SldWorks.SldWorks
