VBA: Enviar ordem para a linha de comando no Autocad, GstarCad e ZwCad

A rotina apresentada mostra-nos de como podemos enviar uma ordem directamente para a linha de comando, neste caso um circulo com um zoom extents e um regen.

Para Autocad :

Sub ordem_commandline()
   ThisDrawing.SendCommand "_Circle" & vbCr & "5,4,0" & vbCr & "3.5" & vbCr
   ThisDrawing.SendCommand "_zoom" & vbCr & "e" & vbCr
   ThisDrawing.Regen acAllViewports
 End Sub

Para GstarCad :

Sub ordem_commandline()
   ThisDrawing.SendCommand "_Circle" & vbCr & "5,4,0" & vbCr & "3.5" & vbCr
   ThisDrawing.SendCommand "_zoom" & vbCr & "e" & vbCr
   ThisDrawing.Regen acAllViewports
 End Sub

Para ZwCad : 

Sub ordem_commandline()
   ThisDocument.SendCommand "_Circle" & vbCr & "5,4,0" & vbCr & "3.5" & vbCr
   ThisDocument.SendCommand "_zoom" & vbCr & "e" & vbCr
   ThisDocument.Regen acAllViewports
 End Sub

Obrigado.

Boa programação