Poin Constructor Code:
 
        Dim o As NXOpen.UF.UFUi '???
        Dim coord As CoordSys
        Dim point_tag As NXOpen.Tag
        Dim base_pt(2) As Double
        Dim response As Integer
 
        Dim nxopenSession As NXOpen.UF.UFSession = _
          NXOpen.UF.UFSession.GetUFSession()
 
        nxopenSession.Ui.LockUgAccess(NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
        Try
            o.PointConstruct("Bestimmen Sie die Einfüge-Position", _
              o.PointBaseMethod.PointIntersectPt, point_tag, base_pt, response)
        Finally
            nxopenSession.Ui.UnlockUgAccess( _
              NXOpen.UF.UFConstants.UF_UI_FROM_CUSTOM)
 
        End Try
Select Case ret
            Case 1,2
                        Return E_ABORT
            Case 3
                       coord = CoordSys(position, Matrix3(point_tag))
            Case 7
                        Return E_FAIL
End Select