[r7800m]

Доброго дня, уважаемые форумчане!
Прошу помощи в доработке LISP'a для изменения значения атрибута в блоке.
Сам код ниже:

Код:

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

 (defun ag_valattedit (TARGETPOINT ATTMASK ATTVALUE)
	(setq TARGETBLOCK (ssname (ssget TARGETPOINT) 0)) ;_ определяем примитив по координатам (объект в точке)
	(while (eq (cdr (assoc 0 (entget (setq TARGETBLOCK (entnext TARGETBLOCK))))) "ATTRIB") ;_ цикл перебора вложенных примитивов с фильтром атрибутов
		(if (= ATTMASK (cdr (assoc 2 (entget TARGETBLOCK)))) (entmod (subst (cons 1 ATTVALUE) (assoc 1 (entget TARGETBLOCK)) (entget TARGETBLOCK)))) ;_ изменение значения целевого (по маске) атрибута
	) ;_ конец while
)

В функцию в качестве аргументов должны передаваться точка, в которой находится блок с атрибутами (вопрос с фильтрацией выбора объектов по их типу "блок/не блок", "с атрибутами/без атрибутов" пока опустим), маска тэга атрибута и новое значение этого атрибута. Сам код списан с сообщения E-degtyarev.
Вчера этот код вроде как даже работал в AutoCAD 2008. Но сегодня в AutoCAD 2014 отказывается это делать (вчера раки были большие, но по 5... ):

Код:

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

Команда: _CAL
>> Выражение: p1=cur
>> Введите точку:
0,0,0

Команда: (ag_valattedit (p1 "НОМЕРСКВ" "123"))
; ошибка: неверная функция: (0.0 0.0 0.0)

Команда: (ag_valattedit ('(0 0) "НОМЕРСКВ" "123"))
; ошибка: неверная функция: (0 0)

При этом даже два последовательно вставленные в командную строку AutoCAD выражения основную функцию выполняют:

Код:

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

 (setq TARGETBLOCK (entnext (ssname (ssget p1) 0)))
(entmod (subst (cons 1 "123") (assoc 1 (entget TARGETBLOCK)) (entget TARGETBLOCK)))

Код:

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

Команда: (setq TARGETBLOCK (entnext (ssname (ssget p1) 0)))
<Имя объекта: 7ffff467860>

Команда: (entmod (subst (cons 1 "123") (assoc 1 (entget TARGETBLOCK)) (entget TARGETBLOCK)))
((-1 . <Имя объекта: 7ffff467860>) (0 . "ATTRIB") (330 . <Имя объекта: 7ffff467120>) (5 . "DCE") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "GEO_Скважина") (100 . "AcDbText") (10 1.325 26.05 0.0) (40 . 3.5) (1 . "123") (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "GEO_Geniso_UsualText") (71 . 0) (72 . 1) (11 5.0 25.0 0.0) (210 0.0 0.0 1.0) (100 . "AcDbAttribute") (280 . 0) (2 . "НОМЕРСКВ") (70 . 0) (73 . 0) (74 . 1) (280 . 1))

В данном случае атрибут с тэгом "НОМЕРСКВ" попадается первым при переборе вложенных в блок элементов.
Подозреваю, что что-то не так с передачей в функцию аргументов, но не могу дать ума, как и что исправить, и вообще, куда смотреть?

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

Опущу момент "выбора по точке", бог с ним. Сравни вызовы:

Код:

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

 (ag_valattedit (p1 "НОМЕРСКВ" "123"))

и

Код:

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

 (ag_valattedit p1 "НОМЕРСКВ" "123")

Практически гарантирую, что второй вариант будет работать.

[r7800m]

Большое спасибо, Алексей!
Весьма обидная ошибка...