• На форуме с 29 мая 2006г.
  • Сообщений: 3
  • Спасибо: 0

Тема: Как программно "взорвать" блоки?

(command "_explode" ss) не работает, где ss - набор, сформированный как (ssget "X" '((0 . "INSERT") (8 . "имя_слоя"))).
Дело в том, что команда explode требует указания блока вместе с точкой, то есть её устроил бы выход ф-ии (entsel), а не (ssget).
Как быть?

  • На форуме с 30 апреля 2009г.
  • Сообщений: 14
  • Спасибо: 1

Re: Как программно "взорвать" блоки?

Как быть?

Например вот так.

(setq nabor (ssget "X" '((0 . "INSERT") (8 . "имя_слоя"))))
(setq x 0)
(while (/= (ssname nabor x) nil)
(vla-explode (vlax-ename->vla-object (ssname nabor x)))
(setq x (+ x 1)))

  • VVA
  • Активный участник
  • Откуда: Беларусь / Минск
  • На форуме с 29 марта 2006г.
  • Сообщений: 1,859
  • Спасибо: 25

Re: Как программно "взорвать" блоки?

Код Makson, не сработает, если блок имеет разные масштабы по X,Y,Z

(setq nabor (ssget "X" '((0 . "INSERT"))))
(setq x 0) 
(while (setq blk (ssname nabor x))
  (command "_.EXPLODE" blk)
(setq x (+ x 1)))

  • На форуме с 13 января 2007г.
  • Сообщений: 35
  • Спасибо: 4

Re: Как программно "взорвать" блоки?

  (setq SS (ssget "X" '((0 . "INSERT") (8 . "имя_слоя"))))
  (vl-cmdf "._-GROUP" "_C" "TEMP" "" SS "")
  (vl-cmdf "._EXPLODE" "_G" "TEMP")
  (vl-cmdf "._-GROUP" "_E" "TEMP")

  • _CB_
  • Активный участник
  • Откуда: Беларусь / Гомель
  • На форуме с 9 апреля 2008г.
  • Сообщений: 123
  • Спасибо: 6

Re: Как программно "взорвать" блоки?

(sssetfirst nil (ssget "X" '((0 . "INSERT") (8 . "имя_слоя"))))
(command "_explode")

  • На форуме с 29 мая 2006г.
  • Сообщений: 3
  • Спасибо: 0

Re: Как программно "взорвать" блоки?

_CB_, спасибо, это то что надо - команде передаётся сразу весь набор. Это значительно быстрее, чем перебирать по одному примитиву, особенно когда блоков тысячи.
VovKa, наверное, ваш код тоже работает быстро, не разбирался.
Всем спасибо, тема закрыта.