NX Open显示符号（UF_DISP_display_temporary_point）

UF_DISP_display_temporary_point

使用方法：

Dim x As Double = 0, y As Double = 0, z As Double = 0

       Dim theUfSession = UFSession.GetUFSession() 
       theUfSession.Disp.Refresh()

       Dim view_tag As NXOpen.Tag = NXOpen.Tag.Null 
       theUfSession.View.AskWorkView(view_tag)

       Dim which_views = NXOpen.UF.UFDisp.ViewType.UseWorkView

       Dim layer_number As Integer = 0 
       theUfSession.Layer.AskWorkLayer(layer_number) 
       Dim color As NXOpen.UF.UFObj.DispProps 
       With color 
           .layer = layer_number 
           .color = 216 ' 114 
           .blank_status = UFConstants.UF_OBJ_NOT_BLANKED 
           .line_width = UFConstants.UF_OBJ_WIDTH_NORMAL 
           .highlight_status = True 
       End With

       For Each marker_type In [Enum].GetValues(GetType(NXOpen.UF.UFDisp.PolyMarker)) 
           Try 
               Dim makerpos() As Double = {x, y, z} 
               theUfSession.Disp.DisplayTemporaryPoint(view_tag, which_views, makerpos, color, marker_type) 
           Catch ex As Exception 
           End Try 
           Dim ref_point As UFDisp.TextRef = NXOpen.UF.UFDisp.TextRef.Middleleft 
           Dim text as String = marker_type 
           Dim text_coord() As Double = {x + 2, y, z} 
           theUfSession.Disp.DisplayTemporaryText(view_tag, which_views, text, text_coord, ref_point, color, 3, 1) 
           text = [Enum].GetName(marker_type.GetType, marker_type) 
           text_coord = {x + 5, y, z} 
           theUfSession.Disp.DisplayTemporaryText(view_tag, which_views, text, text_coord, ref_point, color, 3, 1) 
           y -= 2 
       Next

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