algorithmic modeling for Rhino
Dim rhObj As MRhinoObject = doc.LookupObject _
(New guid("CA0BC96F-64F3-4411-8D6E-37C094CBD629")) 'replace with your guid
Dim rhObjRef As New MRhinoObjRef(rhObj)
If rhobjRef.m_geometry_type = IRhinoObject.GEOMETRY_TYPE.point_object Then
Dim my3dPt As On3dPoint = rhObjRef.Point.point
Print(my3dPt.x & "," & my3dPt.y & "," & my3dPt.z)
End If
Welcome to
Grasshopper
Added by Parametric House 0 Comments 0 Likes
Added by Parametric House 0 Comments 0 Likes
Added by Parametric House 0 Comments 0 Likes
Added by Parametric House 0 Comments 0 Likes
Added by Parametric House 0 Comments 0 Likes
© 2024 Created by Scott Davidson. Powered by