[Startrek]

Уважаемые коллеги,
Кто знает как "взорвать" MINSERT BLOCK, он к тому же безымянный (*U)
Мой старый трюк с изменением колон и рядов на 1 и расстояние между ними на 0
не срабатывает. АutoCAD 2004/2005

[{Smirnoff}]

Вот (не моё):

Код:

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

(DEFUN c:minxpld() 
  (SETQ A (ENTSEL "\nSelect minserted block to explode: ")) 
  (SETQ B (ENTGET (CAR A))) 
  (SETQ XSC (CDR (ASSOC 70 B)) 
   YSC (CDR (ASSOC 71 B)) 
   ) 
  (SETQ XSP (CDR (ASSOC 44 B)) 
   YSP (CDR (ASSOC 45 B)) 
  )    
  (COND 
    ((AND (= XSP 0)(= YSP 0))(SETQ XSC 1 YSC 1)) 
    ((AND (/= XSP 0)(= YSP 0))(SETQ YSC 1)) 
    ((AND (= XSP 0)(/= YSP 0))(SETQ XSC 1)) 
  ) 
  (SETQ C (SUBST (CONS 70 1)(ASSOC 70 B) B)) 
  (SETQ D (SUBST (CONS 71 1)(ASSOC 71 B) C)) 
  (SETQ ENT (CDR (ASSOC -1 (ENTMOD D)))) 
  (COND 
    ((AND (= XSC 1)(= YSC 1))(COMMAND "_EXPLODE" ENT "")) 
    ((= XSC 1) (COMMAND "_ARRAY" ENT "" "R" YSC XSC YSP )) 
    ((= YSC 1) (COMMAND "_ARRAY" ENT "" "R" YSC XSC XSP )) 
    ( T (COMMAND "_ARRAY" ENT "" "R" YSC XSC YSP XSP)) 
  ) 
)

[Startrek]

Спасибо земляк - попробую.

[Startrek]

>>Fantomas
Не работает в 2004/2005 (работает в 2000).
Вообщем эта програмка делает то что я обычно делал в ручную, и всеже НЕ РАБОТАЕТ

[Startrek]

Эта програмка работает - разбивает на простые блоки которые потом легко резбиваются. :!: :!:

Код:

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

;;; XM.LSP
;;; James Tunstall
;;; Autodesk Australia
;;; 28-09-92

;;; Revision history

;;; 28-09-92
;;; Modified to support alignment point of Attributes
;;;
;;; 21-09-92
;;; Modified to support Inserts with Attributes
;;;
;;; 17-09-92
;;; Original

;;;
;;; Explodes multiple insertions into individual INSERT entities
;;;
(defun C:XM
   (
      / ent entdat column_count row_count
      column_spacing row_spacing m n x0 y0 z0 ax0 ay0 az0
      x1 y1 ax1 ay1 entdat0 entdat1 inspt olderr xm_er getval
      bx0 by0 bz0 bx1 by1 alignment
   )

   ;; save error handler
   (setq olderr *error*)

   ;;;
   ;;; User defined error handling function
   ;;;
   (defun xm_er (msg)

      (princ "\nerror: ")                 ; display error message
      (princ msg)
      (terpri)

      (if olderr (setq *error* olderr))   ;restore old *error* function
      (setq olderr nil)
      (princ)
   )

   ;; redefine error handler
   (setq *error* xm_er)

   ;; get value macro
   (defun getval (n e)
       (cdr (assoc n e))
   )

   (prompt "\nSelect Multiple Insertion to Explode:")
   (setq ent (entsel))
   (if (null ent)
      (exit)
   )
   (setq entdat (entget (car ent)))

   (if (null (setq column_count (getval 70 entdat)))
      (progn
         (prompt "\nEntity not a Multiple Insertion.")
         (exit)
      )
   )

   (setq row_count (getval 71 entdat))

   (if (or (<= column_count 0) (<= row_count 0))
      (progn
         (prompt "\nEntity not a Multiple Insertion.")
         (exit)
      )
   )

   ;; set variables
   (setq x0 (car (getval 10 entdat)))
   (setq y0 (cadr (getval 10 entdat)))
   (setq z0 (caddr (getval 10 entdat)))
   (if (null z0)
      (setq z0 0.0)
   )
   (setq column_spacing (getval 44 entdat))
   (setq row_spacing (getval 45 entdat))


   ;; construct preliminary list for INSERT entity creation
   (setq entdat0 entdat)
   (setq entdat1 (subst (cons 70 0) (assoc 70 entdat0) entdat0))
   (setq entdat0 entdat1)
   (setq entdat1 (subst (cons 71 0) (assoc 71 entdat0) entdat0))
   (setq entdat0 entdat1)
   (setq entdat1 (subst (cons 44 0.0) (assoc 44 entdat0) entdat0))
   (setq entdat0 entdat1)
   (setq entdat1 (subst (cons 45 0.0) (assoc 45 entdat0) entdat0))
   (setq entdat entdat1)

   ;; remember last entity in database
   (setq ent (entlast))

   (setq m 0)
   (while (< m column_count)
      (setq n 0)
      (while (< n row_count)
         (setq entdat0 entdat)

         ;; calculate insertion point
         (setq x1 (+ x0 (* m column_spacing)))
         (setq y1 (+ y0 (* n row_spacing)))
         (setq inspt (list x1 y1 z0))

         ;; construct final list for INSERT entity construction
         (setq entdat1 (subst (cons 10 inspt) (assoc 10 entdat0) entdat0))

         ;; create new INSERT entity
         (if (null (entmake entdat1))
            (progn
               (prompt "\nError in ENTMAKE 1")
               (print entdat1)
               (exit)
            )
         )

         ;; duplicate attribute entities if they exist
         (if (= (getval 66 entdat) 1)
            (progn
               (setq entdat0 entdat)
               (while (/= (getval 0 entdat0) "SEQEND")
                  ;; get next entity
                  (setq entdat0 (entget (entnext (getval -1 entdat0))))
                  (if (= (getval 0 entdat0) "ATTRIB")
                     ;; modify insertion point for attributes
                     (progn
                        ;; set variables
                        (setq ax0 (car (getval 10 entdat0)))
                        (setq ay0 (cadr (getval 10 entdat0)))
                        (setq az0 (caddr (getval 10 entdat0)))
                        (if (null az0)
                           (setq az0 0.0)
                        )

                        ;; calculate insertion point for attribute
                        (setq ax1 (+ ax0 (* m column_spacing)))
                        (setq ay1 (+ ay0 (* n row_spacing)))
                        (setq inspt (list ax1 ay1 az0))

                        ;; modify list for
                        ;; ATTRIB entity construction
                        (setq entdat1
                           (subst
                              (cons 10 inspt)
                              (assoc 10 entdat0)
                              entdat0
                           )
                        )

                        (if
                           (or
                              (/= (getval 72 entdat0) 0)
                              (/= (getval 74 entdat0) 0)
                           )
                           (progn
                              ;; set variables
                              (setq bx0 (car (getval 11 entdat0)))
                              (setq by0 (cadr (getval 11 entdat0)))
                              (setq bz0 (caddr (getval 11 entdat0)))
                              (if (null bz0)
                                 (setq bz0 0.0)
                              )

                              ;; calculate alignment point for attribute
                              (setq bx1 (+ bx0 (* m column_spacing)))
                              (setq by1 (+ by0 (* n row_spacing)))
                              (setq alignment (list bx1 by1 bz0))

                              ;; modify list for
                              ;; ATTRIB entity construction
                              (setq entdat1
                                 (subst
                                    (cons 11 alignment)
                                    (assoc 11 entdat1)
                                    entdat1
                                 )
                              )
                           )
                        )
                     )
                     ;; else no modication required for SEQEND
                     (setq entdat1 entdat0)
                  )
                  ;; create new Sub entity
                  (if (null (entmake entdat1))
                     (progn
                        (prompt "\nError in ENTMAKE 2")
                        (print entdat1)
                        (exit)
                     )
                  )
               )
            )
         )
         (setq n (1+ n))
      )
      (setq m (1+ m))
   )

   ;; delete Multiple Insertion entity
   (entdel (getval -1 entdat))

   ;; redraw newly created INSERT entities
   (while (setq ent (entnext ent))
      (redraw ent)
   )

   ;; clean up
   (if olderr (setq *error* olderr))   ;restore old *error* function

   (princ)
)

