Помогите запустить автокад...

Через вба я могу получить доступ к коммандной строке, а через ВБ не могу даже понять как это сделать.
в ВБА вот так
thisDrawing.Sendcommand "_point" & vbcr & "100,100" & vbcr
А мне нужно тоже самое сделать из ВБ 6.0 а я не магу :(. плизз памагите хтонить

> Bobby
В принципе есть вариант доступа к Excel-ному файлу и из-под када :)
Примерно так (если идти хреновым методом создания объекта в памяти и без подключения библиотек):

Dim objExcel As Object, docExcel As Object
  On Error Resume Next
  Set objExcel = GetObject(, "Excel.Application")
  If Err.Number <> 0 Then
    Err.Clear
    Set objExcel = CreateObject("Excel.Application")
  End If
  Set docExcel = objExcel.workbooks.Open(sFileName)

Ну и дальше работать с docExcel как с обычной книгой Excel'a - то есть обращаться к Worksheet по индексу или имени, получать Cells и так далее. Есть еще вариант попробовать обращаться к xls-файлу через ADO, лисповый вариант делал Евгений Елпанов на dwg.ru, да и здесь в готовых было: https://www.caduser.ru/forum/topic21519.html
На VB(A) я перевести пока (надеюсь, что только пока) не могу, может, профи подключатся?

Спасибо огромное за то что уделили мне время. буду разбиратся с данным материалом!!!!

Спасибо ещё раз. Скоро выложу код проги для работы с экселем. Но и хотелось бы спросить: Как пронумировать точки??? Обидно что в примерах этого нету, а лисп не пойму хоть убейте :(

Вот код программы которая берёт данные из ячейки Экселя
Dim objExcel As Object 'для открытия экселя
Dim docExcel As Object 'для открытия документа
Dim wsExcel As Object 'для работы с листом
Private Sub cmd1_Click()
Txt1.Text = wsExcel.Range("A1").Value 'берём данные из ячейки
End Sub
Private Sub Form_Load()
Set objExcel = CreateObject("Excel.Application")
Set objExcel = GetObject(, "Excel.Application")
Set docExcel = objExcel.Workbooks.open("C:\\Excel.xls") 'открываем документ
Set wsExcel = docExcel.Worksheets(3) 'указываем на третий лист
End Sub
Private Sub Form_Unload(Cancel As Integer)
docExcel.Close 'выгружаем эксель
Set docExcel = Nothing 'чистим память от
Set objExcel = Nothing 'уже ненужных переменных
Unload Me
End Sub
Это код программы для рисования точки двумя способами из VB(VB6.0+ACAD 2006)
Dim objAcad As Object
Dim docAcad As Object 'Переменная для открытия документа и работы с ним
Dim pointObj As Object 'переменная для построения точки
Private Sub cmd1_Click()
objAcad.Visible = True 'показываем уже открытый автокад
docAcad.SendCommand ("_point" & vbCr & "100,100" & vbCr) 'рисуем точку из коммандной строки
Dim location(0 To 2) As Double 'обьявляем массив для построения точки(это координаты)
location(0) = 100#: location(1) = 100#: location(2) = 0# 'задаём координаты точки
Set pointObj = docAcad.ModelSpace.AddPoint(location) 'строим точку
End Sub
Private Sub Form_Load()
Set objAcad = CreateObject("AutoCad.Application")
Set objAcad = GetObject(, "AutoCad.Application") 'запускаем автокад
Set docAcad = objAcad.documents.open("C:\work.dwg") 'указываем на файл который следует открыть
End Sub
Private Sub Form_Unload(Cancel As Integer)
objAcad.Visible = False 'Переводим автокад в фоновый режим
docAcad.Close (True) 'закрываем документ при этом его сохраняя
objAcad.quit 'выгружаем саму оболочку автокада
Set docAcad = Nothing 'выкидываем из
Set objAcad = Nothing 'памяти переменные
Unload Me
End Sub

А зачем использовать SendCommand, если точка все равно создается объектными методами (это помимо поста LeonidSN)?