[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
Иконки для темной темы здесь
Обсуждаем, критикуем, предлагаем

[sasha_lif]

сейчас попробую, а то я чуть не так делал..

проверил
Сделал как Вы говорите:
Вашу модифицированную комманду pl-join назвал pl-join1

и закинул в plttools.lsp
параллельно исправив двоеточия на тире в двух строчах
(pl-error-save-sysvar '(("PEDITACCEPT" 1)("CMDECHO" 0)))
(pl-error-restore-sysvar)

правильно?

(defun C:PL-JOIN1 ( / 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 ""))
)
(while (and (setq en (entnext en))
(= (cdr(assoc 0 (entget en))) "LWPOLYLINE"))
(setq count (1+ count))(ssadd en ss)
)
(if (> count 0)
(if (= (getvar "SysCodePage") "ANSI_1251")
(princ (strcat "\nСоздано " (itoa count) " простых полилиний!!!"))
(princ (strcat "\nСreated "(itoa count)" LW polylines"))
))
(if (> (sslength ss) 0)(vl-cmdf "_.SELECT" ss ""))
(setq ssnab nil ss nil)
(pl-error-restore-sysvar)
(vla-EndUndoMark *pl-activedoc*)
(princ))

в test и test1 изменил

(defun C:TEST1 () (vl-load-com) (C:PL-JOIN1) (vla-sendcommand (vla-get-activedocument (vlax-get-acad-object)) "PL-VxRdc\n_p\n\n0.15\n") )

(defun C:TEST () (C:PL-JOIN1) (SSSETFIRST nil (ssget "_p")) (C:PL-VxRdc) )

и результаты те же что и описывал #279
для test1 ругается

Command: Введите max отклонение от прямой (H) [угловой допуск A/отклонение H] <0.15>: 0.15 ERRNO # 5: bad argument type: 2D/3D point: nil _.redrawall Command:

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

Можно сделать так - как вариант, допустим pl-join - чтобы разом во всем файле сшивались линейные элементы только с одинаковыми свойствами (слой, цвет, вес, тип линии, высота-Elevation)?
Для упрощения и облегчения файлов, для удобства поиска элементов, описывающих один объект и т.п. Для сшивания файлов в один. И т.п.
Иначе при сшивании можно потерять много нужного.

[Disney]

АлексЮстасу посмотри TotalPurge

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

Сообщение от Disney АлексЮстасу посмотри TotalPurge

То, что нужно! (Только сшивает линии с разной глобальной толщиной, а толщину линий почему-то обнуляет).
А ведь TotalPurge у меня стоит уже не меньше полугода!
Спасибо.
TotalPurge заодно и высоты (Elevation) учитывает.

Не. Все-таки в очередной раз укрепляюсь в мысли, что универсальные, с большим числом действий программы не есть хорошо. Реальный файл эта TotalPurge обрабатывала минут пятнадцать минимум. А это был файл, собранный из трех файлов с одними горизонталями, которые, понятно, сшивать нужно однозначно - по границе слияния. На выходе я получил несшитые почему-то горизонтали, и почему-то все белого цвета (цвет их был другим). А пока это писал, Автокад вылетел с сообщением о фатальной ошибке.

Так или иначе, но было бы здорово иметь утилиту сшивания линейных элементов с учетом их свойств, но которая делала бы только это, и делала бы это быстро. Для сравнения - pl-join сшила эти горизонтали за считанные секунды. (Хотя и выдала страшное сообщение, что сейчас будет очень-очено долго).
Лучше бы был вариант pl-join или опция в pl-join, которая бы обеспечивала сшивание только соответственных линейных элементов.

[Disney]

АлексЮстасу, выложи свой файл (до оптимизации), тот что составлен из 3...

[VVA]

Сообщение от АлексЮстасу Для сравнения - pl-join сшила эти горизонтали за считанные секунды. (Хотя и выдала страшное сообщение, что сейчас будет очень-очено долго).

Это сообщение выдает команда pedit. По поводу учета elevation нужна проверка. По работе программы есть принципиальный момент: выбор делает пользователь один раз за работу команды. Поэтому для фильтрации обрабатывается предварительный выбор. Для учета свойств я использую Select Similar Ривилиса

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

Сообщение от VVA По поводу учета elevation нужна проверка. По работе программы есть принципиальный момент: выбор делает пользователь один раз за работу команды. Поэтому для фильтрации обрабатывается предварительный выбор. Для учета свойств я использую Select Similar Ривилиса