[{Smirnoff}]

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

Есть еще один вариант. Но надо владеть знаниями DXF.
Сохраняешь файл в формате DXF. Потом ищешь в нем начало описание примитива MINSERT. Меняешь на INSERT. Возможно понадобиться убрать количество рядов и колонок (коды вроде 70 и 71). После этого открываешь файл в AutoCAD'е и видишь, что MINSERT превратился в INSERT. Он расчленяется.

[vk]

Согласен с Alxd по способу "правки". Только считаю, что удобнее все же переименовать блок, чтоб он перестал быть анонимным. А потом можно делать с ним все что угодно.
К сожалению, объем правки DXF в этом случае будет несколько больше.

[Эдуард]

Метод борьбы с анонимными минсерт блоками
с нулевым смещением рядов и колонок в модели:

Код:

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

(defun C:demins()  
(vl-load-com)
  (if
    (and
  (setq spbl(ssget "x"		   
		    (list
		      '(0 . "Insert")
		      '(410 . "Model")
		      ))
		     
	);setq
  (setq spbl(vl-remove-if '(lambda(x)
			     (and
			     (= (cdr(assoc 70 (entget x)))0)
			     (= (cdr(assoc 71 (entget x)))0)
			     ))
	     
		     (mapcar 'cadr
			     (ssnamex spbl)
			     
		     )
	      )
	);setq
  );and
    (progn
    (setq spbl (mapcar 'vlax-ename->vla-object spbl)
	  )
     
    (foreach i spbl
      (setq inspt(vla-get-insertionpoint i)
	    name(vla-get-name i)
	    xs (vla-get-XScaleFactor i)
	    ys (vla-get-YScaleFactor i)
	    zs (vla-get-ZScaleFactor i)
	    rot(vla-get-rotation i)
	    lay(vla-get-layer i)
	    )
      (if
	(equal (vl-string-elt name 0) 42)
	(vla-put-name (vla-item
			(vla-get-blocks
			  (vla-get-activedocument
			    (vlax-get-acad-object)
			    )
			  )name)(vl-string-left-trim "*" name)
	  );vla-put-name
	);if
      (setq name (vla-get-name i)) 
      (setvar "clayer" lay)	
      (vla-insertblock (vla-get-modelspace
			 (vla-get-activedocument
			   (vlax-get-acad-object)
			   )
			 )
	inspt name xs ys zs rot)
      );foreach
    );progn    
  );if
  
  (mapcar 'vla-delete spbl)
  (princ)
  );defun

[RЯков]

Здраствуйте!
Помогите разобраться с такой вот штукой..
Не взрывается не редактируется.
Для чего их такими делают и как с ними потом работать....
Чего то с файлом прикрепленным никак тема не создается... попробую как ответ прикрепить.

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

Это многовидовые блоки, что ли?

[RЯков]

Не знаю я как прикрепить не цепляется короче.
В общем весь чертеж в модели заблокирован в один примитив имя ему МН-блок
В свойствах пишет его имя *U111
Блок не взрывается не редактируется.

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

Хехехехе, защита Эдуарда и Alshera работает На полную катушку.
В общем, присылай мне на почту - попробую расковырять (хоть научусь, может быть )

[DEM]

Так был же конвектор по разбивке безымянных блоков.

[RЯков]

DEFUN c:minxpld()
(SETQ A (ENTSEL "\nSelect minserted block to explode: "))
(SETQ B (ENTGET (CAR A)))
(SETQ XSC (CDR (ASSOC 70 B))
YSC (CDR (ASSOC 71 B))
)
(SETQ XSP (CDR (ASSOC 44 B))
YSP (CDR (ASSOC 45 B))
)
(COND
((AND (= XSP 0)(= YSP 0))(SETQ XSC 1 YSC 1))
((AND (/= XSP 0)(= YSP 0))(SETQ YSC 1))
((AND (= XSP 0)(/= YSP 0))(SETQ XSC 1))
)
(SETQ C (SUBST (CONS 70 1)(ASSOC 70 B) B))
(SETQ D (SUBST (CONS 71 1)(ASSOC 71 B) C))
(SETQ ENT (CDR (ASSOC -1 (ENTMOD D))))
(COND
((AND (= XSC 1)(= YSC 1))(COMMAND "_EXPLODE" ENT ""))
((= XSC 1) (COMMAND "_ARRAY" ENT "" "R" YSC XSC YSP ))
((= YSC 1) (COMMAND "_ARRAY" ENT "" "R" YSC XSC XSP ))
( T (COMMAND "_ARRAY" ENT "" "R" YSC XSC YSP XSP))
)
)
Не работает

[ASLYS]

А если переименовать?
[ATTACH]1178870877.rar[/ATTACH]

[RЯков]

Переименовался...но не взрывается и не редактируется

[RЯков]

часть 1 1,38мбт
[ATTACH]1178872552.rar[/ATTACH]

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

Е-мое, а что, письмо не пришло? Я ж недавно тебе отправлял...
P.S. И еще - у тебя ж архива только кусочек, предупреждать надо

[RЯков]

я пытаюсь по кусочкам навыкладывать сюда их
или форум глючит или я что не так делаю ?

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

