About RhinoGet class

Rhino Developer
1

Hello.
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?

2

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

3

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

QQ截图20160809014647.jpg844×216 120 KB

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
4

QQ截图20160809014647.jpg844×216 120 KB

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
myscript.selectobj
End If
End Sub