[VVS]

Делаю кнопочный макрос, выполняющий следующую последовательность действий:
1) Изменение текстого стиля чертежа
2) Тройное разбивание блоков во всем чертеже
3) Копирование всего в буфер
Не понятно как реализовать второй пункт!!!
^C^C_AI_Selall;_explode; вот так я делаю одинарный explode, добавление последовательности _AI_Selall;_explode; приводит к непонятному результату.
Может кто-нить написать, как сделать 3X

[VVA]

Сообщение от Zaghim а вот после него хочу сделать взрыв всех объектов, а он не выполняется.

Из справки по команде _explode

Note If you're using a script or an ObjectARX® function, you can explode only one object at a time.

Отсюда решение

Код:

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

(defun C:EXPALL ( / ss)
 (sssetfirst nil ss)
(setq ss (ssget "_X" (list
            (cons 0  "INSERT")
            (cons 410 (getvar "CTAB"))
            )
          )
      )
(repeat (setq n (sslength ss))
  (command "_.Explode" (ssname ss (setq n (1- n))))
  )
)

Не могу взорвать набор блоков
Как разбить блоки?
(vl-cmdf "_.explode" (ssget))

[Zaghim]

Я говорю про лисп... там нужно писать так.
Со взрывом поможешь?

уже пробовал так...нихрена не получается
(setq p1 (list -100000000000000000000000 -100000000000000000000000))
(setq p2 (list 100000000000000000000000 100000000000000000000000))
(command "_explode" "w" p1 p2 "")

так тоже

(ai_selall)
(command "_explode" "")

[VVA]

Сообщение от Zaghim Я говорю про лисп... там нужно писать так.

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

[Profan]

Вот такая программа у меня сработала (5 блоков и 5 полилиний):

Код:

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

(defun C:eexp ( / )
(C:AI_SELALL)
(command "_EXPLODE")
(princ)
)

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

Код не обрабатывает прокси объекты. Из обработки исключаются внешние ссылки.

Код:

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

(vl-load-com)

(defun c:triple-explode (/ adoc lst_layer err_count)

  (setq err_count 0)
  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (vlax-for item (vla-get-layers adoc)
    (setq lst_layer
           (cons (cons item
                       (mapcar
                         (function
                           (lambda (x / res)
                             (setq res (cons x (vlax-get-property item x)))
                             (vl-catch-all-apply
                               (function
                                 (lambda ()
                                   (vlax-put-property item x :vlax-false)
                                   ) ;_ end of lambda
                                 ) ;_ end of function
                               ) ;_ end of vl-catch-all-apply
                             res
                             ) ;_ end of lambda
                           ) ;_ end of function
                         '("freeze" "lock")
                         ) ;_ end of mapcar
                       ) ;_ end of cons
                 lst_layer
                 ) ;_ end of cons
          ) ;_ end of setq
    ) ;_ end of vlax-for

  (repeat 3
    (vlax-for blk_def (vla-get-blocks adoc)
      (if (equal (vla-get-isxref blk_def) :vlax-false)
        (progn
          (vlax-for ent blk_def
            (if (vlax-method-applicable-p ent 'explode)
              (if (vl-catch-all-error-p
                    (vl-catch-all-apply
                      (function
                        (lambda ()
                          (vla-explode ent)
                          (vla-erase ent)
                          ) ;_ end of lambda
                        ) ;_ end of function
                      ) ;_ end of vl-catch-all-apply
                    ) ;_ end of vl-catch-all-error-p
                (setq err_count (1+ err_count))
                ) ;_ end of if
              ) ;_ end of if
            ) ;_ end of vlax-for
          ) ;_ end of progn
        ) ;_ end of if
      ) ;_ end of vlax-for
    ) ;_ end of repeat

  (foreach item lst_layer
    (foreach prop (cdr item)
      (vl-catch-all-apply
        (function
          (lambda ()
            (vlax-put-property (car item) (car prop) (cdr prop))
            ) ;_ end of lambda
          ) ;_ end of function
        ) ;_ end of vl-catch-all-apply
      ) ;_ end of foreach
    ) ;_ end of foreach
  (if (/= err_count 0)
    (princ (strcat "\nНе удалось разбить " (vl-princ-to-string err_count) " примитивов"))
    ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

Код особо не гонял.

[Profan]

VVA, правильно ли ты интерпретировал справку по команде _EXPLODE? В русской версии написано так:

Примечание Если используется какой-либо пакет или функция ObjectARX®, то за один раз можно выполнить расчленение только одного объекта.

Здесь ничего не написано про AutoLisp.

[Zaghim]

В общем ничего не помогло (((
Порядок действий у меня такой:
1) создаю слой xref
2) выполняю команду burst 2 раза (в соотв. теме было решение как сделать что бы однократном выборе она делалась 2 раза)
3) затем мне нужно сделать взрыв всего
4) опять команда burst 2 раза
5) перенос всего в слой xref
6) команда purge

