I am just starting out with VB scripting for GH. I cannot figure out how exactly to scale objects uniformly from a fixed point.
Referring to the Rhino SDK help file, I realize that I need to use the following method:
OnXform::Scale Method (IOn3dPoint^, double)
But I have no idea how to go about it... I tried cooking up something looking at some other codes and have the following non-working example so far:
---------------------------------------------------------
Private Sub RunScript(ByVal crv As List(Of OnCurve), ByVal pt As On3dPoint, ByVal enable As Boolean, ByRef A As Object)
If (Not Enable) Then Return
Dim scale As New OnXform
scale.Scale(pt, "1000")
For Each curve As OnCurve In crv
curve.Transform(scale)
Next
A = curve
---------------------------------------------------
I will appreciate any help... Thank you!
Tags: