[Do$]

Собственно, весь вопрос в заголовке. К примеру:

Код:

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

 
(setq vl   (vlax-ename->vla-object
      (setq ent (car (entsel "\nУкажите объект:")))
    ) ;_ end of vlax-ename->vla-object
      ent1 ent
) ;_ end of setq

Проверки:
(eq vl (vlax-ename->vla-object ent)),
(eq vl (vlax-ename->vla-object ent1)),
(eq (vlax-ename->vla-object ent) (vlax-ename->vla-object ent1))
возвращают NIL, а:
(eq ent1 ent) возвращает T.
Придумал такой вариант:
(= (vl-princ-to-string (vlax-ename->vla-object ent)) (vl-princ-to-string (vlax-ename->vla-object ent1)))
Но уж очень напоминает что-то индийское...
Пы.Сы. Разумеется, можно конвертировать VLA в ENAME и сравнивать ENAME, а потом снова конвертировать в VLA, но уж больно длинный путь...

[Олег (jr.)]

Сообщение от Do$ Собственно, весь вопрос в заголовке. К примеру: Код: [Выделить все] (setq vl (vlax-ename->vla-object (setq ent (car (entsel "\nУкажите объект:"))) ) ;_ end of vlax-ename->vla-object ent1 ent ) ;_ end of setq Проверки: (eq vl (vlax-ename->vla-object ent)), (eq vl (vlax-ename->vla-object ent1)), (eq (vlax-ename->vla-object ent) (vlax-ename->vla-object ent1)) возвращают NIL, а: (eq ent1 ent) возвращает T. Придумал такой вариант: (= (vl-princ-to-string (vlax-ename->vla-object ent)) (vl-princ-to-string (vlax-ename->vla-object ent1))) Но уж очень напоминает что-то индийское... Пы.Сы. Разумеется, можно конвертировать VLA в ENAME и сравнивать ENAME, а потом снова конвертировать в VLA, но уж больно длинный путь...

(vla-get-handle obj) - твой друг

~'J'~

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

Если equal тоже вернет nil, то сравнивай хендлы объектов (если они, конечно, существуют...).
P.S. Опоздал. Секунд на 10

[Елпанов Евгений]

Сообщение от Кулик Алексей aka kpblc Если equal тоже вернет nil

не вернет!

Код:

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

(equal vl (vlax-ename->vla-object ent))

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

Вернет. Точнее, может вернуть (в файле всего один объект - отрезок):

Код:

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

_$ (vl-load-com)

_$ (setq ent (car (entsel)) vl (vlax-ename->vla-object (car (entsel))))
#<VLA-OBJECT IAcadLine 0f17165c>
_$ (eq ent vl)
nil
_$ (equal ent vl)
nil
_$ (= ent vl)
nil
_$

Но при этом:

Код:

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

_$ (= (cdr(assoc 5(entget ent)))(vla-get-Handle vl))
T

[Do$]

Надо же, equal действительно возвращает T:

Код:

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

(setq ent (car (entsel)) vl (vlax-ename->vla-object ent))
(equal (vlax-ename->vla-object ent) vl)

То что доктор прописал, спасибо!

[Елпанов Евгений]

Сообщение от Кулик Алексей aka kpblc Точнее, может вернуть

так ты же сравниваешь бульдогов с носорогами...
equal правильно сравнивает одинаковые типы данных.

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

Елпанов Евгений, звиняй, весь день в беготне, мозги и закипели