Помогу бесплатно разработать любую программу на autolisp.

Я разве говорил, что дело в чертеже. Чертеж, плюс возможно еще какие то исходные данные, нужны для построчного тестирования работы найденного на просторах интернета лиспа.

 

Наша сборка на сторону исключительно из файлов *.fas. Вы умеете их корректировать? Научите.

 

Для того, чтобы понять, что у нас в нашей сборке, прикладываю файл справки. Правда там не включены и не описаны разделы "Трасса и профиль" и "Конвертирование GeoniCS". И что-то еще изменено и дополнено, но основное описано.

 

Хотел загрузить мою панель, но 10.2 мб оказывается слишком много. Поэтому загрузил на Яндекс.Диск:

https://yadi.sk/d/A48dF6HpiHhZcw

Демонстрационная версия на 3 дня.

Порядок установки:

Инсталляция пакета TopoSurvey

Пакет TopoSurvey поставляется неупакованным.
Инсталляция пакета производится вручную, установочной программы нет,
однако установка довольно проста. Далее описывается порядок установки.

----------------------------------------------------------------------------

1. Поместите папку "ACAD-надстройки" в C:\ACAD-надстройки.
2. Запустите AutoCAD. В основном меню выбрать пункты Tools > Options
(в русской версии Сервис> Настройка). Затем в закладке Files выбрать группу
Support File Search Path (Файлы Поддержки), щелкнуть кнопку Add (Добавить)
и записать в появившееся новое место путь к папкам:
C:\ACAD-надстройки
C:\ACAD-надстройки\Survey
C:\ACAD-надстройки\Survey\000
C:\ACAD-надстройки\Survey\Block
C:\ACAD-надстройки\Survey\Image
C:\ACAD-надстройки\Survey\Patern_topo
C:\ACAD-надстройки\Survey\TS_lisp
Это так называемая прописка программы.
3. Для прописки файла шаблона в основном меню выбрать пункты Tools > Options
(в русской версии Сервис> Настройка), или просто набрать в командной
строке команду _options. Затем в закладке Files выбрать группу
Параметры шаблонов> Шаблон по умолчанию для команды БСОЗДАТЬ.
В эту строку нужно поместить ссылку на файл C:\ACAD-надстройки\Survey\3DService.dwt.
4. В основном меню выбрать пункты Tools > Customize > Interface (в русской
версии Сервис > Адаптация > Интерфейс), на закладке Адаптация найти
пункт Частичные файлы НПИ, навести на него мышь и нажать правую кнопку
мыши. В появившемся контекстном меню выбрать пункт Загрузить файл
частичной настройки..., затем в диалоговом окне найти и выбрать файл TopoSurvey.cui.
После этого он появится в списке файлов Частичных файлов НПИ.
Теперь в нижней части окна нажать кнопку Применить и закрыть окно
Настройки интерфейса пользователя. После этого в AutoCAD появится панель TopoSurvey.

На всякий случай перегрузите AutoCAD.

Теперь можно приступать к работе, инсталляция завершена.​

 

Пробовал, одна петрушка.

 

В связи с ограниченностью времени на изучение успеваю прочитать только Справку. Понравилось. Не так , чтоб WAU! но все равно хорошо. Есть вопрос для консультации, но это в личку, если позволите?

 

Почему бы и нет?

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

В принципе мы делали всё исходя из понятия "под дурака". Так что, читать не обязательно, просто используйте гениальный способ обучения "методом тыка".

 

Так как:

Ссылка в #684 ( http://geodesist.ru/threads/pomogu-...ogrammu-na-autolisp.23877/page-35#post-839749 ) удалена. Демонстрационная версия на 10 дней:
https://yadi.sk/d/90pwY_kBy3pxCw

 

1958, Приветствую! Если есть такая возможность в програмке (которая pt_lay.fas) приблизить отметку к точке на максимально возможное ( в пределах разумного) расстояние ,но не садить на точку.

 

Предел разумного? 1мм, 0,5мм, 0,1мм, 0,05мм? Или предоставить выбор пользователю?

 

Пусть будет так.

 

Пожалуйста.

 

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

 

Посмотри, может устроит:
http://www.lee-mac.com/dynamicoffset.html

 

Без отдельного слоя - ss_off.lsp

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

С созданием "отдельного" слоя для копий объектов смещения - ss_off_lay.lsp

Хотелось бы знать, зачем это надо?

 

Нужно для создания разбивочного листа на монолитных работах. От фундаментов рисую подобием смещение на 20 - 30 см наружу, затем по вершинам полилиний создаю точки, а их координаты использую для выноса в натуру.
Ваш лисп у меня не работает. После указания размера смещения ничего не проиходит. В командной строке появляется следующее:
Команда:
Команда: SS_OFF_LAY
Имя слоя?123
Выберите объекты: найдено: 1
Выберите объекты:
Размер и направление смещения?2
((-1 . <Имя объекта: b6276394a0>) (0 . "LWPOLYLINE") (330 . <Имя объекта: b627e4e1f0>) (5 . "31252") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "123") (62 . 5) (370 . 40) (100 . "AcDbPolyline") (90 . 4) (70 . 0) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 14.64 1.21) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (10 14.67 1.21) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (10 14.67 1.26) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (10 14.64 1.26) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (210 0.0 0.0 1.0))
Аналогично с вторым лиспом:
Команда: SS_OFF
Выберите объекты: Противоположный угол: найдено: 3
Выберите объекты:
Размер и направление смещения?2
#<%catch-all-apply-error%>
Добавил файл с конструктивом в 2007 версии автокада

 

Курсором надо указать две точки. Я так понял, что вы забиваете расстояние на клавиатуре.
В вашем чертеже включены привязки, это вносит путаницу при выполнении лиспа. Поэтому я добавил в лисп отключение/восстановление привязки. Но всё равно, что-то не так с объектами синего цвета. Я не разобрался.

 

Да, всё верно, на клавиатуре. Попробовал не с клавиатуры, результат аналогичный
Команда: SS_OFF_LAY
Имя слоя?123
Выберите объекты: найдено: 1
Выберите объекты:
Размер и направление смещения? Вторая точка: ((-1 . <Имя объекта: b53b1c64a0>) (0 . "LWPOLYLINE") (330 . <Имя объекта: b53b9789f0>) (5 . "31252") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "123") (62 . 5) (370 . 40) (100 . "AcDbPolyline") (90 . 4) (70 . 0) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 14.64 1.21) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (10 14.67 1.21) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (10 14.67 1.26) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (10 14.64 1.26) (40 . 0.0) (41 . 0.0) (42 . 0.0) (91 . 0) (210 0.0 0.0 1.0))

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

Странно. В новом чертеже всё получилось. Спасибо