About RhinoGet class

If I use RhinoGet outside of CommandClass, I find that RhinoGet doesn’t work properly. For example, I use RhinoCommon to write selection function for Rhinoscript, and then I use VBS to call the function, I found that RhinoGet can work, but I can not choose any object, as if the mouse was blocked. Outside of the CommandClass, calling RhinoGet is needs any special steps?

Can you provide some code that does not work for you?

sorry, I made a mistake, it can run in rhinoscript-Editor,But it’s not working properly in VB6.0-Editor.

it can run in rhinoscript-Editor:(is ok)

  1.  Dim objPlugIn
  2. On Error Resume Next
  3. Set objPlugIn = Rhino.GetPluginObject(“testPlugIn”)
  4. If Err Then
  5.  MsgBox Err.Description
  6.  Exit Sub
  7. End If
  8.  objPlugIn.selectobj 

run in VB6.0-Editor:(Can not work properly)

  1. Dim rhapp As Rhino5Interface
  2. Set rhapp = New Rhino5Interface
  3. Dim rhscript As RhinoScript
  4. Set rhscript = rhapp.GetScriptObject
  5. Dim myscript As Object
  6. Set myscript = rhscript.GetPlugInObject("testPlugIn")
  7. On Error Resume Next
  8. If Err.Number = 0 Then
  9.    myscript.selectobj
  10. End If

In VB6.0
Private Sub Command1_Click()
Dim rhapp As Rhino5Interface
Set rhapp = New Rhino5Interface
Dim rhscript As RhinoScript
Set rhscript = rhapp.GetScriptObject
Dim myscript As Object
Set myscript = rhscript.GetPlugInObject(“testPlugIn”)
On Error Resume Next
If Err.Number = 0 Then
End If
End Sub