[VVA]

Набор команд для разрыва объектов в точках пересечения.
Автор: Charles Alan Butler (CAB)
Опубликовано: Break All or Some (там же выкладываются последние изменения)
Описание: Разрывает все выбранные объеты в точках пересечения.
Допустимые объекты: отрезки, полилинии, сплайны, эллипсы, круги, дуги.
Команды:

• MyBreak - DCL для выбора нужной команды
• BreakAll - Разрывает выбранные объекты на пересечениях друг с другом
• BreakwObject - Разрывает выбранные объекты единственным объектом
• BreakObject - Разрывает единственный объект другим объектом
• BreakWith - Разрывает выбранные объекты другими выбранными объектами
• BreakTouching - Разрывает объекты в точках пересечения с выбранным объектом
• BreakSelected - Разрывает выбранные объекты в точках пересечения с не выбранными объектами
• BreakRemove - Break selected object with any objects that touch it & remove every other new segment, start with selected object

Лицензия и права:

;;;=========================================================== ;;; THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED ; ;;; WARRANTY. ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR ; ;;; PURPOSE AND OF MERCHANTABILITY ARE HEREBY DISCLAIMED. ; ;;; ; ;;; You are hereby granted permission to use, copy and modify this ; ;;; software without charge, provided you do so exclusively for ; ;;; your own use or for use by others in your organization in the ; ;;; performance of their normal duties, and provided further that ; ;;; the above copyright notice appears in all copies and both that ; ;;; copyright notice and the limited warranty and restricted rights ; ;;; notice below appear in all supporting documentation. ; ;;;===========================================================

