[Zaghim]

Хочу взорвать блок, да так что бы при взрыве линии остались по слою. Нашел готовую прогу, но там все через vla... тогда решил попробовать вот это:
(command "_xplode" name "" "i") - пишет неизвестная команда. В чем проблема?

Вроде разобрался в чем проблема - это arx прога. Следовательно так запустить не получится. Как быть? Я кучей беру блоки и потом их обрабатываю, получаю так:

Код:

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

 (setq nabr (ssget "_A"))
                 (setq number (sslength nabr))
                 (setq name (ssname nabr n))
                 (setq object (entget name))

Может это можно как-то подружить с этим:

Код:

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

(vl-load-com)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object))
        util (vla-get-utility adoc))
  (vla-getEntity util 'blk nil "Вывбери, чего взрывать: ")
  (setq ents (vlax-safearray->list (vlax-variant-value (vla-explode blk))))
  (foreach ent ents (vla-put-layer ent (vla-get-layer blk)))
  (vla-delete blk)

[Александр Ривилис]

Код:

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

 (C:XPLODE name "" "i")

Ну конечно если name - имя расчленяемого примитива, Express Tools установлены и загружены.

[Zaghim]

Почему-то не работает, просит указать блок. Хотя если делать Explode, то все ок...

[Александр Ривилис]

Сообщение от Zaghim Почему-то не работает, просит указать блок. Хотя если делать Explode, то все ок...

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

[Profan]

Сообщение от Александр Ривилис Код: [Выделить все] (C:XPLODE name "" "i") Ну конечно если name - имя расчленяемого примитива, Express Tools установлены и загружены.

Кажись, команда "xplode" ("взорвать") к ET не имеет отношения.

[Zaghim]

Так я и передаю имя в таком виде name = <Entity name: 726fea20>.
А к ЕТ не имеет отношения - это точно.

name я выдергиваю так из селекшен сета (nabr) всех блоков (setq name (ssname nabr n))

В общем не получается никак... может сделать это каким-то другим способом?

[mamuk]

попробуй непосредственно с наборами поиграться

(setq a (ssget ))выбираем блок
(sssgetfirst a a) подсвечиваем
(C:xplode a) запускаем
p.s. можно и не прислушиваться к моей писание, это решение не программиста, а обычного юзера

[Zaghim]

Попробовал отдельно запустить ваш код, он не отработал, грит много аргументов)

[mamuk]

а так?

(defun c:xa ()
(setq a (ssget ))
(sssetfirst a a) *тут я опечатался вместо sssetfirst набрал sssgetfirst*
(C:xplode a))

[Zaghim]

Да, как раз достал полищука и исправил на sssetfirst. Так выделяет блок, НО не понимаю в чем засада она его не взрывает, т.е. (C:xplode a "" "i")) - последнее не срабатывает, в общем только выборка....

[mamuk]

Сообщение от Zaghim последнее не срабатывает, в общем только выборка....

я дальше выборки и не проверил думал что все ок

[Zaghim]

Да...засада... а как поменять этот код под вид который мне нужен не имею понятия....вот он

Код:

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

(defun C:Expl2Lyr ( / adoc util blk ents)
  (vl-load-com)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object))
        util (vla-get-utility adoc))
  (vla-getEntity util 'blk nil "Вывбери, чего взрывать: ")
  (setq ents (vlax-safearray->list (vlax-variant-value (vla-explode blk))))
  (foreach ent ents (vla-put-layer ent (vla-get-layer blk)))
  (vla-delete blk)
);end