VB Script - Calculate Measured Arc Length
To find the Arc length, you need 3 measurements. A circle (Arc), and a line or point at each of the Arc. From there, construct lines from the center of Circle to Arc's endpoints and report both the diameter of Circle and Angle between two constructed lines.
Given the equation to calculate partial circumference is:
(sweep angle / 360) * Circle Dia * pi
You need to perform this calculation in the VB Script operation after performing these Measurements, Constructions, and initial Reports. Assuming you have features named "CIRCLE1", "LINE2", and "LINE3" and have reported Diameter and Angle, then you can add this VB Script:
Now you have a Variable with your answer. To get the variable value back into your CMM-Manager report, add a User Defined dimension and set Variable for Actual value as "MyArc."
(sweep angle / 360) * Circle Dia * pi
You need to perform this calculation in the VB Script operation after performing these Measurements, Constructions, and initial Reports. Assuming you have features named "CIRCLE1", "LINE2", and "LINE3" and have reported Diameter and Angle, then you can add this VB Script:
CODE:
MyDia = GetReportInfo("CIRCLE1", "DIA", 2) MyAng = GetReportInfo("ANGL BT LINE1 and LINE3", "3D",2) pi = 4*Atn(1) MyArc = (MyAng/360) * MyDia * pi