[Александрдрдр]

Здравствуйте, уважаемые форумчане!

Есть AutoCAD2010 x64 и нерешенная на данный момент проблема. Написал программку для соединения када с БД и импортом информации в чертеж. На 32-разрядной системе все рабоет на ура, но в 64 разрядах появляется затык при отыскивании в чертеже объекта с определенным шаблоном связи с БД. Вот кусочек кода:

(vlax-invoke-method dbconnect 'GetLinks currlink
(vlax-make-variant (vlax-safearray-fill (vlax-make-safearray vlax-vblong '(0 . 0))
(list (64GetObjectIdString (vlax-ename->vla-object (ssname test i)))))) 1); (ssname test i) - это соотв. имя объекта.

Функция получения ObjectId:

(defun 64GetObjectIdString ( obj )
(or *util* (setq *util* (vla-get-Utility (vla-get-ActiveDocument (vlax-get-acad-object)))))
(if (vlax-method-applicable-p *util* 'GetObjectIdString)
(vla-GetObjectIdString *util* obj :vlax-false)
(vla-get-ObjectId obj)
)
)

А теперь - в чем собственно затык. Метод GetLinks коннекта с БД для выбора объекта по имени шаблона связи требует ID объекта как тип vlax-vblong. Если попытаться получить ID объекта обычным способом vla-get-ObjectId - получаем число 42 (всегда знал, что оно магическое и очень загадочное ). Используя vla-get-ObjectId32 получаем то же значение. Если же воспользоваться фукцией 64GetObjectIdString - то получаем уже вполне себе нормальный ID "8796087998480", но в типе "строка". Естественно создать из строки безопасный массив типа vlax-vblong не удается. Команда atoi возвращает от строки "8796087998480" свой верхний 32-разрядный предел - 2147483647. Когда искал решение, то частенько натыкался на использование метода vla-ObjectIDToObject32, но он возвращает указатель на объект, который у меня и так в принципе уже есть.

Соответсвенно вопрос - кто-нибудь может предложить в какую сторону копать? Пыталя найти какую-нибудь фукнцию по преобразовнию текста в тип vlax-vblong, но как-то безрезультатно...

Заранее огромное спасибо всем откликнувшимся.

[TararykovDG]

Работа с ObjectID в 64- и 32-разрядных системах

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

Александрдрдр, ты учитываешь, что ObjectID неизменен только в пределах одной сессии?

[Александрдрдр]

Сообщение от TararykovDG Работа с ObjectID в 64- и 32-разрядных системах

Эту статью я читал - результат 42. и как следствие у объекта с ObjectID = 42 нет никакой связи с БД

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

Учитываю, вся инфа складывается в атрибуты и хранится там, а потом извлекается штатным экстрактором.

To TararykovDG

Эту статью я читал - результат тот же - 42. и как следствие - обращение не к тому примитиву. Повторюсь, что на 32-разрядной системе все работало на ура.

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

А если так:

Код:

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

(vlax-get-property (vlax-ename->vla-object (ssname (ssget) 0))
                   (strcat "ObjectID"
                           (if (wcmatch (getvar "platform") "*64*")
                             "32"
                             ""
                             ) ;_ end of If
                           ) ;_ end of strcat
                   ) ;_ end of vlax-get-property

P.S. Я бы задумывался о "привязке" к хендлам...

[Александрдрдр]

Вот тут тож товарищ озадачивался, но как я понимаю элегантного решения не нашел..

Сообщение от Кулик Алексей aka kpblc А если так: Код: [Выделить все] (vlax-get-property (vlax-ename->vla-object (ssname (ssget) 0)) (strcat "ObjectID" (if (wcmatch (getvar "platform") "*64*") "32" "" ) ;_ end of If ) ;_ end of strcat ) ;_ end of vlax-get-property P.S. Я бы задумывался о "привязке" к хендлам...

Не, этот код аналогичен тому, что у меня есть - не помогает. А вот насчет хендлов надо призадуматься.

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

Если уж совсем без ObjectID никак, то отчего б не попробовать

Код:

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

(atof (get-objectid-x86-x64 (car (entsel))))

Конечно, вместо целого получим двойную точность, но это не победить (как мне кажется).

[Александрдрдр]

Сообщение от Кулик Алексей aka kpblc Если уж совсем без ObjectID никак, то отчего б не попробовать Код: [Выделить все] (atof (get-objectid-x86-x64 (car (entsel)))) Конечно, вместо целого получим двойную точность, но это не победить (как мне кажется).

Да, такую штуку тож пробовал - не выходит каменный цветок.. Видимо придется искать какую-то эквивалентную замену.

[Александр Ривилис]

Сообщение от Александрдрдр Видимо придется искать какую-то эквивалентную замену

Handle и только Handle.

[Дима_]

Сообщение от Александрдрдр Пыталя найти какую-нибудь фукнцию по преобразовнию текста в тип vlax-vblong, но как-то безрезультатно...

Есть вариант конечно - но предупреждаю сразу - изврат полный (но работать будет):

Код:

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

 (vl-load-com)
(SETQ converter 
     ((lambda (excel)
        (vlax-invoke-method (vlax-get-property excel 'Workbooks) 'Add)
        (vlax-get-property excel 'Range "a1"))
      (vlax-create-object "excel.application")))
(defun string->double(str)
  (vlax-put-property converter 'Formula str)
  (vlax-get-property converter 'Value))

Команда: (string->double "8796087998480") #<variant 5 8796087998480>

p.s. Как вариант поискать аналогичный метод в менее громоздком, но установленном по умолчанию в виндах COM.

[Vov.Ka]

Сообщение от Александрдрдр Пыталя найти какую-нибудь фукнцию по преобразовнию текста в тип vlax-vblong, но как-то безрезультатно...

Код:

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

 (vlax-make-variant "2147483647" vlax-vbLong)

Код:

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

 (vlax-make-variant "8796087998480" vlax-vbDouble)

[Александрдрдр]

Сообщение от Vov.Ka Код: [Выделить все] (vlax-make-variant "2147483647" vlax-vbLong) Код: [Выделить все] (vlax-make-variant "8796087998480" vlax-vbDouble)

хех, и так я пробовал - но метод GetLink требует типа данных именно vblong и никаких других ему и даром не надо. А если попробовать сменить тип варианта, в котором число больше 2147483647 - то выскакивает ошибка о несовместимости типов данных.

Получается, что сам автокад присваивает номер объектам больше, чем 2147483647, а автолисп такое значение как тип vblong переварить не может. То есть ясно, что ничего не ясно.

Возникла идея поломать базу данных чертежа, полазять в словарях

[Vov.Ka]

тут есть все диапазоны http://en.wikipedia.org/wiki/Long_integer
8796087998480 это уже не лонг для vba
у меня все 32bit, ничего больше помочь не могу

[Александрдрдр]

Сообщение от Vov.Ka тут есть все диапазоны http://en.wikipedia.org/wiki/Long_integer 8796087998480 это уже не лонг для vba у меня все 32bit, ничего больше помочь не могу

я понимаю.. но и на этом спасибо. у меня тоже не было проблем, пока наши сисадмины не решили, что за 64-разрядними системами будущее и начали планомерно заменять системные блоки. попробую узнать у автодеска - по результатам отпишусь.

[Александр Ривилис]

Сообщение от Александрдрдр попробую узнать у автодеска - по результатам отпишусь.

Можешь не пробовать. VisualLisp не поддерживает _int64 (т.е. 64-битное целое число). Рекомендую перейти на .NET/ObjectARX.