iCAx开思工具箱

标题: VB.NET与UG 二次开发问题2 [打印本页]

作者: 昆山人 时间: 2006-9-19 10:44
标题: VB.NET与UG 二次开发问题2
我的步骤是这样的,请大虾们帮我看看问题出在什么地方.
1)找了一个例子如下:
Option Strict Off

Imports System
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.UI
Imports NXOpen.Utilities

Module catch_abort_signal_from_work_in_progress_dialog

  Dim s As Session = Session.GetSession()
  Dim ufs As UFSession = UFSession.GetUFSession()

Sub Main()

ufs.Abort.EnableAbort()

Dim the_counter As Integer = 0
Dim flag As Boolean = False

Do Until flag = True
      flag = increment_integer_and_check_flag(the_counter)
Loop

ufs.Abort.ClearAbort()

MsgBox("The value of the_counter reached " & the_counter.ToString)

End Sub

Public Function increment_integer_and_check_flag(ByRef i As Integer) As Boolean

Dim local_flag As Boolean = False
i = i + 1
ufs.Abort.AskFlagStatus(local_flag)

Return local_flag

End Function
  Public Function GetUnloadOption(ByVal dummy As String) As Integer

   GetUnloadOption = UFConstants.UF_UNLOAD_IMMEDIATELY

  End Function

End Module

2)打开VS,新建了一个console application,然后把上面的copy到modulel.vb中去,在project中把"启动对象"改成sub main,接下来debug,出现如图1的情况,发现在bin中生成一个像.exe的文件,双击出现如图2的情况,请帮我看看这是什么原因.谢谢了。

作者: chenwenwei 时间: 2006-9-20 07:20
你要到ug中才能调用

作者: 昆山人 时间: 2006-9-20 12:14
在UG----FILE----EXECUTE-----NXOPEN中在BIN文件夹下面只有几个UG中的.DLL文件,其他的就没有了。???

作者: 昆山人 时间: 2006-9-26 12:07
还往前辈们多多指教,等我们会了也会为论坛做贡献的。

作者: 昆山人 时间: 2006-10-8 09:42
我到UG中调用了....出现了如图所示的提示...

欢迎光临 iCAx开思工具箱 (https://t.icax.org/)