Сообщество программистов Autodesk в СНГ
ADN Club => AutoLisp / VisualLISP и DCL => Тема начата: Anatoly от 29-03-2021, 15:55:58
Название:
Расчленить полилинии из набора
Отправлено:
Anatoly
от
29-03-2021, 15:55:58
Есть набор 2D полилиний
Код - Auto/Visual Lisp
[Выбрать]
(
setq
sset
(
ssget
"_X"
(
list
(
cons
0
"POLYLINE"
)
(
cons
8
laynam
)
)
)
)
Надо их все расчленить
Подскажите как.
Название:
Re: Расчленить полилинии из набора
Отправлено:
Александр Ривилис
от
29-03-2021, 16:42:51
Вариант 1:
Код - Auto/Visual Lisp
[Выбрать]
(
setq
sset
(
ssget
"_X"
(
list
(
cons
0
"POLYLINE"
)
(
cons
8
laynam
)
)
)
)
(
initcommandversion
2
)
(
command
"_explode"
sset
""
)
Вариант 2:
Код - Auto/Visual Lisp
[Выбрать]
(
setq
a
(
getvar
"qaflags"
)
)
(
setvar
"qaflags"
1
)
(
setq
sset
(
ssget
"_X"
(
list
(
cons
0
"POLYLINE"
)
(
cons
8
laynam
)
)
)
)
(
command
"_explode"
sset
""
)
(
setvar
"qaflags"
a
)
Можно придумать еще кучу разных вариантов.
Название:
Re: Расчленить полилинии из набора
Отправлено:
Anatoly
от
29-03-2021, 17:22:50
Спасибо.
Оба варианта работают.