求助

maomao2004

我是一个新手，碰到一个问题，以下引号内是我编的CAD命令，我看现在太麻烦，能不能帮我做一个VB循环命令，新手，我不会，请大家帮助！ Private Sub CommandButton1_Click()
ThisDrawing.SendCommand "ct00" & vbCr
ThisDrawing.SendCommand "ct01" & vbCr
ThisDrawing.SendCommand "ct02" & vbCr
ThisDrawing.SendCommand "ct03" & vbCr
ThisDrawing.SendCommand "ct04" & vbCr
ThisDrawing.SendCommand "ct05" & vbCr
ThisDrawing.SendCommand "ct06" & vbCr
ThisDrawing.SendCommand "ct07" & vbCr
ThisDrawing.SendCommand "ct08" & vbCr
ThisDrawing.SendCommand "ct09" & vbCr
End Sub

alin

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 0 To 9
ThisDrawing.SendCommand "ct0" & i & vbCr
Next
End Sub

maomao2004

非常感谢！