NXOpen-VB.net开发实例

先顶顶,再学习,不明再请教

可以用这个语句往SysLog文件里添加纪录
theSession.LogFile.WriteLine(“char strings")

[ 本帖最后由 vodka 于 2005-10-18 06:54 编辑 ]

Try语句块可以用来保护出错。这是一段实例

Dim arcArray1() As Arc
Dim sketchConstraintArray1() As SketchConstraint
Try
arcArray1 = theSession.ActiveSketch.Fillet(obj1, obj2, obj3, helpPoint1, helpPoint2, helpPoint3, _
                                           1.0,                                                  _
                                           Sketch.TrimInputOption.False,                         _
                                           Sketch.DeleteThirdCurveOption.False,                  _
                                           Sketch.CreateDimensionOption.False,                   _
                                           Sketch.AlternateSolutionOption.False,                 _
                                           sketchConstraintArray1)

Catch exc As NXException
MessageBox.Show("Select 3 curves for tangential constaints " & exc.Message)
theSession.LogFile.WriteLine(exc.Message )
End Try

受教了！谢谢，可是我的VB基础都忘了很多了，看来得从头来学过了

受益非浅

八错，VBA开发是容易上手的，顶一下！

有一段时间没到这里来了，  顶一下。
用vb.net对ug编程，现在才刚刚开始，都是菜鸟。象 vodka这样的高手太少了。以后还要放出来更多的“料”啊，我饥饿难耐呢

谢谢楼主指点，受益非浅！