[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)

[dextron3]

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

[VVA]

Например для передачи расчетных схем, вычерченных в Автокада в SCAD

[dextron3]

VVA, для расчетчиков действительно полезная утилита

[gest]

VVA, а не встречалась программа которая разбивает и удаляет отрезки между двумя линиями?

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

_.trim -> _f (см. Tips & Tricks)

[VVA]

Ну и еще в 2006 помимо _fence можно сразу секрамкой выделить

[gest]

Алексей спасибо, такой прием знал, но дело в том, что участок между которыми отрезок удаляется достаточно мал, а протяженность большая,



точно попасть, чтобы все было в одном экране достаточно проблематично, удаляется только видимая в пределах экрана часть.
А для таких объектов обрезание по _.trim -> _f приходится делать почему-то по два раза?

[skkkk]

Очень хороший лисп, но часто ну ооооочень долго думает и не всегда выполняет свою работу. С обычными отрезками (LINE) проблем нет, но когда дело касается полилиний - тут сложнее. Хотя только что проверил, и с отрезками тоже повисло все........ Поделитесь, пожалуйста это так у всех или только у меня? Может что-то можно сделать?

[VVA]

Попробуй версию 1.8

[skkkk]

Спасибо, VVA. Работает намного быстрее. Нарисовал кучу линий, полилиний, дуг, проверил - пуля..... Но попробовал применить на чертеже - разрывает не все. Вот в Чертеже, например, по красной линии. Не рвет полилинии, ни замкнутые, ни разомкнутые. Offtop: Думал, Вы в отпуске

[VVA]

А что, для тех, кто в отпуске интернет недоступен?

[Cfytrr]

Возникла проблемма:
1. BreakAll разбивает все линии набора на отдельные отрезки
2. Рисуем новую линию пересекающую эти отрезки
3. Повторный BreakAll рвет тока "новую" линию, существующие отрезки пересекаемые ею остаются целыми, и выдает ошибку "error: bad argument type: numberp: nil"

[VVA]

Cfytrr, Родной топик этой программы http://www.theswamp.org/index.php?topic=10370.75
Выложи файл с примером автору (CAB). Я сейчас не могу, т.к. нахожусь в отпуске.

[skkkk]

Разобрался, почему программа зависала и не разрывала (см. #9, #11) Оказалось, в "Чертеже" (#11) полилинии имели в Свойствах различный Уровень, я выставил его в 0, а в свойствах отрезков были различные координаты Z, их я тоже выставил в 0. Все заработало. Только неясно, как так вышло. Видимо геодезисты не очень грамотно чертеж оформили, либо, наоборот, я чего-то не понимаю. Но с лиспом все в порядке, сто пудов.

Cfytrr, у меня все работает по описанному тобой алгоритму, странно.......Думаю, для решения проблемы тебе можно выложить сюда файл, в котором ошибка вылетает

[Cfytrr]

skkkk, вот оно, если применить BreakAll ко второй группе то получаем "разбитую" красную линию и "целые" зеленые

[skkkk]

Cfytrr, действительно..... Теперь и у меня в файле, в котором было все ок, такая же фигня)))). Хотя раньше точно работало. Если не нужна тебе функция GAP (брешь), можешь откатиться на версию 1.7. Она рвет зеленые и в твоем файле. Мне вот GAP не нужен, например, и я откачусь пока, а то лишний раз ENTER надо жать. Можно , сделать, конечно, чтобы не жать, но это лишние заморочки, тем более, у меня 1.7 стала работать.

[Cfytrr]

skkkk, спасибо за инфу про 1.7

[skkkk]

Вот тут еще есть кое-что об этом http://dwg.ru/f/showthread.php?t=1141

[dextron3]

у меня не работает:

Command: BREAKALL

Enter Break Gap.<0>

Select objects to break with each other & press enter:
Select objects: Specify opposite corner: 0 found
Select objects: Specify opposite corner: 24 found

Select objects:
; error: bad argument type: numberp: nil

[VVA]

dextron3, Восстановил в 1-м посте версию 1.7. Возможно, нашел глюк. Выложи проблемный файлик, если проблема подтвердится, то после отпуска отправлю его куда надо.

