[SKY_SHY]

Подскажите в чём может быть проблема. Принес файл адаптации с работы. Нажимаю на кнопочки - в командной строке пишется "Имя макроса - директория. Макрос не найден" Подключил cui файл к Autocad 2006 через "Адаптация" - "Открыть". Хотя с этим проблему я решил. Команда запускается, но не до конца. Должно появлятся окно UserForm. Появляется предупредительное сообщение о том что не найдена библиотека (library) или проект (project) Это ещё какие-то файлы?

Вот что выделяет некоторая строка выделена жёлтым цветом в окне VBA: Function color(r As Byte, g As Byte, b As Byte) As AcadAcCmColor

[Кулик Алексей aka kpblc]

SKY_SHY, пытаюсь расшифровать твой поток сознания... Похоже, твой cui(x) использует какие-то процедуры, написанные на VBA. Вопрос номер раз: а ты проект-то принес? Вопрос номер два: если принес, то гарантировал ли его загрузку? Вопрос номер три: макросы разрабатывались в той же версии AutoCAD, в которой ты сейчас их пытаешься использовать или в более поздней?

[SKY_SHY]

Сообщение от Кулик Алексей aka kpblc SKY_SHY,Вопрос номер три: макросы разрабатывались в той же версии AutoCAD, в которой ты сейчас их пытаешься использовать или в более поздней?

Да

А где проект взять и что это - это доп. модули VBA?

[Кулик Алексей aka kpblc]

SKY_SHY, а я откуда знаю? Я могу только подозревать, в чем у тебя собственно трудности - у тебя несколько вопросов, и хоть бы один ты задал нормально.

[SKY_SHY]

Сообщение от Кулик Алексей aka kpblc SKY_SHY, а я откуда знаю? Я могу только подозревать, в чем у тебя собственно трудности - у тебя несколько вопросов, и хоть бы один ты задал нормально.

Значит я что-то не все донес Понятно. Исполнительные модули - они где могут находится еще скорее всего.

[Сергей812]

Ищите файлы с расширением .dvb. Ну или обратитесь к разработчику)

[SKY_SHY]

Сообщение от Сергей812 Ищите файлы с расширением .dvb. Ну или обратитесь к разработчику)

К сожалению, не могу обратится к разработчику. Однако файл dvb находится в той же папке что и cui. Я его положил в также и в ту директорию - так, как и прописывается имя макроса в командной строке. А могут быть ещё файлы dvb?

[Сергей812]

даже если этот тот проект

Сообщение от SKY_SHY Однако файл dvb находится в той же папке что и cui. Я его положил в также и в ту директорию - так, как и прописывается имя макроса в командной строке.

то не факт, что его не нужно вручную загружать перед началом работы/кинуть в автозагрузку.. смотря как вызов прописан в cui

[SKY_SHY]

Сообщение от Сергей812 даже если этот тот проект то не факт, что его не нужно вручную загружать перед началом работы/кинуть в автозагрузку.. смотря как вызов прописан в cui

Я загрузил. Вы имеете ввиду через Сервис - Загрузка/Выгрузка Приложения - Автозагрузка кн. Приложения - Добавить. Все так добавлено. Может на работе следует точный путь узнать?

[Сергей812]

найдите на работе того-кто устанавливал эту программу-надстройку на рабочие компы... гадать никакого желания нет, поверьте)

[SKY_SHY]

Да того человека и нет. Не знает никто.Option Explicit

Код:

[Выделить все]

Dim CurScale

'===============================================================
'        Выбрать цвет                                   '
'===============================================================
Function color(r As Byte, g As Byte, b As Byte) As AcadAcCmColor
  Dim color_ As AcadAcCmColor
   Dim Acad As AcadApplication
   Set Acad = ThisDrawing.Application
   
   Dim AcVers As String
   AcVers = Left(Acad.Version, 2)
   
   Set color_ = Acad.GetInterfaceObject("AutoCAD.AcCmColor." & AcVers)
   Call color_.SetRGB(r, g, b)
   Set color = color_
End Function

Эта выделенная строчка подчеркивается при выполнении.

[Сергей812]

возможно, надо зайти в редакторе VBA в Tools->References и поставить галочку в соответствующей строке списка

[Кулик Алексей aka kpblc]

Я же не зря спрашивал