Еще вначале нужно сделать анлок всех слоев, делаю через команду -layer и нифига не выходит.

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

Предложение профана пишет следующее
Command: Selecting objects...done.
_EXPLODE 32 found
-
Select object: _.explode

*Invalid selection*
Expects a point or Last/ALL/Group
error: Function cancelled

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

[VVA]

Сообщение от Profan VVA, правильно ли ты интерпретировал справку по команде _EXPLODE? В русской версии написано так: Примечание Если используется какой-либо пакет или функция ObjectARX®, то за один раз можно выполнить расчленение только одного объекта. Здесь ничего не написано про AutoLisp.

Правильно. LISP как и пакет (scr) предварительно проходят через интерпритатор. Поэтому в данном случае можно сказать так LISP=пакет
>Zaghim
А что пишет предложение VVA #21? (На всякий случай код #21 оформил ввиде команды)
Тоже, только вид сбоку

Код:

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

(defun C:EXPALL ( / ss )
(vl-load-com)
(if  
(setq ss (ssget "_X" (list
            (cons 0  "INSERT")
            (cons 410 (getvar "CTAB"))
            )
          )
      )
(progn
  (setvar "PICKFIRST" 1)
  (sssetfirst nil ss)
  (vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) "_.EXPLODE\n")
)
)
(princ)
)

*** Добавлено ***

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

поробовать команду из #21

[vade]

Кто-нибудь помогите расчленить блоки. Что ни пробывал не помогает

[Vova]

А кто сказал что это блок?
Загляни в Свойства, там наверху написано, что это

[Neutrino]

Offtop: Explode Explodович Explodов.. Простите, не удержался.

[vade]

Извиняюсь, убрал лишнее.
Лучше помогли бы

[Дима_]

Зайди в свойства блока и выбери для масштаба z коэффицент 1, (информация о длинне утеряеться), но потом можно будет взорвать и вытянуть солид.

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

explmode

[vade]

EXPLMODE не помогает на 2010 CADe.
С z коэффицент 1 понятно, но потом нужно повторно вытягивать в то, что нужно было получить в посте 29.
Т.е. в посте 29 то что нужно расчленить в 3Д Солид, оставив на месте все объекты в том же положении. Расчленение это нужно для дальнейшей обработки командой т-профиль (или аналогичной).

[Дима_]

Сообщение от Кулик Алексей aka kpblc explmode

В данном случае (с 3д солидами) не прокатит

Расчленение это нужно для дальнейшей обработки командой т-профиль (или аналогичной).

В данном случае ИХМО используй просто виды без проекций.
Оставив блоки остаються и возможности по дальнейшей автоматизации (подсчету спецификации) в автомате. А рисовать блокаит чтоб их потом взорвать, лучше тогда и не заморачиваться.

[vade]

Спасибо за помощь