Форум » Браип » VBA проекты в ХР64 » Ответить
VBA проекты в ХР64
filat: Столкнулся с таким осложнением: на ХР64 до установка Таипа в АИ стояли сторонние макросы, а после изменения ссылки VBA проекта они соответственно перестали работать, а если вернуть старую ссылку - то уже не работает Таип. Подскажите, как их объединить?
Ответов - 3
brigval: filat пишет: Подскажите, как их объединить? Запуск макросов из разных файлов к самому Таипу отношения не имеет. Пока не знаю, как запускать макросы из разных файлов. Если решите этот вопрос, то решите и свой. Спросите у Виктора Рулкенко, может он подскажет.
filat: Появилась одна мысль, правда она может немного сложновата в реализации... : я понимаю, что спрашивать Ваш пароль входа - это Абсурд! а если создать в папке Таип файл (напрример) User macros.txt , а в Таип добавить блок кода (или сделать отдельным приложением) который бы добавлял макросы из этого файла в зашифрованный VBA-файл и отслеживал изменения - в итоге и Ваша собственость защищена и пользователь работает с комфортом. :)
filat: На сайте cad.ru я поднимал вопрос о параллельной работе нескольких VBA-файлов и получил ответ: Алексей Романов пишет: 2. Если очень нужна кнопка, то головном проекте сооружаем макрос для нее, он загрузит нужный проект и запустит макрос в нем. Допустим в файле Inventor2010.ivb проект обозван Project2010, в нем есть модуль Module1, в котором есть макрос SampleMacro... Public Sub myMakro() On Error Resume Next Dim invVBAProject As InventorVBAProject For Each invVBAProject In ThisApplication.VBAProjects If invVBAProject.Name = "Project2010" Then Exit For Next If invVBAProject Is Nothing Then ThisApplication.VBAProjects.Open "E:\Инвентор addin\2010sample\Inventor2010.ivb" For Each invVBAProject In ThisApplication.VBAProjects If invVBAProject.Name = "Project2010" Then Exit For Next End If Dim invModule As InventorVBAComponent Set invModule = invVBAProject.InventorVBAComponents.Item("Module1") Dim invSub As InventorVBAMember Set invSub = invModule.InventorVBAMembers.Item("SampleMacro") invSub.Execute End Sub brigval, пожалуйста, помогите по этой модели сделать макросы для кнопок Таип. Путь к файлу и название проекта понятны (C:\Program Files\ВерЗак\Таип 2.27\PAMKA.ivb и PAMKA), а какие еще изменения нужно внести? В частности как какие названия кнопок?
полная версия страницы