NX Open显示符号（UF_DISP_display_temporary

NX Open显示符号（UF_DISP_display_temporary_point）

UF_DISP_display_temporary_point

使用方法：

 1 Dim x As Double = 0, y As Double = 0, z As Double = 0
 2 
 3        Dim theUfSession = UFSession.GetUFSession() 
 4        theUfSession.Disp.Refresh()
 5 
 6        Dim view_tag As NXOpen.Tag = NXOpen.Tag.Null 
 7        theUfSession.View.AskWorkView(view_tag)
 8 
 9        Dim which_views = NXOpen.UF.UFDisp.ViewType.UseWorkView
10 
11        Dim layer_number As Integer = 0 
12        theUfSession.Layer.AskWorkLayer(layer_number) 
13        Dim color As NXOpen.UF.UFObj.DispProps 
14        With color 
15            .layer = layer_number 
16            .color = 216 ' 114 
17            .blank_status = UFConstants.UF_OBJ_NOT_BLANKED 
18            .line_width = UFConstants.UF_OBJ_WIDTH_NORMAL 
19            .highlight_status = True 
20        End With
21 
22        For Each marker_type In [Enum].GetValues(GetType(NXOpen.UF.UFDisp.PolyMarker)) 
23            Try 
24                Dim makerpos() As Double = {x, y, z} 
25                theUfSession.Disp.DisplayTemporaryPoint(view_tag, which_views, makerpos, color, marker_type) 
26            Catch ex As Exception 
27            End Try 
28            Dim ref_point As UFDisp.TextRef = NXOpen.UF.UFDisp.TextRef.Middleleft 
29            Dim text as String = marker_type 
30            Dim text_coord() As Double = {x + 2, y, z} 
31            theUfSession.Disp.DisplayTemporaryText(view_tag, which_views, text, text_coord, ref_point, color, 3, 1) 
32            text = [Enum].GetName(marker_type.GetType, marker_type) 
33            text_coord = {x + 5, y, z} 
34            theUfSession.Disp.DisplayTemporaryText(view_tag, which_views, text, text_coord, ref_point, color, 3, 1) 
35            y -= 2 
36        Next

效果图、序号、名称如下所示：