algorithmic modeling for Rhino
Tags:
Dim ptlist As New List(Of On3dPoint)
Dim go As New MRhinoGetObject()
go.SetCommandPrompt("Select text objects")
Dim res As IRhinoGet.result = go.GetObjects(1, 0)
For i As Integer = 0 To go.ObjectCount() - 1
Dim annotation_obj As IRhinoAnnotationText = MRhinoAnnotationText.ConstCast(go.Object(i).Object())
Dim pt As New On3dPoint
pt = annotation_obj.Corner3dPoint(0)
pt.z = Convert.ToDouble(annotation_obj.String)
ptlist.Add(pt)
Next
a = ptlist
Dim objref As New MRhinoObjRef(New Guid(x))
Dim annotation_obj As IRhinoAnnotationText = MRhinoAnnotationText.ConstCast(objref.Object)
Dim pt As New On3dPoint(annotation_obj.Corner3dPoint(0))
pt.z = Convert.ToDouble(annotation_obj.String)
a = pt
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