社区 › VB › 求助。请大家帮忙！急

maomao2004 发表于 2005-3-14 10:05:00

求助。请大家帮忙！急

我是一个新手，碰到一个问题，以下引号内是我编的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 发表于 2005-3-14 22:53:00

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

查看完整版本: 求助。请大家帮忙！急