• Sasha
  • Восстановленный участник
  • На форуме с 13 июня 2004г.
  • Сообщений: 7
  • Спасибо: 0

Тема: Как в VB образовать новую команду?

здрасти !
братва у меня проблема
я написал программу для Autocad в VB но не могу его вызвать через командную линию
в Autolispe есть для этого Defun
а в VB как будет
покажите на малом примере
буду очень благодарен если поможете
заранее спасибо
Саша

  • Leonid
  • Восстановленный участник
  • На форуме с 16 июня 2003г.
  • Сообщений: 389
  • Спасибо: 0

Re: Как в VB образовать новую команду?

Есть схема несколько напоминающая пришивание пиджака к пуговице, но она работает:
1.Вводишь в VB-программу модуль класса StartMyProg а в этом модуле процедуру запуска VB-программы StartVB
2.Компилируешь VB-программу в MyProg.dll-file
3.Создаешь проект VBA MyProj.dvb и подсоединяешь к нему свой MyProg.dll-file
через Tools>References>Browse:

Sub StartVBA()
On Error GoTo ErrLbl
    Dim vb As MyProg
     Set vb = New MyProg.StartMyProg
    vb.StartVB ThisDrawing 'старт и передача в VB-программу входа в чертеж
   ErrLbl:    MsgBox "Error StartVB" & vbCrLf & CStr(Err.Number) & vbCrLf & CStr(Err.Description) & vbCrLf & CStr(Err.Source)
End Sub

4.И наконец пишешь на ЛИСПе программку запуска макроса в виде команды AutoCAD:

(defun C:MyStart (/ PATH)
    ;(setq PATH "C:\\Program Files\MyProj.dvb")
  ;(vl-vbaload PATH)
  (vl-vbarun "StartVBA"))

Если что-то напутал, не взыщи, принцип надеюсь понятен.
Удачи