[art_rrc]

На windows7 x64(!) в ACad2012rus не работает VBA приложение для копирования текста. http://dwg.ru/dnl/1931
Ругается на метод(свойство) "ObjectID", в частности вот на эту строчку:
"ObjID = tobj.ObjectID"
На w7 x32 acad2012rus все работает как часы.

Подскажите пожалуйста, можно ли как-нибудь решить эту проблему, кроме как переустановить систему на x32?
Заранее благодарен!

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

Праальна! Ибо писать приложения надо уже с учетом двух вариантов разрядности: http://adn-cis.org/forum/index.php?topic=111.0
Кроме того, в 64-разрядных AutoCAD'ах есть свойство ObjectID, и есть свойство ObjectID32. Так что код переписывать либо разрабатывать отдельную функцию для получения ObjectID (кстати, лично я так бы и делал).

[art_rrc]

Сообщение от Кулик Алексей aka kpblc Праальна! Ибо писать приложения надо уже с учетом двух вариантов разрядности: http://adn-cis.org/forum/index.php?topic=111.0 Кроме того, в 64-разрядных AutoCAD'ах есть свойство ObjectID, и есть свойство ObjectID32. Так что код переписывать либо разрабатывать отдельную функцию для получения ObjectID (кстати, лично я так бы и делал).

Спасибо большое Алексей. С VBA в автокаде я только начинаю знакомство. Пока осваиваю базовые примеры.. Так что пока до написания отдельных функций мне рановато. Но все же для галочки спрошу.. Не получится же просто все свойства ObjectID заменить на ObjectID32?
А вообще в планах было разобраться в коде и из всей программы с пользовательской формой оставить маленькую функцию которая заносит в буфер обмена код для поля... Либо чтоб в 2 клика создавалось поле в атрибуте дблока со ссылкой на другой блок... А тут пришла беда, откуда не ждали..

[art_rrc]

Не особо разбираясь в VBA, но проанализировав аналогичные программы number и numberx64, выяснил, что между ними различие только в свойстве ObjectID.
По аналогии заменил в программе textduplicate заменил все свойства ObjectID на ObjectID32, а также свойство ObjectIDToObject на ObjectIDToObject32 соответственно.
Программа заработала, но некорректно. При попытке копировать в поле, выдает неверный objID:
Как должно быть: Как выдает:
%<\AcObjProp Object(%<\_ObjId 8796087802800>%).TextString>% %<\AcObjProp Object(%<\_ObjId 45>%).TextString>%
%<\AcObjProp Object(%<\_ObjId 8796087802512>%).TextString>% %<\AcObjProp Object(%<\_ObjId 47>%).TextString>%
%<\AcObjProp Object(%<\_ObjId 8796087802560>%).TextString>% %<\AcObjProp Object(%<\_ObjId 161>%).TextString>%

Как результат неверного поля получаю после выполнения кучу решеток. А при попытке копировать(занести в буфер) такое поле выдает фатал эррор.

Уважаемые Гуру, подскажите пожалуйста, как же все-таки заставить эту сверхполезную програмку работать на х64? Или же придется переустанавливать систему?