[mamuk]

доброго времени! у меня есть блок "rpvr" на чертеже и копий его много. у этого блока есть атрибут "CTR_ALTITUDE" в этом атрибуте записаны данные
я пытаюсь получить список значений атрибута "CTR_ALTITUDE" из всех блоков с именем "rpvr"
как извлечь данные у одного блока я понял но как перебрать все блоки из набора не пойму
я делаю так создаю набор

Код:

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

 (setq set_markers (ssget "_X" (list(cons 2 "rpvr"))))

далее полное извращение не пойму как перебрать атрибуты каждого блока
это одна из попыток и c repeat пробовал.

Код:

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

 (while (/= (sslength set_markers) a)
      (setq i (1+ i))
      (setq name (ssname set_markers i ))
      (setq ename_attr (entnext name))
         (while (/= attr "CTR_ALTITUDE")
 (setq ename_attr (entnext ename_attr))
    (setq attr (cdr(assoc 2 (entget ename_attr))))
	   (setq list_markers (vl-remove-if-not '(lambda(x)(=(car x) 1))(entget ename_attr)))
   )
      (setq a (1+ a))
              )

так и незнаю как осуществить се действие
может есть vla- метод который по имени атрибута блока выдает его содержимое.
Всем удачных выходных!!

[TararykovDG]

Код:

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

 
; Вызов: (get-attr-value "rpvr" "CTR_ALTITUDE")
(defun get-attr-value(block_name attr_name / lst_attr_value)
  ((lambda(nbr)
     (if nbr
       (foreach item (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex nbr))))
	 (if (= (vla-get-EffectiveName item) block_name)
	   ((lambda(sf)
	      (if (> (vlax-safearray-get-u-bound sf 1) -1)
		(foreach attr (vlax-safearray->list sf)
		  (if (= (vla-get-TagString attr) attr_name)
		    (setq lst_attr_value (cons (vla-get-TextString attr) lst_attr_value))
		    )
		  )
		)
	      )
	     (vlax-variant-value (vla-GetAttributes item))
	     )
	   )
	 )
       )
     )
    (ssget "_X" (list (cons 0 "INSERT") (cons 2 (strcat block_name ",`*U*"))))
    )
  (reverse lst_attr_value)
  ); end get-attr-value

[mamuk]

у меня не получается с помощью вашей функции получить список все время возвращает nil что я не так делаю? натыкал блоков и вызвал функцию (get-attr-value "rpvr" "CTR_ALTITUDE") в строке получил nil подскажите пожалуйста!

[TararykovDG]

Сообщение от mamuk натыкал блоков и вызвал функцию (get-attr-value "rpvr" "CTR_ALTITUDE") в строке получил nil подскажите пожалуйста!

mamuk, тыкать ничего не надо, после запуска функции (get-attr-value "rpvr" "CTR_ALTITUDE") должны программно выбраться все блоки с именем rpvr и из них считаться значения атрибутов CTR_ALTITUDE. Nil возвращается если указанных блоков нет или если в указанных блоках нет указанных атрибутов.
P. S. Лучше выложи чертеж где у Тебя не работает (версия ACAD'a не позже 2008)

[mamuk]

добавил файл там два блока

[TararykovDG]

mamuk, или я не так выразился или Ты меня не так понял

Сообщение от TararykovDG P. S. Лучше выложи чертеж где у Тебя не работает (версия ACAD'a не позже 2008)

Я имел ввиду файл в версии 2008 или более ранней версии 2007 ... 2002 AutoCAD'а, потому что у меня установлен AutoCAD2008 и файл AutoCAD2010 я открыть не могу

[mamuk]

видимо не понял я!
я пересохранил должно открытся

[TararykovDG]

имя блока и имя атрибут в моем варианте кода чувствительна к регистру, поэтому надо вызывать так (get-attr-value "RPVR" "CTR_ALTITUDE")
Хотя Ты написал

Сообщение от mamuk доброго времени! у меня есть блок "rpvr" на чертеже и копий его много

[mamuk]

попробую ваш код с регистром только дома уже! а то за сиделся на работе! у нас ужо вечер полвосьмого!
спасибо вам!!
у меня только еще вопрос по поводу выбора (ssget "_X" (list (cons 0 "INSERT") (cons 2 (strcat block_name ",`*U*"))))
имено в эттой строчке (strcat block_name ",`*U*") что дает данная строка,то что строки сцеляются мне понятно, но как это влияет на выбор?
спасибо!!

[TararykovDG]

Сообщение от mamuk у меня только еще вопрос по поводу выбора (ssget "_X" (list (cons 0 "INSERT") (cons 2 (strcat block_name ",`*U*")))) имено в эттой строчке (strcat block_name ",`*U*") что дает данная строка,то что строки сцеляются мне понятно, но как это влияет на выбор?

Это позволяет включить в набор вхождения динамических блоков, так как у таких вхождений имя может быть не такое же как имя у описания блока, а например будет *U[какя-нибудь цифра], поэтому я формирую набор из всех вхождений блоков с именем block_name и всех вхождений динамических блоков, а потом с помощью свойства EffectiveName в строке (= (vla-get-EffectiveName item) block_name) оставляю только те вхождения дин. блоков которые действительно являются вхождениями блока block_name.