Sub Example_SendCommand()
   ' Этот пример посылает команду на выполнение в командной строке AutoCAD рисунка 
   
   ' Создайте Круг в активном рисунке и 
   ' измените размер окна, чтобы показать полный круг
   ThisDrawing.SendCommand "_Circle" & vbCr & "2,2,0" & vbCr & "4" & vbCr
   ThisDrawing.SendCommand "_zoom" & vbCr & "a" & vbCr
   
   ' Вид регенерации
   ThisDrawing.Regen acAllViewports
   
   MsgBox "Команду круга послали командной строке текущего рисунка. "
End Sub