Актуальная версия 2.2a (для локализованных версий исправлен недочет в соответсвии с постом #81

Update to Version 2.2 Updated to fix a bug when closed objects are broken and one of the break points are at the end/start point of the closed object.

Версия 2.3 адаптирована для работы с Брикскад (см #103)

*** Добавлено 30.09.2009
Аналогичная программа Дениса Флюстикова: Фрагмент чертежа по прямоуг.,кругл. или ломаной границе
*** Добавлено 20.04.2014
ObjectARX. Утилита TotalBreaker - разбиение примитивов в точках взаимного пересечения. или здесь
Break all objects selected with each other. (TotalBreaker)

[VVA]

Jonas,
1. Файл создается 1 раз. Называется BreakAll.DCL Создается в папке расположения файла acad.pat
2. Найди этот файл и удали
3. В тексте програмы найди строку

;; create dcl file in same directory as ACAD.PAT

Чуть ниже будет описание dcl файла

Код:

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

 (foreach x (list
                   "// WARNING file will be recreated if you change the next line"
                   rvflag
                   "//BreakAll.DCL"
                   "BreakDCL : dialog { label = \"[ Break All or Some by CAB  v1.8 ]\";"
                   "  : text { label = \"--=<  Select type of Break Function needed  >=--\"; "
                   "           key = \"tm\"; alignment = centered; fixed_width = true;}"
                   "    spacer_1;"
                   "    : button { key = \"b1\"; mnemonic = \"T\";  alignment = centered;"
                   "               label = \"Break all objects selected with each other\";} "
                   "    : button { key = \"b2\"; mnemonic = \"T\"; alignment = centered;"
                   "               label = \"Break selected objects with other selected objects\";}"
                   "    : button { key = \"b3\"; mnemonic = \"T\";  alignment = centered;"
                   "               label = \" Break selected objects with any  objects that touch it\";}"
                   "    spacer_1;"
                   "  : row { spacer_0;"
                   "    : edit_box {key = \"gap\" ; width = 8; mnemonic = \"G\"; label = \"Gap\"; fixed_width = true;}"
                   "    : button { label = \"Help\"; key = \"help\"; mnemonic = \"H\"; fixed_width = true;} "
                   "    cancel_button;"
                   "    spacer_0;"
                   "  }"
                   "}"
                  ) ; endlist
        (princ x fn)
        (write-line "" fn)
      ) ; end foreach

Описание кнопок в тэге button. Само название кнопок выделено красным

[Jonas]

Так я так и делаю, в это и вопрос.
То что вы выделили я и переписал по руски, а он подлец всё равно пишет по английски.
Всё у меня в отдельном меню "мои инструменты" (хтя они не все мои, да простят меня аяторы). Я уж и выгружаю, удаляю cui и mnr, снова загружаю mns? а он всё равно по английски.

[VVA]

Сообщение от Jonas а он подлец всё равно пишет по английски.

ты не выполнил пп.1 и 2 из #61
Скопируй код в командную строчку

Код:

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

(findfile "BreakAll.DCL")

и удали этот файл

[Jonas]

Всю жизнь страдаю от невнимательности.
Спасибо, всё исправил.

[Jonas]

Всё , да не всё.
На стационарном к-ре всё в норме а вот на ноутбук не получается.
Что не делаю, ставит версию v1,5 а не v1,8.

[Nata1]

Форумчане, этот лисп - BreakObjects21.LSP будет работать в 2004 автокаде? Файл DСL сам создается, если его загрузить в автокад, как обычный лисп?
Программа Дениса Флюстикова "Фрагмент чертежа по прямоуг.,кругл. или ломаной границе" в 2004 не работает, пишет, что только с 2006.

[VVA]

Сообщение от Nata1 Форумчане, этот лисп - BreakObjects21.LSP будет работать в 2004 автокаде?

Воспользуйся научным методом - методом тыка Нет под рукой 2004, чтобы тебе ответить

Сообщение от Nata1 Файл DСL сам создается, если его загрузить в автокад, как обычный лисп?

Да. DCL формируется "на лету".

[Nata1]

VVA, спасибо за ответ. Попробовала на 2004 установить. Вроде, работает, появляется окошко с тремя кнопками для выбора типа разрыва. GAP - это, как я поняла, величина длины разрыва.
Устанавливала лисп версии 21, а на окне программы почему-то написано V1.8. Так и должно быть?

[VVA]

Сообщение от Nata1 Так и должно быть?

Код:

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

      (foreach x (list
                   "// WARNING file will be recreated if you change the next line"
                   rvflag
                   "//BreakAll.DCL"
                   "BreakDCL : dialog { label = \"[ Break All or Some by CAB  v1.8 ]\";"
                 ....

[gomer]

Сообщение от Nata1 Файл DСL сам создается, если его загрузить в автокад, как обычный лисп?

Этот КЭБ все делает на лету... потому и лиспы у него такие длинные

[VVA]

BreakObjects обновилась до версии 2.2. Появилась новая команда BreakRemove

[Нефтепроводчик]

А панельку с кнопочками под этот набор команд никто не делал?

[Nata1]

VVA, спасибо. А можно попросить правильный перевод?

BreakRemove - Break selected object with any objects that touch it & remove every other new segment, start with selected object

а то он-лайн переводчик перевел коряво - Выбранный объект перерыв с любыми объектами, которые трогать и удалить каждый новый сегмент, начните с выбранным объектом

А также еще две команды есть в этом лиспе:

BreakWlayer - Break objects with objects on a layer BreakWithTouching - Break touching objects with selected objects

Можно тоже их перевести на русский?

[Inventor_S]

а в AutoCAD 2013 глюк на глюке. Эллипсы не разрываются, некоторые команды выдают ошибку. Жаль.

[VVA]

Приложи файл с примером, текстом в файле напиши какая команда что не рвет. Отправлю автору

[Inventor_S]

Пример с описанием приложен

И еще, как-то странно себя ведет команда "BreakRemove". Удаляет не только выделенный сегмент в точках пересечения объекта, но и за пересечением. Может быть так и надо, но хотелось бы только сегмент в пределах точек пересечений.

[NVFk]

А есть ли решения для разрыва объектов в 3d?: дело в том, что зачастую приходится разрывать геодезию, выполненную в 3d, плоскостью. Стандартная команда помогает (отрезки разрываются на проекции пересечения), но это очень долго. возможно ли изменить настройки lispa?

[Inventor_S]

Почти пол года прошло, а обновления нету ... В автокаде 2014 аналогичная ситуация, многие функции не работают .... жаль.

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

Какие "многие"? Конкретнее, конкретнее!

[Inventor_S]

выше все описано с примером