[Alexander_Liseev]

Есть куча примитивовов на разных слоях, допустим они имеют все свойства "по слою", нужно из этого создать блок, который будет в каком-то слое, чтобы потом без лишних телодвижений выключать его.
Как перенести примитивы в блоке на слой 0, но чтобы все цвета, типы линий и т.д остались прежними? Ну наверняка есть какоё-нибудь лиспик...

[Makswell]

Если проблема в выключении, то может быть вместо этого попробовать этот слой заморозить?

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

Alexander_Liseev, тебе приципиальное решение или готовый код?

[Alexander_Liseev]

to Makswell Плин, как все просто... перемудрил я чего-то.
to Кулик Алексей aka kpblc Ну если не напряжно, то не откажусь от кода на будущее. Заранее благодарен.

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

Код:

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

(vl-load-com)

(defun _dwgru-ent-to-0 (ent / adoc prop_lst lst layer layers err)
          ; ent -> указатель на вхождение блока.
  (setq ent      (cond
                   ((= (type ent) 'ename) (vlax-ename->vla-object ent))
                   ((= (type ent) 'vla-object) ent)
                   ) ;_ end of cond
        ent      (vla-item (vla-get-blocks (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
                           (vla-get-effectivename ent)
                           ) ;_ end of vla-item
        layers   (vla-get-layers adoc)
        prop_lst (list (cons "color" 256)
                       (cons "lineweight" aclnwtbylayer)
                       (cons "linetype" -1)
                       ) ;_ end of list
        ) ;_ end of setq
  (vla-startundomark adoc)
  (vlax-for sub ent
    (setq layer (vla-item layers (vla-get-layer sub))
          layer (mapcar
                  (function
                    (lambda (x)
                      (cons (car x) (vlax-get-property layer (car x)))
                      ) ;_ end of lambda
                    ) ;_ end of function
                  prop_lst
                  ) ;_ end of mapcar
          lst   (mapcar
                  (function
                    (lambda (x)
                      (cons (car x)
                            (cond
                              ((= (vlax-get-property sub (car x)) (cdr x))
                               (cdr (assoc (car x) layer))
                               )
                              (t (vlax-get-property sub (car x)))
                              ) ;_ end of cond
                            ) ;_ end of cons
                      ) ;_ end of lambda
                    ) ;_ end of function
                  prop_lst
                  ) ;_ end of mapcar
          ) ;_ end of setq
    (if (vl-catch-all-error-p
          (vl-catch-all-apply
            (function
              (lambda ()
                (vla-put-layer sub "0")
                (foreach prop lst
                  (vl-catch-all-apply
                    (function
                      (lambda ()
                        (vlax-put-property sub (car prop) (cdr prop))
                        ) ;_ end of lambda
                      ) ;_ end of function
                    ) ;_ end of vl-catch-all-apply
                  ) ;_ end of foreach
                ) ;_ end of lambda
              ) ;_ end of function
            ) ;_ end of vl-catch-all-apply
          ) ;_ end of vl-catch-all-error-p
      (setq err t)
      ) ;_ end of if
    ) ;_ end of vlax-for
  (if err
    (princ "\nБыли ошибки!")
    ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun