[1234]

Приветствую.
Пользуюсь для вставки оборудования лиспом. В блоки информация в атрибуты заносится автоматически при вставке.
В конце лиспа вставляется текст, в поле которого заносятся данные из атрибута соответствующие номеру блока (для
последующей возможной перенумерации).

Со сменой работы пришлось пересесть за Автокад 2015.
Под рукой нет 2009 (на котором работал ранее), но на нем лисп работал замечательно.

При выполнении лиспа все работает нормально, только выноска с полем вместо номера блока выдается в виде ####.

Лисп этот делал несколько лет назад, используя ресурс dwg.ru.
Данные с атрибута выдергиваются с помощью функции Петра Лоскутова, которую позаимствовал тут же на форуме.
Тут эта функция слегка испорчена моими пробами разобраться в проблеме самостоятельно. ))

Код:

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

 
(defun ooo ( / ent TS arr result)
  (setq TS "NU")
  (setq ent (vlax-ename->vla-object (car (entsel))))
  (if (and (= :vlax-true (vla-get-HasAttributes ent)) 
           (< 0 (vlax-safearray-get-u-bound (setq arr (vlax-variant-value (vla-GetAttributes ent))) 1)) 
      ) 
    (mapcar (function (lambda (a)
			(cond ((= (vla-get-TagString a) TS)
			       (setq result (vla-get-ObjectId a)))
			      )	
                      ) 
            ) 
            (vlax-safearray->list arr) 
    ) 
    (princ "\n Либо не блок, либо нет аттрибутов") 
  )
  (setq result result)
  )

Для более наглядного кидаю файл с блоком, в котором вручную отредактировано поле.
Думаю что проблема заключается в том, что ObjectId атрибута в переменной result не соответсвует реальной ObjectId

ObjectId атрибута при просмотре поля %<\AcObjProp Object(%<\_ObjId 8796076396592>%).TextString>% - 8796076396592

ObjectId атрибута после выполнения лиспа - 56.

[gomer]

какая разрядность автокада?

[1234]

Что то рука дрогнула. Автокад 2014. Винда 64 разрядная.

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

А 2009 наверняка был 32-битный.

Сообщение от 1234 проблема заключается в том, что ObjectId атрибута в переменной result не соответсвует реальной ObjectId

Скорее всего.

[Do$]

Можно попробовать использовать эту функцию: http://forum.dwg.ru/showpost.php?p=566244&postcount=8 вместо Vla-Get-ObjectId

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

В AutoCAD2015x64 vla-get-objectid32 уже не существует: http://autolisp.ru/2014/09/16/objectid_x32x64_cad2015/

[1234]

Сообщение от Do$ Можно попробовать использовать эту функцию: http://forum.dwg.ru/showpost.php?p=566244&postcount=8 вместо Vla-Get-ObjectId

Спасибо все заработало.

Сообщение от Кулик Алексей aka kpblc В AutoCAD2015x64 vla-get-objectid32 уже не существует: http://autolisp.ru/2014/09/16/objectid_x32x64_cad2015/

Функции vla-objectidtoobject32 и vla-objectidtoobject с какой версии были введены?

Пользуюсь книгой Полещука-Лоскутова, но их там не нашел
и где почитать о вновь введенных и отмененных функциях, тк несколько лет не занимался лиспами и вылетел из обоймы.

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

Так это... acadinfo массу вещей показывает. Да и vlax-dump-object может многое рассказать