I have never made a macro before but I have a command want to repeat with a loop. All i need to do is add 500 ft in x direction each time. Can anyone tell me why this wouldn't work ??
Sub main Dim startPoint As MbePoint Dim point As MbePoint, point2 As MbePoint ' Coordinates are in master units startPoint.x = 1131371.644684# startPoint.y = 97271.924289# startPoint.z = 0.000000#
i=0 Do while i < 200 point.x = startPoint.x +500.000000*i point.y = startPoint.y point.z = startPoint.z point2.x = point.x + 300.000000# point2.y = point.y - 80.000000# point2.z = point.z MbeSendDragPoints point, point2, 1%
' Start a command MbeSendCommand "MeasureArea ICON "
point.x = startPoint.x + 650.000000*i point.y = startPoint.y + 0.000000# point.z = startPoint.z MbeSendDataPoint point, 1%
point.x = startPoint.x + 650.000000*i point.y = startPoint.y - 105.000000# point.z = startPoint.z MbeSendDataPoint point, 1%
' Send a reset to the current command MbeSendReset i = i+1
Loop End Sub