[Victorovich]

Здравствуйте Знатоки Автокада !

Подскажите, пожалуйста, как организовать программно редактирование атрибута с тагом REF1 блока с названием OTV_4. При этом программа должна спрашивать "Укажите блок: ".

На странице посвященной редактированию блоков
http://dwg.ru/f/showthread.php?t=142...EB%EE%EA%EE%E2
я нашел функцию get-all-atts .

Но Как мне ее правильно использовать чтобы отредактировать значение атрибута REF1 в указанном блоке я не разобрался:

(defun att08 ()
(setq CBlock (car (entsel "Выберите блок:")))
(setq test1 (vlax-ename->vla-object cblock))
(get-all-atts test1)
;;; что сюда нужно добавить ???
)



Заранее Всем Спасибо.

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

Вообще-то по приведенной ссылке явно не то
Жалко, времни нет совсем собирать кубики - в DwgRuLispLib все необходимое есть...

[Victorovich]

сори, ссылка настоящая такая
http://dwg.ru/f/showthread.php?t=142...E1%EB%EE%EA%E0

а функция в ней

(defun get-all-atts (obj)

(if (and obj
(eq :vlax-true (vla-get-HasAttributes obj))
(vlax-property-available-p obj 'Hasattributes)

)
(vl-catch-all-apply
(function
(lambda ()
(mapcar (function (lambda (x)
(cons (vla-get-TagString x)
(vla-get-TextString x)
)
)
)
(append (vlax-invoke obj 'Getattributes)
(vlax-invoke obj 'Getconstantattributes)
)
)
)
)
)
)
)

[fixo]

Попробуй такой вариант

Код:

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

;Начало программы
(defun c:catt (/ ent i next next_data sset tag val)
(if
  (and (setq sset (ssget (list (cons 0 "INSERT")(cons 66 1)))); Выбор блоков только с атрибутами
       (setq tag (strcase (getstring "\n >> Введите тэг атрибута : \n")))
       (setq val (getstring "\n >> Новое значение атрибута : \n")))
  (progn
  (setq i (- 1))
  (repeat (sslength sset)
    (setq ent (ssname sset (setq i (1+ i))))
    (setq next ent)
      (while (setq next (entnext next))
	(setq next_data (entget next))
	(if (= tag (cdr (assoc 2 next_data)))
	  (progn
	    (entmod (subst (cons 1 val) (assoc 1 next_data) next_data))
	    (entupd ent)))))))
(princ)
)
(prompt "\nВ командной строке набери CATT\n")
(princ)

~'J'~

[Victorovich]

Спасибо fixo за программу. Все работает.
Не мог бы ты прокоментировать ее между строками включительно
(progn
(setq i (- 1))

и

(entupd ent)))))))

И можно ли как-то сделать так, чтобы юзер не щелкал дополнительно ввод (или прав кнопку мышки) после указания блока ???
(хотелось бы один раз указать на блок и все, без лишнего ввода)

[Victorovich]

и еще тут загвоздка

если скопировать один и тот же блок с атрибутом, то при запуске программы и при указании на одну из копий, получается что атрибуты меняются во всех копиях, а нужно только в указанной юзером копии

[fixo]

Во-первых функция ssget после выбора примитивов
требует ввода Enter как подтверждение окончания этого
выбора, поэтому ты можешь выбирать любое количество
блоков сразу, а не по-одному

небольшой комментарий:

Код:

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

  (progn ; предполагает выполнение нескольких действий
  (setq i (- 1)); задаем начальное значение счетчика
  (repeat (sslength sset); повтор действий соответственно количеству выбранных примитивов (блоков)
    (setq ent (ssname sset (setq i (1+ i)))); определяем конкретный блок по соответствующему индексу
    (setq next ent); сохраняем указатель на блок для регенерации в конце каждого цикла
      (while (setq next (entnext next); начало цикла - вводим условие что цикл продолжается до тех пор пока у блока существует субпримитив
	(setq next_data (entget next)); определяем список субпримитива (нас интересует атрибут)
	(if (= tag (cdr (assoc 2 next_data))); сраниваем значение тэга атрибута и заданного тэга
	  (progn
	    (entmod (subst (cons 1 val) (assoc 1 next_data) next_data)); модифицируем список атрибута
	    (entupd ent); модифицируем блок (по сохраненному ранее указателю)
))))))
(princ); завершение программы без эхо (тихий выход из программы)
)
(prompt "\nВ командной строке набери CATT\n")
(princ)

~'J'~

[Victorovich]

спасибо за разъяснения

а как быть если скопировать один и тот же блок с атрибутом, то при запуске программы и при указании на одну из копий, получается что атрибуты меняются во всех копиях, а нужно только в указанной юзером копии