How to measure Radius of a curve 3

[Aviatorbarath]

Hi

I have disassembled a surface and extracted lines and curves out of it.. now i want measure the radius of the curvature of those curves if my disassembled items is circle, tehn i could measure the radius from it, whereas if it is curve, in that case tht code doesnt work...

below is the code i have used

Dim Measurecircle
Set Measurecircle = CurrWorkbench.GetMeasurable(selection1.Item(i).Reference)
Dim ARadius As Double
ARadius = Measurecircle.Radius

The above code doesnt work for curves/arcs...any suggestion on how to measure the radius of curvature of the these items


Thanks & Regards
Barath

 

[ferdo]

Do you need a macro for this ?
You can use curvature analize tool....

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

https://picasaweb.google.com/103462806772634246699/

 

[Aviatorbarath]

Hi ferdo

I checked some sites; it says arc cant be measured the radius with Measurable syntax.

i need macro to get radius of the arc...If u can explain with macro example..it wil be helpful

Thanks
Barath

 

[Aviatorbarath]

Hi Ferdo

I am looking for macro to find the radius for arc type. To measure radius of a circle, there is a syntax. For section using arc, there is only length i can find, no syntax for arc. Can you u suggest me some script to measure the radius of the arc.


Thanks
Barath

 

[ferdo]

Hi,

You can select the arc, then use create points on selected curve (beginning, end and middle) and thru 3 points you can create a circle...

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

https://picasaweb.google.com/103462806772634246699/

 

[itsmyjob]

Did you try to create a parameter with a formula that will give you minimum radius of the curve?

Strange that VB does not provide this with the measurable...

Eric N.
indocti discant et ament meminisse periti ​

 

[Aviatorbarath]

Hi itsmyjob

Yea your are right, cant measure the radius of the arc with measurable....that was my problem..

wat is that parameter with formula, can you explain me with example if possible

Thanks
Barath

 

[itsmyjob]

you can create a length parameter and set the formula to get the minimum curvature (the value will actually be the radius) of a curve (case 1), or a real parameter and get the formula to get the curvatuire value (1/R) at 1 point (case 2).

you should find a way to do that with VB... and maybe you can share this on the forum

Eric N.
indocti discant et ament meminisse periti ​