"elevation нужна проверка" - в каком смысле?
Select Similar - оч. удобный инструмент, но последовательно запускать pl-join по числу сочетаний цвета, слоя, веса, типа, высоты (??) и долго, и легко пропустить что-то, и легко что-то не учесть.
Ну, да, выбрать все и все сшить, но с учетом свойств элементов. Одинаковые свойства - сшиваются. Разные - нет.
Согласитесь, что задача сшивания в одно естественна именно для элементов с одинаковыми свойствами, чем всего огульно. Мы же все не случайно вычерчиваем в разных слоях, цветах, типах и т.п.

[Yuzer]

VVA, для 11 када годится http://dwg.ru/dnl/607? А то установил - появились проблемы с чертежом.

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

Какие именно?

[Yuzer]

Сообщение от Кулик Алексей aka kpblc Какие именно?

После загрузки приложения копирование с базовой точкой вело себя странно: при вставке объекта было незначительное смещение (точка та же, а объект располагается левее). Сначала грешил на единицы. Выполнил очистку, очистил прокси, поставил значение demandload в 0 - не помогло. При чем интересный факт: после выполнения всех очисток в пространстве листа копирование выполняется нормально, а в модели - глючит. После очистки в модели копируется нормально, а в листе - глючит.
В какой-то момент заметил, что все отрезки стали полилиниями (хз какие я при этом команды тыкал - может из экспресов что-то). Бодался где-то час: создавал новые файлы, копировал содержимое и т.д. Был ли это глюк самого файла или приложения сказать не могу, потому что после удаления файла удалил и приложение.
В новом файле глюков не наблюдал.

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

Сообщение от Yuzer при вставке объекта было незначительное смещение

А что с привязками и шагом?

[Yuzer]

Сообщение от Кулик Алексей aka kpblc А что с привязками и шагом?

Шаг, естественно, выключен, привязки - включены.
Алексей, у меня такие чудеса впервые (реально подумывал о перестановке када)

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

Возможно, именно привязки и сработали... И потом, можно же выполнять не копирование с базовой точкой, а вставку с исходными координатами - тогда тоже смещение есть?
P.S. Интересно, как это смещение было определено?

[Yuzer]

Сообщение от Кулик Алексей aka kpblc P.S. Интересно, как это смещение было определено?

Копирую отрезок - базовая точка конец отрезка. Вставляю скопированный в ту же точку - между отрезками небольшое расстояние (в листе 3,741мм).

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

так не извращался - нервов не хватит.

Сообщение от Кулик Алексей aka kpblc Возможно, именно привязки и сработали

Я бы грешил на это, но

Сообщение от Yuzer При чем интересный факт: после выполнения всех очисток в пространстве листа копирование выполняется нормально, а в модели - глючит. После очистки в модели копируется нормально, а в листе - глючит.

[Елпанов Евгений]

Сообщение от Yuzer Копирую отрезок - базовая точка конец отрезка. Вставляю скопированный в ту же точку - между отрезками небольшое расстояние (в листе 3,741мм).

А какие координаты базовой точки и вставки? Случайно не несколько парсеков?

[VVA]

Сообщение от Yuzer VVA, для 11 када годится http://dwg.ru/dnl/607? А то установил - появились проблемы с чертежом.

В 11 не проверял, но проблем быть не должно никаких. Т.к. никаких реакторов не используется, никакие стандартные команды не переопределяются. Хотя 100 % гарантии дать не могу.

[Yuzer]

Сообщение от Елпанов Евгений А какие координаты базовой точки и вставки? Случайно не несколько парсеков?

Поясните. В моей цитате вроде расписаны все действия. Вселичина смещения 3,741мм (это замерялось через ДИСТ).
Offtop: У меня в технологии допуск меньший.
Все качели в чертеже нечались после подгрузки этого приложения. Завтра поищу сейвы - проверю.

[Елпанов Евгений]

Сообщение от Yuzer Поясните. В моей цитате вроде расписаны все действия. Вселичина смещения 3,741мм (это замерялось через ДИСТ).

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

[Yuzer]

Подгрузил на домашнем питомце - вроде все гуд. Сразу установаил мироую ПСК (кстати, может в ней были проблемы?).
Вопрос - в свойствах была панель сумма площадей полилиний - как подгрузить ее. На этот раз выполнял все указания readme файла.

[VVA]

Сообщение от Yuzer в свойствах была панель сумма площадей полилиний - как подгрузить ее.

Это?