Inventor 8 VBA in parameters

[Anonymous]

Hi

This small macro worked fine in Inventor 7, but dont work in R8 ?

Public Function Top(TopType As Double, XTilKnæk As Double, Ben As Double,
TopA As Double, TopB As Double) As Double

If TopType = 2 And XTilKnæk > Ben Then
Top = TopB
Else
Top = TopA
End If

End Function

The function is put into a parameter with
'VBA:Top(TopTypeV;XTilKnæk;Ben1V;Top1aV;Top1bV)'

Looks almost at the connection til VBA has been broken but that can't be can
it' ?

Regards
Lars

[Anonymous]

I have a lot of these type of parts. I'll check them Monday. I never got
around to checking them in R8 yet anyway...

--
Sean Dotson, PE
http://www.sdotson.com
Check the Inventor FAQ for most common questions
www.sdotson.com/faq.html
----------------------------------------------------------------------------
------
"Lars" wrote in message
news:FE17B8E4ACB08E0C542609D16CD87428@in.WebX.maYIadrTaRb...
> Hi
>
> This small macro worked fine in Inventor 7, but dont work in R8 ?
>
> Public Function Top(TopType As Double, XTilKnæk As Double, Ben As Double,
> TopA As Double, TopB As Double) As Double
>
> If TopType = 2 And XTilKnæk > Ben Then
> Top = TopB
> Else
> Top = TopA
> End If
>
> End Function
>
> The function is put into a parameter with
> 'VBA:Top(TopTypeV;XTilKnæk;Ben1V;Top1aV;Top1bV)'
>
> Looks almost at the connection til VBA has been broken but that can't be
can
> it' ?
>
> Regards
> Lars
>
>
>

[Anonymous]

My VBA driven parts are working OK...Did these work in R7?

--
Sean Dotson, PE
http://www.sdotson.com
Check the Inventor FAQ for most common questions
www.sdotson.com/faq.html
-----------------------------------------------------------------------
"Sean Dotson" wrote in message
news:A93B689929F8C977B61116EB9F7EC18C@in.WebX.maYIadrTaRb...
> I have a lot of these type of parts. I'll check them Monday. I never got
> around to checking them in R8 yet anyway...
>
> --
> Sean Dotson, PE
> http://www.sdotson.com
> Check the Inventor FAQ for most common questions
> www.sdotson.com/faq.html
> --------------------------------------------------------------------------
--
> ------
> "Lars" wrote in message
> news:FE17B8E4ACB08E0C542609D16CD87428@in.WebX.maYIadrTaRb...
> > Hi
> >
> > This small macro worked fine in Inventor 7, but dont work in R8 ?
> >
> > Public Function Top(TopType As Double, XTilKnæk As Double, Ben As
Double,
> > TopA As Double, TopB As Double) As Double
> >
> > If TopType = 2 And XTilKnæk > Ben Then
> > Top = TopB
> > Else
> > Top = TopA
> > End If
> >
> > End Function
> >
> > The function is put into a parameter with
> > 'VBA:Top(TopTypeV;XTilKnæk;Ben1V;Top1aV;Top1bV)'
> >
> > Looks almost at the connection til VBA has been broken but that can't be
> can
> > it' ?
> >
> > Regards
> > Lars
> >
> >
> >
>
>

[Anonymous]

Is the function defined in the "Functions" module of the document that calls
it?

"Lars" wrote in message
news:FE17B8E4ACB08E0C542609D16CD87428@in.WebX.maYIadrTaRb...
> Hi
>
> This small macro worked fine in Inventor 7, but dont work in R8 ?
>
> Public Function Top(TopType As Double, XTilKnæk As Double, Ben As Double,
> TopA As Double, TopB As Double) As Double
>
> If TopType = 2 And XTilKnæk > Ben Then
> Top = TopB
> Else
> Top = TopA
> End If
>
> End Function
>
> The function is put into a parameter with
> 'VBA:Top(TopTypeV;XTilKnæk;Ben1V;Top1aV;Top1bV)'
>
> Looks almost at the connection til VBA has been broken but that can't be
can
> it' ?
>
> Regards
> Lars
>
>
>

[Anonymous]

Sometimes things just behaves strange, it's working now ??

Regards
Lars

"Brian R. Iwaskewycz" wrote in message
news:333908DCA090C640031AB1D7213BE6E4@in.WebX.maYIadrTaRb...
> Is the function defined in the "Functions" module of the document that
calls
> it?
>
> "Lars" wrote in message
> news:FE17B8E4ACB08E0C542609D16CD87428@in.WebX.maYIadrTaRb...
> > Hi
> >
> > This small macro worked fine in Inventor 7, but dont work in R8 ?
> >
> > Public Function Top(TopType As Double, XTilKnæk As Double, Ben As
Double,
> > TopA As Double, TopB As Double) As Double
> >
> > If TopType = 2 And XTilKnæk > Ben Then
> > Top = TopB
> > Else
> > Top = TopA
> > End If
> >
> > End Function
> >
> > The function is put into a parameter with
> > 'VBA:Top(TopTypeV;XTilKnæk;Ben1V;Top1aV;Top1bV)'
> >
> > Looks almost at the connection til VBA has been broken but that can't be
> can
> > it' ?
> >
> > Regards
> > Lars
> >
> >
> >
>
>