hexagon logo
Register Sign in
  • Replies 25 replies
  • Subscribers 32 subscribers
  • Views 459 views
  • Users 0 members are here
Options
Related

Surface Normal Deviation of points in FCF

cappy6124
ok, so here's what i'm trying to do...

i have a profile,

i would like the the surface normal deviation of the points in a table like this


t1 t2 t3 t4
t5 t6 t7 t8

instead of the long table of xyz ijk

i need it from the fcf b/c of the best fitting that has been done

i had tried 
ASSIGN/V2 = DOT(SCN1.HIT[1].XYZ-SCN1.HIT[1].TXYZ,SCN1.HIT[1].IJK)


but this doesn't match the fcf deviations as they have been best fit


any ideas?

thanks

-cappy
Parents
  • 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



    i'll give this a try, this is more of what i was looking for i think.
Reply
  • 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



    i'll give this a try, this is more of what i was looking for i think.
Children
No Data
© 2024 Hexagon AB and/or its subsidiaries. Privacy Policy | Cloud Services Agreement