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

admin

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

6 w/ R' L8 L6 f[mw_shl_code=csharp,true] Dim theSession As Session = Session.GetSession()
' u* E' p. Z, U6 S, f3 d! ?& h        Dim workPart As Part = theSession.Parts.Work

        Dim object1 As DisplayableObject = SelectAnObject("First Object")
- v( g; U6 A) U7 Z' N& r# C( }        Dim object2 As DisplayableObject = SelectAnObject("Second Object")

# Q: K3 h9 b' E; P7 q0 n) i
        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
        Dim nullUnit As Unit = Nothing
        Dim measureDistance1 As MeasureDistance
$ a+ n/ }# U! j6 S
        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit,
; A1 H* Q5 }& ~. k            MeasureManager.MeasureType.Maximum, object1, object2)
( K% c$ j8 `# M
        Dim theLW As ListingWindow = theSession.ListingWindow
# d& e' X7 ^8 ]" V/ x* n        theLW.Open()
        theLW.WriteLine("Maximum distance = " & measureDistance1.Value.ToString("F6"))

% {# [- i2 Q9 g
; O& j' J' Z8 m; i% x/ T: G: c4 z        measureDistance1.Dispose()[/mw_shl_code]