Rhino 6.0.18016.23451: Rhino script form external access

Scripting
1

Hi,
with Rhino 5 (32 bit) this .vbs script

Dim objRhino
On Error Resume Next
Set objRhino = CreateObject("Rhino5.Interface")
If Err.Number=0 then
nRetries = 0
Do While (nRetries < 10)
  If objRhino.IsInitialized = 0 Then
   Call WScript.Sleep(500)
  End If 
   nRetries = nRetries + 1
Loop
 Call objRhino.RunScript("_Open",0)
Else
  Call WScript.Echo("Rhino initialization failed")
End If

works well (it shows the open dialog file).

But with Rhino 6, the same .vbs script:

Dim objRhino
On Error Resume Next
Set objRhino = CreateObject("Rhino.Interface.6")
If Err.Number=0 then
nRetries = 0
Do While (nRetries < 10)
  If objRhino.IsInitialized = 0 Then
   Call WScript.Sleep(500)
  End If 
   nRetries = nRetries + 1
Loop
 Call objRhino.RunScript("_Open",0)
Else
  Call WScript.Echo("Rhino initialization failed")
End If

does not works (not shows the open dialog file).

Is there a problem of my installation or is a bug?

Thanks in advance

3

Hi @sdona,

This will be fixed in Service Release 2.

https://mcneel.myjetbrains.com/youtrack/issue/RH-43783

Thanks,

— Dale

6

Hi Dale,
it seems to be happened again.
In Rhino 7.1.20343.09491,
if I run this .vbs script:

Dim objRhino, objRhinoScript, nRetries
On Error Resume Next
Set objRhino = CreateObject("Rhino.Interface.7")
If Err.Number <> 0 Then
  Call WScript.Echo("Failed to create Rhino object.")
Else
  nRetries = 0
  Do While (nRetries < 10)
    If objRhino.IsInitialized = 0 Then
      Call WScript.Sleep(500)
      nRetries = nRetries + 1
    Else
	 nRetries = 10
    End If
  Loop
  If objRhino.IsInitialized = 1 Then
    Set objRhinoScript = objRhino.GetScriptObject
	objRhinoScript.Command "_Line 0,0,0 5,5,5"
  End If	
End If

Rhino does not execute the command
and shows me only a Message Dialog (not in front) asking:
Save changes to Untitled?

With Rhino 7 (7.0) first release, this script works fine.

7

Hi @sdona,

I’ve tested your code and Rhino 7 is adding your line. If you want to verify this just run this slightly modified version:

Dim objRhino, objRhinoScript, nRetries
On Error Resume Next
Set objRhino = CreateObject("Rhino.Interface.7")
If Err.Number <> 0 Then
  Call WScript.Echo("Failed to create Rhino object.")
Else
  nRetries = 0
  Do While (nRetries < 10)
    If objRhino.IsInitialized = 0 Then
      Call WScript.Sleep(500)
      nRetries = nRetries + 1
    Else
	 nRetries = 10
    End If
  Loop
  If objRhino.IsInitialized = 1 Then
    Set objRhinoScript = objRhino.GetScriptObject
	  objRhinoScript.Command "_Line 0,0,0 5,5,5"
    objRhino.Visible  = 1 ' Add this...
  End If	
End If

– Dale

8

Hi Dale,
thank you for your answer.
I tried adding this line:

objRhino.Visible = 1 ' Add this...

and a “second instance” of rhino is showed with the drwan line.
The Message Dialog asking
Save changes to Untitled?
is always showed.
But, how I can draw the line in the “current draw” of the running Rhino without
opening this second instance of Rhino?
Thanks in advance

9

Hi Dale,
I tested the script with
Rhino 7.2.21012.11001,
and it continue to open a second instance.
But is dropped the possibility to draw in the “current draw” ?
If not, how can I do ?
Thanks in advance

10

Hi @sdona,

This issue was fixed in Rhino 7 SR3.

https://mcneel.myjetbrains.com/youtrack/issue/RH-62126

– Dale