运行程序: Sub TestDoWhileB() Dim CadMsg As CadInputMessage Dim InsPt As Point3d Dim CellElem As CellElement Do While True Set CadMsg = CadInputQueue.GetInput Select Case CadMsg.InputType Case msdCadInputTypeDataPoint InsPt = CadMsg.Point Set CellElem = Application…