拼了一个脚本,想实现像3dmax画线时按 i 键的中心视图功能,即放置目标点让视图以鼠标位置为中心。
现在脚本有了,就缺个快捷键。曾想过用循环捕捉按键状态来实现,觉得还是不理想,容易崩溃。
请教如何设置一个快捷键来运行rvb脚本?
如何设置一个快捷键来运行rvb脚本?
脚本代码:
Option Explicit
'Script written by <insert name>
'Script copyrighted by <insert company name>
'Script version 2021年10月9日 22:30:04
Call Main()
Sub Main()
Dim strView, arrTarget
strView = Rhino.CurrentView
arrTarget = Rhino.GetCursorPos
If IsArray(arrTarget) Then
Rhino.ViewTarget strView, arrTarget(0)
End If
End Sub
|
|
举报