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

Advanced techniques applicable to any version of CMM-Manager
Post Reply
User avatar
CMM Guru
Moderator
Moderator
Posts: 117
Joined: Thu Feb 24, 2011 7:49 pm

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

Post by CMM Guru » Tue Jan 28, 2020 12:31 pm

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
You do not have the required permissions to view the files attached to this post.

Acuity_Metrology
Regular User
Regular User
Posts: 17
Joined: Tue Nov 12, 2019 11:10 am

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

Post by Acuity_Metrology » Wed Jan 29, 2020 1:27 pm

This is really cool. Nice work.

Post Reply