Surface Normal Deviation of points in FCF

I don't know how to do that, but I do know how to make an explicit alignment replicating that FCF's best fitting.

I cannot brain the t# chart, am not conversant. What does it all mean?

Josh,



...could you post this procedure in the "Tips & Tricks" section?

What meant by the t# chart was this.

pnt1.t pnt2.t pnt3.t pnt4.t pnt5.t
pnt6.t pnt7.t pnt8.t pnt9.t pnt10.t
pnt11.t pnt12.t pnt13.t pnt14.t pnt15.t
etc....

The procedure is "make an alignment using the datums in order of precedence."
I hope that's not classified as a Trick.

I think what vpt (and me) were hoping for was a way to create an alignment that uses the Xact fit shift. There are all sorts of applications for this. Using the available options in best-fit alignment is not the same, because they do not attempt to fit within a tolerance zone.

I think what vpt (and me) were hoping for was a way to create an alignment that uses the Xact fit shift. There are all sorts of applications for this. Using the available options in best-fit alignment is not the same, because they do not attempt to fit within a tolerance zone.

Ah, that would be a trick indeed. I'm not quite that tricky.

Back to the original question. Here is some VB code I threw together to show which objects to reference to get the shifted profile deviations. Not sure if this will approach will help you or not. This code works in 2012MR1, but not in 2010MR3 (can't speak for anything in between). In 2010mr3 I get an error working with the FCFCommand object.

The blue code are the keys. Let me know if you have questions.

Sub Main()
Dim pcd As PCDLRN.Application
Dim dcmd As DimensionCmd
Dim d() As Double

Set pcd = CreateObject("pcdlrn.application")
Set dcmd = pcd.ActivePartProgram.Commands("FCFPROF2").[COLOR=#0000cd][B]FCFCommand.ProfileDimension
[/B][/COLOR]d = dcmd.GetProfilePointInfos([COLOR=#0000cd][B]DEVIATION_INFO[/B][/COLOR], FDATA_PART, "A1")

For I = 0 To dcmd.ProfilePointInfoCount - 1
  Debug.Print d(I)
Next

End Sub