Как обвести точки по нумерации автоматически ?

Отрисовка линии по точкам. Версия №3.
Ограничение:
1) Если имеются несколько точек с одинаковым номером, в линию будет включена только одна.

Указание отсутствующего номера или повторное указание номера на результат не влияет. Например (см. Тест02.dwg): 11, 12, 21, 13, 12, 14. Точки с номером 21 в чертеже нет, её указание на результат не влияет, точка с номером 12 указана дважды, но повторно в линию добавляться не будет (т.е. самопересекаться линия не будет).

Тестируйте.

 

Интересное решение. Однако, насчёт суффикса, вряд ли будет востребовано, т.к. при съёмке тахеометром, обычно, нумерация точек идёт в конце. Если после цифры будет какой либо символ, то тахеометр следующую точку не переименует. Пример автоматического сохранения названий точек при съёмке тахеометром Sokkia: V1, V2,V3,...; V1 v, V1 v, V1 v.

 

Лучше перестраховаться.

 

Прошу прощения, а для блоков с атрибутами не планируете решение?

 

Блок - PICKET с атрибутами "OTMETKA", "NOMER", "COD"
Контроль за повторным выбором номера не производится, только за отсутствующим. Если в чертеже имеются несколько пикетов с одним номером, то предоставляется право выбора одного из них.

 

Спасибо большое! С "родным" блоком 3D Сервис лисп тоже исправно работает. А вот наоборот, с Вашим блоком ( с дополнительным атрибутом "COD"), сама программа 3D Сервис, ну точнее опция импорта блоков из файла *.csv, почему-то отказывается работать.

 

Потому что в 3D Service нет атрибута "COD", а мой блок требует этот атрибут, поэтому идёт затык.
Доработал лисп b2l.lsp, теперь производится

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

 

Немного доработал b2l.lsp + теперь после выполнения происходит масштабирование окна по созданной линии.

 

Отличная доработка. А к P2L возможно такое реализовать?

 

Спасибо! Пробуйте.

 

Эта программа, я полагаю, будет востребована не только в чистом AutoCAD, но и в Civil (если поверхность построена по блокам). Прозрачные команды работают только с точками COGO.

 

В этой версии не работает вообще ничего. Пишет: Укажите начальную точку >Укажите текст для точки >Номер следующей точки?
0 - закончить7
неверный тип аргумента: stringp nil

 

Крутил и так и этак. Удивительно, но у меня всё пашет.
Немного доработал. Теперь после ввода номера очередной точки происходит зуммирование на неё (последняя точка по центру экрана).

--- Сообщения объединены, 20 сен 2018, Оригинальное время сообщения: 20 сен 2018 ---

Неужели в Civil такого нет?

 

--- Сообщения объединены, 20 сен 2018, Оригинальное время сообщения: 20 сен 2018 ---

Есть конечно. Но работают эти команды только с точками координатной геометрии.

 

Возможно, нужно было просто перезапустить автокад. Это вложение работает как надо. Спасибо огромное!

 

Точно! Если текст номера содержал только цифры, происходил такой затык.
Подправил.

 

Почему так?

 

Потому, что:

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

 

Да, с блоками проще.

 

А не могли бы вы выложить этот файл в формате autoCAD2007.dwg?
Интересно было бы помудрить.