请问有谁使用vb.net作ug开发？

哦，对了。代码中没有调用GetUnloadOption()这个函数。这是推出函数。是接受键盘的提醒才加上的，在另外一个窗体中通过按钮调用，因为窗体与本题无关，我删除了。

不会VB.NET语言。

推测一下，VB.NET也是对象化的东西，是不是你的sss对象申明之后，还需要有一些初始化之类的行为？

我觉得问题是这样的，selection对象是依附与UIstyler的对话框的，你不能在其他的对话框（比如VB的对话框，或者是其他任何类库的对话框）里面去调用它，不然会出错滴。

我记得以前在同时处理uistyler对话框和其他的对话框时候，要lock ug的access，这样才能避免对话框资源冲突，你要调class selection的对话框也是一个uistyler的。我觉得也应该去lock一下。

Give you an example

Sub SelectCurve(ByRef selectedObject As NXObject, ByRef helpPoint As Point3d)

        Dim ui As UI = ui.GetUI

        Dim message As String = "Select curve"
        Dim title As String = "Selection"

        Dim scope As Selection.SelectionScope = Selection.SelectionScope.WorkPart
        Dim keepHighlighted As Boolean = True
        Dim includeFeatures As Boolean = True
        Dim response As Selection.Response
        Dim selectionAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific

        response = ui.SelectionManager.SelectObject(message, title, scope, false, false, selectedObject, helpPoint)
        If response = Selection.Response.Cancel Or response = Selection.Response.Back Then
            Return
        End If
    End Sub

你的代码里面 Dim theui As UI = ui.GetUI 漏写了
以上代码你改一下应该可以run的。
用VB.net写的代码不用编译就可以运行的，用Alt+F8 直接运行。最后在递交前编译，如果你喜欢
一般来说， NXOPEN VB.net 不用 UI Styler的，你可以用Windows Form做界面， 非常方便的

[ 本帖最后由 vodka 于 2006-1-6 23:26 编辑 ]

vodka你好！
凭直觉，我觉得你是一个专家级的高手，我先按照你的方法试试。然后再作评论！

成功了！
困扰多日的难题解决了，谢谢vodka！

也谢谢键盘！的确，是应该做一些初始化。selection不应该直接调用，我这是初次使用ug内部的类库，很不熟悉。也谢谢超级女生，可惜我对uistyle不懂。以后请多多指教！

原帖由 zhangcanwei 于 2006-1-6 19:08 发表
成功了！
困扰多日的难题解决了，谢谢vodka！

也谢谢键盘！的确，是应该做一些初始化。selection不应该直接调用，我这是初次使用ug内部的类库，很不熟悉。也谢谢超级女生，可惜我对uistyle不懂。以后请多 ...

德尔燕

希望Vodka多多指教!

真是高手