[Red Nova]

Хочется сразу взорвать все блоки файла, желательно так, чтобы и все блоки входящие в другие блоки взорвалисть. (Из серии как испортить хороший чертеж)
Есть идеи?

[Profan]

Так "Быстрый выбор" поможет.

[Red Nova]

Про быстрый выбор думал, не есть еще пространство листа...

[Profan]

Похожая тема:
http://www.caduser.ru/forum/index.ph...#message247770

http://www.caduser.ru/forum/index.ph...2#message78060

[Dym]

Лентяй как то выкладывал

Код:

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

(defun C:alqaida (/);Взрывает все на хрен! 
  (setq cm (getvar "CMDECHO") 
   adoc (vla-get-activedocument (vlax-get-acad-object)) 
      bks (vla-get-blocks adoc) 
   ps (vla-get-PaperSpace adoc) 
      ms (vla-get-ModelSpace adoc)) 
  (apply '(lambda (x) 
       (vlax-for obj sp 
         (if (and (= (vla-get-objectname obj) "AcDbBlockReference") 
             (= (vla-get-IsXref (vla-item bks (vla-get-name obj))) :vlax-false)) 
      (vla-explode obj)))) '(ps ms)) 
  (repeat 3 (command "purge" "all" "y")) 
);end

[Vova]

А чти будет с атрибутами? а что будет с цветами у тех блоков, которые при создании были Byblock и Bylayer? они станут белыми, а пунктирные линии (если было По-блоку) станут сплошными. А что станет с подрезанными блоками?
После таких операций файл надо на помойку. Так загем-же взрывать? Лучше сразу в корзину

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

burst (а еще лучше - исправленный вариант) - и всех делов

[Vova]

Неисправленный не восстановит цвета и типы линий, а исправленный, хотя и сделает это, но только в блоке первого уровня. Здесь требуется более продвинутый лисп, и он обсуждался в теме Подоснова. И вообще, хотелось-бы получить ответ от автора, зачем надо портить чертеж

[Juss_00]

Может вместо взырва просто защитить от редактирования?
Благо и лисп в FAQе есть.

[Red Nova]

Profan, Интересная тема,
Там есть лисп от kpblcа, Вот он

Код:

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

(defun test (/ adoc *error* fun_explode err_lst)
  (defun *error* (msg)
    (vla-endundomark adoc)
    (princ msg)
    (princ)
    ) ;_ end of defun
  (defun fun_explode (ent / lst)
    (cond
      ((= (vla-get-objectname ent) "AcDbBlockReference")
       (if (not (vl-catch-all-error-p
                  (vl-catch-all-apply
                    '(lambda ()
                       (setq lst (vlax-safearray->list
                                   (vlax-variant-value (vla-explode ent))
                                   ) ;_ end of vlax-safearray->list
                             ) ;_ end of setq
                       ) ;_ end of lambda
                    ) ;_ end of vl-catch-all-apply
                  ) ;_ end of vl-catch-all-error-p
                ) ;_ end of not
         (progn
           (foreach item lst
             (fun_explode item)
             ) ;_ end of foreach
           (vla-erase ent)
           ) ;_ end of progn
         ) ;_ end of if
       )
      ((and (= (vla-get-objectname ent) "AcDbBlockTableRecord")
            (equal (vla-get-islayout ent) :vlax-false)
            (equal (vla-get-isxref ent) :vlax-false)
            ) ;_ end of and
       (vlax-for sub ent
         (fun_explode sub)
         ) ;_ end of vlax-for
       )
      ((and (vlax-property-available-p ent 'islayout)
            (equal (vla-get-islayout ent) :vlax-true)
            ) ;_ end of and
       (vlax-for sub ent
         (fun_explode sub)
         ) ;_ end of vlax-for
       )
      ) ;_ end of cond
    ) ;_ end of defun
  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-startundomark
  (vlax-for blk_def (vla-get-blocks adoc)
    (fun_explode blk_def)
    ) ;_ end of vlax-for
  (vlax-for blk_def (vla-get-blocks adoc)
    (vl-catch-all-apply '(lambda () (vla-erase blk_def)))
    ) ;_ end of vlax-for
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

С первоначальной задачей он справляется (если не брать во внимание вопроы поднятые со стороны Vova).
Хотелось бы спросить автора. Там что и пурген заодно делается, а-то заметил что после работы листа блоки то самопроизвольно пургенятся а то нет, непонятки...
Вообщето и я и планировал спургенить все потом.

burst (а еще лучше - исправленный вариант) - и всех делов

А как на счет того чтобы скрестить burst и этот код?


Dym, Этот лисп пока не пробовал, поскольку нашел выше представленный.

Vova,

И вообще, хотелось бы получить ответ от автора, зачем надо портить чертеж

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

Здесь требуется более продвинутый лисп, и он обсуждался в теме Подоснова

Если есть готовые результаты то хотелось бы взглянуть.