Расчленить полилинии из набора

[Anatoly]

Есть набор 2D полилиний

Код - Auto/Visual Lisp [Выбрать]

1. (setq sset (ssget "_X" (list (cons 0 "POLYLINE") (cons 8 laynam))))

Надо их все расчленить
Подскажите как.

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

Вариант 1:

Код - Auto/Visual Lisp [Выбрать]

1. (setq sset (ssget "_X" (list (cons 0 "POLYLINE") (cons 8 laynam))))
2. (initcommandversion 2)
3. (command "_explode" sset "")

Вариант 2:

Код - Auto/Visual Lisp [Выбрать]

1. (setq a (getvar "qaflags"))
2. (setvar "qaflags" 1)
3. (setq sset (ssget "_X" (list (cons 0 "POLYLINE") (cons 8 laynam))))
4. (command "_explode" sset "")
5. (setvar "qaflags" a)

Можно придумать еще кучу разных вариантов.

[Anatoly]

Спасибо.
Оба варианта работают.