Community
Inventor Programming - iLogic, Macros, AddIns & Apprentice
Inventor iLogic, Macros, AddIns & Apprentice Forum. Share your knowledge, ask questions, and explore popular Inventor topics related to programming, creating add-ins, macros, working with the API or creating iLogic tools.
cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 

iLogic equation answers in radians. I need degrees. (Probably a Noob question)

6 REPLIES 6
SOLVED
Reply
Message 1 of 7
GavoGarmo
2135 Views, 6 Replies

iLogic equation answers in radians. I need degrees. (Probably a Noob question)

Hi,

 

I'm trying to do a simple Trig equation in iLogic, but it's returning the value in radians even though the parameter is set to Degrees. (Please see attached)

 

Is there something I need to add to my code to make it return an answer in degrees.

 

Thanks in advance.

 

GavoGarmo

6 REPLIES 6
Message 2 of 7
wowens63
in reply to: GavoGarmo

Public Function RToD(passnum As Double) As Double
    Return passnum * (180 / PI)
End Function

Public Function DToR(passnum As Double) As Double
    Return  passnum * (PI / 180)
End Function

 

Message 3 of 7
GavoGarmo
in reply to: wowens63

Thanks for the fast reply, but how does that code fit around my existing iLogic code?

 

I've tried it in a few differnt positions but it's just spitting up errors.

 

 

Message 4 of 7
wowens63
in reply to: GavoGarmo

see if this helps...

 

Sub Main
	Dim dNumber As Double = 45
	MsgBox(dNumber & " Deg")
	
	Dim dNumber1 as Double = DToR(dNumber)
	MsgBox(dNumber1 & " Rad")
	
	Dim dNumber2 as Double = RToD(dNumber1)
	MsgBox(dNumber2 & " Deg")

End Sub

Public Function RToD(passnum As Double) As Double
    Return passnum * (180 / PI)
End Function

Public Function DToR(passnum As Double) As Double
    Return  passnum * (PI / 180)
End Function

 

Message 5 of 7
wowens63
in reply to: GavoGarmo

if that did not help try this..

 

Dim dNumber As Double = 45
	MsgBox(dNumber & " Deg")
	
	Dim dNumber1 as Double = dNumber * (PI / 180) 'Deg to Rad
	MsgBox(dNumber1 & " Rad")
	
	Dim dNumber2 as Double = dNumber1 * (180 / PI) 'Rad to Deg
	MsgBox(dNumber2 & " Deg")

 

Message 6 of 7
wowens63
in reply to: GavoGarmo

or try this..

 

t1 = (SpecialBevelDim1 / SpecialBevelDim2)
i1 = Atan(t1) * (180 / PI) 'Rad to Deg


t1 = (SpecialBevelDim2 / SpecialBevelDim1)
i2 = Atan(t2) * (180 / PI) 'Rad to Deg

 

Message 7 of 7
GavoGarmo
in reply to: wowens63

Hi,

 

I'd put in a mathmatical solution earlier in the day, but it seemed like a bit of a fudge through, so was hoping there was a way to just flip the units from one to the other.

 

The VB stuff is still a bit of a mystery to me at the moment, so I think the mathmatical solution is probably best for people at my level of programming.

 

Thanks again for your help.

 

 

Can't find what you're looking for? Ask the community or share your knowledge.

Post to forums  

Autodesk Design & Make Report