Type mismatch when creating function (API)

[razzendahcuben]

I am confused as to why I am getting a type mismatch here. Any insight would be greatly appreciated.

-------

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2

Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc

MsgBox IsPartOpen(swApp)

End Sub

Function IsPartOpen(app As Application.SldWorks) As Boolean
If swModel.GetType = swPartDOC Then
IsPartOpen = True
Else
IsPartOpen = False
End If
End Function

 

[handleman]

Which line?

What are you trying to do?

Is there actually a part open?

-handleman, CSWP (The new, easy test)

 

[razzendahcuben]

Thanks for the response. To answer your question:

The first line of the function is the problem (Function IsPartOpen).

Yes, there is a part open.

The function tests whether a part is open.

 

[TheTick]

You are using an object swPartDoc when you need an integer.

 

[EEnd]

I believe that you need to move the:
Set swModel = swApp.ActiveDoc

line down into the function. In general, a variable of a given name inside one function is not linked to variables of the same name in different functions / subs.

Eric

 

[razzendahcuben]

Thanks for your input, guys. I tried both suggestions but same error still. I'll keep playing around with it...

 

[TheTick]

If swModel.GetType = swPartDOC

"swPartDoc" is an object class. It is a reserved word. You need to define a variable that is a number (long type) for GetType.

 

[handleman]

swDocPART, not swPartDoc.

-handleman, CSWP (The new, easy test)

 

[razzendahcuben]

Found the problem. "app as Application.SldWorks" needs to be "app as SldWorks.SldWorks.", then the type mismatch error goes away.

I'll correct the other error you pointed out as well. Thanks.