[dextron3]

Теперь заработала!, забыл сказать что версия 18 не все лении разрывала, пробовал на обычных таблицах,...


PS Этот лисп чтоли создает файл DCL перед запуском самого себя и прописывает в дирректорию автокада?

[VVA]

dextron3, Этот лисп создает DCL файл сразу в директории Автокада.

[dextron3]

VVA, а при повторном запуске накладку делает?
или определеяет о существовании данного файла и не делает,
просто я на конопку типовой макрос повесил, думаю чтобы не навредил

[VVA]

файл создается один раз

[Juss_00]

Автокад 2009 рус.
Зависает на 20-30 минут. Урчит бурчит. Съедая 1гиг оперативки первые минут 15 потом есть 60мб но так же монотонно висит пока не нажмешь эскейп. После он приходит в себя предлагает сохранится и закрывается.
Пробовал версию и 17 и 18.

[VVA]

Текущая версия уже 2.1. Обновил #1. Устранены многие проблемы, возможно и те, которые описаны в предыдущих постах.

[dextron3]

А какой из трех лиспов то использовать?

[VVA]

третий

[dextron3]

спасибо, но у меня щас чтото работы пока нет чтобы его протестировать

[DEM]

Сообщение от dextron3 спасибо, но у меня щас чтото работы пока нет чтобы его протестировать

А как же Питерские объекты, ты же обещал меня обставить.

[dextron3]

DEM, а у наших проектировщиков не принято зимой работать, в марте начну массивные работы проводить, думал Автокад 2010 выйдет, а теперь даже заняться нечем

[DEM]

Сообщение от dextron3 DEM, а у наших проектировщиков не принято зимой работать, в марте начну массивные работы проводить, думал Автокад 2010 выйдет, а теперь даже заняться нечем

Offtop: А ну да тут уже рассказывали про это, зимой у вас проектировщики на рынках работают.

[VladERR]

испробывал все 3 лиспа, не работаают
нужно на плане очистить коридот. пытаюсь замкнутым контуром (замкнутая полилиния) обрезать горизонтали (полилиния, уровень 0)

AutoCad 2009 rus
команда - breaktouching
лисп 17 пишет: Команда:
Break objects touching selected objects.
Select object(s) to break & press enter:
Выберите объекты: найдено: 1

Выберите объекты:
; ошибка: no function definition: nil

лисп 18 пишет: Enter Break Gap.<0> Вторая точка:
Break objects touching selected objects.
Select object(s) to break & press enter:
Выберите объекты: найдено: 1

Выберите объекты: найдено: 1 (1 повторно), всего: 1

Выберите объекты: найдено: 1 (1 повторно), всего: 1

Выберите объекты:
; ошибка: no function definition: nil

лисп 21 пишет: Команда: BREAKTOUCHING

Enter Break Gap.<193.9955> Вторая точка:
Break objects touching selected objects.
Select object(s) to break & press enter:
Выберите объекты: найдено: 1

Выберите объекты:
; ошибка: no function definition: nil

[VVA]

VladERR, Попробывал BreakWith - у меня разрывает. Открой lisp файл и почитай более подробное описание всех команд.
Но для тебя я думаю лучше подойдет:
1. EXTRIM из Express Tools
2. CookieCutter2 - more fun with ET extrim (требуется регистрация)
3. Создай из замкнутой полилинии маскировку (_WIPEOUT) и задай порядок выше горизонталей
PS Ссылка на CookieCutter на dwg.ru

[VladERR]

а как обрезать штриховку по полилинии? EXTRIM - не умеет....

[VVA]

А никто не умеет. Перештриховывай или см. п.3 из #35

[VladERR]

руками - обрезает вдоль полилинии

[VVA]

руками - обрезает вдоль полилинии

Поясни. не понятно

[VladERR]

Сообщение от VVA Поясни. не понятно

выбираешь команду "_trim", указываешь полилинию, по которой нужно обрезать штриховку, подтверждаешь выбор, выбираешь штриховку (что бы подсветилась) и всё. штриховка обрезается по полилинии. в AutuCad 2008\2009 - работает (сам только узнал ). в других версиях не пробывал.

