已知实体求重量

gwwgj

我是一个首鉓行业的，经常要用到重量，重量是体积*密度。rhino里有求体积的命令 volume,但我还得手工用计算机来计算重量，我现在想可以一键得重量，就像有一个命令可以值接得到重量，不知哪位大大可以教教。

modern

写个小代码就可以实现了
帮你作成一小按钮


安装方法就是直接 "重量.rui" 拖入犀牛
重量.rar (8.06 KB, 下载次数: 131)

2015-12-11 00:00 上传

点击文件名下载附件

原代码

[Visual Basic] 纯文本查看 复制代码

Sub Main()
        Const rhObjectPolySurface = 16

        Dim strObject, arrMP

        strObject = Rhino.GetObject("请选择封闭多重曲面", rhObjectPolySurface)

        If Rhino.IsPolySurfaceClosed(strObject) Then

                arrMP = Rhino.SurfaceVolume(strObject)

                If IsArray(arrMP) Then

                        Rhino.Print "体积: " & CStr(arrMP(0))
                        Rhino.Print "黄金重量: " & CStr(arrMP(0) * 19.32)
                        Rhino.Print "白金重量: " & CStr(arrMP(0) * 21.45)
                        Rhino.Print "银重量: " & CStr(arrMP(0) * 10.5020)

                End If

        End If
        
End Sub
Main

ql464831764

好东西

jesse430

真不错

coreldraw9

我也很需要

coreldraw9

老师，要计算塑料重量，这个代码要怎么改？，如ABS、PP之类

韦文耀

66666666666666

modern

coreldraw9 发表于 2015-12-9 22:23
老师，要计算塑料重量，这个代码要怎么改？，如ABS、PP之类

中文按需要替换


代码中


CStr(arrMP(0) * 密度)

lzjjjs

gwwgj

modern 发表于 2015-12-9 17:19
写个小代码就可以实现了
帮你作成一小按钮

多设备M大，你的一个小小帮助让我心里感激

gwwgj

modern 发表于 2015-12-9 17:19
写个小代码就可以实现了
帮你作成一小按钮

M大，刚才试了一下，好像STL的不可以，能不能帮忙改一下

gwwgj

modern 发表于 2015-12-9 17:19
写个小代码就可以实现了
帮你作成一小按钮

十分感谢。

设计师xz

好东西，m大辛苦了

maya3d4d

谢谢分享

modern

gwwgj 发表于 2015-12-10 09:41
M大，刚才试了一下，好像STL的不可以，能不能帮忙改一下

我已经更新了下载
增加了右键功能，计算网格重量