Нет, все так. Просто скажи: "это часть 1 архива", "это часть 2" ну и так далее. Или залей файл на webfile.ru тот же самый, а здесь - ссылку.

[RЯков]

Короче говоря не выложить сюда 6 мбт с моей линией вылетает и все тут...
Письмо получил спасибо!
Может расскажешь как это нужно было сделать ?

[MIP]

МН-блок получаеться при выполнении команды МВСТАВИТЬ.

Множественная вставка блоков с расположением их в узлах прямоугольного массива Командная строка: мвставить Имя блока или [?]: Введите имя или ? для вывода списка блоков, определенных в настоящий момент в рисунке, или введите ~ для отображения диалогового окна "Выбор файла рисунка" Примечание Эта команда, в отличие от команды ВСТАВИТЬ, не позволяет расчленять блок при вставке путем ввода звездочки (*) перед именем блока. Точка вставки или [Масштаб/X/Y/Z/Поворот/ПМасштаб/PX/PY/PZ/ППоворот]: Указать точку или ввести параметр Опции команды при выборе точки вставки служат для указания масштаба и угла поворота заранее, до ввода точки вставки. Это бывает полезно при перетаскивании блока, масштаб которого должен быть отличен от 1 (или угол поворота — от 0). При вводе одного из параметров необходимо задать расстояние для параметров масштаба или угла поворота в соответствии с запросами. Блоки, вставленные командой МВСТАВИТЬ, нельзя расчленить.

[RЯков]

На вебфайле кому интересно лежит тот архивчик

http://webfile.ru/placed.php?id=1403801

Для "разблочивания" блока есть два пути.
1. Руками. Необходимо перевести твой файл в dxf. Далее открываешь его блокнотом, и ищешь описание своего блока - т.е. *U111. Находишь свойства 70 и 71 - это кол-во строк и столбцов в minsert (скорее они будут равны 1). Переправляешь на 0. Сохраняешь файл, открываешь в AutoCad, и вместо МН-блок - будет просто "Вхождение блока" (во всяком случае у меня так).
2. Старым АвтоКАДом. Тут все проще. R14, например, c легкостью взрывает все эти minsert-ы не глядя.
Вот так.

[MIP]

RЯков
Самый простой способ это попросить у того кто это делал нормальный чертеж, так как ручками ничего сделать невозможно, второй вариант програмный сейчас VVA кропает.

для чего их такими делают и как с ними потом работать....

Для защиты интелектуальной собственности!

[VVA]

Пробуй это
( * удалено * )
Актуальную версию см пост #41

[RЯков]

Ага работает

[pasha_1977]

2VVA
А как весь этот код запустить?? Кидаю в ЛСП файл и загружаю его, но как он запускается из строки АКАДа??

[DEM]

ПЫШИ UX

[VVA]

>pasha_1977
И почитай здесь http://dwg.ru/art/8

[pasha_1977]

>VVA, DEM
Спасибо!

[Огурец]

Что-то не сумел открыть. А надо. Может поможет кто?

[VVA]

UX'ом №18 прекрасно все разбилось

[Огурец]

Большое спасибо! Наверно я неправильно лисп использовал, статья на главной странице сайта не открывается, а без инструкции я запутался. Когда снова станет доступной, надо обязательно скачать!

[Shoorup]

Прикольно то что на этом форуме тебе и подскажут как чтото заблокировать и тут же подскажут как разблокировать в другой теме кому блокировалось

[VVA]

>Shoorup Где-то в этих темах обязательно прозвучало, что абсолютной защиты чертежа Автокада не существует (пока?). Поэтому это дело вкуса. Кому погорячее - в одну ветку форума, кому поострее - в другую.

[Огурец]

Сообщение от VVA >Shoorup Где-то в этих темах обязательно прозвучало, что абсолютной защиты чертежа Автокада не существует (пока?). Поэтому это дело вкуса. Кому погорячее - в одну ветку форума, кому поострее - в другую.

Ах, правда ли, Сальери,
Что Бомарше кого-то отравил?
С а л ь е р и
Не думаю: он слишком был смешон
Для ремесла такого.
М о ц а р т
Он же гений,
Как ты да я. А гений и злодейство --
Две вещи несовместные. Не правда ль?
С а л ь е р и
Ты думаешь?
(Бросает яд в стакан Моцарта)
Ну, пей же.
М о ц а р т
За твое
Здоровье, друг, за искренний союз,
Связующий Моцарта и Сальери,
Двух сыновей гармонии.
(Пьет.)
С а л ь е р и
Постой,
Постой, постой!.. Ты выпил!.. без меня?
М о ц а р т
(бросает салфетку на стол)
Довольно, сыт я.
(Идет к фортепиано.)
Слушай же, Сальери,
Мой Requiem.
(Играет.)
Ты плачешь?
С а л ь е р и
Эти слезы
Впервые лью: и больно и приятно,
Как будто тяжкий совершил я долг,
Как будто нож целебный мне отсек
Страдавший член! Друг Моцарт, эти слезы...
Не замечай их. Продолжай, спеши
Еще наполнить звуками мне душу...
М о ц а р т
Когда бы все так чувствовали силу
Гармонии! Но нет: тогда б не мог
И мир существовать; никто б не стал
Заботиться о нуждах низкой жизни;
Все предались бы вольному искусству.
Нас мало избранных, счастливцев праздных,
Пренебрегающих презренной пользой,
Единого прекрасного жрецов.
Не правда ль? Но я нынче нездоров,
Мне что-то тяжело: пойду засну.
Прощай же!
С а л ь е р и
До свиданья.
(Один.)
Ты заснешь
Надолго, Моцарт! Но ужель он прав,
И я не гений? Гений и злодейство
Две вещи несовместные. Неправда:
А Бонаротти? или это сказка
Тупой бессмысленной толпы -- и не был
Убийцею создатель Ватикана?

[DEM]

Сообщение от Shoorup Прикольно то что на этом форуме тебе и подскажут как чтото заблокировать и тут же подскажут как разблокировать в другой теме кому блокировалось

Дык защита эта предназначена для не посвященых людей.
Пока он найдет человека который его разблокирует, он очень много времени потеряет, потом еще надо будет заплатить тому человеку который этот черт. разблокирует. Так что человеку будет проще заплатить деньги за проект.
К тому же блокировку можно сделать такую, что после разблокирования проще будет перечертить все за ново.
Например все элементы заменить текстами с последующей блокировкой МН-блоком.
Тут кстати писали по поводу того, что ПДФ в качестве защиты лучше, так черт. ПДФ спокойно конвертируются в *.dwg , только с текстами заморочки получаются, они тоже трансформируются в примитивы.

[Shoorup]

