NX二次开发源码分享: 使用NXOpen获取对象最小距离

admin

NX二次开发源码分享: 使用NXOpen获取对象最小距离
* F& T. V. t; c2 S! {
, r1 |9 ]2 w  P' ?+ ^* k
[mw_shl_code=csharp,true]
& }) ~. \& p3 C- C* ^% O  Dim theSession As Session = Session.GetSession()
        Dim workPart As Part = theSession.Parts.Work

        Dim object1 As DisplayableObject = SelectAnObject("First Object")
4 u+ I  u/ w. l2 j3 Q4 M        Dim object2 As DisplayableObject = SelectAnObject("Second Object")

        ' either obtain Unit as desired or use default (null) unit
        Dim unitMM As Unit = CType(workPart.UniTCollection.FindObject("MilliMeter"), Unit)
        Dim nullUnit As Unit = Nothing
        Dim measureDistance1 As MeasureDistance
4 F0 o: D4 v6 ?  M/ q% k' ^
        measureDistance1 = workPart.MeasureManager.NewDistance(nullUnit, _
% v* r7 `1 i/ C! X6 Z$ X            MeasureManager.MeasureType.Minimum, object1, object2)
4 d6 K% P, C, g6 j0 b* e. i) i
        Dim theLW As ListingWindow = theSession.ListingWindow
        theLW.Open()
        theLW.WriteLine("Minimum distance = " & measureDistance1.Value.ToString("F6"))

) c7 G; S( `2 V; I        ' optionally, create Distance Measurement feature (needs solid_modeling)
# S5 F; _5 m" L/ Z" Y: q        ' Dim measure1 As NXOpen.Measure = measureDistance1.CreateFeature()
        measureDistance1.Dispose()[/mw_shl_code]
3 X0 w9 W: O9 c/ ~