[Mazai]

Здраствуйте!
У меня русский автокад 2008. Мучаюсь - не могу написать правильно макрос для объединения группы отрезков начерченых друг за другом цепочкой.
Если делать всё в ручную, то последовательность моих действий такая:

- Командой "ПОЛРЕД" вызываю функцию редактирования полилиний;
- Выбираю опцию "Несколько" - для выбора всей группы отрезков;
- Выбираю опцию "Добавить"
- Соглашаюсь с предлагаемым значением допуска 0.0000

Предусмотрел даже тот момент, что бы не было лишнего диалога об уточнении - нужно ли преобразовывать выбранные отрезки в полилинии (peditaccept 1 -> автоматически разрешить это преобразование).
В результате у меня получился такой макрос:

Код:

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

^C^Cpeditaccept;1;полред;Несколько;\Добавить;

Но он своей задуманной функции не выполняет. При его запуске он останавливаеться на выборе опции "Добавить", самостоятельно эта опция не выбирается - почему? Подскажите что не так?

P.S.: Если можно, то приведите правильный вариант и для английской версии. Так как у меня русская - я не знаю английских аналогов выбираемых опций.

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

http://www.google.ru/search?q=site:d...L_ruRU250RU250 - там ничего не мелькало?

[VVA]

http://www.google.ru/search?aq=f&com...1%81%D0%BA&lr=
А еще в гугле ввел название темы. Второя ссылка сверху (1-я этот топик)
http://dwg.ru/f/showthread.php?t=1782

[Profan]

Попробуй такой макрос:

Код:

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

 
^C^Cpeditaccept;1;Выбрать;\Полред;Несколько;Текущий;;Добавить;;;

На английском

Код:

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

 
^C^Cpeditaccept;1;_Select;\_Pedit;_Multiple;_Previous;;_Join;;;

[Mazai]

Извените, всё нашёл!!!
Раз уж я создал эту тему, то выложу и ответ на поставленный вопрос.

Вот рабочий макрос:

Код:

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

^C^C(defun C:JPL ( / ope ssnab )(setq ope (getvar "PEDITACCEPT"))(setvar "PEDITACCEPT" 1)(setq ssnab (ssget "_I"))(while (not ssnab)(setq ssnab (ssget)))(command "_pedit" "_Multiple" ssnab "" "_Join" 0 "")(setvar "PEDITACCEPT" ope)(setq ssnab nil)(princ));JPL;

(с) VVA

или так:

Код:

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

^C^C^P(defun c:polyjoin () (ssget)(vl-cmdf "_pedit" "_m" "_p" "" "_y" "_j" "" "")(princ));polyjoin;

(с) Кочетков Андрей

[zenon]

Пожалуй добавлю в свою тему Мои макрокоманды если никто не против

[Profan]

Можно в моем макросе вернуть значение переменной peditaccept в начальное значение и он примет такой вид:

Код:

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

 
^C^Cpeditaccept;1;_Select;\_Pedit;_Multiple;_Previous;;_Join;;;_peditaccept;0

Без AutoLisp'а.
Или совсем коротенько:
^C^Cpeditaccept;1;_Select;\_Pedit;_M;_P;;_J;;;_peditaccept;0

[Dym]

Profan, в последнем макросе пробел лишний вкрался

[Profan]

Я это заметил, но когда захотел отредактировать текст, то оказалось, в окне редактирования этого пробела нет. Вот вставленный оттуда текст:

Код:

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

 
^C^Cpeditaccept;1;_Select;\_Pedit;_M;_P;;_J;;;_peditaccept;0

[Mazai]

А как можно подавить ещё одно окошко, которое всплывает только тогда, когда я пытаюсь объеденить много отрезков у которых различные цвета.
Скрин предупреждения во вложении.

[Redya]

Код:

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

^C^C_pedit;_m;\;_j;;;

Что не правильно в этом коде не могу понять? Хочеться выделить линии, нажать enter и образовалась полилиния.

[Profan]

Макрос может выглядеть так:

Код:

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

^C^C_select;_pedit;_m;_p;;_j;;;

[Redya]

Макрос может выглядеть так: Код: ^C^C_select;_pedit;_m;_p;;_j;;;

Profan, да, я это уже уяснил из поста. Именно заинтересовало сделать без _select. Это же возможно?

[Profan]

А ты попробуй вручную выделить объекты и запустить команду _pedit. Увидишь, что выделение снимается.
А чем тебе _select не нравится?

[Redya]

Да, если сначала выделить объекты, а потом ввести _pedit, то выделение снимется. Но у меня же в макросе сначала _pedit вводится, а потом я ставлю \ (ручной ввод), но что-то не так. Чем не нравится _select? Да всем нравится, только без него не понимаю почему не получается, вот и спрашиваю.

[Profan]

В сообщении 11 ты же написал, что сначала хочешь выделить линии, а теперь на попятную?
Одная косая \ в макросе меню предполагает одиночное указание (выбор). И только в команде _select одна косая допускает множественный выбор объектов.

[Redya]

В сообщении 11 ты же написал, что сначала хочешь выделить линии, а теперь на попятную?

Да это я так написал просто.Для меня не принципиально что делать сначала - выбирать или вызывать команду.

И только в команде _select одна косая допускает множественный выбор объектов.

Спасибо, не знал. Значит всё таки без _select никак получается. Profan, спасибо!

[Сидор Лютый]

Значит всё таки без _select никак получается

С предварительным выделением тоже можно. Например так:

Код:

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

^C^C_move;^C^C_pedit;m;p;;j;;^C

Хоть логика "одевания штанов через голову", но тем не менее, работает надежно.