Set MathTransform = ???

[sisau]

Hello, i've written a macro for SW2007 but it doesn't works. i think the reason is that i need to set csystransform. the macro i have written is the following:

Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2
Dim mass as SldWorks.MassProperty
Dim swCoordSys as SldWorks.Feature
Dim csystransform as SldWorks.MathTransform

Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set mass = Part.Extension.CreateMassProperty
Set csystransform = ???

csystransform=Part.Extension.GetCoordinateSystemTransformByName(swCoordSys.Name)
mass.SetCoordinateSystem(csystransform)

any idea about how to do it? thank you!

 

[TheTick]

= New MathTransform

 

[sisau]

it says ActiveX component can't create object