[Tramp]

Т.е. имеется блок с атрибутом. На чертеже несколько вставок этого блока с различными значениями этого атрибута.
Если просмотреть DXF код какого-либо из них (entget (car (entsel))), информации об атрибуте в нём нет. Но ведь где-то она хранится?

[KAI]

Естественно. В следующими за блоком примитиве, если DXF код 66 примитива INSERT равен 1. Имена этих примитивов ATTRIB.
Их можно получить по функции entnext.

[Tramp]

Спасибо. Ни за что бы не додумался :-)

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

Можно и через vla- добраться

Код:

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

_$ (setq block (vlax-ename->vla-object (car (entsel))))
#<VLA-OBJECT IAcadBlockReference 05588234>
;; Получаем указатель на блок
_$ (vlax-safearray->list (vlax-variant-value (vla-GetAttributes block)))
(#<VLA-OBJECT IAcadAttributeReference 055880b4> #<VLA-OBJECT IAcadAttributeReference 05589644>)
;; Получаем список его атрибутов
_$ (mapcar 'vla-get-TagString (vlax-safearray->list (vlax-variant-value (vla-GetAttributes block))))
("TAG2" "TAG1")
;; Получаем список тэгов атрибутов блока
_$ (mapcar 'vla-get-textString (vlax-safearray->list (vlax-variant-value (vla-GetAttributes block))))
("val2" "val1")
;; А это значения атрибутов :)

Ну и так далее.

[Tramp]

2 KAI
неа, не работает. По entnext выдаётся следующий блок :-(

[Zouss]

работает работает

(entnext blockname) надо писать, где blockname имя блока полученное например с помощью (ssname или (entlast)

[Tramp]

Да, действительно.
С синтаксисом команды не разобрался

[VVA]

Пример
Ф-ция

Код:

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

;| Ф-ция возвращает список атрибутов блока
   e1 - имя примитива блока (ENAME)
*  Возвращает
   Список
   ((TAG Значение dxf10 dxf11 dxf50 [угол поворота]) ...)
* пример вызова
   (if (setq e1 (car(entsel "\Выберите блок: ")))(mip_get_blk_att e1))
   Вернет
   (("ATT2" "Value_Att2" (217.957 269.772 0.0) (0.0 0.0 0.0) 0.0) ("ATT1" "Value_Att1" (218.377 274.379 0.0) (0.0 0.0 0.0) 0.0))
   |;

(defun mip_get_blk_att ( e1 / ed imattr znattr retlist ptattr ptattr11 ugattr)
    (setq ed (entget e1))
  (if (and
	(= (cdr (assoc 0 ed)) "INSERT") ;_Блок
	(= (cdr (assoc 66 ed)) 1)       ;_След аттриб
      )
    (progn
        (setq e1 (entnext e1))
        (while (AND e1
		  (= (cdr (assoc 0 (setq ed (entget e1)))) "ATTRIB")
	     ) ;_ End of AND
	(setq imattr (cdr (assoc 2 ed))
              znattr (cdr (assoc 1 ed))
              ptattr (cdr (assoc 10 ed))
            ptattr11 (cdr (assoc 11 ed))
              ugattr (cdr (assoc 50 ed)))
	  
	(setq retlist (append retlist (list (list imattr znattr ptattr ptattr11 ugattr))))
	(setq e1 (entnext e1))
      )
    )  
  )
  retlist
)

Вызов

Код:

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

(if (setq e1 (car(entsel "\Выберите блок: ")))(mip_get_blk_att e1))

[Tramp]

Спасибо за добрые советы, всё работает, атрибуты извлекаются и меняются без проблем.

КрЫс, а использование ActiveX даёт какие-то ощутимые преимущества перед традиционными методами AutoLISP? Не понимаю я его, потому не люблю :-)

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

Ну в общем-то ActiveX предоставляет более удобный доступ к свойствам примитивов (для приколу - попробуй понять, где в dxf солида лежат вычисленный объем, к примеру. Через ActiveX это делается за 5 секунд). В принципе, это вопрос вкуса и привычки, ЯТД, не более

[Лентяй]

У ActiveX есть только один недостаток - чтобы им свободно владеть, нужно хотя бы слегка разуметь аглицкой мове. :twisted: Тогда все остальное будет просто тьфу.

[Tramp]

Сообщение от Лентяй У ActiveX есть только один недостаток - чтобы им свободно владеть, нужно хотя бы слегка разуметь аглицкой мове. :twisted: Тогда все остальное будет просто тьфу.

С этим проблем нет :-)
Но я спрашивал не про отсутствие недостатков, а про наличие реальных преимуществ.
Хотя, конечно, КрЫс прав - всё субъективно.

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

Хм... Еще один момент. В многострочном тексте (если текста больше чем 255 символов) его значения хранятся в 1 группе и в 3. Соответственно надо объединять полученные значения, учитывать, что 3 группы может быть несколько экземпляров и проч. Через ActiveX: (vla-get-textstring (vlax-ename->vla-object (car (entsel)))) вернет всю строку любого текста - хоть однострочного, хоть многострочного.

[Tramp]

Сообщение от kpblc Через ActiveX: (vla-get-textstring (vlax-ename->vla-object (car (entsel)))) вернет всю строку любого текста - хоть однострочного, хоть многострочного.

А вот это уже реальный плюс. Я сэтим многострочным текстом в своё время всю голову сломал :-)

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

В продолжение начала темы:
получение атрибутов блока через dxf:

Код:

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

(defun mip_get_blk_att ( e1 / ed imattr znattr retlist ptattr ptattr11 ugattr)
    (setq ed (entget e1))
  (if (and
   (= (cdr (assoc 0 ed)) "INSERT") ;_Блок
   (= (cdr (assoc 66 ed)) 1)       ;_След аттриб
      )
    (progn
        (setq e1 (entnext e1))
        (while (AND e1
        (= (cdr (assoc 0 (setq ed (entget e1)))) "ATTRIB")
        ) ;_ End of AND
   (setq imattr (cdr (assoc 2 ed))
              znattr (cdr (assoc 1 ed))
              ptattr (cdr (assoc 10 ed))
            ptattr11 (cdr (assoc 11 ed))
              ugattr (cdr (assoc 50 ed)))
    
   (setq retlist (append retlist (list (list imattr znattr ptattr ptattr11 ugattr))))
   (setq e1 (entnext e1))
      )
    ) 
  )
  retlist
)

через activex:

Код:

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

(defun _kpblc-block-att	(/ block res)
  (if (and (setq block (entsel))
	   (setq block (vlax-ename->vla-object (car block)))
	   (= (vla-get-objectname block) "AcDbBlockReference")
	   (= (vla-get-hasattributes block) :vlax-true)
	   ) ;_ end of and
    (foreach item (vlax-safearray->list
		    (vlax-variant-value (vla-getattributes block))
		    ) ;_ end of vlax-safearray->list
      (setq
	res
	 (append
	   res
	   (list
	     (list
	       item
	       (cons "tag" (vla-get-tagstring item))
	       (cons "text" (vla-get-textstring item))
	       (cons 10
		     (vlax-safearray->list
		       (vlax-variant-value (vla-get-insertionpoint item))
		       ) ;_ end of vlax-safearray->list
		     ) ;_ end of cons
	       (cons 11
		     (vlax-safearray->list
		       (vlax-variant-value (vla-get-textalignmentpoint item))
		       ) ;_ end of vlax-safearray->list
		     ) ;_ end of cons
	       ) ;_ end of list
	     ) ;_ end of list
	   ) ;_ end of append
	) ;_ end of setq
      ) ;_ end of foreach
    ) ;_ end of if
  res
  ) ;_ end of defun

Просто в принципе эта функция лишняя, имея vla-указатели на атрибуты, можно из них получить все что угодно. Код выполняет аналогичные функции, но, на мой взгляд, он не требует высококлассного знания DXF-кодов и немного более понятен

[VVA]

Или вместо

Код:

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

  (foreach item (vlax-safearray->list 
          (vlax-variant-value (vla-getattributes block)) 
          ) ;_ end of vlax-safearray->list 
        ...

так

Код:

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

(foreach item  (vlax-invoke block 'Getattributes)
      ...

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

vlax-invoke не участвует в документации. Как сказал Н.Н.Полещук, недокументированные функции могут прекратить поддерживать. Так что, если есть возможноть, лучше от них избавляться.