Подключение библиотек(*.dll) к автокаду

Суть как раз не очень понятна.
VBA не создаёт библиотек dll.
У тебя есть библиотеки написанные на VB которые ты хочешь подключить к автокаду?
Поподробнее пожалуйста.

Алекс. Я всё еще не могу понять сути проблемы.
Опиши все подробно.Что за DLL? Сделана с использованием библиотек автокада?Как связывается с автокадом?Если не хочешь писать в форум пиши на E-Mail.

Длл можно явно и неявно связывать.
В первом случае тебе понадобятся API функции: LoadLibrary(), GetProcAddress(), FreeLibrary() и, конечно, нужно будет написать свою длл для вызова функции по адресу полученному из GetProcAddress(). Вот пример такой длл:

;############################################
;        Длл для VB(A)
;CallByPtr - для вызова ф-ций по их адресу
;############################################
.386 
.model      flat,stdcall 
 
.code 
DllMain      proc      hinst:dword, reason:dword, reserved:dword 
      mov      al, 1 
      ret 
DllMain      endp 
CallByPtr proc export
      pop      ecx      ;Адрес возврата 
      pop      edx      ;Указатель на ф-ию 
      push      ecx 
      jmp      edx
CallByPtr endp      
 
end      DllMain 

В CallByPtr передаешь адрес функции и ее параметры.
Во втором случае (неявное связывание длл) в модуле просто указываешь прототипы функций и затем их вызываешь.
Вот вроде и все!

> alex
Как подключить DLL к VBA видно из работающего примера. В остальное, думаю разберешся сам.
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
Public Function ComputerName(Optional UserName As String) As String
'Функция возвращает имя компьютера и имя пользователя
Const gintMAX_SIZE = 100
Dim sTempString As String
Dim i As Long
Dim smsg As String
sTempString = ""
sTempString = Space$(gintMAX_SIZE)
i = gintMAX_SIZE
GetComputerName sTempString, i
ComputerName = Left$(sTempString, i)
sTempString = ""
sTempString = Space$(gintMAX_SIZE)
i = gintMAX_SIZE
GetUserName sTempString, i
UserName = Left$(sTempString, i - 1)
'smsg = "ComputerName: " & ComputerName & vbNewLine & _
'       "UserName: " & UserName
'MsgBox sMsg, vbInformation
End Function

> [b]Leonid[/b]
>Зачем применять api-функции, когда можно обойтись без них.
-Ведь alex хотел знать все о связывании длл с exeшником

Ну хорошо. А как к ним обращаться-то.

Хорошо бы Alex сам бы что-то ответил.