uG.NET 中选择点构造器函数使用 疑问

Option Strict Off
Imports NXOpen
Imports NXOpenUI
Imports NXOpen.UF
Imports NXOpen.Utilities
Module Module2
    Dim S As Session = Session.GetSession()
    Dim UFS As UFSession = UFSession.GetUFSession()
    Dim workpart As Part = S.Parts.Work()
    Sub Main()
        Dim cue As String = "请选择一点"
        Dim point_tag As Tag
        Dim base_pt(0 To 2) As Double
   
        Dim base_methold As NXOpen.UF.UFUi.PointBaseMethod
        base_methold = UFUi.PointBaseMethod.PointInferred
        Dim response As Integer
        UFS.Ui.PointConstruct(cue, base_methold, point_tag, base_pt, response)
        UFS.Curve.CreatePoint(base_pt, point_tag)
    End Sub
    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        GetUnloadOption = UFConstants.UF_UNLOAD_IMMEDIATELY
    End Function
End Module

上面程序总是报错，请各位大侠指点

这个错误时由于你直接在UG的操作记录编辑器里面运行导致的，
UG的操作记录编辑器可以完美的支持.NET类，也就是NXOpen命名空间中的东西，但对NXOpen.UF中的很多函数支持不好，运行时会发生莫名其妙的错误，因为UF是将WIN32函数经过.NET方式封装后形成的库，操作记录编辑器在对一些UF函数接口的参数转换传递时会发生错误，导致无法运行。
解决方法：不要在UG操作记录编辑器里运行，要将你的程序编译成DLL后调用运行

非常感谢“tealy”朋友。

建议楼主给你加分

路过，帮顶………………