CAD取点输出到Excel及Txt

Sub CAD取点输出到Excel及Txt()On Error GoTo veno'出错转至veno语句后执行Dim xlApp As New Excel.ApplicationDim xlBook