[TheBuTeK]

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

Код:

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

(setq CBloсk (entlast))
(setq test1 (vlax-ename->vla-object cbloсk))
(while (setq item (entnext cbloсk))(progn
     (if (= (cdr (assoc 0 (entget item))) "ATTRIB")(progn 
          (setq att (entget item))
          (SetQ ListL1 (cdr(assoc 2 att)))
               ));_if_progn
));_while_progn

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

http://dwg.ru/forum/printtopic.php?t=15784
http://my.opera.com/kpblc/blog/show....68?cid=3672098 (поиск по слову _kpblc-block-attr-get-pointer-mask) Оно?

[VVA]

А так

Код:

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

(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)
		  )
	  )
	)
      )
    )
  )
)

Пример

Код:

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

(setq CBloсk (entlast))
(setq test1 (vlax-ename->vla-object cbloсk))
(get-all-atts test1)

[CB]

Код:

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

 
(setq block-name
       (vla-get-name
         (vlax-ename->vla-object (car (entsel "Укажите блок:")))
       ) ;_ end of vla-get-name
) ;_ end of setq
(defun get-atr-block (block-name / lst-ent-name)
  (vlax-for item
                 (vla-item
                   (vla-get-blocks
                     (vla-get-activedocument (vlax-get-acad-object))
                   ) ;_ end of vla-get-blocks
                   block-name
                 ) ;_ end of vla-item
    (cond
      ((= (vla-get-objectname item) "AcDbBlockReference")
       (setq lst-ent-name
              (append lst-ent-name
                      (get-atr-block (vla-get-name item))
              ) ;_ end of append
       ) ;_ end of setq
      )
      ((= (vla-get-objectname item) "AcDbAttributeDefinition")
       (setq lst-ent-name
              (cons (vla-get-TextString item) lst-ent-name)
       ) ;_ end of setq
      )
      (t nil)
    ) ;_ end of cond
  ) ;_ end of vlax-for
  lst-ent-name
) ;_ end of defun
;;;(get-atr-block block-name)

[TheBuTeK]

Как всегда безукоризненно!
Косяк мой заключался в том, что я тупо вытаскивал атрибуты с помощью vla-getattributes, а надо было бы vla-getconstantattributes!
В грандиозном труде Николая Николаевича эта функция не описана, будем учиться читать между строк!

[TheBuTeK]

Уважаемые гуру, поясните ламеру относительно вызова функции уважаемого VVA.

Такой вызов исправно выдает атрибуты и их тэги в виде списка точечных пар.

Код:

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

(defun att08 ()
(setq CBloсk (entlast))
(setq test1 (vlax-ename->vla-object cbloсk))
(get-all-atts test1)
)

А вот такой вызов приводит к ошибке со следующим сообщением:
error: An error has occurred inside the *error* functionbad
argument type: VLA-OBJECT nil

Код:

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

(defun att08 ()
(setq CBlock (entsel "Выберите блок:"))
(setq test1 (vlax-ename->vla-object cblock))
(get-all-atts CBlock)
)

Разве функции entlast и entsel не дают результат одного и того же типа? Если нет, то в чем разница?

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

Нет, не одного и того же:
entlast -> возвращает ename-указатель на последний созданный примитив
entget -> возвращает список, состоящий из указателя и точки, куда ткнул юзер.
Для работы сделай так:

Код:

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

(defun att08 ()
(setq CBlock (car (entsel "Выберите блок:")))
(setq test1 (vlax-ename->vla-object cblock))
(get-all-atts CBlock)
)

[VVA]

В get-all-atts надо передавать не CBlock, а test1

[VVA]

Я бы сейчас еще и в if'е строчки поменял местами

Код:

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

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

*** Добавлено
Взять функции _dwgru-conv-ent-to-ename и _dwgru-conv-ent-to-vla
то можно записать так

Код:

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

 
(defun att08 ()
(get-all-atts (_dwgru-conv-ent-to-vla (entsel "Выберите блок:")))
)

[TheBuTeK]

А что дает эта замена?

[TheBuTeK]

В развитие темы:
На выходе получается список вида '(("1" . 1) ("3" . 4) ("4" . 5) ("2" . 3)).
Можно ли его одним оператором упорядочить по возрастанию первого элемента точечной пары?
Что-нибудь типа:

Код:

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

