| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > LISP. Разорвать объекты в точках пересечения. BreakObjects.

LISP. Разорвать объекты в точках пересечения. BreakObjects.

Ответ
Поиск в этой теме
Непрочитано 19.03.2008, 14:32 5 | 1
LISP. Разорвать объекты в точках пересечения. BreakObjects.
VVA
 
Инженер LISP
 
Минск
Регистрация: 11.05.2005
Сообщений: 6,990

Набор команд для разрыва объектов в точках пересечения.
Автор: 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)

Вложения
Тип файла: lsp BreakObjects17.LSP (21.3 Кб, 1432 просмотров)
Тип файла: lsp BreakObjects18.LSP (34.3 Кб, 966 просмотров)
Тип файла: lsp BreakObjects21.LSP (39.5 Кб, 1326 просмотров)
Тип файла: lsp BreakObjects22a.LSP (41.5 Кб, 2417 просмотров)
Тип файла: lsp BreakObjects23.LSP (41.7 Кб, 1021 просмотров)

__________________
Как использовать код на Лиспе читаем здесь

Последний раз редактировалось VVA, 07.01.2020 в 11:06. Причина: версия 23
Просмотров: 113940
 
Автор темы   Непрочитано 16.04.2009, 11:01
#41
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,990
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Не знал, попробую
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Автор темы   Непрочитано 10.06.2009, 17:59
#42
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,990
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Обновил версии Breakobjects. Исправлена строка режима функции ssget (c ssget "+.:E:S" на ssget "_+.:E:S"). Ошибка проявлялась в локализованных версиях Автокада.
__________________
Как использовать код на Лиспе читаем здесь

Последний раз редактировалось VVA, 19.06.2009 в 12:42. Причина: Орфография
VVA вне форума  
 
Непрочитано 19.06.2009, 02:43
#43
wetr

инженер
 
Регистрация: 09.08.2006
Владивосток
Сообщений: 1,535
<phrase 1= Отправить сообщение для wetr с помощью Skype™


VVA, очередное спасибо!
Очень удобно готовить схемы для SCAD в AutoCADe.
Все линии находящиеся на определенных слоях экспортируются в одноименные группы. Т.е. нарисовал колонны в слой "Колонны" и в SCAD очень удобно потом работать с группой "Колонны".
Но вот беда, когда пользуешься аналогичной функцией самого SCAD, то разбитые стержни исчезают из соответствующих групп. И это проблема.
А тут такой лисп в автокаде!
__________________
14 Ибо если вы будете прощать людям согрешения их, то простит и вам Отец ваш Небесный (Мф 6, 14)

Последний раз редактировалось wetr, 05.08.2009 в 03:59.
wetr вне форума  
 
Непрочитано 07.08.2009, 21:20
#44
АлексЮстасу

топограф, технолог
 
Блог
 
Регистрация: 24.05.2009
Москва
Сообщений: 3,030


Цитата:
Сообщение от VVA Посмотреть сообщение
Набор команд для разрыва объектов в точках пересечения.
Каким-то из упомянутых на этой ветке лиспов можно удалять разом все фрагменты линий, полилиний, попадающих внутрь указанных нескольких замкнутых фигур? Последние не всегда имеют признак Closed, но всегда собраны из линий и 2Д полилиний, и все их концы совпадают. (Было бы совсем здорово, если бы фигуры могли быть образованы и из просто пересекающихся линий-полилиний, но для начала хотя бы смыкающиеся...).

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

BreakObjects в режиме, например, BreakWith сообщает:

Command: BreakWith
Enter Break Gap.<0>
Break selected objects with other selected objects.
Select object(s) to break & press enter:
Select objects: 1 found
Select objects: 1 found, 2 total
Select objects:
*** Select object(s) to break with & press enter: ***
Select objects: 1 found
Select objects: 1 found, 2 total
Select objects: 1 found, 3 total
Select objects:
Calculating Break Points, Please Wait.
No found for specified point.
Invalid point.
Function cancelled
Specify first break point:
Specify second break point:

