求助。请大家帮忙！急

maomao2004

我是一个新手，碰到一个问题，以下引号内是我编的CAD命令，我看现在太麻烦，能不能帮我做一个循环命令，新手，我不会，请大家帮助！ 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

yufeng_cn

Private Sub CommandButton1_Click() for i= 0 to 9 a$="ct0"+trim(str(i)) ThisDrawing.SendCommand a$ & vbCr
next
End Sub 试试行不行！