Page 1 of 1

Add IJK to a report using VB (3.8 and above)

Posted: Tue Jan 28, 2020 12:31 pm
by CMM Guru
NOTE: You can find VB help in c:\Program Files\Nikon\CMM-Manager 3.x SPx\Help\Function Reference - VB Script.pdf

An sample output is shown in the attachments at the bottom of this topic.

After inspecting a feature (CYLNDR1 for instance):
Program Tab > Add VB Script, then add the following code (substitute your feature name):

Code: Select all

I = GetFeaturePropertyAct(CYLNDR1, 4)
J = GetFeaturePropertyAct(CYLNDR1, 5)
K = GetFeaturePropertyAct(CYLNDR1, 6)

I = int(I * 10000)/10000
J = int(J * 10000)/10000
K = int(K * 10000)/10000
(The last 3 lines are to round to 5 decimal places. There are other methods in scripting as well, but this was the easiest to show)

Now, do a Feature Report of the feature (CYLINDR1) and in the NOTE section, add:

Code: Select all

IJK = @I, @J, @K
You will get a line of output in the report for that feature that looks like:

NOTE | IJK = 0.00000, 0.00000, 1.00000

Re: Add IJK to a report using VB (3.8 and above)

Posted: Wed Jan 29, 2020 1:27 pm
by Acuity_Metrology
This is really cool. Nice work.