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

admin

8 _1 O1 u) O& k& X, h- j# k# ?NX二次开发源码分享：测量两个对象之间最短距离
, r0 H7 t9 Y3 S# T
[mw_shl_code=csharp,true] Dim theSession As Session = Session.GetSession()
% B0 w7 n& d) i% `        Dim workPart As Part = theSession.Parts.Work

; r( Y, L1 q; v- G4 U6 ]        Dim object1 As DisplayableObject = SelectAnObject("First Object")
        Dim object2 As DisplayableObject = SelectAnObject("Second Object")
4 I4 s3 c3 S$ j2 L4 s6 h' k) e0 S/ z& h
$ L' v0 u8 z5 w# k- a, e" F
+ Y4 \5 q2 m! x' y        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
        Dim nullUnit As Unit = Nothing
$ k# W- [7 \& e+ P        Dim measureDistance1 As MeasureDistance
" U# j) d1 p- j" v
. Y) l$ S0 O. x$ b1 S! l# |        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit,
            MeasureManager.MeasureType.Maximum, object1, object2)

        Dim theLW As ListingWindow = theSession.ListingWindow
        theLW.Open()
4 S0 ~3 R0 j8 Z& S* {7 Q        theLW.WriteLine("Maximum distance = " & measureDistance1.Value.ToString("F6"))
7 I2 F$ w  E: J3 g
! F: t& L" f% m( b: ?
        measureDistance1.Dispose()[/mw_shl_code]
! B+ |, C! p1 g2 [& g