[Gostushev]

Коллеги!
В прошлый раз поднял проблему - предложили массу решений, спасибо и если можно помогите и в этот раз.
Задача: требуеся Лисп с помощью которого можно было бы делить обекты в точках пересечения, поясняю на примере : есть прямоугольник(квадрат), его пересекает линия - нужно сделать так, чтобы прямоугольник остался самим собой, а вот линия разбилась на 3 отрезка (в точках пересечения с квадартом). По сути это симбиоз команды "бреак" с "подели". Может есть и стандартное решение просто я его не знаю, но Лисп был бы кстати. Он очень полезен когда рисуешь узлы и часть линий становятся "невидимыми" и какому-то отрезку линии нужно задать другой тип линии. Приходиться делать много промежуточных лишних операций. Жду ответов.

[Vova]

Я пользуюсь повторяющейся командой Break в одной точке
http://www.autocad.ru/cgi-bin/f1/board.cgi?t=18378ZV

[Лентяй]

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

Код:

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

(defun C:BRP ( / cm ln ass bps)
 (setvar "CMDECHO" 0)
 (setq cm (getvar "CMDECHO")
       ln (car (entsel "\nSelect braking line: ")));setq
 (redraw ln 3)
 (terpri)
 (prompt "\nSelect line(s) to break: ")
 (ssget)
 (setq ass (vla-get-ActiveSelectionSet (vla-get-activedocument (vlax-get-acad-object))))
 (princ (strcat "\nSelected " (itoa (vla-get-count ass)) " lines"))
 (vlax-for ln1 ass
   (setq bps (vlax-invoke (vlax-ename->vla-object ln) "IntersectWith" ln acExtendNone))
   (while bps
     (setq bp (list (car bps) (cadr bps) (caddr bps)));setq
     (command "BREAK" (vlax-vla-object->ename ln1) bp bp)
     (setq bps (cdddr bps)));while 
 );vlax-for
 (redraw ln 4)
 (setvar "CMDECHO" cm)
 (princ)
);end

Да, на вшивость я ее непроверял, потму как лениво. Но должно работать.

[che]

> Лентяй

Чего-то не работает. Выдает:

Selected 1 lines; error: argument type mismatch: <Entity name: 7e7f7de0>

[che]

> Gostushev

Есть ссылка на прогу trimhalf.

http://cadhlp.kulichki.net/old/prog3/trimhalf.zip

Проверил сам. Там еще есть операции с переносом обрезков по слоям.

[Лентяй]

Чего-то не работает. Выдает: Цитата: Selected 1 lines; error: argument type mismatch: <Entity name: 7e7f7de0>

Ачепятка. После "IntersectWith" должно быть ln1.

Код:

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

(defun C:BRP ( / cm ln ass bps)
 (setvar "CMDECHO" 0)
 (setq cm (getvar "CMDECHO")
       ln (car (entsel "\nSelect braking line: ")));setq
 (redraw ln 3)
 (terpri)
 (prompt "\nSelect line(s) to break: ")
 (ssget)
 (setq ass (vla-get-ActiveSelectionSet (vla-get-activedocument (vlax-get-acad-object))))
 (princ (strcat "\nSelected " (itoa (vla-get-count ass)) " lines"))
 (vlax-for ln1 ass
   (setq bps (vlax-invoke (vlax-ename->vla-object ln) "IntersectWith" ln1 acExtendNone))
   (while bps
     (setq bp (list (car bps) (cadr bps) (caddr bps)));setq
     (command "BREAK" (vlax-vla-object->ename ln1) bp bp)
     (setq bps (cdddr bps)));while 
 );vlax-for
 (redraw ln 4)
 (setvar "CMDECHO" cm)
 (princ)
);end

[che]

> Лентяй

Теперь работает. Все же нет возможности для обрезки одного объекта несколькими как в trimhalf.

[Лентяй]

Все же нет возможности для обрезки одного объекта несколькими как в trimhalf.

Задача была разрезать один объект на части посредством другого ОДНОГО объекта. Она решена. Резать один объект объект несколькими другими - совсем из другой оперы.

[Эдуард]

Привет.
Когда-то писал похожую функцию

http://dwg.ru/forum/viewtopic.php?p=8970#8970

[vk]

Есть несколько более свежая версия программы Trimhalf, о которой упомянул che
Лежит по адресу http://vkle.bazarov.net/trimhalf.zip (исправлены мелкие неточности, до описания наверно никогда не дойдут руки )

[Gostushev]

Всем спасибо, особенно Лентяю!
Как и в прошлый раз помогли решить проблему. Буду тестировать. Подкину еще как-нибудь проблем :-)

[Vova]

A eще можно попробовать "хитрый блок" под которым линия ня разрывается, но скрывается

[che]

> Vova

А с этого места поподробней можно? Буквально сегодня коллега ВК-шник интересовался.

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

Опережу-ка я Vovy: http://dwg.ru/forum/viewtopic.php?t=...er=asc&start=0

[che]

> Vova, kpblc

Спасибо. Раньше не пользовался wipeout, следовал инструкции, вроде все получилось, но нужно еще разбираться. Ну, по крайней мере ВК-шник в восторге.