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

[kozko]

А кто может из этого набора вытащить отдельно ЛИСПы PL-JOIN3D иConvTo3d. Запуская на 2010 почти все коды у меня работают, кроме вышеобозначенных.

[VVA]

kozko, Я проверил на 2010 RUS - работает. В чем выражается "неработа" этих кодов?

[Tonic]

VVA, неплохо было бы ещё добавить функцию разбиения полилинии в указанных точках. Т.е. что-то вроде (PL-RAZ pline point_list) - в результате из одной полилинии получается 2 (или 3, если 2 точки, и т.д.). Возвращался бы список полилиний. Иногда бывает нужно.

[kheylan]

VVA,
может вы и видели этот набор команд PlineTools (DeliCAD) для работы с полилинией. Может вас заинтересуют ряд идей в этом пакете, чтобы дополнить свой набор, мне очень понравились операции с частью полилинии.
Недостаток PlineTools, что он на 30 запусков.

[Игорь Костюкович]

Отличный набор функций. Полезный. Но...
В работе часто нужно присоединить какие-либо данные к только что созданной полилинии. Пока что приходится создавать полилинию стандартными командами AutoCAD'а и затем запускать самописную функцию для присоединения данных. Было бы очень удобно делать это заодно, из одной функции. Т.е. нужна функция, которая бы имитировала для пользователя стандартную команду _pline и возвращала указатель созданной полилинии или nil, если полилинию создать не удалось...
PS: К сожалению сам временем не располагаю, посему подкидываю идею сообществу.
PPS: очень вероятно, что эта задача уже реализована...

[VVA]

Игорь Костюкович, Привет Игорь Могу предложить программу Алексея LISP. Расширенный вариант отрисовки Нужно только немного модифицировать функцию _kpblc-draw, чтобы возвращала результат или не модифицировать, а перед вызовом запомнить последний примитив и сравнить с последним примитивом после вызова.

[Neznayka]

Игорь Костюкович, а почему нельзя гиперссылкой присоединить какие-либо данные . Ведь с 2009 года все на ура извлекается из гиперссылок в таблицы.

[Игорь Костюкович]

VVA, спасибо, но... Слишком "расширенный" вариант. Из-за нехватки времени даже свой код писать некогда, не то что разобирать чужой. Автору - kpblc - отдельное спасибо.

Neznayka, хотя бы потому, что я понятия не имею, что такое гиперссылка. С таблицами не работаю. Пользую AutoCAD Map, там есть готовые механизмы присоединения к примитиву данных и хранения их в dwg - объектные данные (данные объекта). Именно с ними и работаю...

[VVA]

Сообщение от Игорь Костюкович Т.е. нужна функция, которая бы имитировала для пользователя стандартную команду _pline и возвращала указатель созданной полилинии или nil, если полилинию создать не удалось...

Тогда что-то типа такого

Код:

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

(defun mypline( / ocmd ret)
  ;;;Имитация работы команды pline
  ;;;Возвращает имя примитива вновь созданной полилинии
  ;;;или nil в случае ошибки
  (vl-load-com)
  (setq ocmd (getvar "CMDECHO"))
  (if (vl-catch-all-error-p
        (vl-catch-all-apply
          (function
            (lambda()
              (setvar "CMDECHO" 1)
              (command "_.pline")
              (while (> (getvar "CMDACTIVE") 0)
                (command pause)
                )
              )
            )
          )
        )
    (setq ret nil)
    (setq ret (entlast))
    )
  (setvar "CMDECHO" ocmd)
  ret
  )

[Nikolay 2]

Сообщение от VVA Тогда что-то типа такого

А к этой функции можно как-то присоединить какие-либо данные?

[nikе]

->VVA
Будь добр, сделай чтоб и в Bricscad работала твоя замечательная программа!!!

[Игорь Костюкович]

VVA, спасибо, именно то, что нужно. Серьёзно не тестировал (снова ссылаюсь на недостаток времени), но основное своё назначение функция выполняет на 100%. С меня

Nikolay 2, присоединять данные к функции? У меня изначально стояла задача присоединения данных к примитиву. В данном случае примитиву, созданному приведенной выше функцией...

[Nikolay 2]

Сообщение от Игорь Костюкович У меня изначально стояла задача присоединения данных к примитиву. В данном случае примитиву, созданному приведенной выше функцией...

Да, я конечно это имел ввиду, не правильно выразился... И как же присоединить?

[KAI]

Володя, вылетела из головы эта ветка. Написал предложения в http://dwg.ru/dnl/607.

[VVA]

Прочитал. Пример попросил здесь

[zenon]

VVA, а можно ввести такую фичу, есть несколько отрезков которые разбросаны по чертежу, требуется объединить их в одну полилинию.
ps можно ввести запрос на создание нового объекта и поворачивать ли исходные объекты при построении нового объекта.
Draw.dwg

[KickeR]

Помогите пожалуйста!
Нужна команда на основе rectangle, которая бы рисовала прямоугольник, но не по крайним 2 точкам, а по 2 точкам соединиющим центры противоположных сторон прямоугольника, с возможностью задать ширину этого прямоугольника. Еще поясню: забиваю эту команду, ставлю точку по оси, задаю ширину прямоугольника, ставлю вторую точку по оси и бац готова стенка! Еще желательно, присоеденить функцию прорисовки линии по которой эти две точки соединяются.
Примногоблагодарен за ранее!

Спасибо, zenon'у. Со всем разобрался.

[zenon]

_mline и справку прочесть по команде

[KickeR]

УДАЛИТЕ

[VVA]

В добавок к mline можно лиспом OFF2 или MOFF2 из этой темы LISP. Подобие в обе стороны