[VVA]

Данный набор программ является коллективным продуктом участников форумов autocad.ru и dwg.ru с моими доработками.
Захотелось собрать все программы для работы с полилиниями воедино и оформить как полагается.

=========== Доступные команды PLTOOLS=================
Редакция 17.06.2014
PL-JOIN -Объединение выбранных полилиний
PL-VFI -вставка вершин в выбранной полилинии в местах пересечения с
указанными полилиниями, линиями, дугами
PL-JOIN3D -Объединение 3D полилиний
PL-L2A -Замена линейного сегмента в полилинии дуговым сегментом.
PL-A2L -Замена дугового сегмента в полилинии линейным сегментом.
PL-DIV -Разбивает выбранный сегмент полилинии на указанное количество
сегментов или через указанное расстояние
PL-DIVAll -Разбивает все сегменты полилинии на указанное количество
сегментов или через указанное расстояние
PL-VxAdd -Добавляет новую вершину к полилинии
ENTREVS -Реверс объекта
ENTREV -Реверс объектов (множественный выбор)
PL-CW -Реверс выбранных полилиний по часовой стрелке
PL-CCW -Реверс выбранных полилиний против часовой стрелки
PL-VxRdc -Удаление вершин полилиний, которые лежат на одной прямой
PL-VxDel -Удаление выбранной вершины
pl-VxOpt -Удаление совпадающих вершин из полилинии
PL-NoArc -Аппроксимация дуговых сегментов полилинии
PL-Clone -Построение полилинии путем копирования ее сегментов
PL-VxMove -Перемещение вершин полилинии
PL-Vx1 -Изменение начала полилинии
ConvTo2d -Преобразование линейных объектов в 2D полилинии
ConvTo3d -Преобразование линейных объектов в 3D полилинии
MPL -Построение средней линии Более продвинутая версия Rollin_Ball.lsp Find MidBoundary between two polylines.
R3P -Прямоугольгик по 3-м точкам
PL-P90 -Рисование перпендикулярных друг к другу сегментов полилинии
PL-CSE -Объединение 2d полилиний по примитиву
PL-SgWidth -Изменить ширину сегмента полилинии

Реверс дуговых сегментов полилинии из #79
На дуговых сегментах полилинии тип линий может быть "вверх тормашками", причем реверс не помогает. Этот артефакт можно побороть, если в полилинии включить "генерацию типа линий".

Панели, лисп и инструкции здесь http://dwg.ru/dnl/607
Иконки для темной темы здесь
Обсуждаем, критикуем, предлагаем

[Папаё]

