如题。另外,求vb.net在ug二次开发的那些控件应用方法。比如
Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.UF
Imports NXOpenUI
Imports NXOpen.Utilities
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
求其它命令详解。