Отрисовка линии по точкам. Версия №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 + теперь после выполнения происходит масштабирование окна по созданной линии.
Эта программа, я полагаю, будет востребована не только в чистом AutoCAD, но и в Civil (если поверхность построена по блокам). Прозрачные команды работают только с точками COGO.
В этой версии не работает вообще ничего. Пишет: Укажите начальную точку >Укажите текст для точки >Номер следующей точки? 0 - закончить7 неверный тип аргумента: stringp nil
Крутил и так и этак. Удивительно, но у меня всё пашет. Немного доработал. Теперь после ввода номера очередной точки происходит зуммирование на неё (последняя точка по центру экрана). --- Сообщения объединены, 20 сен 2018, Оригинальное время сообщения: 20 сен 2018 --- Неужели в Civil такого нет?
--- Сообщения объединены, 20 сен 2018, Оригинальное время сообщения: 20 сен 2018 --- Есть конечно. Но работают эти команды только с точками координатной геометрии.
Потому, что: Предполагается, что текст везде отстоит на одну величину от точки. В вашем случае текстовки хаотично крутятся вокруг точек. Скорее всего после импорта точек текст был разнесён для читабельности (красивости). Можно предусмотреть и этот случай, но будут возникать варианты, когда возле одной точки расположены две-три-четыре... текстовки, или возле одной текстовки две-три-четыре... точки, тогда придется вводить запрос на указание (выбор) точки. Проще вручную отрисовать и не мудрить с лиспом.
