[qkq]

Помогите, пожалуйста :?: [/b]

[vk]

На выбор или PLJOIN из Экспрессов или PEDIT с опцией JOIN

[MIP]

Если линии не имеют общих точек, то опцию join лучше использовать с подопцией Jointype и параеметром Both. Подробнее про опцию Jointype можно прочесть в литературе.
Т.е. вызываешь команду _pedit -> multiple -> Выбираешь линии -> Отвечаешь "да" на вопрос "Сделать ли линии полилиниями" -> join -> Jointype -> Both -> указываешь Enter fuzz distance or [Jointype] <0.0000> отличную от 0, но лучше не более 1 -> жмешь "enter" Вуаля!

[qkq]

Всем большое спасибо. Помогло.

А оформить это в макросе?

_pedit;_m;\;;_j;_j;_b;\;; - не работает, где ошибка?

[Torino]

Лучше так: select;\pedit;m;p;;j;;;

select;\pedit;m;p;;;j;;;
Спасибо. А что неправильно в вышенаписанном?

[Torino]

Нет, именно select;\pedit;m;p;;j;;;
Насчет ошибки: непонятно зачем два j, что такое b и вообще непонятна логика работы того макроса.

Если

именно select;\pedit;m;p;;j;;;

то макрос останавливается на:

• Convert Lines and Arcs to polylines [Yes/No]? <Y> j
  Yes or No, please.

Если select;\pedit;m;p;;;j;;; то работает до конца.

Я пытался сделать по алгоритму MIP:

вызываешь команду _pedit -> multiple -> Выбираешь линии -> Отвечаешь "да" на вопрос "Сделать ли линии полилиниями" -> join -> Jointype -> Both -> указываешь Enter fuzz distance or [Jointype] <0.0000> отличную от 0, но лучше не более 1 -> жмешь "enter"

т.е. pedit;m;\;;j;j;b;\;;

[Torino]

А теперь попробуй объединить полилинии твоим макросом.
Результат - ошибка.

Посади на кнопочку такой макрос:
^P(setq ss (ssget '((0 . "*line,polyline,arc"))))(vl-cmdf "_.pedit" "_m" ss "" "y" "j" "0.0001" "")(setq ss nil)(princ)

Будет работать и линиями и с полилиниями, с пре- и пост- выделением объектов.

2 Torino: Спасибо!

[MIP]

^P(setq ss (ssget '((0 . "*line,polyline,arc"))))(vl-cmdf "_.pedit" "_m" ss "" "y" "j" "0.0001" "")(setq ss nil)(princ)

Вся прелесть этого макроса, то, что он отвечает на вопрос "сделать примитив полилинией" "Да", все остальное остается по старой схеме

[Torino]

>>MIP
И что?

[MIP]

>>Torino
Из всей последоваетльности убирается только пару действий, "Выбор режима редактирования нескольких полилиний" и "подтверждение приеобразования примитивов в полилинии". Логично было бы продолжить и сразу же прописать выбор опции "Добавить". Если в выборе только полилинии, функция вообще не отрабатывает.

[Torino]

Сообщение от MIP Логично было бы продолжить и сразу же прописать выбор опции "Добавить".

Это что за опция такая?

Сообщение от MIP Если в выборе только полилинии, функция вообще не отрабатывает.

MIP, если только у тебя не лайт версия Автокада, то этот макрос должен работать, как надо, и отрабатывать любые сочетания.

[Vova]

Напоминаю, что в 2004 появилась переменная Peditaccept, которая в зависимости от ее значения может исказить работу макроса

[MIP]

>>Torino

MIP : Логично было бы продолжить и сразу же прописать выбор опции "Добавить". Это что за опция такая?

Это перевод с ангельской мовы в Автокаде 2004 (рус) (официальная локализация) пукта Join в команде pedit
Может Vova прав и в Автокаде 2004 из за переменной Peditaccept что идет не так как хотелось автору, но у меня макрос работает только если в наборе есть хотя бы один примитив не полилиния. В общем надо разобраться!

[Protreck]

Очень интересная тема, но у меня почему-то не получается воспользоваться командами Join и pljoin. может быть они не работают в Acad 2006?

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

Все работает. Если версия не английская, вводим имена команд со знаком "_" перед ними.

[taras]

Хороший макрос

На кнопочку получилось поставить
А как его в лисп файл ввести
сделал для себя несколько макросов
(defun C:jkl ()
(command "_lengthen" "de")
)
а вот этот что-то не получается добавить