Max dev. - Min dev on cloud to cad report

User avatar
US_Helpdesk
Moderator
Moderator
Posts: 1087
Joined: Wed Feb 23, 2011 7:26 pm

Re: Max dev. - Min dev on cloud to cad report

Post by US_Helpdesk » Mon Mar 09, 2015 3:07 pm

I'm looking into this?
I've migrated to a new user account, see my other posts here

User avatar
US_Helpdesk
Moderator
Moderator
Posts: 1087
Joined: Wed Feb 23, 2011 7:26 pm

Re: Max dev. - Min dev on cloud to cad report

Post by US_Helpdesk » Mon Mar 09, 2015 3:27 pm

There is no VB Script GetReportInfo() support for "max dev" or "min dev"

You can however report Profile as I suggested before... Even with the asymmetrical tolerance the report will show out of tolerance if the hi or low tolerance is exceeded.
I've migrated to a new user account, see my other posts here

User avatar
Ryan Christopher
Nikon
Nikon
Posts: 250
Joined: Mon Jun 06, 2011 3:00 pm
Location: Sumner Washington
Contact:

Re: Max dev. - Min dev on cloud to cad report

Post by Ryan Christopher » Mon Mar 09, 2015 4:43 pm

I'm a little curious what you mean by 'refinement'. I can see that you are using a different tolerance for the overall profile evaluation than you are using for the individual points...I don't understand why.

Because of syncing issues with mirror programs, I will sometimes report the 3d deviations of a group of points individually then run a bubble sort to find min/max and then report as a user defined. See below...


'FIND MAX 3D DEV OF POINT GROUP
'RYAN TACKES - VMS INC.

''''''declaration of variables: paste this block only once in your cmm-m program
Dim i
Dim p(1 to 250)
Dim out
Dim StartPt
Dim EndPtA
Dim EndPtB
Dim NamePrefix
Dim NameSuffix

'FIND MAX 3D DEV OF POINT GROUP
''''''instantiate the variables below for each block of points
StartPt = 1
EndPtA = 4
NamePrefix = "POINT"
NameSuffix = ""

''''''extraction of 3D deviation value from cmm-m
for i = StartPt to EndPtA
p(i) = GetReportInfo(NamePrefix & i & NameSuffix, "3D", 3)
next i

'''''calculation of largest 3d deviation
EndPtB = EndPtA - 1
for i = StartPt to EndPtB
if abs(p(i)) > abs(p(i+1)) then
p(i+1) = abs(p(i))
else
p(i+1) = abs(p(i+1))
end if
next i

'''''assignment of largest 3d deviation to a variable
out = p(i)
Ryan Tackes
Applications Manager, VMS Inc.
http://www.vantagemeasure.com/

Trosado
Participant
Participant
Posts: 8
Joined: Tue Dec 17, 2013 5:13 pm

Re: Max dev. - Min dev on cloud to cad report

Post by Trosado » Tue Mar 10, 2015 10:08 am

Ryan,

The customer is using GD&T. They have a surface profile tolerance of .027/offset +0.022, with a .018 secondary tolerance for lets say a twist factor. This gives me +0.022 to -.005. The .018 is a range within that tolerance of the measured points. I measure 11 points on the inside surface. Each point is called out ex: P7L and P15R. These tolerances are needed do to the software that interacts with this piece. So I have to report the max and min of S1 which CMM manager does. I then export to the report to excel where I have to get the range of the max and min. If the part in withing the +.022/-0.005 ex. MAX: 0.020 MIN: 0.001 but the ranges is 0.019 this part is not good. So I am hoping there is a way to have CMM manager do the Max-Min and report it so I can have a production person run the CMM and know if the part passes or fails.

I will try what you posted later today and let you know h0w it goes.

Thank you,

Trosado
Participant
Participant
Posts: 8
Joined: Tue Dec 17, 2013 5:13 pm

Re: Max dev. - Min dev on cloud to cad report

Post by Trosado » Wed Mar 11, 2015 9:14 am

Ryan,

I am having trouble with the code you gave me. The program is not recognizing the point names. I am not very good at VB and have the names of the 11 points on the other page. I need to be able to have each point have its own name. Thank you for your help.

User avatar
Ryan Christopher
Nikon
Nikon
Posts: 250
Joined: Mon Jun 06, 2011 3:00 pm
Location: Sumner Washington
Contact:

Re: Max dev. - Min dev on cloud to cad report

Post by Ryan Christopher » Wed Mar 11, 2015 11:43 am

This script will only work if the name of the points all have the same root ("POINT") with an index (1, 2, 3, 4...) to end up with a point name of "POINT1", "POINT2", "POINT3", ect.
Ryan Tackes
Applications Manager, VMS Inc.
http://www.vantagemeasure.com/

JohnK
Frequent User
Frequent User
Posts: 48
Joined: Thu Jun 27, 2013 10:28 am

Re: Max dev. - Min dev on cloud to cad report

