[nolte]

не нашел ответ в инете на такую загадку

Команда: (type (vla-get-objectid obj))
INT

Команда: (itoa (vla-get-objectid obj))
"8796088216720"

Команда: (rtos (vla-get-objectid obj) 2 0)
"44"

Команда: (vla-get-objectid obj)
44

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

Попробуй не itoa, а rtos

[nolte]

да в том то и дело, что rtos работает (как видно из поста 1). вот только type = int. почему же itoa выдает такой странный результат.

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

Возможно, потому, что целое в понятии AutoLISP не может быть больше 32 565 (мне так кажется). А вообще, зачем тебе преобразовывать ObjectID в строку? Может, достаточно будет воспользоваться vl-princ-to-string ?

[kakt00z]

я в случаях с такими глюками перезапускаю акад ... а иногда и весь комп

[nolte]

Перезапускал не помогло.
Странно то, что работало все нормально, вдруг бац и вторая смена. Вооще настараживают такие внезапные перемены.
Вот подумал, может я какую кнапулечку не ту тиснул, может кто сталкивался решил спросить. А число не большое 44.

[kakt00z]

ID "8796088216720" и ID "44" - это в одном сеансе открытия файла? на том же самом объекте (что за объект?)

[nolte]

ну да. пробовал не на одном объекте и линия и полилиния и блок.

[kakt00z]

давай код, пока что не верю (не станиславский ))))

[nolte]

код в посте 1. а пока что я rtos-ом попользовался.

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

Вообще-то странно, только что проверил на AutoCAD 2014 Eng + SP:

Код:

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

_$ (setq ent (entlast))
<Entity name: 7ffffb05c80>
_$ (entget ent)
((-1 . <Entity name: 7ffffb05c80>) (0 . "LINE") (330 . <Entity name: 7ffffb039f0>) (5 . "240") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbLine") (10 1987.86 1239.39 0.0) (11 3241.86 1990.71 0.0) (210 0.0 0.0 1.0))
_$ (vla-get-ObjectID (vlax-ename->vla-object ent))
42
_$ (vla-get-ObjectID32 (vlax-ename->vla-object ent))
42
_$ (type (vla-get-ObjectID32 (vlax-ename->vla-object ent)))
INT
_$ (itoa (vla-get-ObjectID32 (vlax-ename->vla-object ent)))
"42"
_$ (rtos (vla-get-ObjectID32 (vlax-ename->vla-object ent)) 2 14)
"42.00000000000001"
_$ (VL-PRINC-TO-STRING (vla-get-ObjectID (vlax-ename->vla-object ent)))
"42"
_$ (VL-PRIN1-TO-STRING (vla-get-ObjectID (vlax-ename->vla-object ent)))
"42"
_$ (VL-PRINC-TO-STRING (vla-get-ObjectID32 (vlax-ename->vla-object ent)))
"42"
_$ (VL-PRIN1-TO-STRING (vla-get-ObjectID32 (vlax-ename->vla-object ent)))
"42"
_$

На всякий случай: Win7 Pro x64.

[nolte]

автокад 2014 рус вин 7 про х64

Код:

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

 
Команда: (vla-get-objectid obj)
42

Команда: (itoa (vla-get-objectid obj))
"8796087803088"

Команда: (vla-get-objectid32 obj)
42

Команда: (itoa(vla-get-objectid32 obj))
"42"

Команда: (itoa (vla-get-objectid obj))
"8796087803088"

Команда: (atoi(itoa (vla-get-objectid obj)))
2147483647

[Do$]

Осталось чертеж приложить и код, получающий obj...

[kakt00z]

XP SP3
AutoCAD 2014 Eng "19.1s (LMS Tech)" (SP не ставил вроде)

Код:

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

_$ (setq obj (car (entsel)))
<Entity name: 78dba6e0>
_$ (entget obj)
((-1 . <Entity name: 78dba6e0>) (0 . "LINE") (330 . <Entity name: 78d16cf8>) (5 . "1D4") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbLine") (10 27.4097 12.4011 0.0) (11 22.6263 8.95133 0.0) (210 0.0 0.0 1.0))
_$ (setq obj (vlax-ename->vla-object obj))
#<VLA-OBJECT IAcadLine 35f2a804>
_$ (vla-get-ObjectID obj)
2027661024
_$ (itoa (vla-get-ObjectID obj))
"2027661024"
_$ (rtos (vla-get-ObjectID obj) 2 14)
"2027661024.000000"
_$ (vla-get-ObjectID32 obj)
; error: no function definition: VLA-GET-OBJECTID32
_1$

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

kakt00z, у тебя 32 или 64 бита в AutoCAD?

[kakt00z]

и винда и кад 32 бита

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

Поэтому vla-get-ObjectID32 там и не существует.

[nolte]

Сообщение от kakt00z $ (vla-get-ObjectID obj) 2027661024

а номера чего такие огромные, возможно и моя ошибка как то с этим связана.

[kakt00z]

думаю это из-за разрядности системы, я за весь свой опыт просмотра vla-get-ObjectID (лет ~8) только такие длинные номера и видел потому мне и показались ваши значения "42" весьма странными

[Vov.Ka]

Сообщение от kakt00z думаю это из-за разрядности системы, я за весь свой опыт просмотра vla-get-ObjectID (лет ~8) только такие длинные номера и видел потому мне и показались ваши значения "42" весьма странными

Проверить ObjectID можно путем преобразования Entity name из hex в dec