[Startrek]

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

[Орловский]

Подскажите плиззз, как в созданном 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 матрицы не страшен. Все равно всем им будет