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

admin

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

[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")
        Dim object2 As DisplayableObject = SelectAnObject("Second Object")
  W" R* U3 G$ I! Z
+ C3 t& v1 F1 S6 \
6 H8 Z7 S' q6 ^( s$ d        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
        Dim nullUnit As Unit = Nothing
0 i0 g/ D) t1 v3 r1 a+ q5 P        Dim measureDistance1 As MeasureDistance
/ M- X7 }: p) ^7 j" T$ {! Z/ N/ \
        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit,
  Y1 L. c# ^  T, h            MeasureManager.MeasureType.Maximum, object1, object2)

4 O6 k( X1 `2 J: t        Dim theLW As ListingWindow = theSession.ListingWindow
        theLW.Open()
0 n2 Y& E4 x( [& _8 W        theLW.WriteLine("Maximum distance = " & measureDistance1.Value.ToString("F6"))

& W% ~+ q4 c5 N4 D4 u5 X+ F
/ W0 X* B2 [* @! n        measureDistance1.Dispose()[/mw_shl_code]
/ C' M6 K/ `9 p# |# Z- t