Ребят, подскажите как в PL-JOIN задать допуск?
(есть макрос Кулика Алексея с допуском 10, но при загрузке его у меня в 16-ом выдает ошибку. Код:^C^C(defun c:mypljoin( / selset _pedit) (if (setq selset (ssget "_:L" '((0^M;. "ARC,*LINE")))) (progn (setq _pedit (getvar "PEDITACCEPT")) (setvar^M;"PEDITACCEPT" 1) (command "_.pedit" "_m" selset "" "_j" 10.0 "") (setvar^M;"PEDITACCEPT" _pedit))));mypljoin )

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

Что-то я не помню такого макроса...

[Папаё]

Сообщение от Кулик Алексей aka kpblc Что-то я не помню такого макроса...

Здравствуйте Алексей) Этот макрос 10 лет назад на www.caduser.ru.

[Linkshunter]

Сообщение от Папаё подскажите как в PL-JOIN задать допуск?

использую это(в 15м).
...единственное, не пересекающиеся полилинии не соединяет

[VVA]

Сообщение от Папаё Ребят, подскажите как в PL-JOIN задать допуск?

в файле pltools.lsp найти фрагмент

(defun C:PL-JOIN ( / ssnab count en *error* ss) (setq *error* pltool-err) (or *pl-activedoc* (setq *pl-activedoc* (vla-get-activedocument (vlax-get-acad-object)))) (vla-StartUndoMark *pl-activedoc*) (pl:error-save-sysvar '(("PEDITACCEPT" 1)("CMDECHO" 0))) (setq ssnab (ssget "_I")) (while (not ssnab)(setq ssnab (ssget))) ;;;И 3d полилинии ;(setq ssnab(3dpljn ssnab 1e-6 "AcDb3dPolyline")) (setq count 0) (while (setq en (ssname ssnab count)) (if (member '(100 . "AcDb3dPolyline")(entget en)) (ssdel en ssnab) (setq count (1+ count)) ) ) (setq en (entlast) count 0 ss (ssadd)) (if (> (sslength ssnab) 1) (if (and (getvar "PEDITACCEPT") (= (getvar "PEDITACCEPT") 1)) (vl-cmdf "_pedit" "_Multiple" ssnab "" "_Join" 0 "") (vl-cmdf "_pedit" "_Multiple" ssnab "" "_Y" "_Join" 0 "")) )

Допуск выделен красным

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

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

[Linkshunter]

Сообщение от Linkshunter использую это(в 15м).

..да, еще иногда удобнее стд.командами "сопряжение" и "фаска" когда требуются вариации соединения

[gomer]

Сообщение от Кулик Алексей aka kpblc нормальный код

нормальный код не предполагает вмешательство несведущего человека в себя

[Valery Brelovsky]

Сообщение от Кулик Алексей aka kpblc Что-то я не помню такого макроса...

Ну, что Вы Алексей, я по сей день им пользуюсь.

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

Сообщение от Valery Brelovsky Ну, что Вы Алексей, я по сей день им пользуюсь.

С ^M в середине? Эт вряд ли

----- добавлено через 39 сек. -----
Offtop:

Сообщение от gomer нормальный код не предполагает вмешательство несведущего человека в себя

Но это никого не останавливает Все равно лезем и начинаем читать инструкцию, когда понимаем: все, доломали

[barabaka]

А никто не встречал команды, которая бы делила полилинию на не равные части? Скажем, ставишь на полилинии базовую точку (в любом месте линии) и остальные точки ставятся на указаном растоянии от базовой точки с учетом дуг, изломов полилинии и т.д. Растояния для каждой новой точки что б задавались отдельно

[wepp]

Сообщение от barabaka А никто не встречал команды, которая бы делила полилинию на не равные части? Скажем, ставишь на полилинии базовую точку (в любом месте линии) и остальные точки ставятся на указаном растоянии от базовой точки с учетом дуг, изломов полилинии и т.д. Растояния для каждой новой точки что б задавались отдельно

Посмотри здесь, делин: http://forum.dwg.ru/showthread.php?t=4217

[barabaka]

О, почти оно))) Только не отмечает базовую точку. Спасибо))

[Luba Haikin]

Здравствуйте. Нужна помощь. Аutocad map 3d 2018, после установки pltools перестает работать приложение к автокаду. Выдает ошибку: bad argument type: lentityp ((0. "BLOCK"). В предыдущих версиях все работало.

[VVA]

Luba Haikin, Какую конкретно команду вызываешь? Приложи пример с файла или опиши что делаешь.

[DMS-chiii]

Сегменты разными типами линий как то можно реализовать?

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

Сообщение от DMS-chiii Сегменты разными типами линий как то можно реализовать?

В AutoCAD - напрямую невозможно.

[Boxa]

Сообщение от DMS-chiii Сегменты разными типами линий как то можно реализовать?

Как то можно, но вот нужно ли...

[Сергей812]

Сообщение от Boxa Как то можно, но вот нужно ли...

задача то нужная: например, в электрических/слаботочных сетях есть разные условные обозначения для кабеля в гофротрубе, открыто, на подвесе и т.д. Но как написал выше Алексей, в стандартном примитиве полилинии это не реализуемо.

[Boxa]

Сергей812, согласен, в стандартном примитиве это не реализуемо, но вопрос то был "как то" , "как то" можно, но сложно.