[молодой человек]

Здравствуйте!
Начал ковырять реакторы, и споткнулся на объектном реакторе.
Реактор создаю следующим образом:

Код:

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

       (setq sset (entlast));выноска
   ;владелец реактора:
       (setq axl (list (vlax-ename->vla-object en)))
   ;реакция реактора- вызов ф-ции kos_reac_mk_leader_dim
       (setq reactor
        (vlr-object-reactor axl (list (vlax-ename->vla-object sset))
                           (list '(:vlr-modified . kos_reac_mk_leader_dim)))
       )

Функция отклика:

Код:

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

(defun kos_reac_mk_leader_dim (vlao reac cname /)
      (princ "Изменилась пластина !!!")
  (setq lll (car (vlr-data reac)));указатель на выноске
  (setq en (vlax-vla-object->ename vlao));указатель на профиль (владелец)
  (if (= nil en)
    (progn
      (princ "Объект стерт!!!")
      (setq lmk (vlax-vla-object->ename lll));преобразование указателя на выноску
      (setq slka (cdr (nth 1(nth 1 (assoc -3 (entget lmk '("Vinoska")))))))
      (setq vin-ki (ssget "_x"(list (list -3 (list "Vinoska" (cons 1000 slka))))));сбор всех выносок
      (setq i -1)
         (repeat (sslength vin-ki)
                 (setq ee (ssname vin-ki(setq i (1+ i))))
                 (vla-delete (vlax-ename->vla-object ee));удаление связанных выносок
         )
    ) 
  )
;;;  Изменение текста выноски
    (setq item (vlax-ename->vla-object en))
    (setq Height (rtos (vla-get-Height item)2 0)); толщина 
    (setq Width (rtos (round1 (vla-get-Width item)5)2 0)); ширина
    (setq depth (rtos (round1 (vlax-get-property item 'depth)5)2 0)); длина
    (setq qqq (strcat "-"Height"x"Width"x"depth)); сбор основных размеров
  
    (vla-put-textstring  lll qqq);изменение текста выноски
)

Строчка (vlr-data reac) выдаёт одну и ту же ошибку по всем свойствам
<TextString> Ошибка Automation. Объект был стерт

Подскажите, пожалуйста, как обойти эту проблему?

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

У меня ощущение, что тут будет не все так просто... Попробуй блокировать цикличность изменений объектов выноски и ее аннотации. Кроме того, попытайся исключить ssget; кроме простого удаления выносок надо бы сначала от них "откреплять" реакторы...
Скажу честно - сумбурно, потому как особо код не смотрел. И не особо старался понять, что он делает.

[Дима_]

Я пологаю что стирает его именно твое-же vla-delete, посмотри сколько раз тебе пишет "Изменилась пластина !!!" - скорее всего идет "самовызов" реактора, бороться с этим можно вводя глобальные переменные - флаги считающие колличество обработок (просто поставить на начало и конец у меня не получилось, т.к. автолисп не сразу запускает реактор (в отличие обработки событий в других языках), а по очереди - как там это конкретно реализованно я не знаю).

[молодой человек]

Спасибо вам огромное! Натолкнули на мысль. Всё оказалось до обидного банально. Когда удаляю объект-владелец к ошибке приводит строчка
(setq item (vlax-ename->vla-object en))
И потом, из-за этой ошибки программа начинает себя вести неадекватно (не корректно передаются данные реактора (Ошибка Automation. Объект был стерт), что приводит к цикличному выполнению функции-отклика). Кстати, что самое интересное, этот цикл длится до тех пор, пока всё-таки появятся "нормальные" данные.
Теперь всё стало работать так как надо.
Кстати, ещё и это подсказка помогла решить проблему:

Кроме того, попытайся исключить ssget; кроме простого удаления выносок надо бы сначала от них "откреплять" реакторы...

Спасибо ещё раз