Спасибо программу скачал, архив отсюда с нашего форума AcadTopoPlan, выложивший пользователь "sergtor"(спасибо ему за это, тк сайт не работает). Установить не могу нет .ехе файла. помогите.
Разобрался сам, всем спасибо за помощь! Описываю как установить AcadTopoPlan: 1 разархивировать архив на диск С, 2 в автокаде указать путь к папке в вспомагательных файлах, 3 через команду _menuload добавить фаил .cui , 4 через приложения загрузить все приложения в папке автокад топоплан. и все.
Вот такая задача. По имеющимся 3Д точкам в Автокаде (съемочные пикеты и станции наблюдения) создать "сырой" файл тахеометрической съемки из прибора, включая ход и "ошибки" наблюдения. Экспорт предусмотреть для разных форматов. Возможно, с ручным указанием формата экспорта .
Есть такая програмка Geo_Otkl_09_10.VLX. Рисует отклонения факт от проекта на сваях и т.д. Но если исполниловку делать в координатах ( т.е. оси будут ориентированы не горизонтально и вертикально), то ерунда получается. Постоянно нужно чертёж крутить. Можно переделать? Сделать так чтобы отклонения рисовались от любых направлений осей?
Зачем??? Этот вопрос уже поднимался. http://geodesist.ru/forum/threads/О...ых-схемах-строительство-lisp.4641/#post-68501 На Бованенково я массово рисовал отклонения, и всё в координатах. И, оси у меня были направлены в разные стороны. Очень удобно это делать не в модели, а в листе. Раpворачиваешь там всё как хочешь, и рисуешь отклонения, а в модели координаты не рушатся, а стрелки направлены по осям. Используется команда из Експрессов alignspace. А в листе, для удобства разворачиваю ВЭкран командой _.VPMAX.
Прошу небольшой помощи, связи с тем, что сам туго соображаю.. Есть программка на AutoLisp, но неправильно работает, ошибку никак найти не могу... (defun c:plastina () (initget 5) (setq base (getpoint "\nБазовая точка: ")) (initget 7) (setq l (getdist "\nМежцентровое расстояние l:")) (initget 7) (setq d (getdist "\nДиаметр дуги d:")) (initget 7) (setq r (getdist"\nРадиус круга r:")) (setq xbase (car base)) (setq ybase (cadr base)) (setq yp1 (+ ybase d)) (setq p1 (list xbase yp1)) (setq xp2 (+ yp1 l)) (setq p2 (list xp2 yp1)) (setq yp3 (- xp2 d)) (setq p3 (list xp2 yp3)) (setq yp4 (+ ybase (* 0.5 d))) (setq p4 (list xbase yp4)) (setq yp5 (+ yp3 (* 0.5 d))) (setq p5 (list xp3 yp5)) (command "_line" base p3 "") (command "_line" p2 p1 "") (command "_arc" p1 "_c" p4 base) (command "_arc" p3 "_c" p5 p2) (command "_circle" p4 r) (command "_circle" p5 r) (command "_zoom" "_e") ) должно, быть что-то такое))
Оффтоп (Move your mouse to the spoiler area to reveal the content) AxeAndPointZ за основу берёт указанную линию/полилинию/окружность/дугу и получаем стрелки относительно объекта съёмки вне зависимости от разворота сетки координат. Написана на VBA под автокад 2000-2014.
Ребят, может кто делал или может сделать такой лисп: нужно в множества четырехугольников соединять диагональных углы отрезками\полилиниями. Вручную жуть долго этим заниматься))
Написал программку, соединяет отрезками первую вершину плинии с третьей, вторую с четвертой. Выбирать можно рамкой или по одному. Для повторного вызова программы нажать 1 и Enter или пробел. Программа оставляет в наборе только lwpoliline и обрабатывает их. Тестировалась в Acad 2002 en и Acad 2012 ru.
Спасибо, сейчас на 2014 по тестирую) --- Сообщения объединены, 2 апр 2014, Оригинальное время сообщения: 2 апр 2014 --- П.с. Не знаю, баг это или так задумано: он рисует по 8 отрезков на каждый четырёхугольник, это нормально? :) П.с. какой программой можно корректно открыть сам файлик чтобы кнопку бинда (1) изменить, не подскажите?
Программу подправил, теперь рисует два отрезка. Так же теперь рисует отрезки только в полилиниях с четырьмя вершинами. Чем не нравится цифровая кнопка 1 используемая для повторного запуска программы? 1. Можно использовать при любой раскладке клавиатуры. 2. Удобно перезапускать программу левой рукой нажимая 1 и пробел. Если Вам нужна другая комбинация клавиш для запуска программы, укажите ее и я отправлю измененную программу Вам в личку.
Ivsem огромное спасибо! 1 устраивает, просто думал если это просто меняется - менять на разные кнопки в зависимости от смежных задач =) в общем это уже капризы и вас этим обременять не хочу) спасибо еще раз!
Нужна программка,чтобы разносила текстовые слои в чертеже без наложения друг на друга.Например: выполнил съёмку свайного поля,с помощью geo otkl получил отклонения в плане, с помощью геокалькулятора - по высоте, плюс проектные номера свай, плюс размерные привязки свай к осям.Итого четыре текстовых слоя и один размерный для каждой сваи. Можно ли сделать так ,чтобы все они разносились автоматически.Буду очень признателен,и думаю не только я.
Здравствуйте! Может и не по теме конечно. Нужен лисп или помогите настроить акад 2010. Проблема такая при наведении красоты на топопланах, чтобы текст не накладывался на ситуацию, я использую маска текста. В 2008 акаде очень нравится так как при ее создании она ни как не выделяется и не мешает при редактировании текста, в 2010 же она создается контурами маски, и при редактировании приходится либо удалять, либо выбирать тескт в свойствах. Хотелось бы чтобы в 2010 было как и 2008. Загружаю примеры
Нужен лисп для подписи кооррдинатной сетки , а также для построения координатной сетка образцы которые отдельно от других не работают
btigeotop, Зайдите по ссылке. Почитайте все. Установите-есть много интересного http://man777.dyndns.org/download_geo_tools.php
спасибо, но эту прогу я ставил, там много всего, и за этого автокад пару раз глючил при запуске а хотелось бы часть нужных лиспов для автокада, что бы не загромождать загрузку када
Фигня. Это не из за этих прог. Ну так выберите себе оттуда что нужно и установите отдельно (и подпись координат и сетка квадратов и....) Они же не закрыты. Если сомому влом - напиши автору , пусть вам сделает подборку для Вас
Отдельно я их устанавливал, но они не работали, а менять в них что нибудь у меня ума не хватает. А тут Помогу бесплатно разработать любую программу на autolisp. Вот и прошу помощи у спецов.
