Hello, 

I need some help regarding .step files. I am trying to write a macro that opens a .step file and then saves it as .sldprt.

I used this functions:

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

dim Path as String

Dim Importdata As ImportStepData

Dim Errors As Long

Dim Err as Long

Dim Warn as long

Dim swModelDocExt As ModelDocExtension

Sub main()
Set swApp = Application.SldWorks

Path = "C:\...................\x.step"

Set Importdata = swApp.GetImportFileData(Path)

Set swModel = swApp.LoadFile4(Path, "r", Importdata, Errors)

set swModel = swApp.OpenDoc6(Path, 6, 1, "", Err, Warn)

set swModelDocExt = swModel.Extension 

...

...

..

this macro does not open the .step file (Errors=1) and crashes at the line "set swModelDocExt = swModel.Extension". Could you help me with this problem?

Thank you