[Abzorbo]

Собственно сам вопрос: как расчленить блок, для которого заданы параметры "нерасчленяемый"? Не хочет командой explode разбиваться. Вообще возможно ли?

[Krieger]

Зайди в редактор блоков "_bedit" и ничего не выделяя поставь в свойствах (ctrl+1) разрешение на расчленение.
~ACAD2006

[Abzorbo]

У меня при выполнении этой команды только EDIT BLOCK DEFINITION окно выскакивает со списком блоков. Свойства не вызываются

[Krieger]

Дык, выбери блок и нажми Ok. ACAD же не знает какой блок тебе надо редактировать...

[Abzorbo]

дЫк в том то и дело, что тыкаю в него, жму, выбираю--ничего. Он либо открывается для редактирования, либо с ним ничего не происходит. Если просто выбираю свойства, то в строках нет параметра расчленения. Даже не представляю...

[Krieger]

Выложи пациента.

[Abzorbo]

От оно... Там 2 блока, один воще паталогический, а второй я сам создал, убрав галку РАЗРЕШИТЬ РАСЧЛЕНЕНИЕ...

[Хмурый]

Действовал по известной вышеуказанной Krieger в п. 2 методике

[SergGL]

Извлек в редакторе блоков через буфер обмена...

[Хмурый]

Скриншоты

[Хмурый]

2004-ый эти блоки вооще без проблем расчленяет.

[Abzorbo]

Я уже начал сам скриншоты создавать, но получил уведомление по мэйлу о новом письме!
ПОНЯЛ! Благодарю. Что-то не хватило соображалки сделать именно так.
Тему можно закрывать

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

Установка "разбиваемости" блоков (работать будет от 2006 и выше, контроля версий нет). Если вызывать как (set-explode t), то блоки будут сделаны разбиваемыми. Для (set-explode nil) - соответственно флаг будет снят. Код нарисован на коленке, так что вариантов по улучшению масса.

Код:

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

(defun set-explode (expl / adoc selset)
  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-StartUndoMark
  (if (setq selset (ssget '((0 . "INSERT"))))
    (foreach blk
             (mapcar
               '(lambda (x)
                  (vla-item (vla-get-blocks adoc)
                            (vla-get-effectivename (vlax-ename->vla-object x))
                            ) ;_ end of vla-item
                  ) ;_ end of LAMBDA
               (vl-remove-if 'listp (mapcar 'cadr (ssnamex selset)))
               ) ;_ end of mapcar
      (vl-catch-all-apply
        '(lambda ()
           (vla-put-explodable
             blk
             (if expl
               :vlax-true
               :vlax-false
               ) ;_ end of if
             ) ;_ end of vla-put-explodable
           ) ;_ end of lambda
        ) ;_ end of vl-catch-all-apply
      ) ;_ end of foreach
    ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

Тему можно закрывать

Ну вот, а я старался

[Krieger]

Крыс

Ну вот, а я старался

Если для пятиминутной работы (даже разовой) полдня пишешь программу чтоб выполнить её за 5сек, поздравляю - ты программист.

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

Я ее рисовал минуты 3, может, 4... И потом, "лучше день потерять потом за пять минут долететь" (с)

[LSN]

Здравствуйте. Подскажите пожалуйста как разбить этот блок? Первый раз с такими встречаюсь. Все перепробывал

Извините, нашел. Это МБлок был

[LSN]

Вот только почему-то не все объекты она восстанавливает. В основном текст не реанимируется.