Пока что все мои результаты ничем не отличались от использования обычной команды Break для одного элемента...
Я что-то вообще не так делаю?
Простейший файл на всякий случай прилагаю. Допустим, нужно вырезать фрагменты черных полилиний в слое 0 из фигур, ограниченных полилиниями мажента, слой 1.
Вложения
Тип файла: dwg
DWG 2004
Вырезать_черное_из_мажента.dwg (61.5 Кб, 3046 просмотров)

Последний раз редактировалось АлексЮстасу, 08.08.2009 в 02:36.
АлексЮстасу вне форума  
 
Непрочитано 08.08.2009, 21:44
#45
skkkk


 
Регистрация: 20.03.2008
Сообщений: 2,653


Удалено

Последний раз редактировалось skkkk, 08.08.2009 в 22:00.
skkkk вне форума  
 
Непрочитано 10.08.2009, 03:22
#46
wetr

инженер
 
Регистрация: 09.08.2006
Владивосток
Сообщений: 1,535
<phrase 1= Отправить сообщение для wetr с помощью Skype™


Offtop: skkkk, изрек, понял что ложь и удалил
__________________
14 Ибо если вы будете прощать людям согрешения их, то простит и вам Отец ваш Небесный (Мф 6, 14)
wetr вне форума  
 
Непрочитано 11.08.2009, 21:13
#47
АлексЮстасу

топограф, технолог
 
Блог
 
Регистрация: 24.05.2009
Москва
Сообщений: 3,030


Цитата:
Сообщение от wetr Посмотреть сообщение
Offtop: skkkk, изрек, понял что ложь и удалил
это клево, только где бы истину найти...?

Последний раз редактировалось АлексЮстасу, 11.08.2009 в 21:38.
АлексЮстасу вне форума  
 
Непрочитано 12.08.2009, 01:12
#48
skkkk


 
Регистрация: 20.03.2008
Сообщений: 2,653


Острофлудничаем? А вот несложный поиск привел меня к результатам за минуту
Выделение и удаление обьектов внутри замкнутой полилинии.
skkkk вне форума  
 
Непрочитано 12.08.2009, 14:39
#49
АлексЮстасу

топограф, технолог
 
Блог
 
Регистрация: 24.05.2009
Москва
Сообщений: 3,030


Цитата:
Сообщение от skkkk Посмотреть сообщение
Острофлудничаем? А вот несложный поиск привел меня к результатам за минуту
Выделение и удаление обьектов внутри замкнутой полилинии.
Не серчайте, плз... Я, например, надеюсь, вдруг кто поможет...
Эта ссылка, и все, что мне удалось найти, решает задачу вырезания полилиний в одном контуре.
Сам могу предложить для одного контура еще пару не упомянутых на форуме вариантов.
Я же спрашивал про возможность вырезания сразу во множестве контуров (первый абзац поста #44)...
И, естественно, вырезания без указывания мышкой внутрь каждого из них...
АлексЮстасу вне форума  
 
Непрочитано 13.08.2009, 22:14
#50
skkkk


 
Регистрация: 20.03.2008
Сообщений: 2,653


тут есть отличный родственный лиспик, автором коего является Денис Флюстиков, дай Бог ему здоровья! Этот лисп делает копию фрагмента внутри контура (указанного или вычерченного). Он (Денис) всегда быстро откликался на просьбы о помощи и корректировал свое детище. Думаю, не откажет и на этот раз. Скорее всего возможно его переделать, чтоб он не копировал все, что внутри контура, а удалял


Последний раз редактировалось skkkk, 14.08.2009 в 21:22.
skkkk вне форума  
 
Непрочитано 14.08.2009, 02:58
#51
АлексЮстасу

топограф, технолог
 
Блог
 
Регистрация: 24.05.2009
Москва
Сообщений: 3,030


Цитата:
Сообщение от skkkk Посмотреть сообщение
тут есть отличный родственный лиспик, автором коего является Денис Флюстиков, дай Бог ему здоровья! Этот лисп делает копию фрагмента (указанного или вычерченного). Он (Денис) всегда быстро откликался на просьбы о помощи и корректировал свое детище. Думаю, не откажет и на этот раз. Скорее всего возможно его переделать, чтоб он не копировал все, что внутри контура, а удалял

спасибо бльшущее за сочувстие и помощь
Попробую...
АлексЮстасу вне форума  
 
Непрочитано 30.09.2009, 15:24
#52
Djur


 
Регистрация: 07.06.2008
ЗвезДонецк
Сообщений: 131


Огромнейшая Благодарность за бесценный ТРУД ))
Djur вне форума  
 
