NX9 Snap Help
NX9 Snap Help
(OP)
This is snap Code, and I just copy and paste from snap manual(page 100) to my vb code.
And Start is good, but I click "Ok", error message is appeared,,,
Why it happened?
My verseion is 9.0.3.4-Mp10

Imports Snap, Snap.UI
Public Class MyProgram
Public Shared Sub Main()
' Your code goes here
Dim dialog As New BlockForm()
dialog.Title = "Selection Demo"
Dim selectionBlock As New Block.SelectObject()
selectionBlock.Cue = "Please select a line to be hidden"
selectionBlock.SetFilter(NX.ObjectTypes.Type.Line)
selectionBlock.MaximumScope = Block.SelectionScope.AnyInAssembly
dialog.AddBlocks(selectionBlock)
Dim response = dialog.Show()
If response <> UI.Response.Cancel Then
selectionBlock.SelectedObjects(0).IsHidden = True
End If
End Sub
End Class
And Start is good, but I click "Ok", error message is appeared,,,
Why it happened?
My verseion is 9.0.3.4-Mp10

Imports Snap, Snap.UI
Public Class MyProgram
Public Shared Sub Main()
' Your code goes here
Dim dialog As New BlockForm()
dialog.Title = "Selection Demo"
Dim selectionBlock As New Block.SelectObject()
selectionBlock.Cue = "Please select a line to be hidden"
selectionBlock.SetFilter(NX.ObjectTypes.Type.Line)
selectionBlock.MaximumScope = Block.SelectionScope.AnyInAssembly
dialog.AddBlocks(selectionBlock)
Dim response = dialog.Show()
If response <> UI.Response.Cancel Then
selectionBlock.SelectedObjects(0).IsHidden = True
End If
End Sub
End Class





RE: NX9 Snap Help
Imports Snap, Snap.UI
Public Class MyProgram
Public Shared Sub Main()
Dim cue = "Please select a line to be hidden"
Dim dialog As Selection.Dialog = Selection.SelectObject(cue)
dialog.SetFilter(NX.ObjectTypes.Type.Line)
dialog.Title = "Selection Demo"
dialog.Scope = Selection.Dialog.SelectionScope.AnyInAssembly
dialog.IncludeFeatures = False
Dim result As Selection.Result = dialog.Show()
If result.Response <> NXOpen.Selection.Response.Cancel Then
result.Object.IsHidden = True
End If
End Sub
End Class
RE: NX9 Snap Help
Option Infer On
Imports Snap, Snap.UI
Public Class BlankLineDialog : Inherits UI.BlockForm
' The various members of a BlankLineDialog object
Dim selectionBlock As Block.SelectObject ' A SelectObject block
' Constructor to create a new BlankLineDialog
Public Sub New()
selectionBlock = New Block.SelectObject()
selectionBlock.Cue = "Please select a line to be hidden"
selectionBlock.SetFilter(NX.ObjectTypes.Type.Line)
selectionBlock.MaximumScope = Block.SelectionScope.AnyInAssembly
Me.AddBlocks(selectionBlock)
End Sub
' The main function
Public Shared Sub Main()
Dim dialog = New BlankLineDialog() ' Create a dialog
dialog.Show() ' Display it
End Sub
' Function that gets called when user clicks Apply (or OK)
Public Overrides Sub OnApply()
Dim selection = Me.selectionBlock.SelectedObjects(0)
selection.IsHidden = true
End Sub
End Class
RE: NX9 Snap Help