Hi folks - long time no see! I have 2500 holes to place at point locations in my file. I found this old Rhinoscript by Damon - any chance I could get it rewritten in Python so I can use it in Mac Rhino?
Option Explicit 'Script written by Damon Sidel 'Script copyrighted by Damon Sidel 'Script version Sunday, April 19, 2009 7:22:34 PM Call CopyToPoints() Sub CopyToPoints() Dim pts : pts = Rhino.GetPointCoordinates("Select points",True) If IsNull(pts) Then Exit Sub Dim copyObj : copyObj = Rhino.GetObject("Select object to copy") If IsNull(copyObj) Then Exit Sub Dim copyObjOrigin : copyObjOrigin = Rhino.GetPointCoordinates("Select point at origin of object being copied") If IsNull(copyObjOrigin) Then Exit Sub Call Rhino.EnableRedraw(False) Dim arrPt If IsArray(pts) Then For Each arrPt In pts Call Rhino.CopyObject(copyObj,copyObjOrigin(0),arrPt) Next End If
Thanks for any help offered in the form of yummy virtual beer.