TABLE OF CONTENTS Now that we have an understanding of how these inputs work, let's put them to work in some real-world examples.
Sub <b class="bold">TestCadInputE</b>() Dim myCIQ As CadInputQueue Dim myCIM As CadInputMessage Dim pt3Start As Point3d Dim pt3End As Point3d Dim myLine As LineElement Set myCIQ = CadInputQueue Set myCIM = myCIQ.GetInput(msdCadInputTypeDataPoint, _ msdCadInputTypeReset) Select Case myCIM.InputType Case msdCadInputTypeReset Exit Sub Case msdCadInputTypeDataPoint pt3Start = myCIM.Point End Select Set myCIM = myCIQ.GetInput(msdCadInputTypeDataPoint, _ msdCadInputTypeReset) Select Case myCIM.InputType Case msdCadInputTypeReset Exit Sub Case msdCadInputTypeDataPoint ...
