hello sir,
please help me sir i'm still know a little about visual basic.i have a project about maxsurf automation with ms. excel macro's. here's the script
Sub GetCPS()
Dim msDesign As BentleyModeler.Design
Set msDesign = msApp.Design
Dim NumRows As Long
Dim NumCols As Long
Dim TheSurf As Surface
Dim Position As Double
Dim Offset As Double
Dim Height As Double
n = 1
For h = 1 To msDesign.Surfaces.Count
msDesign.Surfaces(h).ControlPointLimits NumRows, NumCols
For R = 1 To NumRows
For C = 1 To NumCols
msDesign.Surfaces(h).GetControlPoint R, C, Position, Offset, Height
Range("H" & 9 + n) = Position
Range("I" & 9 + n) = Offset
Range("J" & 9 + n) = Height
n = n + 1
Next
Next
Next
End Sub
if i use that code i'll get all control point from the first until the end of the value. can you help me to rewrite that code, so that i can make the range which surface, row or column i want to show on excel. here the picture from maxsurf's control point thanks
Last edited by xaryon; Jul 28th, 2016 at 09:33 AM.