×

工业设计互动平台

手机短信,快捷登录

微信登录,快人一步

QQ登录

只需一步,快速开始

如何设置一个快捷键来运行rvb脚本?

发布于 2021-10-10 0 点赞 4 评论 1907 浏览

拼了一个脚本,想实现像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

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精彩回复

文明上网理性发言、请文明用语

一起去眺海 | 设计主管 | 发表于 2021-10-17 00:33:08
已经编译成插件但无法正常运行,原因不明。以脚本方式加载在Rhino567版本是没问题的,谁会编译插件请帮忙试一下,附上完整脚本文件--- Target.rar (934 Bytes, 下载次数: 5)
1 回复

举报

一起去眺海 | 设计主管 | 发表于 2021-10-10 02:02:50
想了好久,觉得用AddAlias应该可以。。。。。。
0 回复

举报

一起去眺海 | 设计主管 | 发表于 2021-10-10 03:17:08
自问自答。。。。搞定了

1.png

2.png
代码:
'-----------------------code begin----------------------------------
Option Explicit
'Rhino vbr脚本实现3dmax中心视图快捷键功能
'一起去眺海@学犀牛论坛www.xuexiniu.com
'Script version 2021年10月9日 22:30:04


'Call Main()
Sub Target
        Dim strView, arrTarget

        strView = Rhino.CurrentView
        
        arrTarget = Rhino.GetCursorPos
        
        If IsArray(arrTarget) Then

                Rhino.ViewTarget strView, arrTarget(0)

        End If
        
End Sub

Rhino.AddAlias "Target", "_-RunScript (Target)"
'--------------------------code end---------------------------------------
代码存为Target.rvb,在工具-脚本-载入,快捷键设为F4了不是Max的i键
测试效果
3.png

4.png

第一次用vbr,还挺有用处的,欢迎使用,交流。。。。。。。
0 回复

举报

一起去眺海 | 设计主管 | 发表于 2021-10-10 03:24:55
老是习惯把rvb叫成vbr,习惯固化,被vbs vba带偏了,算了,不改了。
0 回复

举报

推荐学习