Post by JohnK » Wed Mar 11, 2015 12:53 pm

mhochkins1 wrote:Nate, the "profile" is basically the range doubled.
They could take the "profile" and divide it by 2 I suppose?
I'm a little confused by this. I thought on cloud-to-cad(surface) reporting profile reported the max (absolute value) deviation from the nominal surface, and in the case on non-bilateral equal it would report the overall max or min based on which was farther out of tolerance range.

#1 Cloud-to-Surface Deviation Report
Nominal FC91_0, CYLNDR3, FC120_0
Actual Fwd_clouds
Type Cloud-to-Surface w/ Bestfit
Profile LoTol -0.0150 UpTol 0.0450 Dev -0.0464 OutTol -0.0314
Overall Max. 0.0416
Overall Min. -0.0464

#2 Cloud-to-Surface Deviation Report
Nominal FC91_0, CYLNDR3, FC120_0
Actual Fwd_clouds
Type Cloud-to-Surface w/ Bestfit
Profile LoTol -0.0500 UpTol 0.0100 Dev 0.0416 OutTol 0.0316
Overall Max. 0.0416
Overall Min. -0.0464

So neither value is a true Range that overall Max - overall min would be.

User avatar
US_Helpdesk
Moderator
Moderator
Posts: 1087
Joined: Wed Feb 23, 2011 7:26 pm

Re: Max dev. - Min dev on cloud to cad report

Post by US_Helpdesk » Wed Mar 11, 2015 12:57 pm

I'm a little confused by this. I thought on cloud-to-cad(surface) reporting profile reported the max (absolute value) deviation from the nominal surface, and in the case on non-bilateral equal it would report the overall max or min based on which was farther out of tolerance range.
You are correct... Only the traditional Profile output doubles the largest deviation. Cloud to CAD on the other hand reports the total range.
I've migrated to a new user account, see my other posts here

User avatar
mhochkins1
Nikon
Nikon
Posts: 253
Joined: Tue Mar 22, 2011 12:10 pm
Location: Linden, MI

Re: Max dev. - Min dev on cloud to cad report

Post by mhochkins1 » Wed Mar 11, 2015 1:20 pm

Cloud to Surface Deviation
There are many ways to report profile...it can be confusing.
Profile_Max_DevX2.jpg
You do not have the required permissions to view the files attached to this post.
Best Regards,
Mark Hochkins

JohnK
Frequent User
Frequent User
Posts: 48
Joined: Thu Jun 27, 2013 10:28 am

Re: Max dev. - Min dev on cloud to cad report

Post by JohnK » Thu Mar 12, 2015 7:46 am

I think with a little tweaking to Ryan's script this should find your "refinement" range but its alot harder to automate this script with custom point names.
*Changed


Dim i
Dim p(1 to 250) ''use for max array
Dim b(1 to 250) ''use for min array
Dim out
Dim StartPt
Dim EndPtA
Dim EndPtB


EndPtA = GetFeaturePropertyAct( "S1_SURFACE",1) '''Get number of cloud points.


''''''extraction of 3D deviation value from cmm-m
'''''Should use the already reported cloud to surface report from initial pictures

p(1) = GetReportInfo("Cloud-to-CAD Deviation", "S1_SURFACE:P5L:3D",3)
p(2) = GetReportInfo("Cloud-to-CAD Deviation", "S1_SURFACE:P9L:3D",3)
p(3) = GetReportInfo("Cloud-to-CAD Deviation", "S1_SURFACE:P7L:3D",3)
p(4) = GetReportInfo("Cloud-to-CAD Deviation", "S1_SURFACE:P15L:3D",3)
p(5) = GetReportInfo("Cloud-to-CAD Deviation", "S1_SURFACE:P5:3D",3)
p(6) = GetReportInfo("Cloud-to-CAD Deviation", "S1_SURFACE:P10:3D",3)
p(7) = GetReportInfo("Cloud-to-CAD Deviation", "S1_SURFACE:P7R:3D",3)
p(8) = GetReportInfo("Cloud-to-CAD Deviation", "S1_SURFACE:P15R:3D",3)
p(9) = GetReportInfo("Cloud-to-CAD Deviation", "S1_SURFACE:P5R:3D",3)
p(10) = GetReportInfo("Cloud-to-CAD Deviation", "S1_SURFACE:P9R:3D",3)
p(11) = GetReportInfo("Cloud-to-CAD Deviation", "S1_SURFACE:P0:3D",3)

for i = StartPt to EndPtA ''Duplicate array
b(i) = p(i)
next i


'''''calculation of largest 3d deviation
EndPtB = EndPtA - 1

for i = StartPt to EndPtB
if p(i) > p(i+1) then
p(i+1) = p(i)
end if
next i


for i = StartPt to EndPtB
if b(i) < b(i+1) then
b(i+1) = b(i)
end if
next i


out = p(i)-b(i) '''' Use for user report output (Max - min)

Post Reply