Import IGES File Example (VBA)
This example shows how to import an IGES file.
'--------------------------------------
'
' Preconditions: C:\Samples\cup.igs exists.
'
' Postconditions: C:\Samples\cup.igs is imported into
SOLIDWORKS.
'
'-------------------------------------
Option Explicit
Sub main()
Dim
swApp As SldWorks.SldWorks
Dim
swModel As SldWorks.ModelDoc2
Dim
swImportData As SldWorks.ImportIgesData
Dim
Err As Long
Set
swApp = CreateObject("SldWorks.Application")
Set
swModel = swApp.LoadFile4("C:\Samples\cup.igs",
"r", swImportData, Err)
Debug.Print
Err
End Sub