[VVA]

Не знал, попробую

[VVA]

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

[wetr]

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

[АлексЮстасу]

Сообщение от 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.

[skkkk]

Удалено

[wetr]

Offtop: skkkk, изрек, понял что ложь и удалил

[АлексЮстасу]

Сообщение от wetr Offtop: skkkk, изрек, понял что ложь и удалил

это клево, только где бы истину найти...?

[skkkk]

Острофлудничаем? А вот несложный поиск привел меня к результатам за минуту
Выделение и удаление обьектов внутри замкнутой полилинии.

[АлексЮстасу]

Сообщение от skkkk Острофлудничаем? А вот несложный поиск привел меня к результатам за минуту Выделение и удаление обьектов внутри замкнутой полилинии.

Не серчайте, плз... Я, например, надеюсь, вдруг кто поможет...
Эта ссылка, и все, что мне удалось найти, решает задачу вырезания полилиний в одном контуре.
Сам могу предложить для одного контура еще пару не упомянутых на форуме вариантов.
Я же спрашивал про возможность вырезания сразу во множестве контуров (первый абзац поста #44)...
И, естественно, вырезания без указывания мышкой внутрь каждого из них...

[skkkk]

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

[АлексЮстасу]

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

спасибо бльшущее за сочувстие и помощь
Попробую...

[Djur]

Огромнейшая Благодарность за бесценный ТРУД ))

[VVA]

Сообщение от skkkk тут есть отличный родственный лиспик, автором коего является Денис Флюстиков, дай Бог ему здоровья!

Теперь этот родственник прописался тут
*** Добавлено
Добавил ссылку и в #1

[Alex II]

Сообщение от dextron3 Хотел спросить где можно применить данный лисп, использую лисп который разрывает и заменяет другой линией разрыв, его использую для обозначения пуктиром невидимых частей, а вот этот не знаю где применить?

а не могли бы выложить етот лисп?

[Jonas]

Замечательно и полезно!
Не знаю я английского, да и учить поздно.
Кажеться все просто, заменил в DCL надписи кнопок на русский и все, ань нет, все равно пишет на английском.
Пожалуйса, подкажите как перевести.

[Do$]

Тут вроде нет файла DCL.

[Jonas]

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

MyBreak - DCL для выбора нужной команды

[Do$]

Ага, ясненько.
Ну, тут, помимо диалога, еще много надо переводить: аргументы функций prompt, alert, getdist и т.п.

[Jonas]

А разве нельзя перевести только текст надписи кнопки?
Если нет, может окажите пмощь?

[Do$]

Я этой программой не пользуюсь, так что мне это не нужно. А куда копать, я указал в посте #58. Если сильно нужно - справишься сам

[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]

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

[skkkk]