Конечно все для не посвященных людей! Но как разблокировать спрашивают далеко не дураки. И блокируют не дураки для дураков как правило и не для забавы. О том как заблокировать или сделать чтоб не смогли редактировать тоже исписано предостаточно... Мое мнение что нужно сделать автодеску эл. подпись для "вскрытия" и изменения объектов, чертежей акада и пр... Подпись снабдить чемнить наподобии MD5. И тогда будет чтото наподобии авторского права на чертеж и элементы чертежа. Хотя всеравно найдуться умельцы которые будут вскрывать. Но смысл останеться. Вскрыть будет не просто и только очень посвещенные смогут туда залезть.
ЗЫ. Сори за оффтоп.

[Орловский]

Подскажите плиззз, как в созданном dxf файле найти описание минсерт блока?

[VVA]

Орловский, Тебе его нужно взорвать? Тогда читай #3
***Добавлено*** Можно попробоватьть еще команды UX,U2B,M2B

[pers2]

А вот с этим файлом поможете? Лисп эффекта не дал, пишет : ошибка: неверный тип аргумента: stringp nil

Поляки чертежи принципиально шлют блокированные приходится каждый раз ручками перечерчивать

[asys]

Сообщение от pers2 А вот с этим файлом поможете? Лисп эффекта не дал, пишет : ошибка: неверный тип аргумента: stringp nil Поляки чертежи принципиально шлют блокированные приходится каждый раз ручками перечерчивать

так этож DWF

[pers2]

C удовольствием посмеюсь вместе с тобой, если объясниш.
После вставки этого в файл, отображается в виде блока. Не взрывается.
аааа!!!! То есть по сути это картинка?!! только с прозрачным фоном.... ок. пошёл строить механизму ручками

[VVA]

pers2, Набери в поисковике dwf to dwg converter. Может что-нибудь подберешь

[asys]

аааа!!!! То есть по сути это картинка?!! только с прозрачным фоном.... ок. пошёл строить механизму ручками

сам допер она еще и векторная

[Hans667]

Сообщение от RЯков Ага работает

а у меня не работает..причем ни до ни после выбора блока.АКАД2007

[VVA]

файлик покажи

[Hans667]

BOT

[Hans667]

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

[VVA]

*Удалено*
*Добавлено*
Последние версии и дальнейшее развитие идет в сборнике LISP. Подготовка подосновы
В том числе добавлена обработка многократно вложенных блоков!!!
См. команды

M2U - Преобразовать MINSERT в Unnamed блок M2B - Преобразовать MINSERT в блок U2B - Преобразовать UNNAMED в блок U2BM - Преобразовать UNNAMED в блок множественный выбор UX - Взорвать UNNAMED блок

[VVA]

Теперь дальше. В твоем случае это обычные МН-блоки. И потрошить их нужно по другому. Так как там массив, то сначала заменяем МН-Блок обычными блоками, а затем взрываем эти блоки.
Соответвсвенно 2 команды (блокировка слоев не обрабатывается).
M2B - конвертирует МН-блоки в обычные анонимные. Выбирать можно любым способом, там идет фильтрация.
Изменено 24.09.2009

Код:

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

