| |
! -_RunScript (
Sub OpenWithV4
'© 2005 Jess Maertterer
Dim strRhino4, strExec, WshShell
strRhino4 = "C:\Program Files\Rhinoceros 4.0 Beta\System\Rhino4.exe"
strExec = strRhino4 & chr(32) & chr(34) & Rhino.DocumentPath & Rhino.DocumentName & chr(34)
Set WshShell = CreateObject("WScript.Shell")
WshShell.Exec(strExec)
End Sub
OpenWithV4
)
|