NX二次开发源码分享：测量两个对象之间最短距离

admin

NX二次开发源码分享：测量两个对象之间最短距离
: A% W4 @, t3 s. n9 e
/ P3 R7 N9 i# E: s5 r[mw_shl_code=csharp,true] Dim theSession As Session = Session.GetSession()
        Dim workPart As Part = theSession.Parts.Work

        Dim object1 As DisplayableObject = SelectAnObject("First Object")
& Q/ |; W& A9 j  i' ?  g; M7 p0 v        Dim object2 As DisplayableObject = SelectAnObject("Second Object")
$ N6 A: m9 a% m6 |4 z
0 T1 K7 \8 L5 j) ?) g2 o
        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
        Dim nullUnit As Unit = Nothing
        Dim measureDistance1 As MeasureDistance
/ r) U$ u% ^# R  ~, B7 [
        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit,
1 t" a2 h7 l8 U+ K9 S# }& Z            MeasureManager.MeasureType.Maximum, object1, object2)

        Dim theLW As ListingWindow = theSession.ListingWindow
0 `- P4 G5 r2 x2 x/ k2 j& W% J3 V        theLW.Open()
        theLW.WriteLine("Maximum distance = " & measureDistance1.Value.ToString("F6"))
7 X% r* p2 p3 t

        measureDistance1.Dispose()[/mw_shl_code]
8 O. g8 o8 t. n; M! [. r