Module Module1
Dim s As Session = Session.GetSession()
Dim ufs As UFSession = UFSession.GetUFSession()
Sub Main()
Dim sp As New Point3d(10, 10, 10)‘定义一个点'
Dim thepoint As Point = s.Parts.Work.Points.CreatePoint(sp)
thepoint.SetVisibility(NXOpen.SmartObject.VisibilityOption.Visible)
s.Parts.Work.Layers.SetState(2, Layer.State.Selectable)
Dim a As New Form1
a.Show()
End Sub
Public Function getunloadoption(ByVal dummy As String) As Integer
getunloadoption = UFConstants.UF_UNLOAD_IMMEDIATELY
End Function
End Module
求其它命令详解。作者: liutaoren1 时间: 2007-5-7 20:21
高手呢?
你在哪里?作者: 苏州人 时间: 2007-5-8 10:27
没有看懂你要说的是什么意思作者: liutaoren1 时间: 2007-5-13 22:00
我的意思是vb.net 用什么命令得ugcam中刀具名称.程序名,加工方法.作者: zmjacky 时间: 2007-5-27 15:30
建议用间接的方式得ugcam中刀具名称.程序名,加工方法.