(vl-sort '(("1" . 1) ("3" . 4) ("4" . 5) ("2" . 3)) (function (lambda (e1) (<(car e1)))))

Или же необходимо организовать отдельный цикл для сортировки?

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

Код:

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

_$ (setq lst '(("1" . 1) ("3" . 4) ("4" . 5) ("2" . 3)))
(("1" . 1) ("3" . 4) ("4" . 5) ("2" . 3))
_$ (vl-sort lst '(lambda (a b) (< (car a) (car b))))
(("1" . 1) ("2" . 3) ("3" . 4) ("4" . 5))

[VVA]

#10 Так правильней с точки зрения проверки
#11

Код:

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

(setq lst '(("1" . 1) ("3" . 4) ("4" . 5) ("2" . 3)))
(vl-sort lst '(lambda(x y)(< (car x)(car y))))

[VVA]

У Алексея сегодня интернет быстрее

[VVA]

Еще замечу, что такая сортировка сортирует строки как строки, т.е

Код:

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

(setq lst '(("11" . 1) ("3" . 4)("1" . 1) ("4" . 5) ("2" . 3)))
(vl-sort lst '(lambda(x y)(< (car x)(car y))))

вернет
(("1" . 1) ("11" . 1) ("2" . 3) ("3" . 4) ("4" . 5))
Т.е сначала единицы ("1" и "11") потом двойки и т.д.
Если надо сортировать строки как числа (чтобы "11" было в конце), то тут нужен немного иной подход

[TheBuTeK]

Спасибо, получилось!
Атрибуты пронумерованы 01, 02, 03 .... 11, 12, дабы не возникала необходимость мучаться с подобным преобразованием.
По сути необходимо проводить упорядочивание не самих названий атрибутов, а результата их конвертации в числа, что вдобавок сделать не всегда получится..

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

> VVA : В таком случае без DwgRuLispLib уже будет тяжко обойтись...

[VVA]

#17 Согласен

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

Как говорят в Одессе "У нас их всегда есть .."
Сама функция

Код:

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

;;Published http://www.theswamp.org/index.php?topic=16564.0
;;By VVA --  05.20.07 mods by CAB
;;Usage (SortStringWithNumberAsNumber '("A9" "A1" "A10" "B11" "B2" "B05") nil)
;;With ignore case (SortStringWithNumberAsNumber '("A9" "A1" "A10" "B11" "B2" "B05") t)
;;  CAB added Ignore Case Flag as an argument
;;Return ("A1" "A9" "A10" "B2" "B05" "B11") 
(defun SortStringWithNumberAsNumber (ListOfString IgnoreCase / NorStrs count)
;;;Function Normalize (add 0 befor number) number in string
;;; Count normalize symbols set in variable count
;;; CAB added count as an argument
  (defun NormalizeNumberInString (str count / ch i pat ret buf)
    (setq i   0
          pat '("0" "1" "2" "3" "4" "5" "6" "7" "8" "9")
          ret ""
    ) ;_ end of setq
    (while (/= (setq ch (substr str (setq i (1+ i)) 1)) "")
      (if (vl-position ch pat)
        (progn
          (setq buf ch) ;_ end of setq
          (while
            (vl-position (setq ch (substr str (setq i (1+ i)) 1)) pat)
             (setq buf (strcat buf ch))
          ) ;_ end of while
          (while (< (strlen buf) count) (setq buf (strcat "0" buf)))
          (setq ret (strcat ret buf))
        ) ;_ end of progn
      ) ;_ end of if
      (setq ret (strcat ret ch))
    ) ;_ end of while
    ret
  ) ;_ end of defun
  ;;-------------------------------------------------
  ;;  function to Count the longest number in string 
  ;;  CAB added to get the correct COUNT
  (defun getcount (lst / count pat)
    (setq count 0)
    (setq pat '("0" "1" "2" "3" "4" "5" "6" "7" "8" "9"))
    (mapcar
      '(lambda (str / i maxlen ch)
         (setq i 0 maxlen 0)
         (while (/= (setq ch (substr str (setq i (1+ i)) 1)) "")
           (if (vl-position ch pat) ; number
             (setq maxlen (1+ maxlen))
             (setq count  (max count maxlen) maxlen 0)
           )
         )
  (setq count  (max count maxlen)) ;_<<< ADD 21.06.2007 by 
       )
      Lst
    )
    count
  )
  ;;===============================================
  (setq count   (GetCount ListOfString)
        NorStrs (mapcar '(lambda (x) (NormalizeNumberInString x count))
                        ListOfString)
  )
  (and IgnoreCase (setq NorStrs (mapcar 'strcase NorStrs)))
  (mapcar '(lambda (x) (nth x ListOfString)) (vl-sort-i NorStrs '<))
) ;_ end of defun

И примерчик использования

Код:

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

(setq lst '(("11" . 1) ("3" . 4)("1" . 1) ("4" . 5) ("2" . 3)))
(mapcar '(lambda(x)(assoc x lst))
(SortStringWithNumberAsNumber (mapcar 'car lst) t)
 )

Результат
(("1" . 1) ("2" . 3) ("3" . 4) ("4" . 5) ("11" . 1))
Как видно, "11" на своем месте

PS Наверное надо будет оформить как библиотечную ф-цию

PPS

Атрибуты пронумерованы 01, 02, 03

Теперь в этом нет необходимости