[Leo_fmf]

Для этой цели есть хорошая функция _burst.
Но почему то он не работает в моем макросе на LISP,
пробовал писать
(command "burst")
(command "_burst")
но ничего не работает, может я что-то делаю не так?

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

1) поиск
2) анализ кода команды burst
3) http://forum.dwg.ru/showthread.php?t=24279
4) http://forum.dwg.ru/showpost.php?p=98315&postcount=13

[Leo_fmf]

А как то проще нельзя?
выполнение в командной строке функции _burst меня устраивает, а можно ли его же вызвать в моем макросе?

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

А что, код макроса виден через хрустальный шар?

[Leo_fmf]

А что такое "Хрустальный шар"?

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

Расшифровываю: код где?

[Дима_]

Сообщение от Leo_fmf А что такое "Хрустальный шар"?

Ну это такой прототип телевизора который использовался всякой нечистью дабы смотреть действия на расстоянии, так-же расширенные версии видели прошлое, будующее, умели смотреть чужими глазами и пр. Хорошая вещь в общем, жаль физическая реализация пока хромает.

[Leo_fmf]

Сообщение от Дима_ Ну это такой прототип телевизора который использовался всякой нечистью дабы смотреть действия на расстоянии, так-же расширенные версии видели прошлое, будующее, умели смотреть чужими глазами и пр. Хорошая вещь в общем, жаль физическая реализация пока хромает.

шутка шутками, а как же решить проблему?

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

Сообщение от Leo_fmf а как же решить проблему?

Блин! Код предоставить!

[VVA]

Может так понятнее будет: Текст твоего макроса на LISP опубликовать в своем посте

Сообщение от Leo_fmf Но почему то он не работает в моем макросе на LISP

[nolte]

весело тут у вас

[Krieger]

Он ведь предоставил код:

Код:

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

(command "burst")

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

Krieger, полный код. Ошибка может быть где угодно и какая угодно. Вплоть до неверно поставленной скобки.

[Krieger]

Сообщение от Кулик Алексей aka kpblc Krieger, полный код. Ошибка может быть где угодно и какая угодно. Вплоть до неверно поставленной скобки.

Если принять этот код за полный, то он и не работает. Где там скобок не хватает? Сначала выполнил просто команду - она у меня есть и работает. Потом через функцию command и её не оказалось.

Код:

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

Command: BURST

Select objects: 1 found

Select objects:

|

Command:
Command: *Cancel*

Command: (command "burst")
Unknown command "BURST".  Press F1 for help.
nil

Фигня в том, что функции command и vl-cmdf не понимают самописных команд, коим и является команда burst идущая в отдельной поставке от када в Express tools. Соответсвенно вопрос - как в лисп запустить самописные команды?

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

Потому что есть помимо просто (command "burst") вариантов масса.
Я не зря говорил про необходимость анализа кода команды burst и прохождения по ссылкам.
Я не просто так требую полный код. Потому что вариант

Код:

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

(vl-load-com)
(vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) "burst ")
(while (/= (getvar "cmdactive") 0)
  (command pause)
  ) ;_ end of while

сработает вполне корректно. Но его использование может оказаться невозможным.

[Krieger]

Ну вот. Топорно правда, но работает. И код там какой то, которого еще и нет в помине, не нужен оказался.

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

Праальна, потому как есть локальная функция burst-one, которую выцепить из исходного кода - вопрос 2 минут.

[Krieger]

Что тебе мешало сразу написать ответ типа:

Функция command не понимает самописных команд, поэтому используй sendcommand или меняй команду на функцию

Offtop: Кстати, ACAD20012, 20013, 20014 еще не придумали. Это я про твою подпись

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

Сообщение от Krieger Что тебе мешало сразу написать ответ типа:

Потому что иногда подобное срабатывает. Подпись править не буду. Из принципа

----- добавлено через ~1 мин. -----
В ближайшее время не буду

[Дима_]

Сообщение от Кулик Алексей aka kpblc В ближайшее время не буду

Offtop: Вариант 1:
"ACAD 20(09|1[2-4])"