Сообщение от Кулик Алексей aka kpblc макросы разрабатывались в той же версии AutoCAD, в которой ты сейчас их пытаешься использовать или в более поздней?

[SKY_SHY]

Сообщение от Кулик Алексей aka kpblc Я же не зря спрашивал

В той же, только Reference у меня не активно. Операционная система другая правда. Активны Macros - перечислены макросы и пути на bvd-файлы

[doctorraz]

Сообщение от SKY_SHY В той же, только Reference у меня не активно. Операционная система другая правда. Активны Macros - перечислены макросы и пути на bvd-файлы

меню референсов и не будет активно пока макрос выполняется. Останови макрос, потом заходи в референсы, отключай все, что миссинг и подключай такое же из списка.
тут то же, только с картинками

----- добавлено через ~3 мин. -----

Сообщение от SKY_SHY Вот что выделяет некоторая строка выделена жёлтым цветом в окне VBA: Function color(r As Byte, g As Byte, b As Byte) As AcadAcCmColor

скорее всего версия автокад другая или разрядность

[SKY_SHY]

Спасибо, работает!!!!

[SKY_SHY]

Здравствуйте! Поднимаю тему, при попытке установить ссылку на модуль в редакторе VBA - происходит ошибка - конфликт имен. При загрузке проекта - ошибок нет. Все делаю как указано в ссылке постом выше

----- добавлено через ~58 мин. -----
Имя у референса такое же как и у проекта в диспетчере VBA. Но вот причину такого - я не знаю и не могу разобраться как решить проблему

[Сергей812]

ничего не понял...

Сообщение от SKY_SHY Имя у референса такое же как и у проекта в диспетчере VBA.

[SKY_SHY]

Ну как по факту я не знаю из-за чего ошибка, но исходя из того что пишет автокад - конфликт имен

1) Загружаю проект

[SKY_SHY]

2) Делаю ссылку

[SKY_SHY]

3) - OK -

Ошибка

[Сергей812]

а зачем делаете ссылку на уже загруженный acadproject?

----- добавлено через ~5 мин. -----
акад 2006?

[SKY_SHY]

Да версия 2006 не серсис-пак

----- добавлено через 47 сек. -----

Сообщение от Сергей812 а зачем делаете ссылку на уже загруженный acadproject?

Сообщение от doctorraz меню референсов и не будет активно пока макрос выполняется. Останови макрос, потом заходи в референсы, отключай все, что миссинг и подключай такое же из списка. тут то же, только с картинками ----- добавлено через ~3 мин. -----

----- добавлено через ~5 мин. -----
Инструменты этой панели адаптации не работают - Compile error in hidden modul - происходит запуск юзер-форм, но они не работают

[Сергей812]

библиотека типов 2006 акада подгружена автоматически, библиотека поддержки форм тоже, нет корректной ссылки на 2007 excel.

[SKY_SHY]

Сообщение от Сергей812 библиотека типов 2006 акада подгружена автоматически, библиотека поддержки форм тоже, нет корректной ссылки на 2007 excel.

Так значиццо нужно установить Excel 2007, если версия 2016 на ОС Win10?

[Сергей812]

снимите галку с ссылки на эту версию и найдите в списке Microsoft Excel 16.0 для начала

----- добавлено через ~2 мин. -----
Offtop: 2006 Акад на W10 - это прикольно)

[SKY_SHY]

Сообщение от Сергей812 снимите галку с ссылки на эту версию и найдите в списке Microsoft Excel 16.0 для начала ----- добавлено через ~2 мин. ----- Offtop: 2006 Акад на W10 - это прикольно)

Нет этой версии в списке

[Сергей812]

а какая есть Microsoft Excel object library ?

[SKY_SHY]

12-я только и та не найдена. MISSING Micrisoft Excel 12.0 Object Library Больше нет никакой - а дальше вних по списку - Microsoft ActiveX Objects 2.0-2.8 Library
Ккак ни странно есть Microsoft Office 16.0 Access DataBase Engine Objects

В этом пути его нет - файла EXCEL.EXE

----- добавлено через ~6 мин. -----
Директорию нашел, но формы не работают все равно

[Сергей812]

