VBA: Rotina com ciclo no Autocad, GstarCad e ZwCad

Na programação é muitas vezes necessário criar uma rotina com repetição que torna muito mais rápido uma ordem.

O ciclo é o For ... Next, espero que tirem o máximo proveito.

Para Autocad :

Sub ciclo()

Dim center(2) As Double
Dim x As Integer

center(0) = 0: center(1) = 0: center(2) = 0

For x = 1 To 26 Step 3
thisDrawing.ModelSpace.AddCircle center, x
Next

End Sub




Para GstarCad :

Sub ciclo()

Dim center(2) As Double
Dim x As Integer

center(0) = 0: center(1) = 0: center(2) = 0

For x = 1 To 26 Step 3
thisDrawing.ModelSpace.AddCircle center, x
Next

End Sub




Para ZwCad : 

Sub ciclo()

Dim center(2) As Double
Dim x As Integer

center(0) = 0: center(1) = 0: center(2) = 0

For x = 1 To 26 Step 3
ThisDocument.ModelSpace.AddCircle center, x
Next

End Sub

Obrigado

Boa programação