Hi, anyone know how to use these functions in rhino
Function Bounding_Lower_Left_front_point(objects) ' return array front lower left-point of objects Dim w w = Rhino.BoundingBox(objects) ' get bounds of lower objects Bounding_Lower_Left_front_point = w(0) ' ll front End Function
Function Bounding_Upper_Right_rear_point(objects) ' return array rear upper right-point of objects Dim w w = Rhino.BoundingBox(objects) ' get bounds of lower objects Bounding_Upper_Right_rear_point = w(6) ' ur rear End Function
Sub Bounding_LL_Front_UR_Rear(objects, pt_ll, pt_ur) ' lower left, upper right Dim w w = Rhino.BoundingBox(objects) ' get bounds of lower objects pt_ur = w(6) ' ur rear pt_ll = w(0) ' ll front End Sub
Function Bounding_Width(objects) ' Return width of objects Dim pt_ll, pt_ur Bounding_LL_Front_UR_Rear objects, pt_ll, pt_ur ' get bounds of objects Bounding_Width = pt_ur(0) - pt_ll(0) End Function
Function Bounding_Mid_X(objects) ' return bounding mid point X value Dim X X = Bounding_Mid_point(objects) ' return array mid-point of objects Bounding_Mid_X = X(0) End Function
Function Bounding_Mid_Y(objects) ' return bounding mid point X value Dim X X = Bounding_Mid_point(objects) ' return array mid-point of objects Bounding_Mid_Y = X(1) End Function
Function Bounding_Mid_Z(objects) ' return bounding mid point X value Dim X X = Bounding_Mid_point(objects) ' return array mid-point of objects Bounding_Mid_Z = X(2) End Function