В общем, я рекомендовал бы (если справитесь) - попробовать перейти на позднее связывание:
1. Создать резервную копию проекта.
2. Открыть проект в акаде, зайти в редакторе в каждый модуль и в первой строке вставить Option Explicit (если уже не стоит) - это проверка объявления всех переменных.
3. Отключить в reference Excel.
4. Запустить в редакторе через Debug/Compile VBA Project компиляцию.
5. Везде, где будет ругаться на отсутствие типа данных - ставить Object.
6. Заменить числовые константы Excel на их непосредственное значение.

[SKY_SHY]

Сообщение от Сергей812 В общем, я рекомендовал бы (если справитесь) - попробовать перейти на позднее связывание: 1. Создать резервную копию проекта. 2. Открыть проект в акаде, зайти в редакторе в каждый модуль и в первой строке вставить Option Explicit (если уже не стоит) - это проверка объявления всех переменных. 3. Отключить в reference Excel. 4. Запустить в редакторе через Debug/Compile VBA Project компиляцию. 5. Везде, где будет ругаться на отсутствие типа данных - ставить Object. 6. Заменить числовые константы Excel на их непосредственное значение.

Спасибо Вам, я попробую, ибо когда была семерка все было норм. А сейчас снова поставил 2006-й Акад и эту адаптацию. Странно, но тот же проект работает на других машина с ОС MS XP - нормально, но там программисты устанавливали, которые писали этот проект.

[Сергей812]

что в свое время работало под ХП - не факт, что будет корректно работать под W10.

[SKY_SHY]

Sub SaveKMMarkToExcel()
Dim FileName As String
FileName = "C:\Program Files\AutoCAD 2006\Our_macros\дв_разм+пикит\Ведомости\Ведомость_разметки.xls"

Dim xlApp As Excel.Application #ошибка Compile error - User-defined type not defined

[Сергей812]

логично - если нет референса на типы данных экселя, то откуда он будет знать про Excel.Application ?

[SKY_SHY]

Сообщение от Сергей812 логично - если нет референса на типы данных экселя, то откуда он будет знать про Excel.Application ?

А как дальше ошибку искать? закомментировать эти строки на время, где подобная ошибка?

[doctorraz]

Сообщение от SKY_SHY А как дальше ошибку искать? закомментировать эти строки на время, где подобная ошибка?

ответили жэж уже

Сообщение от Сергей812 5. Везде, где будет ругаться на отсутствие типа данных - ставить Object.

Dim xlApp As Excel.Application Object
PS читай про позднее связывание.

[Кулик Алексей aka kpblc]

Создавать отдельные функции получения / создания объекта Excel. Нечто типа:

Код:

[Выделить все]

Option Explicit
Option Base 0

Public Function CreateExcelApplication() As Object
  Dim objExcel As Object
  On Error GoTo lErrGetObject
  Set objExcel = GetObject(, "Excel.Application")
  Set CreateExcelApplication = objExcel
  Exit Function
lErrGetObject:
  Set objExcel = CreateObject("Excel.Application")
  Set CreateExcelApplication = objExcel
End Function

Public Sub test()
  Dim oExl As Object
  Set oExl = CreateExcelApplication()
  oExl.Visible = True
End Sub

Offtop: На VBA почти не пишу, так что код далек от изясчества

[Сергей812]

Сообщение от Кулик Алексей aka kpblc Создавать отдельные функции получения / создания объекта Excel. Нечто типа:

а еще лучше создать отдельный класс, в конструкторе подключается к экселю, в деструкторе - отключается. Ну и необходимые методы работы с экселем туда же. Тогда код вообще красивый получается) Да и когда ставишь точку после идентификатора объекта класса - все методы и свойства класса сразу выдаются, очень удобно.

[Кулик Алексей aka kpblc]

По-моему, в VBA классы, мягко говоря, сильно кастрированы. При таких хотелках лучше уж переходить на .NET

[Сергей812]

Сообщение от Кулик Алексей aka kpblc По-моему, в VBA классы, мягко говоря, сильно кастрированы. При таких хотелках лучше уж переходить на .NET

Offtop: так уже несколько лет, как перешел - слишком много плюшек, чтобы пройти мимо
Самый большой минус классов VBA на мой взгляд - это отсутствие возможности создания конструкторов с параметрами. Инкапсуляция реализована в достаточном для практических задач объеме, а вот с наследованием и полиморфизмом беда - но глупо ожидать от встроенного в приложение ЯП функционала отдельных языков программирования.