Did you ever try to use the TAB key? I couldn’t use rhino without it…
Anyway, your request is still interesting! … rhinoscript to the rescue! ** super hero theme song starts **
This script simply: 1 get geometries, 2 ask for a point, 3 create a vertical line where you picked the point, 4 starts the “Move” command bypassing input geometries and start point part.
So you can snap into the line and hit the TAB key to constraint your direction along with Z.
(Also you can do the same with X and Y with ortho, and even temporary enable ortho by holding shift…)
I’ve never actually learn how to save scripts into their proper file.extension
So here is the code, copy-paste it into a new custom button…
-runscript (
sub MoveWithZHelper
' by Riccardo Majewski
Dim objs
objs = Rhino.SelectedObjects(true,true)
If Not IsArray(objs) Then
Rhino.UnselectAllObjects
objs = Rhino.GetObjects ("Select objects to move")
If IsNull(objs) Then Exit Sub
End If
Rhino.SelectObjects (objs)
pt = Rhino.GetPoint ("Point to move from")
d=10
lineX = Rhino.AddLine(array(pt(0)-d,pt(1),pt(2)), array(pt(0)+d,pt(1),pt(2)))
lineY = Rhino.AddLine(array(pt(0),pt(1)-d,pt(2)), array(pt(0),pt(1)+d,pt(2)))
lineZ = Rhino.AddLine(array(pt(0),pt(1),pt(2)-d), array(pt(0),pt(1),pt(2)+d))
Rhino.ObjectColor lineX, RGB(200,50,50)
Rhino.ObjectColor lineY, RGB(50,200,50)
Rhino.ObjectColor lineZ, RGB(50,50,200)
Rhino.Command (" _Move "&rhino.pt2str(pt, 6))
Rhino.DeleteObject (lineX)
Rhino.DeleteObject (lineY)
Rhino.DeleteObject (lineZ)
End sub
MoveWithZHelper
)
Updated: