команда explode

[1958]

Написал небольшую программку:

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

1. (defun c:p2b (/)
2. (vl-load-com)
3.  (setq ss (ssget "_X" (list (cons 8 (cdr (assoc 8 (entget (car (entsel "Выберите образец >")))))))))
4.  (sssetfirst nil ss)
5.  (vl-cmdf "_explode")
6. )

Всё прекрасно, но перед расчленением выскакивает предупреждение. Если согласиться, выполняется быстро. Если не соглашаться, выполнение существенно замедляется.
Возможно ли прописать в код обход этого предупреждения, естественно с положительным ответом?

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

Перед запуском команды _EXPLODE сохраняешь значение draworderctl, устанавливаешь его в 0. Затем запускается команда - диалогового окна быть не должно. Ну и потом восстанавливаешь значение draworderctl

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

Интересно, а vla-explode такое же выдает?

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

Интересно, а vla-explode такое же выдает?

Уверен что нет, так как vla-explode оперирует одним примитивом (представь себе как такое окошко появлялось бы в цикле по всем расчленяемым примитивам) в отличие от команды _EXLODE

[1958]

Что-то непонятное!? Вроде сработало пару раз, а потом всё сначала, выскакивает предупреждение, хоть ты тресни!

Мой код:

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

1. (defun c:p2b (/)
2.  (vl-load-com)
3.  (setq ss (ssget "_X"
4.                  (list (cons 8 (cdr (assoc 8 (entget (car (entsel "Выберите образец >")))))))
5.           )
6.  )
7.  (sssetfirst nil ss)
8.  (setvar "DRAWORDERCTL" 0)
9.  (vl-cmdf "_explode")
10.  (setvar "DRAWORDERCTL" 3)
11. )

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

Почитай эту тему: https://forum.dwg.ru/showthread.php?t=113813
Там найдёшь много нового и полезного.

[1958]

Вот такая конструкция вроде работает:

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

1. (defun c:p2b (/)
2.  (vl-load-com)
3.  (setq ss (ssget "_X"
4.                  (list (cons 8 (cdr (assoc 8 (entget (car (entsel "Выберите образец >")))))))
5.           )
6.  )
7.  (sssetfirst nil ss)
8.  (setvar "nomutt" 1)
9.  (setvar "DRAWORDERCTL" 0)
10.  (vl-cmdf "_explode")
11.  (setvar "DRAWORDERCTL" 3)
12.  (setvar "nomutt" 0)
13. )

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

Из спортивного интереса подумай над упрощением этой конструкции:

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

1. (list (cons 8 (cdr (assoc 8 (entget (car (entsel "Выберите образец >")))))))

[1958]

Из спортивного интереса подумай над упрощением

Александр! Я только учусь и вопрос упрощения мне не подвластен. Это Вы должны были понять из предыдущих моих публикаций.
Если б подсказали, был бы очень признателен.

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

Вместо     

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

1. (list (cons 8 (cdr (assoc 8 (entget (car (entsel "Выберите образец >")))))))

должно быть

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

1. (list (assoc 8 (entget (car (entsel "Выберите образец >")))))

[1958]

Н-да! Век живи, всё не выучишь! Спасибо!