Вопрос знатокам VBA програмирования... Помогите решить...плиз

> Алмаз
ну не лицензирован этот компанент для подобного вида разработок...

Такая же проблема VBA под Excel, Word...
В VBA под Excel, Word и Access для создания меню используется объект CommandBars.ActiveMenuBar
А вот в VBA for AutoCAD такого объекта не наблюдается. Подозреваю, что нужно подключить какую-то специализированную библиотеку. Но какую?

> technosterone
Тогда уж проще воспользоваться рецептом от:

> hydra

> technosterone
>Поэтому я и предложил "вызов Win API из VBA"
Было бы не плохо получить примерчик, или хотя бы ссылку на эту тему...
З.Ы.заранее спасибо..

Нашел я это здесь, на этом замечательном форуме.
Option Explicit
Public Sub SaveMyFile()
  Dim strFile As String
  Dim intFile As Integer
  strFile = ShowSave ' Отображение окна диалога "Сохранить файл"
    ' Открытие файла и запись в него информации
  If Len(strFile) > 0 Then
    intFile = FreeFile
    Open strFile For Output As intFile
      Print #intFile, данные
  End If
  Close intFile
End Sub
Public Sub OpenMyFile()
  Dim strFile As String
  Dim intFile As Integer
  On Error GoTo Err_Control
  strFile = ShowOpen ' Отображение окна диалога "Открыть файл"
  If Len(strFile) > 0 Then
    intFile = FreeFile
    ' Открытие файла и чтение из него информации
    Open strFile For Input As intFile
    Do Until EOF(intFile)
      Line Input #intFile, strVal
    Loop
    Close intFile
  End If
Exit_Here:
  Exit Sub
Err_Control:
  MsgBox Err.Description
  Resume Exit_Here
End Sub
Public Declare Function GetSaveFileName Lib _
"comdlg32.dll" Alias "GetSaveFileNameA" _
(pOpenfilename As OPENFILENAME) As Long
Public Declare Function GetOpenFileName Lib _
"comdlg32.dll" Alias "GetOpenFileNameA" _
(pOpenfilename As OPENFILENAME) As Long
Public Const OFN_HIDEREADONLY = &H4
Public Type OPENFILENAME
        lStructSize As Long
        hwndOwner As Long
        hInstance As Long
        lpstrFilter As String
        lpstrCustomFilter As String
        nMaxCustFilter As Long
        nFilterIndex As Long
        lpstrFile As String
        nMaxFile As Long
        lpstrFileTitle As String
        nMaxFileTitle As Long
        lpstrInitialDir As String
        lpstrTitle As String
        flags As Long
        nFileOffset As Integer
        nFileExtension As Integer
        lpstrDefExt As String
        lCustData As Long
        lpfnHook As Long
        lpTemplateName As String
End Type
'@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@
' Display and use the File open dialog
'@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@
Public Function ShowOpen() As String
  Dim strTemp As String
  Dim VertName As OPENFILENAME
  VertName.lStructSize = Len(VertName)
  VertName.hwndOwner = ThisDrawing.HWND
  VertName.lpstrFilter = "Файлы Excel (*.xls)" + Chr$(0) + "*.xls" + Chr$(0)
  VertName.lpstrFile = Space$(254)
  VertName.nMaxFile = 255
  VertName.lpstrFileTitle = Space$(254)
  VertName.nMaxFileTitle = 255
  VertName.lpstrInitialDir = CurDir
  VertName.lpstrTitle = "Открыть файл"
  VertName.flags = 0
  If GetOpenFileName(VertName) Then
    strTemp = (Trim(VertName.lpstrFile))
    ShowOpen = Mid(strTemp, 1, Len(strTemp) - 1)
  End If
End Function
'@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@
' Display and use the File Save dialog
'@~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~@
Public Function ShowSave() As String
  Dim strTemp As String
  Dim VertName As OPENFILENAME
  VertName.lStructSize = Len(VertName)
  VertName.hwndOwner = ThisDrawing.HWND
  VertName.lpstrFilter = "Файлы Excel (*.xls)" + Chr$(0) + "*.xls" + Chr$(0)
  VertName.lpstrFile = Space$(254)
  VertName.nMaxFile = 255
  VertName.lpstrFileTitle = Space$(254)
  VertName.nMaxFileTitle = 255
  VertName.lpstrInitialDir = CurDir
  VertName.lpstrTitle = "Сохранить файл"
  VertName.lpstrDefExt = ".xls"
  VertName.flags = OFN_HIDEREADONLY
  If GetSaveFileName(VertName) Then
    strTemp = (Trim(VertName.lpstrFile))
    ShowSave = Mid(strTemp, 1, Len(strTemp) - 1)
  End If
End Function