[GECK]

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

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

Не понял - атрибуты (всех вхождений) надо перевести в слой, в котором лежит блок? И все?

Код:

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

(defun c:attr-to-layer (/ adoc lst:layers fun_conv-vla-to-list fun_conv-ent-to-vla)

  (defun fun_conv-ent-to-vla (ent_value)
    (cond
      ((= (type ent_value) 'vla-object) ent_value)
      ((= (type ent_value) 'ename) (vlax-ename->vla-object ent_value))
      ) ;_ end of cond
    ) ;_ end of defun

  (defun fun_conv-vla-to-list (value / res)
                              ;|
*    Преобразовывает vlax-variant или vlax-safearray в список.
|;
    (cond
      ((listp value)
       (mapcar 'fun_conv-vla-to-list value)
       )
      ((= (type value) 'variant)
       (fun_conv-vla-to-list (vlax-variant-value value))
       )
      ((= (type value) 'safearray)
       (if (>= (vlax-safearray-get-u-bound value 1) 0)
         (fun_conv-vla-to-list (vlax-safearray->list value))
         ) ;_ end of if
       )
      ((and (member (type value) (list 'ename 'str 'vla-object))
            (setq value (fun_conv-ent-to-vla value))
            (and (= (type value) 'vla-object)
                 (vlax-property-available-p value 'count)
                 ) ;_ end of and
            ) ;_ end of and
       (vlax-for sub (fun_conv-ent-to-vla value)
         (setq res (cons sub res))
         ) ;_ end of vlax-for
       )
      (t value)
      ) ;_ end of cond
    ) ;_ end of defun


  (vl-load-com)
  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (foreach item (fun_conv-vla-to-list (vla-get-layers adoc))
    (if (not (wcmatch (strcase (vla-get-name item)) "*|*"))
      (progn
        (setq lst:layers (cons
                           (list item
                                 (cons "freeze" (vla-get-freeze item))
                                 (cons "lock" (vla-get-lock item))
                                 ) ;_ end of list
                           lst:layers
                           ) ;_ end of cons
              ) ;_ end of setq
        (foreach prop '("freeze" "lock")
          (vl-catch-all-apply
            (function
              (lambda ()
                (vlax-put-property item prop :vlax-false)
                ) ;_ end of lambda
              ) ;_ end of function
            ) ;_ end of vl-catch-all-apply
          ) ;_ end of foreach
        ) ;_ end of progn
      ) ;_ end of if
    ) ;_ end of foreach
  (foreach blk_def (vl-remove-if
                     (function
                       (lambda (x)
                         (equal (vla-get-isxref x) :vlax-true)
                         ) ;_ end of lambda
                       ) ;_ end of function
                     (fun_conv-vla-to-list (vla-get-blocks adoc))
                     ) ;_ end of vl-remove-if
    (foreach blk_ins (vl-remove-if-not
                       (function
                         (lambda (x)
                           (wcmatch (strcase (vla-get-objectname x)) "*BLOCKREF*")
                           ) ;_ end of lambda
                         ) ;_ end of function
                       (fun_conv-vla-to-list blk_def)
                       ) ;_ end of vl-remove-if-not
      (foreach attr (append
                      (fun_conv-vla-to-list (vla-getattributes blk_ins))
                      (fun_conv-vla-to-list (vla-getconstantattributes blk_ins))
                      ) ;_ end of append
        (vla-put-layer attr (vla-get-layer blk_ins))
        ) ;_ end of foreach
      ) ;_ end of foreach
    ) ;_ end of foreach
  (foreach item lst:layers
    (foreach prop (cdr item)
      (vl-catch-all-apply
        (function
          (lambda ()
            (vlax-put-property (car item) (car prop) (cdr prop))
            ) ;_ end of lambda
          ) ;_ end of function
        ) ;_ end of vl-catch-all-apply
      ) ;_ end of foreach
    ) ;_ end of foreach
  (vla-regen adoc acallviewports)
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

[GECK]

большое спасибо!
уже опробовал, пашет как часы.

[Sleekka]

Опа, а разве слой атрибута не одинаков для всех вхождений одного блока?

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

Sleekka, да его запросто можно поменять!

Естественно, говорю про вхождения блоков...

[Sleekka]

Прикольно - не знал.

[PL]

Сообщение от Кулик Алексей aka kpblc Не понял - атрибуты (всех вхождений) надо перевести в слой, в котором лежит блок? И все?

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

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

Можно, конечно. Найди строку

Код:

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

(vla-put-layer attr (vla-get-layer blk_ins))

и замени ее на

Код:

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

(vla-put-color attr 77)

P.S. Писать универсальный код, если честно, лениво до ужаса.

[PL]

Отлично, работает. Большое спасибо, Алексей. Удачи.
В этом коде ,по моему, есть проверка на замороженные/и др. слои с разморозкой снятием замка и последующим восстановлением. можно этот код выделить в отдельный?

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

Не проблема. А нужно ли?
Код разблокировки слоев:

Код:

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

(foreach item (fun_conv-vla-to-list (vla-get-layers adoc))
    (if (not (wcmatch (strcase (vla-get-name item)) "*|*"))
      (progn
        (setq lst:layers (cons
                           (list item
                                 (cons "freeze" (vla-get-freeze item))
                                 (cons "lock" (vla-get-lock item))
                                 ) ;_ end of list
                           lst:layers
                           ) ;_ end of cons
              ) ;_ end of setq
        (foreach prop '("freeze" "lock")
          (vl-catch-all-apply
            (function
              (lambda ()
                (vlax-put-property item prop :vlax-false)
                ) ;_ end of lambda
              ) ;_ end of function
            ) ;_ end of vl-catch-all-apply
          ) ;_ end of foreach
        ) ;_ end of progn
      ) ;_ end of if
    ) ;_ end of foreach

Обратное возвращение:

Код:

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

(foreach item lst:layers
    (foreach prop (cdr item)
      (vl-catch-all-apply
        (function
          (lambda ()
            (vlax-put-property (car item) (car prop) (cdr prop))
            ) ;_ end of lambda
          ) ;_ end of function
        ) ;_ end of vl-catch-all-apply
      ) ;_ end of foreach
    ) ;_ end of foreach

Учти, что вторая часть кода использует список, который формирует первая! Если сильно надо (и не горит), напомни - завтра сброшу эти обе части, выделенные в отдельные функции, с пояснениями и прочей лабудой.

[PL]

Да надо. Здорово бы было. Ты мне давал отличный код по перекраске чертежа, подоснову делать, там осталось несколько вещей которые хотел подправить-одна из них атрибуты не перекрашивались, другая - код останавливался если слои на замке. Другие проблемы ,по моему, ты сказал трудно решаемы - такие как перекраска обьектов многократно вложенных блоках и перекраска обьектов АДТ.

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

Перекраску вложенных блоков по идее сделать можно. Но с ADT-шными объектами - глухо Завтра код добью и сделаю (если раньше никто не подключится )

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

Во, нарисовал работу со слоями. Особо не гонял.
P.S. А перекраску блоков обсуждали здесь

[PL]

Алексей-Огромное спасибо, надо переварить и потестировать. Про перекраску буду писать в нужной теме.

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

Если честно, там шло обсуждение "нормализации" блоков. Не совсем "перекраска", но похоже...