VB Run-time error '438': in Solidworks
VB Run-time error '438': in Solidworks
(OP)
If I try to use the solidworks / visual basic command:
retval = Sheet.GetProperties ()
I get the following error:
Run-time error '438':
Object doesn't support this property or method.
Any suggestions would be much appreciated.
retval = Sheet.GetProperties ()
I get the following error:
Run-time error '438':
Object doesn't support this property or method.
Any suggestions would be much appreciated.






RE: VB Run-time error '438': in Solidworks
Option Explicit
Dim swApp As Object
Dim Part As Object
Dim Sheet As Object
Dim retval
Sub main()
Set swApp = CreateObject("SldWorks.Application")
Set Part = swApp.ActiveDoc
Set Sheet = Part.GetCurrentSheet
retval = Sheet.GetProperties
MsgBox "Scale = " & retval(2) & ":" & retval(3)
Set Sheet = Nothing
Set Part = Nothing
Set swApp = Nothing
End Sub
DimensionalSolutions@Core.com
While I welcome e-mail messages, please post all thread activity in these forums for the benefit of all members.
RE: VB Run-time error '438': in Solidworks