用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

这是完整工程文件

附注：

  代码用visual studio 2005编写，用2008可直接打开
NX必须是5.0或者以上版本。

  由为了减小大小，我把引用的nx文件删除了。可以在..\UGII\managed找到引用dll，全部引用过来

学习学习！正在研究这个呢

不知高手有什么好方法推荐一下吧！

用不着这么复杂的。。。头都晕了。。

这只是例子，不是实际应用程序。呵呵，难道源代码很复杂吗？如果源代码不正规一些，那程序就长不了，100行很得意，1000行那才是真正头晕了。超过万行就没戏了

[ 本帖最后由 zhangcanwei 于 2008-11-20 07:10 编辑 ]

但是，真正实用的小程序，没有近万行，就很粗糙。就像低端汽车，永远都是满足于四个轮子一个方向盘，很粗糙

[ 本帖最后由 zhangcanwei 于 2008-11-20 07:12 编辑 ]

象楼主这样的热心人已经很少了。支持你！

张工：我是lgm,我来帮你顶起来