(defun C:M2B ( / adoc blks u1 n obj objlist uname bname unnamed_block cpo tmp_blk ss lst)
;;;Convert Minsert block To Block
;;; Posted Vladimir Azarko (VVA)
;;; http://forum.dwg.ru/showthread.php?t=11502&page=3(vl-load-com) 
(setq adoc (vla-get-activedocument (vlax-get-acad-object)) 
        blks (vla-get-blocks adoc) 
        ) ;_ end of setq
  (vla-AuditInfo adoc :vlax-true)
  (vla-startundomark adoc)
  (if (setq ss (ssget "_:L" '((0 . "INSERT")
			      (-4 . "<OR")
			      (-4 . ">")(70 . 1)
			      (-4 . ">")(71 . 1)
			      (-4 . "OR>")
			      )))
(progn
  (repeat (setq n (sslength ss)) ;_ end setq
         (setq lst (cons (ssname ss (setq n (1- n))) lst))
         ) ;_ end
  (setq ss nil n 0)
  (foreach uname lst
    (grtext -1 (strcat "Working " (itoa (setq n (1+ n)))))
  (setq bname (cdr(assoc 2 (entget uname))))  
  (setq u1 (vla-item blks bname))
  (setq obj (vlax-ename->vla-object uname) objlist nil)  
  (vlax-for item u1 (setq objlist (cons item objlist)))
 (setq unnamed_block (vla-add (vla-get-blocks adoc)(vlax-3d-point '(0 0 0)) "*U"))
 (setq cpo (vla-copyobjects adoc
                 (vlax-make-variant 
                   (vlax-safearray-fill 
                     (vlax-make-safearray 
                       vlax-vbobject 
                       (cons 0 (1- (length objlist))) 
                     ) ;_ end of vlax-make-safearray 
                     objlist 
                   ) ;_ end of vlax-safearray-fill 
                 ) ;_ end of vlax-make-variant 
                ;(vla-get-ModelSpace adoc)
		 unnamed_block
               )
      )
  (setq tmp_blk (vla-insertblock
		  (vla-objectidtoobject adoc (vla-get-ownerid obj))
		  (vla-get-InsertionPoint obj)
		  (vla-get-name unnamed_block)
		  (vla-get-xscalefactor obj)(vla-get-yscalefactor obj)
	       (vla-get-zscalefactor obj)
		  ;(vla-get-rotation obj)
		  0
		  )
	)
  (setq cpo (vla-ArrayRectangular tmp_blk (vla-get-rows obj)(vla-get-columns obj) 1 (vla-get-RowSpacing obj)(vla-get-ColumnSpacing obj) 0))
  (setq cpo (vlax-safearray->list(vlax-variant-value cpo)))
  (setq cpo (cons tmp_blk cpo))
(foreach item cpo
	(vla-rotate item (vla-get-InsertionPoint obj) (vla-get-rotation obj))
	)
  (entdel uname)
    )
  (princ "Converting ")(princ n)(princ " minsert blocks")
  ) 
  ) 
  (vla-endundomark adoc)
(vl-cmdf "_.Redraw")
(princ)
)

Ну а следующая больше даже макрос. Выделяет все анонимные блоки (даль можно их скормить Explode или Xplode)

Код:

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

;;Select Unnamed Block
(defun C:SUB ( )
  (SSSETFIRST nil (ssget "_X" '((0 . "INSERT")(2 . "`*U*"))))
  )

Или маркос на кнопку то, что синим цветом
Соответвсвенно алгоритм
1. M2B
2. SUB
3. Explode (или Xplode)

*Добавлено*
Дальнейшее развитие идет в сборнике LISP. Подготовка подосновы

[Hans667]

обычные-анонимные,это ,как я понял,обычные- block references?А чем тогда Qselect не подходит вместо SUB

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

_.qselect не выбирает анонимные блоки.

[Hans667]

ну чего не выбирает??я вот все выбрал и растрепал

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

Мой косяк, сорри.

[VVA]

Я тоже думал что qselect не выберет анонимные блоки, поэтому и написал SUB. А надо было проверить

[asys]

прикольно
VVA, прям как Нео, в первой части с одним блоком еле справились. А теперь вторая часть матрицы - ты их теперь пачками валишь

[VVA]

Asys Можно считать что перезагрузка произошла. Теперь МН-Блок ввиде 1x1 или MxN матрицы не страшен. Все равно всем им будет

[Hans667]

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

[...k@Sher...]

А у меня и сейчас не работает....
Прям и незнаю что делать.
Работаю в 2008. Запускаю M2B
пишет: "Выберите объекты", выбираю (пробовал рамкой и непосредственно на объект)
результат: "найдено: 0"
И еще, как это все поведет себя по отношению к динамическим блокам да еще и с полями?

[VVA]

Файлик покажи

[...k@Sher...]

Создавал в 2008+СПДС.
Иеще вопрос: как избежать появления анонимных блоков?

[VVA]

Что создавал то?
Появление анонимных блоков после чего?

[...k@Sher...]

хм..а как файл отправить??? FAQ смотрел...
Я сам хочу понять откуда и как они создаються.
Работал, сохранил, открыл и вот они...
Не силен я в этом деле...

[...k@Sher...]

о получилось...отправить

[VVA]

3 варианта, может кто добавит:

1. Их создает SPDS
2. Был динамический блок 2006 Автокада, открыл 2004 (2005) Автокадом
3. Взорвал динамический блок

PS. А при чем здесь МН блок и эта тема?

[...k@Sher...]

PS. А при чем здесь МН блок и эта тема?
хм...не понял, я не туда попал?
В посте #3 пишет о том что блоки типа *U...,
вот и мне нужно с ними расправиться. В тонкостях LISP неразбираюсь, по-этому думал, что которые здесь, помогут...

[asys]

не все блоки типа *U..., являются minsert-block-ами Это просто безимянные блоки которые у меня получались при бомблении блока внутри которого были динамические. Вот эти динамические теряли свои свойства и получались безимянными

[Alexander_Liseev]

to VVA у меня не работает код из #42.

Команда: _m2b
Выберите объекты: найдено: 0
Выберите объекты:

ACAD2007 RUS. СПДС нет. Вставлял командой _minsert
Вот файл

[VVA]

Alexander_Liseev, Изменил #42. Изменения выделил красным

[4yDo]

Попробовал ваши способы, но ни один не дает должного результата. Может быть, дело в кривизне рук...
Файл прилагаю

[VVA]

4yDo, Что сделать то нужно?
У тебя там обычные блоки и прекрасно разбиваются _exlpode.
Но думаю что это не то, что тебе надо.
Ты знаешь что такое видовые экраны ( VIEWPORT ), пространство модели, пространство листа?

[4yDo]

в том-то и дело, что начертить я могу все, что хочешь, а с остальным у меня проблема. Не знаю, не про видовые экраны ни про что-либо другое. Осваивал программу на интуитивном уровне. Можно как совсем для глупого написать всю последовательность действий?
С помощью команды _explode не выделяется...а все, спасибо огромное..Разобрался.

[VVA]

Ты так и не сказал что нужно сделать?
Начни с этого:
http://dwg.ru/art/11
http://forum.dwg.ru/showthread.php?t=29783
http://forum.dwg.ru/showthread.php?t=18774

С помощью команды _explode не выделяется

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

[4yDo]

спасибо большое

[Pirotechnic]

Не могу никак разобраться. Сохранил ваши коды в лисп-файлы, загрузил. Набрал команду UX.
После запроса "Select block" пытаюсь выделить блок, но ничего не происходит, такое чувство что команда сбивается что-ли...

[VVA]

Pirotechnic, Файлик покажи, а то может получиться как в #56,#57,#58

[tusiko]

вот все с ними борются.
скажите, а работать с ними можно? я попыталась, но во всем Мн-блоке работает только привязка к точке вставки, что очень не удобно. есть ли возможность работать с ним как с полноценным объектом?
да, еще нюанс.массив, с которым я борюсь создан из зД тела

[VVA]

tusiko, Я обновил пост #41

Добавлены 2 команды: UX - взрывает Minsert блоки U2B - конвертирует в обычные

Попробуй U2B

[Pirotechnic]

Выкладываю файл. Блок создан мною же при помощи minsert-document2.lsp от Эдуарда. UX-нуть блок пытался в 2005 и 2008 версиях автокада. Чё-то не выходит.

[VVA]

Pirotechnic, В #41 есть описание, когда работает UX (или U2B). Я отредактировал пост, выделив важное. Прочитай и у тебя все получится.

[Pirotechnic]

Действительно, получилось воспользоваться UX после того как в МИнсерт-блоке заменил кол-во столбцов на 1. Спасибо!!

[anthonyS]

Вопрос. А может ли кто-нибудь популярно объяснить как взрываются такие блоки-массивы? Дело в том что я абсолютно без понятия что такое "UX, U2B, M2B" и т.д. и Lisp тоже не знаю, а так же что делать с кодом, который приведен выше в #41 (я так понимаю, что он для Lisp).
Или же без этих знаний даже пытаться разобраться не стоит?
Помогите, плиз!

[asys]

anthonyS, друг читай форум сначала, т.е. с ЧАВО Часто задаваемые вопросы

[VVA]

anthonyS, А так же пройдись по ссылке в моей подписи
сюда ....................................................... |
................................................................ V

[anthonyS]

Asys,VVA, огромное спасибо! Разобрался, все работает!

[congr]

Привет всем. Попался тут в ряде чертежей минсерт блок, autocad 2008 rus.
Никак его не разбить, ни вышеприведенными лиспами, ни способом сохраниться в R12 и взорвать. Второй день с этим блоком вожусь и результат 0. Если кто знает как его взорвать, сообщите пожалуйста

[VVA]

congr, В твоем случае это обычный мн-блок. Правда кто-то зачем-то обнулил количество столбцов. Необходимые изменения внес в #42. Используй команду M2B

[congr]

VVA, Благодарю все сработало
Кто эти блоки делает и для чего сказать не могу, просто когда от смежников приходят чертежи, так у них спецификации состоят из таких блоков. Понятно, что все это изврат, но полностью переделывать оформление их чертежей банально нет времени.
Еще раз спасибо за ЛИСП

[asys]

насчет спецификаций это меры предосторожности - чтоб на финише не подменили ее. Чтобы потом не спрашивали нафига 100 т металла или балка из золота. Наши субчики даже прошивают все листы и опечатывают. С росписями и печатями на каждом листе (разве что у нотариуса не регистрируют) Т.к. были преценденты подмены заказчиком спецификации на оборудование с попыткой свалить растрату госсредств на проектировщиков

[klopius]

Попытался воспользоваться лиспами 41 и 42., лиспы загружал по очереди с этим вопросов не возникало..
Чо и как делал:
Тупо выдовил прямоугольник, из листа по нему _solprof`ом появились PV и PH известного вида *U...
пытался конвертить с двух лиспов командой U2B, выдает следующие:

Команда:
U2B
Select block
New block name: opo
no function definition: TABLELIST

Вопрос ? Хде косяк?

[VVA]

no function definition: TABLELIST

По русски: Нет определения (т.е самой функции) TABLELIST
Это мой косяк, исправил #41.

[klopius]

Ага. Работает...))

[Eddicordo]

Всем привет.
VVA Спасибо за подсказку как разбивать блоки.
Есть вопрос. Куда запихнуть твой макрос

Код:

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

(SSSETFIRST nil (ssget "_X" '((0 . "INSERT")(2 . "`*U*"))))

В лисп UX
Поскольку неудобно указывать на всем чертеже все дин блоки. Если их так сотни?

И есчо 1 вопрос.
Почему лисп UX работает только с чертежом dxf R12 ??
Лишние пере сохранения неудобны. Или по другому никак?
Или я не понял смысла лиспа на 41 посте?

[Mr.AS]

кидайте мне на мыло я всем разблокирую ! 100 % --- Мн-блок (АвтоКАД 2009 у меня)

[Redya]

Агрр! Прочитал всю тему, но так и не понял: МН-блоки и анонимные блоки это одно и тоже? или МН-блоки - это блоки, полученые вставкой командой _minsert? А анонимные блоки - это блоки *U...? И как вообще сделать такие блоки? И откуда появляются блоки *U...?

[VVA]

Сообщение от Redya МН-блоки - это блоки, полученые вставкой командой _minsert? А анонимные блоки - это блоки *U...?

А еще можно скрестить их.

Сообщение от Redya И как вообще сделать такие блоки?

1. Программно (см. Esconvert)
2. Варианты команд SETUB - Selected Entities To Unnamed Block
3. Создай динамический блок. Сохрани в формате 2004 Автокада. Открой в 2004 Автокаде и посмотри на имена блоков.

[Kuan_nur]

Сообщение от VVA Теперь дальше. В твоем случае это обычные МН-блоки. И потрошить их нужно по другому. Так как там массив, то сначала заменяем МН-Блок обычными блоками, а затем взрываем эти блоки. Соответвсвенно 2 команды (блокировка слоев не обрабатывается). M2B - конвертирует МН-блоки в обычные анонимные. Выбирать можно любым способом, там идет фильтрация. Изменено 24.09.2009 Код: [Выделить все] (defun C:M2B ( / adoc blks u1 n obj objlist uname bname unnamed_block cpo tmp_blk ss lst) ;;;Convert Minsert block To Block ;;; Posted Vladimir Azarko (VVA) ;;; http://forum.dwg.ru/showthread.php?t=11502&page=3(vl-load-com) (setq adoc (vla-get-activedocument (vlax-get-acad-object)) blks (vla-get-blocks adoc) ) ;_ end of setq (vla-AuditInfo adoc :vlax-true) (vla-startundomark adoc) (if (setq ss (ssget "_:L" '((0 . "INSERT") (-4 . "<OR") (-4 . ">")(70 . 1) (-4 . ">")(71 . 1) (-4 . "OR>") ))) (progn (repeat (setq n (sslength ss)) ;_ end setq (setq lst (cons (ssname ss (setq n (1- n))) lst)) ) ;_ end (setq ss nil n 0) (foreach uname lst (grtext -1 (strcat "Working " (itoa (setq n (1+ n))))) (setq bname (cdr(assoc 2 (entget uname)))) (setq u1 (vla-item blks bname)) (setq obj (vlax-ename->vla-object uname) objlist nil) (vlax-for item u1 (setq objlist (cons item objlist))) (setq unnamed_block (vla-add (vla-get-blocks adoc)(vlax-3d-point '(0 0 0)) "*U")) (setq cpo (vla-copyobjects adoc (vlax-make-variant (vlax-safearray-fill (vlax-make-safearray vlax-vbobject (cons 0 (1- (length objlist))) ) ;_ end of vlax-make-safearray objlist ) ;_ end of vlax-safearray-fill ) ;_ end of vlax-make-variant ;(vla-get-ModelSpace adoc) unnamed_block ) ) (setq tmp_blk (vla-insertblock (vla-objectidtoobject adoc (vla-get-ownerid obj)) (vla-get-InsertionPoint obj) (vla-get-name unnamed_block) (vla-get-xscalefactor obj)(vla-get-yscalefactor obj) (vla-get-zscalefactor obj) ;(vla-get-rotation obj) 0 ) ) (setq cpo (vla-ArrayRectangular tmp_blk (vla-get-rows obj)(vla-get-columns obj) 1 (vla-get-RowSpacing obj)(vla-get-ColumnSpacing obj) 0)) (setq cpo (vlax-safearray->list(vlax-variant-value cpo))) (setq cpo (cons tmp_blk cpo)) (foreach item cpo (vla-rotate item (vla-get-InsertionPoint obj) (vla-get-rotation obj)) ) (entdel uname) ) (princ "Converting ")(princ n)(princ " minsert blocks") ) ) (vla-endundomark adoc) (vl-cmdf "_.Redraw") (princ) ) Ну а следующая больше даже макрос. Выделяет все анонимные блоки (даль можно их скормить Explode или Xplode) Код: [Выделить все] ;;Select Unnamed Block (defun C:SUB ( ) (SSSETFIRST nil (ssget "_X" '((0 . "INSERT")(2 . "`*U*")))) ) Или маркос на кнопку то, что синим цветом Соответвсвенно алгоритм 1. M2B 2. SUB 3. Explode (или Xplode)

День добрый! А есть готовый Лисп код? Можно ли уже готовую вставить на свой комп или они индивидуальный для каждого компа?

[Eddicordo]

Всем привет. Подскажите как мне корректно разбить вот такого образца дин блок. Атрибуты должны быть текстом.

[VVA]

Eddicordo,
1.CFTALL - конвертирование полей без запроса
2. U2B - преобразовываем в обычный блок (можно масштаб Z изменить на 1.001)
3. Burst, BGBLEXP

[Eddicordo]

VVA,
1) По этому пункту все проходит вроде как отлично. Поля исчезают и становятся обычным текстом.
2) Вот здесь опять же решетки.
3) Полный взрыв блока решетки на месте

[VVA]

Eddicordo,
Откуда им взяться, если по п.1 они стали обычным текстом?

[Frigate]

VVA,

приветствую.

программа CFTALL удаляет, походу, поля и в самом описании блоков в чертеже... Вообще нигде полей не остается )))

