VBA to copy and paste string to rhino textbox

Rhino Rhino for Windows
1

Option Explicit

Sub Location
On Error Resume Next
Dim strFileSize
strFileSize = FileName

End Sub

Function FileName

Dim strPath
Dim CopyPaste

StrPath = Rhino.DocumentPath & Rhino.DocumentName

CopyPaste = MsgBox("Would you text of the file location?", vbYesNo)

	If CopyPaste = vbYes Then
	
		'Trying to copy and paste strPath into textbox and put directly into Rhino. Cannot find a way.
		
		'Rhino.TextOut strPath Optional
		
		Else
	
	End If

End Function

Rhino.AddAlias “Location”, “_NoEcho _-Runscript Location”

Rhino.AddStartupScript Rhino.LastLoadedScriptFile

This is the script I am attempting to make. I have to take strPath and make a text box in rhino with the contents of strPath. I just can’t seem to do it. Could anyone tell me what i’m missing here? I’ve looked for the syntax for Rhino and i just can’t find it.

@pascal?

2

I have tried both Rhino.command _text and -text. However they seem to lack the feature of bringing in the string.

I’ve also tried Rhino.command -text with a % < filename > %. It does not function the same as _text.

3

im not sure what are you trying.
you have multiple options to output:
Rhino.StringBox ([strMessage [, strString [, strTitle]]])
rhino.print strMessage
etc

4

I do apologies for that. I’ve tried it multiple ways!

I’m just trying to get the documentpath and documentname in text in Rhino. So my initial thought was to copy and paste like this but cannot find a way to open a -text or _text with rhino.command to paste the data.

Option Explicit

Sub Location
On Error Resume Next
Dim strFileSize
strFileSize = FileName

End Sub

Function FileName

Dim strPath
Dim CopyPaste

StrPath = Rhino.DocumentPath & Rhino.DocumentName

CopyPaste = MsgBox("Would you like the file location?", vbYesNo)

	If CopyPaste = vbYes Then
	
		Call Rhino.ClipboardText (strPath)
		
		
		
		Else
	
	End If

End Function

Rhino.AddAlias “Location”, “_NoEcho _-Runscript Location”

Rhino.AddStartupScript Rhino.LastLoadedScriptFile

5

After calling strPath i now want to make a rhino textbox and paste the path into it.

Hopefully i’ve cleared up my intentions.

6

I am unfamiliar with rhino.stringbox.

7 
StrPath = Rhino.DocumentPath & "\" & Rhino.DocumentName
result=Rhino.StringBox(StrPath, default_string_value, strTitle  )

you shuld have this in C:\Program Files\Rhinoceros 5 (64-bit)\Plug-ins
RhinoScript.zip (2.0 MB)

8

Thanks Javier!

The “” is duplicating the \ already present so i kept my original strPath.

Wouldn’t Result have to be declared as a variable in order for that line to work?

9

Im aiming to get it in the ACTUAL workspace as text. The end result is for users to be able to snippet with the location in the workspace.

10

Like this. Where it is text in the actual workspace.

Capture
Capture1359×735 103 KB

11 
height=5
arrpoint=Rhino.GetPoint("Pick point")
Rhino.addtext "wfoder: " & Rhino.WorkingFolder () _

& vbCrLf & "path: "& Rhino.DocumentPath(),arrpoint,height

12

Javier! You are AWESOME!

WIth your help i was able to get this basic set working! Now i just have to add a fail safe in case the file isn’t actually saved. Some error codes. And i’ll be done! Basic codes works as follows:

Option Explicit

Sub Location
On Error Resume Next
Dim strFileSize
strFileSize = FileName

End Sub

Function FileName

Dim strPath, CopyPaste, arrPoint

StrPath = Rhino.DocumentPath & Rhino.DocumentName
CopyPaste = MsgBox("Continue With Filename?", vbYesNo)
arrPoint = Rhino.GetPoint ("Pick Insertion Point")

	If CopyPaste = vbYes Then
	
		IsArray(arrPoint)
			Rhino.AddText strPath, arrPoint

	End If

End Function

Rhino.AddAlias “Location”, “_NoEcho _-Runscript Location”

Rhino.AddStartupScript Rhino.LastLoadedScriptFile

13

if not saved the default is last used

Portapapeles-1
Portapapeles-11521×657 151 KB

14

I plan on just canceling the sub entirely if not saved. This will be attached to the PRINT button so people stop printing without file locations!

Thanks Javier!

15

@JavierG

I’ve been looking to find a way to trap the initial log that shows where the file is loaded from. Do you know if there is a way to do this?

16

Basically what i’m asking is there a workingfile or workingpath?

Working folder only give the Directory used to pull up the Filename.

Is there a way to get the current working filename?

17

Hi Joseph - doesn’t Rhino.DocumentName(), Rhino.DocumentPath() get you that?

-Pascal

18

Only if it’s saved @pascal. STP files by default are not linked to their source file. And if i force them to save, they tend to give them undesirable names vs job numbers. :slight_smile:

19

If i can combine Rhino.WorkingFolder with something that will get me the original filename as well. I’d be a happy camper!

But i looked through the the Filesettings class syntax and do not see a syntax to pull it up like WorkingFolder pulls the original location.

20

Hi Joseph - can you incorporate the opening of the file into the script, or possibly a different one and you can add the path as document data that the current script can grab.

-Pascal