用vb.net在nx中画圆--完整源代码

这是源代码：

Imports System
Imports NXOpen
Imports NXOpenUI
Imports NXOpen.UF
Module CreatCircle
    Public theSession As Session = Session.GetSession()
    Public TheUFsess As UFSession = UFSession.GetUFSession()
    Private Sub SelectPoint(ByVal messageStr As String, ByRef SelectPoint() As Double) '-选点
        Dim ThisMeoth As NXOpen.UF.UFUi.PointBaseMethod = UFUi.PointBaseMethod.PointEndPt '--表示选点对话框默认为选取端点
        Dim SelectPointTag As Tag
        Dim inputInteger As Integer = 0
        TheUFsess.Ui.PointConstruct(messageStr, ThisMeoth, SelectPointTag, SelectPoint, inputInteger)
    End Sub
    Sub Main()
        Dim pt1(2) As Double
        Dim pt2(2) As Double
        Dim pt3(2) As Double
        Dim create_flag As Integer = 2 '--表示要画整圆
        Dim arc_tag As Tag = Tag.Null
        SelectPoint("选取第一点", pt1)
        SelectPoint("选取第二点", pt2)
        SelectPoint("选取第三点", pt3)
        TheUFsess.Curve.CreateArcThru3pts(create_flag, pt1, pt2, pt3, arc_tag)
    End Sub
    Public Function GetUnloadOption() As Integer
        Return Session.LibraryUnloadOption.Immediately '--表示程序运行完毕后立即从ug环境卸载
    End Function
End Module

alexcho 发表于 2009-10-5 11:40
LZ，帮忙看下，在UG里调967239试为何报这个错？我的UG是4.0的，有影响吗？

不要做成exe文件，做成dll，然后用ctrl+u执行这个dll程序

LZ，帮忙看下，在UG里调试为何报这个错？我的UG是4.0的，有影响吗？

lgmsddy 发表于 2009-10-4 08:37
生成的.dll文件是在ug内部运行的，你启动调试，它不知道在什么外部程序里面调试，当然会报错了。

兄弟，那如何才能解决呢？

就是你说的，在UG内部调试，谢谢，

生成的.dll文件是在ug内部运行的，你启动调试，它不知道在什么外部程序里面调试，当然会报错了。

楼主，为啥我的一调试就出这个警告？我的VS是2008，谢了，先，

支持你！

大哥，老是提示： Dialog area 2 is not currently available

关键用VBA搞UG开发资料太少，哪位大侠如果有这方面资料，请发给小弟学习，
我邮箱：zhou-xiao-wei@163.com

自学起来，挺难…………