а в скинутом блоке у меня тоже решетки остаются.

AutoCAD2009 RUS. Может в версии АКАДа все дело?

[Eddicordo]

Фантастика. Я выполнил пункт
1.CFTALL - конвертирование полей без запроса

Стало все обычным текстом.

Я удаляю весь текст с атрибута там где было поле.
выполняю пункт 2
2. U2B - преобразовываем в обычный блок (можно масштаб Z изменить на 1.001)

И у меня там где чистый атрибут который я удалил опять появляется КС № (###########)

AutoCad 2009 рус

[VVA]

VVA, Я делал на 2008 каде. Может дело и в версии. Надо проверять

***Добавлено***
В 2009 действительно появляются ###
Тогда делаем так
1.CFTALL - конвертирование полей без запроса
2. Масштаб Z изменить на 1.001
3. Burst, BGBLEXP

Для несложных блоков п.2 можно пропустить и перейти сразу к п.3

[Frigate]

VVA,

про масштаб - это очень интересный ход, спасибо большое Это ведь и программно легко реализовать. И с refedit не нужно связываться - избежать "командных" метлодов.

вот только по п. 3 - часть скрытых параметров (их значения) становится видна. Но я тут уже придумал, как побороть. ИМХО, лучше всего разбить при помощи обычного Explode, запомнив массив из пар тэг атрибута-значение атрибута. Вместо появившихся после Explode текстов с тэгами атрибутов, присваиваем текстам значения атрибутов.

И убивать поля, как оказалось, совсем не нужно даже.

[Frigate]

в общем, командные методы убрал из проги.

Вот эта прога позволяет немного по-разному обрабатывать простые блоки, блоки с атрибутами и динблоки.

VVA, вместо масштабирования по оси Z испольщзовал команду
vla-ConvertToStaticBlock. Вроде, нормально работает. Создает анонимные блочки.

Если что - прога НЕ разбивает блоки МН. Это замечательно делает прога от VVA M2B.
Главное ее преимущество - все скрытые атрибуты при взрыве блока удаляются и не мозолят больше глаза.

[Eddicordo]

Подскажите как взорвать блок с атрибутом в несколько строк.
Все варианты выложенные не разбивают правильно.
Разбитый вариант должен иметь прямоугольник и обычный _text
Файл прилагаю.

[VVA]

1. BGBLEXP
2. BURST

[Eddicordo]

VVA, Ты просто лучший. Последняя версия bgtools 2.4.lsp
Взрывает отменно. Спасибо.

[baaba]

Посмотрите, обе программы работают у меня как то странно. Автокад2010.

[kp+]

У меня работают также (тоже под Акад 2010). Все эти проги расчитаны на снятие "защиты от копирования и распечатки", которую некоторые некоторые пытаются сделать с помощью безымянного мультиблока на слое defpoints. А если есть доступ к блоку по имени - зачем мучиться? Ради спортивного интереса?
Или таких псевдотаблиц на чертеже много, и с ними надо что-то делать?

[baaba]

таких на чертеже много, удобно ими намечать сетки колонн, места стоянки машин и стеллажи в торговом зале.

[VVA]

baaba, M2B по ссылке из #11 сконвертировало

[хрустяшка]

Помогите взорвать чертеж! Плиз!

[Хмурый]

хрустяшка,
формат файла 2000, как и исходный

[хрустяшка]

хмурый! благодарю Вас!!!!

[Styratel]

Помогите разблокировать пожалуйста, у меня что-то не получается

[VVA]

Styratel, Установи bgtools Набери в командной строке UX
Теория Как использовать лисп, опубликованный на форуме

[Styratel]

Спасиб, все уже получилось

[teoretik24]

Offtop: касаемо залитого файла #105

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

Зато умеют создавать мн-блок в файле полного мусора и лишних стилей в абсолютно белых слоях

[Tanya114]

Доброе утро!!
помогите, пожалуйста, разбить блок. ничего не получается, впервые с таким сталкиваюсь, видимо что-то не так делаю
очень рассчитываю на помощь))

