Surfaces in sqaure meters (Rhino,C4D)......

[pilgonico]

Hello


I have a model (mesh,nurbs etc) wish I want by click I have the these data.
I work both C4D and Rhino...

would love to get how u get it both...
thanx

[stefan]

c4d doesnt have that, but rhino of course, i would get that data in rhino.

by the way we soon rleease a direct rhino to c4d connection:-)
you might like that, so c4d reads 3dm files and c4d writes 3d files(taking all layer, rgoup, block, camera, custom mesh, render mesh, layer color, etc options to c4d)

cheers
stefan

[pilgonico]

thanx stefan sounds promising..

but...can u explain me how you get the data in Rhino then......?

[Egor]

by the way we soon rleease a direct rhino to c4d connection:-)
Any release date info about that "connection"?...

[stefan]

rhino.io will be released in next days, so it real close:-)
cheers
sefan

[Tong]

well C4D does have it ;-)

1)
http://www.remotion4d.net/redokuwiki/lib/exe/fetch.php?w=&h=&cache=cache&media=geotools:geotools_topinfo2.jpg

http://www.remotion4d.net/redokuwiki/doku.php?id=geotools

2)
http://img469.imageshack.us/img469/3199/vsmdialogexplained4vk.jpg


ps: for volume only
http://www.geocities.jp/westy_net/tools/coffee/plugins/plugins009/VolumeInfo1_0.html
http://wiki.c4d-jack.de/wiki/QuickVol_%28Coffee-Plugin%29

[Tong]

Run from the Rhinoscript editor with already opened Excel

Option Explicit


Sub ExtractProps2XL

' Declare variables
Dim xlApp, xlBook, xlSheet ' Declare variable to hold the reference.
Dim strObject
Dim arrObjects
Dim intCount
Dim arrPoint


'Initialize count
intCount = 0


' Select some objects
arrObjects = Rhino.GetObjects("Pick some (Poly)Surfaces for processing", 24)
If Not IsArray(arrObjects) Then Exit Sub

' Open Excel object
On Error Resume Next
Set xlApp = GetObject(,"excel.application")
If err Then
Rhino.print "Excel not found. Operation aborted!"
Exit Sub
End If
On Error GoTo 0
xlApp.Visible = True

Set xlBook = xlApp.ActiveWorkbook
Set xlSheet = xlBook.ActiveSheet


'Place titles on sheet
xlApp.Cells(1,1).Value = "Mass Properties"
xlApp.Cells(1,2).Value = "Object Identifier"
xlApp.Cells(1,3).Value = "Surface Area"
xlApp.Cells(1,4).Value = "Volume"

'Extract Properties of Surfaces
For Each strObject In arrObjects

If Rhino.IsObjectSolid(strObject) Then
Rhino.ObjectName strObject, "Solid" & intCount
xlApp.Cells(intCount + 2, 2).Value = Rhino.ObjectName(strObject)
xlApp.Cells(intCount + 2, 3).Value = Rhino.SurfaceArea(strobject)(0)
xlApp.Cells(intCount + 2, 4).Value = Rhino.SurfaceVolume(strobject)(0)

End If
intCount = intCount + 1
Next


'xlApp.Quit ' If closing excel is required
Set xlApp = Nothing ' the application, then release the reference.
End Sub

ExtractProps2XL


Type on the command line "Area", then select the surfaces you want to know the area.
now, for weight of a bulkhead (as example) at least on V2 there is no way to set a density, so you need to use a calculator or spreadsheet to calculate weight.

Area (from Rhino) x Thickness x Density of material= Weight

or...

Area (from Rhino) x Wt per Sqr m of the material = Weight

or...

Convert the Area into a solid

Volume (From Rhino) x Density = Weight

[Egor]

rhino.io will be released in next days, so it real close:-)
cheers
sefan
Nice! I work Rhino+c4d (or maya) for a long time already and this "connection" will be very very very useful! thnks!

[pilgonico]

hello

didnt get the solutions ..didnt work for me

is there a way to measure up outer coating of 3d surface (amorfic) built in 3d rhino
by pressing a button? or in C4D?

would love to get an explanation

thanx

[shane]

I think you are asking in the wrong Forum. You will get all of the answers you need in the Rhino forum.

But, to answer your question you should have all of the tools you need in to calculate area, volume, etc. in Rhino's analize menu.

-Shane

[pilgonico]

shane

do u believe me I have tried several times in some Rhino forums.....apparentely death forums
no answers !!!

anyway....U way satisfied me with UR answer !!!

Thanx man !