iCAx开思网

标题: 用vb.net在nx中画圆--完整源代码 [打印本页]

作者: zhangcanwei 时间: 2008-11-2 11:06
标题: 用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

作者: zhangcanwei 时间: 2008-11-2 11:06
这是完整工程文件

作者: zhangcanwei 时间: 2008-11-2 11:11
附注：

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

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

作者: 昱仁吾子 时间: 2008-11-2 15:22
学习学习！正在研究这个呢

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

作者: 苏州人 时间: 2008-11-6 11:37
用不着这么复杂的。。。头都晕了。。

作者: ydfu88 时间: 2008-11-19 14:35

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

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

作者: zhangcanwei 时间: 2008-11-20 00:02
但是，真正实用的小程序，没有近万行，就很粗糙。就像低端汽车，永远都是满足于四个轮子一个方向盘，很粗糙

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

作者: zhaojianhong 时间: 2009-7-23 13:18
象楼主这样的热心人已经很少了。支持你！

作者: lgmsddy 时间: 2009-7-26 07:29
张工：我是lgm,我来帮你顶起来

作者: lgmsddy 时间: 2009-7-26 07:31
市面上，用vb.net对ug进行二次开发的资料，几乎没有

作者: lgmsddy 时间: 2009-7-26 07:32
自学起来，挺难…………

作者: UG008 时间: 2009-8-11 20:28
关键用VBA搞UG开发资料太少，哪位大侠如果有这方面资料，请发给小弟学习，
我邮箱：zhou-xiao-wei@163.com

作者: pa66 时间: 2009-8-27 13:47
大哥，老是提示： Dialog area 2 is not currently available

作者: xiaoweibin 时间: 2009-8-27 22:19
支持你！

作者: alexcho 时间: 2009-9-27 15:06
楼主，为啥我的一调试就出这个警告？我的VS是2008，谢了，先，

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

作者: alexcho 时间: 2009-10-4 11:55

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

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

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

作者: alexcho 时间: 2009-10-5 11:40
LZ，帮忙看下，在UG里调[attach]967239[/attach]试为何报这个错？我的UG是4.0的，有影响吗？

作者: zhangcanwei 时间: 2009-10-5 14:33

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

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

欢迎光临 iCAx开思网 (https://www.icax.org/)