В версии 21 из шапки темы
(ssget "_+.:E:S" ...............
а в 22-й
(ssget "+.:E:S" ...............
И так в трех местах по коду.
Может поэтому ругается "***неверная строка режима ssget"?

[VVA]

skkkk, Сергей, спасибо за дефектацию. Обновил версию в шапке

[skkkk]

VVA, было б за что!
А кто-нибудь может подсказать, что, собственно, означают эти плюс и точка? А также остальные, недокументированные (со слов Полещука в книге "AutoLISP и Visual LISP в среде AutoCAD") режимы ssget:
"M"
"#"
":O"
":?"
":$"
И еще: как можно (если можно вообще) комбинировать 2 режима, из которых один с двоеточием, а другой - без, например, "_W" и "_:L"?

[АлексЮстасу]

Почему-то приложенный файл - далеко не самый сложный и большой - программа не может обработать. Линии только из активных слоев. Задумывается на десятки минут, дождаться результата не удается.
Запускал версию 22а, 21.
Если данные перекинуть в новый файл на основе шаблона acadiso.dwt, передвинуть линии в положительные координаты, то после минут 20 работы фатальная ошибка - не хватает места на диске.

[gomer]

Сообщение от АлексЮстасу не хватает места на диске.

почистиnь нужно диск с:?

[АлексЮстасу]

Сообщение от gomer почистиnь нужно диск с:?

"Свободно 602 Гб".
Да и о чем разговор? В файле всего тысяча с небольшим однотипных элементов.
Да, разбивается на примерно 5000 элементов. но не 50 тысяч же, а на 5.

[gomer]

Сообщение от АлексЮстасу "Свободно 602 Гб".

посмотрите настройки свопа. но похоже вы кобылу по галактической орбите гоняете, а нужно мерина

[АлексЮстасу]

Сообщение от gomer посмотрите настройки свопа. но похоже вы кобылу по галактической орбите гоняете, а нужно мерина

На Вашем компьютере за какое время этот файл разбился?

[gomer]

чуть больше минуты, но это не автокад, а брикскад

[VVA]

Обнаружил аналог - TotalBreaker . Добавил ссылку в первый пост
Почитать можно на http://www.caduser.ru/forum/index.ph...D=44&TID=50850 и http://www.theswamp.org/index.php?topic=46723.0

Поэтому в программе я использовал переработанный и усовершенствованный движок основанный на алгоритме "поиска ближайшего соседа". Таким образом мне удалось достичь достаточно высокой производительности. Так, например, 20 000 примитивов (на машине с процессором класса Intel Core 2 Duo) обрабатывается в среднем за 6 секунд.

и

Tested on AC2012-64 bit. Everything work fine. Not tested on big file-maybe 100 crossings. Looks safe to install.

[CEBEP]

Подскажите, есть ли версия для Акада 2016 (у меня не работает на нем (( )

[VVA]

CEBEP, про какую конкретно версию идет речь?

[CEBEP]

BreakObjects. Все что в шапке:на 2016 подгружаю любую из них-не работает. на 2014 работало всё.

[Sleekka]

"command" "command-s" ?

[trushev]

Сообщение от Sleekka "command" "command-s" ?

или установить LEGACYCODESEARCH = 1?

[CEBEP]

LEGACYCODESEARCH-Вкл

Сообщение выдает такое:
Команда: MYBREAK
; ошибка: неверный тип аргумента: FILE nil

----- добавлено через 25 сек. -----

Сообщение от Sleekka "command" "command-s" ?

Не знаю что таке и куда совать =))

[VVA]

CEBEP, Проверил на 2016 BreakObjects22a.LSP. У меня работает
Поищи в %AppData%\Roaming файлы BreakAll.dcl и удали все, что найдешь. Они создаются программно. Может у тебя тут сбоит.

[CEBEP]

Сообщение от VVA CEBEP, Проверил на 2016 BreakObjects22a.LSP. У меня работает Поищи в %AppData%\Roaming файлы BreakAll.dcl и удали все, что найдешь. Они создаются программно. Может у тебя тут сбоит.

Спасибо за участие, не помогло =(

[poobschatso]

Сообщение от CEBEP LEGACYCODESEARCH-Вкл Сообщение выдает такое: Команда: MYBREAK ; ошибка: неверный тип аргумента: FILE nil ----- добавлено через 25 сек. ----- Не знаю что таке и куда совать =))

от имени администратора акад запусти и пути пропиши в доверенных
может дело в винде а не в акаде

[modest-bp]

Здравствуйте!
Очень полезная была утилита MyBreak, сросся с ней за время работы на 2014 автокаде, но теперь, после обновления до 2019, похоже, придётся с нею расстаться: не работает (error: no function definition: VLAX-ENAME->VLA-OBJECT)

Total Breaker тоже, похоже, остановился в развитии на 2014 версии када.

Подскажите, пожалуйста, знает ли кто-нибудь аналогичную утилиту, которая бы работала на 2019 версии автокада?

[skkkk]

modest-bp, в начало кода нужно вставить строку

Код:

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

(vl-load-com)

[modest-bp]

Сообщение от skkkk modest-bp, в начало кода нужно вставить строку Код: [Выделить все] (vl-load-com)

Посмотрел в LISP, вижу, что там уже есть эта строка (правда, не в самом начале, а после строки с defun ). Процитирую вместе со строками комментариев из лиспа, чтобы было более понятно, где именно она у меня прописана:

Код:

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

;;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;;               M A I N   S U B R O U T I N E                   
;;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

(defun break_with (ss2brk ss2brkwith self Gap / cmd intpts lst masterlist ss ssobjs
                   onlockedlayer ssget->vla-list list->3pair GetNewEntities oc
                   get_interpts break_obj GetLastEnt LastEntInDatabase ss2brkwithList
                  )
  ;; ss2brk     selection set to break
  ;; ss2brkwith selection set to use as break points
  ;; self       when true will allow an object to break itself
  ;;            note that plined will break at each vertex
  ;;
  ;; return list of enames of new objects
  
  (vl-load-com)
  
  (princ "\nCalculating Break Points, Please Wait.\n")

;;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;;                S U B   F U N C T I O N S                      
;;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Upd.: Простой перенос строки в самое начало кода не помог (((

[VVA]

На странице автора добавилась версия 23. По описанию - совместима с BricsCad. Добавил в #1

Сообщение от modest-bp (error: no function definition: VLAX-ENAME->VLA-OBJECT)

При наличии (vl-load-com) есть сомнения в корректности установки Автокада. Выложи файл, в котором не работает, проверю на работе в 2019

[modest-bp]

Сообщение от VVA Выложи файл, в котором не работает, проверю на работе в 2019

Так это тот ж тот же BreakObjects22a.LSP из #1

----- добавлено через ~16 мин. -----

Сообщение от VVA На странице автора добавилась версия 23. По описанию - совместима с BricsCad. Добавил в #1

23-я версия тоже у меня на 2019 не пошла. Та же самая проблема "no function definition: VLAX-ENAME->VLA-OBJECT" несмотря на наличие в коде (vl-load-com)

При этом скрипт GeomProps (.arx) работает у меня, вроде бы, корректно. А он выглядит более сложным, чем Break Objects... Но я в коде всё равно ничего не понимаю )

[VVA]

Сообщение от modest-bp Та же самая проблема "no function definition: VLAX-ENAME->VLA-OBJECT" несмотря на наличие в коде (vl-load-com)

Значит

Сообщение от VVA При наличии (vl-load-com) есть сомнения в корректности установки Автокада.

На моем рабочем компьютере в 2019 Автокаде BreakObjects работает

Сообщение от modest-bp ри этом скрипт GeomProps (.arx) работает у меня, вроде бы, корректно.

arx файлы это совсем другая опера

[modest-bp]

Сообщение от VVA Значит На моем рабочем компьютере в 2019 Автокаде BreakObjects работает arx файлы это совсем другая опера

А вот это уже - очень плохой звоночек ((((
Вроде бы, при установке автокада проблем никаких не возникало... Достаточно заменить какой-то из файлов в уже установленном автокаде на корректный, или непременно надо переустанавливать? Видимо, сборку тогда надо ставить другую. Вряд ли эта же сборка при повторной переустановке даст какие-то другие результаты (((

----- добавлено через ~51 мин. -----
Ура! Разобрался!
Похоже, после чистки реестра ряд ключей, содержащих путь к файлу vl16.tlb - потерялись.
Всё заработало после того, как восстановил их согласно описанному здесь: https://forums.autodesk.com/t5/visua...395837#M376883

[VVA]

Сообщение от modest-bp Похоже, после чистки реестра ряд ключей,

Заканчивай с чисткой реестра, иначе проблемы с Автокадом обеспечены

[koui]

есть свежая версия лиспа? эта версия хоть и работает, но приходится выбирать объекты по одному

[VVA]

koui, Версия 23 последняя. А чем

BreakAll - Разрывает выбранные объекты на пересечениях друг с другом

не устраивает?

[koui]

Сообщение от VVA koui, Версия 23 последняя. А чем не устраивает?

Выбираю объекты (их сотни, выбираю командой "Выбрать подобное"), набираю BREAKALL, gap=0 и... Выберете объекты???? Автокад 2021
конечно, через изоляцию объектов можно, но...

[RNB]

Сообщение от koui Выбираю объекты (их сотни, выбираю командой "Выбрать подобное"), набираю BREAKALL, gap=0 и... Выберете объекты???? Автокад 2021 конечно, через изоляцию объектов можно, но...

А еще можно "т" (текущий) - Энтер