Message 1 of 3
How to update surface with VBA
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
I have an imported b spline surface and have managed to extract all the data I need to scale it. However I cant figure out how to send the data back and get it to update.
Does anyone know how to do it. Here's the code so far
Dim Order(1) As Long, NumPoles(1) As Long, NumKnots(1) As Long, IsRational As Boolean, IsPeriodic() As Boolean Dim IsClosed() As Boolean, IsPlanar As Boolean, PlaneVector(1) As Double Call obsurface.GetBSplineInfo(Order, NumPoles, NumKnots, IsRational, IsPeriodic, IsClosed, IsPlanar, PlaneVector) Dim pole(71) As Double, knotUdims(12) As Double, knotVdims(5) As Double, weights() As Double Call obsurface.GetBSplineData(pole, knotUdims, knotVdims, weights) Dim n As Integer For n = 0 To 71 pole(n) = pole(n) * 2 'scale surface points Next n 'now send data back and update Call obsurface.GetBSplineInfo(Order, NumPoles, NumKnots, IsRational, IsPeriodic, IsClosed, IsPlanar, PlaneVector) oPartdoc.Update
the last part doesnt work