[Хмурый]

Tanya114,
файл версии 2007

Как взорвать minsert блок
МН-блок
пользовался программой VVA UX

[sertor]

Расчлененный блок.

[Tanya114]

Хмурый, sertor
большое человеческое спасибо!!

[VRel]

Помогайте, уважаемые!
UX - не выделить блок.
U2B - переименовывает МН-блок во вхождение блока с именем, но при попытке разбить этот блок возвращает МН-блок.

Пользуюсь bgtools 2.19
Заранее спасибо!

[Хмурый]

VRel, при открытии файла вываливаюсь из AutoCAD'а с фатальной ошибкой.
сделай своему файлу _audit

[VRel]

В первый раз открыл - сам выпал в фатальную ошибку . Второй раз - нормально.
На всякий случай прикладываю сохраненный в 2007 файл.

[Хмурый]

VRel, кадр 8 дубль 2.
проверку файлу сделал?

[VRel]

Конечно! 2011 открывает у меня файл на "ура" и ошибок не находит.

[Pumplusna]

Помогите взорвать блок кому не сложно. Честное слово пыталась сама разобраться - не получается.

[Хмурый]

Pumplusna, я не нашёл там никакого MH-блока.
может, просто стоит перейти в пространство модели?

[Pumplusna]

Оооо.... Спасибо. Извиняюсь за глупый вопрос) Голова под вечер не варит совсем

[Хмурый]

Pumplusna, сделай файлу _audit
также следует удалить лишние масштабы
по ссылке http://forum.dwg.ru/showpost.php?p=236817&postcount=8 всё, что касается _-scalelistedit

[Suom]

не разбивается согласно ваших рекомендаций
не в посте 41, не в 42

[VVA]

Suom, Разбивается командой UX. Посмотри в свойствах на имена блоков. Сначала он *U468, потом *U467 и т.д. Похоже блоки вложены один в другой n количество раз

PS Вызвал 51 раз UX, затем выполнил регенерацию чертежа

Код:

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

(defun C:U50 nil
(vl-load-com)
(repeat 51
  (vla-SendCommand (vla-get-activedocument (vlax-get-acad-object)) "UX _L\n")
  )
)

[asys]

PS Вызвал 51 раз UX, затем выполнил регенерацию чертежа

ого, кто-то "защиту" навертел. Я еще как-то не додумался сделать мн-блок в мн-блоке в мн-блоке. Спасибо, буду иметь в виду

[p-sm]

помогите взорвать блок, bgtools не помогает
спасибо

уже не надо, получилось через bgtools: многократно коммандрой UX, 2-3 минутным подвисанием

[VVA]

p-sm, Твой случай описан в #138