Автор темы   Непрочитано 30.09.2009, 16:12
#53
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,990
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Цитата:
Сообщение от skkkk Посмотреть сообщение
тут есть отличный родственный лиспик, автором коего является Денис Флюстиков, дай Бог ему здоровья!
Теперь этот родственник прописался тут
*** Добавлено
Добавил ссылку и в #1
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 01.07.2010, 15:05
#54
Alex II


 
Регистрация: 27.11.2007
Сообщений: 126


Цитата:
Сообщение от dextron3 Посмотреть сообщение
Хотел спросить где можно применить данный лисп,
использую лисп который разрывает и заменяет другой линией
разрыв, его использую для обозначения пуктиром невидимых частей,
а вот этот не знаю где применить?
а не могли бы выложить етот лисп?
Alex II вне форума  
 
Непрочитано 08.07.2010, 12:25
#55
Jonas

конструктор машиностроитель
 
Регистрация: 14.05.2007
Новосибирск
Сообщений: 893


Замечательно и полезно!
Не знаю я английского, да и учить поздно.
Кажеться все просто, заменил в DCL надписи кнопок на русский и все, ань нет, все равно пишет на английском.
Пожалуйса, подкажите как перевести.
Jonas вне форума  
 
Непрочитано 08.07.2010, 13:00
#56
Do$

AutoCAD/Civil3D LISP/C#
 
Регистрация: 15.08.2008
Санкт-Петербург
Сообщений: 1,702
Отправить сообщение для Do$ с помощью Skype™


Тут вроде нет файла DCL.
Do$ вне форума  
 
Непрочитано 08.07.2010, 13:32
#57
Jonas

конструктор машиностроитель
 
Регистрация: 14.05.2007
Новосибирск
Сообщений: 893


Дак он прописан а том же файле.

Цитата:
MyBreak - DCL для выбора нужной команды
Jonas вне форума  
 
Непрочитано 08.07.2010, 14:05
#58
Do$

AutoCAD/Civil3D LISP/C#
 
Регистрация: 15.08.2008
Санкт-Петербург
Сообщений: 1,702
Отправить сообщение для Do$ с помощью Skype™


Ага, ясненько.
Ну, тут, помимо диалога, еще много надо переводить: аргументы функций prompt, alert, getdist и т.п.
Do$ вне форума  
 
Непрочитано 08.07.2010, 14:31
#59
Jonas

конструктор машиностроитель
 
Регистрация: 14.05.2007
Новосибирск
Сообщений: 893


А разве нельзя перевести только текст надписи кнопки?
Если нет, может окажите пмощь?
Jonas вне форума  
 
Непрочитано 08.07.2010, 15:16
#60
Do$

AutoCAD/Civil3D LISP/C#
 
Регистрация: 15.08.2008
Санкт-Петербург
Сообщений: 1,702
Отправить сообщение для Do$ с помощью Skype™


Я этой программой не пользуюсь, так что мне это не нужно. А куда копать, я указал в посте #58. Если сильно нужно - справишься сам
Do$ вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > LISP. Разорвать объекты в точках пересечения. BreakObjects.

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужен LISP для разрыва линий в точках пересечений ilka_t LISP 18 15.03.2013 16:35
деление множества линий в точках пересечения shurup Программирование 4 24.03.2008 15:11
Координаты точки пересечения line и pline (LISP) paradoxvaha LISP 3 10.07.2007 13:04
Как разорвать объектыв точках, образованных дивайдом? Бали AutoCAD 6 03.07.2007 17:39