[zaabifff]

Имеется чертеж с несколькими вхождениями динамического блока, соответственно, все они изменены при помощи "динамичности". Можно ли как-то все эти вхождения заменить на обычные блоки (один размер-один блок, другой-другой) с сохранением размеров?
Вот эту тему http://forum.dwg.ru/showthread.php?t=35198 читал, может, что-то недопонял.

[zenon]

а зачем?

[zaabifff]

Есть несколько вхождений блоков, стеновых панелей (просто прямоугольников). Скажем, 15 панелей В1 длинной 5м, 20 В2 длиной 8м. Длина изменена "ручками" динамического блока. Надо сделать, чтобы все панели В1 стали длиной 4м, не редактируя каждую. А В2 остались такими же.

[zenon]

Эт я понял, не понятно зачем производить замену

[zaabifff]

А как можно это сделать? Мне не принципиально, каким способом.

[zenon]

если только в анонимные типа *nnn

[zaabifff]

Как? Их же потом можно будет отдельно подредактировать. одной длины-один обычный блок?

[Хмурый]

полный flatten без скрытия линий им устроить из Express Tools

[zaabifff]

Пишет "неверный составной объект" после flatten и удаляет блок

[Хмурый]

Сообщение от zaabifff Пишет "неверный составной объект" после flatten и удаляет блок

А вот теперь прошу предоставить этот динамический блок.
а также озвучить версию AutoCAD'а, операционную систему и т.д.

[zaabifff]

Прошу прощения, что сразу этого не сделал. Windows XP 32bit, AutoCad 2010, SPDS GraphiCS.

[zenon]

Пробуй след. последовательность
1 - объединить все в блок
2 - изменить только 1 масштаб
3 - взорвать
4 - выделить полученные блоки и поменять масштаб обратно, при необходимости передвинуть.
Offtop: ps хотя не понимаю зачем это.
pss эти блоки изменить низзя

[Хмурый]

что-то с блокам. вновь вставленный командой _insert блок Panel нормально преобразуется.

[zaabifff]

Спасибо вам.
Хмурый Осталось только понять, что с панелями. Но это уже поразбираюсь. Спасибо.

[atollon]

А просто создать новый блок с тем же именем (В1) сложно?

[zaabifff]

Создать не сложно, только как заменить?

[twilight]

Сообщение от zaabifff Создать не сложно, только как заменить?

Если его в том же чертеже создавать то автокад скажет что "блок с таким именем уже есть, переопределить?" Подтвердите и все блоки с таким именем в чертеже переопределятся по новому.

[zaabifff]

Да нет, я, может, не совсем корректно выразился. Дело в том, что имя всех этих блоков - одно, а B1 и B2 - это атрибуты, назначенные Lisp-ом. Пример есть.

[engngr]

Offtop: Блок один, атрибуты разные. Плохая, неясная постановка задачи.
Выбрать эти блоки по значению 'в1' атрибута, в свойствах всем разом поставить нужную длину.

[VVA]

Из этой темы: Strip block of Dynamic Properties

Код:

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

(defun c:UnDynamic

    (   /
        _get_item
        _right
        _make_key
        _dynamic->static_block
        _get_locked
        _get_dynamic_inserts
        _main
    )

    (defun _get_item ( collection key / item )
        (vl-catch-all-apply
           '(lambda ( ) (setq item (vla-item collection key)))
        )
        item
    )

    (defun _right ( str n / len )
        (if (< n (setq len (strlen str)))
            (substr str (1+ (- len n)))
            str
        )
    )

    (defun _make_key ( collection prefix len / key )
        (   (lambda ( i pad )
                (while
                    (_get_item collection
                        (setq key
                            (strcat prefix
                                (_right
                                    (strcat pad (itoa (setq i (1+ i))))
                                    len
                                )
                            )
                        )
                    )
                )
                key
            )
            0
            (   (lambda ( pad )
                    (while (< (strlen pad) len)
                        (setq pad (strcat "0" pad))
                    )
                    pad
                )
                ""
            )
        )
    )

    (defun _dynamic->static_block ( blocks insert len )
        (vla-ConvertToStaticBlock
            insert
            (_make_key blocks "STATIC_" len)
        )
    )

    (defun _get_locked ( layers / locked )
        (vlax-for layer layers
            (if (eq :vlax-true (vla-get-lock layer))
                (setq locked (cons layer locked))
            )
        )
        locked
    )

    (defun _get_dynamic_inserts ( blocks / inserts )
        (vlax-for block blocks
            (vlax-for object block
                (if (eq "AcDbBlockReference" (vla-get-objectname object))
                    (if (eq :vlax-true (vla-get-isdynamicblock object))
                        (setq inserts (cons object inserts))
                    )
                )
            )
        )
        inserts
    )

    (defun _main ( document / blocks inserts locked len )
        (if
            (setq inserts
                (_get_dynamic_inserts
                    (setq blocks (vla-get-blocks document))
                )
            )
            (progn
                (foreach layer (setq locked (_get_locked (vla-get-layers document)))
                    (vla-put-lock layer :vlax-false)
                )
                (setq len (strlen (itoa (length inserts))))
                (foreach insert inserts
                    (_dynamic->static_block blocks insert len)
                )
                (foreach layer locked
                    (vla-put-lock layer :vlax-true)
                )
            )
        )
        (princ)
    )

    (_main (vla-get-activedocument (vlax-get-acad-object)))

)

[Nike]

Уважаемый VVA, спасибо за программу #20 !
А возможно ли внести изменение, позволяющее удалять динамические свойства из выбранных на чертеже блоков, а не у всех поголовно, как сейчас?

[VVA]

Уже внесено
BGBLDYN2A - Преобразовывает динамические блоки в анонимные
BGBLDYN2S - Преобразовывает динамические блоки в статические