[Солидворкер]

p-sm, а что, обязательно постить свою проблему во все темы подряд? Правила форума это запрещают прямо.

[Yuulliiyyaa]

Добрый день!!!
Помогите, пожалуйста разбить МН-БЛОК. Пробовала c помощью lsp - UX не получается... ..

[Хмурый]

m2b сработало

[Yuulliiyyaa]

Большое спасибо!!!! а ссылку на m2b можно?

[Хмурый]

там-же, где и UX LISP. Подготовка подосновы

[Romeo_mrkv]

Добрый день. Помогите пожалуйста разбить блок в приложенных файлах! Никак не могу это сделать, а надо срочно отредактировать! Заранее Вам благодарен.

[sertor]

Использовал команду BGBLEXP1 программы "Подготовка подосновы" (автор VVA), выложенной здесь.

[Хмурый]

Romeo_mrkv, вот.

[Leopold1705]

Добрый день!
Автокад 2007.
Помогите, пожалуйста, не помогает ничего из "bgtools 2.0.LSP". У меня Minsert блок, у которого количество строк/столбцов=1, но не помогает и методика, описанная ниже:

Сообщение от VVA десь ситуация такая: UX предназначена для потрошения Minsert блоков, у которых количество строк/столбцов=1. Стандартной командой Minsert (Мвставить) такого не сделать. Только программно. Соответвсвенно внес некоторую корректировку в UX (проверку на количество строк/столбцов=1) ВАЖНО!!! Количество строк и столбцов MINSERT блока должно быть равно 1 Если это не так, то используйте M2B из #42 Добавлены 2 команды: UX - взрывает Minsert блоки U2B - конвертирует в обычные

[sertor]

Leopold1705, вложенные блоки (см. #138)

[VVA]

Leopold1705,
Начиная с версии 2.24 (текущая 2.25) этот вопрос уже решен.
Цитата отсюда

Обновил до версии 2.24 Учел в UX "хитрости" типа многократно вложенного анонимного блока. Пример смотреть в #154 и по ссылкам в #157. В #154 есть еще одна хитрость. В него добавлена маскировка по габаритам всего блока. Долго искал ошибку в UX, пока не додумался включить контуры wipeout'a. Добавил в UX изменение порядка прорисовка для wipeout'ов "на задний план" после расчленения блока

[Leopold1705]

VVA,
Спасибо огромное! С "bgtools2.25.lsp" всё получилось с первого раза и командой UX, и U2B! Сначала анонимный МН-блок преобразовался в обычный блок, а затем командой Explode взорвал всё это хозяйство.

[R2d2]

Добрый день!!! Проблема с разрушением МН-блоков легко решается следующим путем: Открываем чертеж dwg в компасе и разрушаем его там. Потом, сохраняем обратно в dwg и открываем с помощью автокада.

[asys]

R2d2, что такое компас?

[CaMoCAD]

Offtop:

Сообщение от asys R2d2, что такое компас?

Циркуль по-английски

[sertor]

Сообщение от R2d2 Открываем чертеж dwg в компасе и разрушаем его там. Потом, сохраняем обратно в dwg и открываем с помощью автокада.

Вариант рабочий (невзирая на "вложеннось" блоков). Спасибо.

[Sv9zist]

не как не получается взорвать блок
помогите пожалуйста

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

Sv9zist, файл в архив, архив в пост.

[Sv9zist]

Вот он мой страдалец..............или уже страдалец я...........сразу и не понять

[VVA]

Sv9zist,
1. M2B сконвертировать МН-БЛОК в обычный
2. UX - взорвать полученное

[Хмурый]

m2b используй http://forum.dwg.ru/showthread.php?t=66355

[Sv9zist]

всё тип-топ)...спасибо!......подборка команд огонь просто!.........пффффффффф......наконец!!!....на 3й день создал бог раздельные слои

[stich]

Помогите, пожалуйста с файлом.
Возможно что-то не правильно делаю - M2B, UX не помогло.

[Хмурый]

около сорока раз применил программу UX, затем, удаление WipeOut'ов...
PS смотри в свойствах блока "имя блока" каждый раз менялось... Последний был *U180

[VVA]

Сообщение от Хмурый около сорока раз применил программу UX

Начиная с 2.24 этого не нужно делать
http://forum.dwg.ru/showthread.php?p...47#post1087747

[Огурец]

Уважаемые коллеги!
Что-то никак не получается применить лисп. А файл нужный, только чуть подправить надо - лестница добавилась.

[VVA]

Огурец,
Запусти сначала _audit. Потом UX. У меня сработало

Команда: _audit Исправить все обнаруженные ошибки? [Да/Нет] <Н>: Д Проверка заголовка Проверка таблиц Проверка объектов, проход 1 Проход 1: проверено объектов: 1800 Обнаружено недопустимое имя блока "*U23$0$18". Изменено на "AUDIT_I_140419203908-1". Проход 1: проверено объектов: 32000 Проверка объектов, проход 2 Проход 2: проверено объектов: 32000 Проверка блоков Проверено блоков: 119 Всего найдено ошибок: 1, исправлено: 1 Стерто 0 объектов

[Огурец]

Огромное спасибо!

Жаль, что сам не догадался.

Ещё раз спасибо, VVA! Со второго раза разобрался.

[123456]

Помогите снять блок, уже перепробовал все команды, но что-то делаю не так видимо,

----- добавлено через ~20 мин. -----
Все спасибо, получилось после того как отключил маскировку ,

[shartal]

В начале U2B, потом M2B. Получается просто блок.

[sathalex]

Прочитал всю тему, испробовал все, никак не получается взорвать этот Мн-блок. Выручайте.

[AlexCondor]

sathalex, попробуй

[sathalex]

Сообщение от AlexCondor sathalex, попробуй

Спасибо. А не объясните как взрывать его? Вдруг в будущем столкнусь с этим опять.

[AlexCondor]

Использовал утилиту ExplodeM. Брал здесь

[sathalex]

Сообщение от AlexCondor Использовал утилиту ExplodeM. Брал здесь

Спасибо.

[VVA]

Сообщение от sathalex Прочитал всю тему, испробовал все, никак не получается взорвать этот Мн-блок

Учел разное кол-во строк/столбцов в мн-блоке при нулевых расстояниях между строками/столбцами
Обновил до версии 2.36

[armaninho]

Ребята, плиз, можете помочь?
Перечитал всю тему, пробовал по-разному взорвать блок в чертеже, ни в какую((

Команда m2b, u2b, ux не помогают, вообще не находят объект для взрыва.

Хотел бы узнать алгоритм действий в моем случаи, спасибо!

[Хмурый]

armaninho, три команды по очереди одну за другой
BGBLEXP
M2U
UХ
Или так
BGBLEXP
M2B
_explode