Importing a STEP file through vb script

Can someone point out whether there is any problem with the script below.

No error messages are generated but the step file does not get imported.

Many thanks

Private Sub RunScript(ByVal ManualTrigger As Object, ByVal Rootfile As Object, ByRef A As Object)
    Dim Path2 As String
    Path2 = Left(RootFile, len(RootFile) - 4) + "-SelectedPoints.stp"
    print(Path2)
    rhino.rhinoapp.runscript("-_import " + "" + Path2 + "" + "_ENTER", False)

End Sub

Replies to This Discussion

Permalink Reply by David Rutten on July 18, 2017 at 4:35am

This is VBScript code trying to run in a VB.NET environment. It's not necessarily going to fail, but it definitely relies on a lot of legacy methods to be in place.

VB string concatenation happens with the '&' operator, not the '+' operator.

First of all I'd recommend setting the input type hints on your component parameters. Object is not that helpful. Either set them to String, or Boolean, or whatever the data is supposed to be.

I've rewritten the function using a VB.NET approach.

Private Sub RunScript(ByVal ManualTrigger As Boolean, ByVal Rootfile As String, ByRef A As Object)

If (Not ManualTrigger) Then Return

Rootfile = Rootfile.SubString(0, Rootfile.Length - 4)

Dim path As String = Rootfile & "-SelectedPoints.stp"

Rhino.RhinoApp.WriteLine("path: " & path)

Dim command As String = String.Format("-_Import ""{0}"" _Enter", path)

Rhino.RhinoApp.WriteLine("command: " & command )

Rhino.RhinoApp.RunScript(command, False)

End Sub

Permalink Reply by WT4 on July 18, 2017 at 6:25am