Is there a function that will Scale1D?

I can do the normal scale:

```
Dim Transform_Scale As Geometry.Transform = Rhino.Geometry.Transform.Scale(New Rhino.Geometry.Point3d(AnchorX, AnchorY, AnchorZ), Size)
RhinoDoc.ActiveDoc.Objects.Transform(Guid, Transform_Scale, True)
```