Надстройки по геодезии к AutoCAD

это может создавать разные таблицы, присутствует импорт из автокада

Spoiler

Архив был не битый, но я на всякий случай перезалил
Извиняюсь за прошлый пост, не было времени нормально оформить, поторопился кароч
Версия WinRAR 4.10

Скриншоты:

Show Spoiler Hide Spoiler

Скачать с зеркала

 

Вызывается командой "anker", при работе все понятно, разберетесь. Эта программа проставит плановые и высотные отклонения свай от проектного положения, редактировать числа придется самому, либо поищите Lisp на форуме

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

Добрый вечер! Подскажите пожалуйста в каком формате должны быть данные в файле экселя (например по строкам или столбцам) может есть возможность выложить пример файла, и как его открыть в автокаде? В целом программа очень интересная и полезная! Заранее спасибо!

 

http://geodesist.ru/forum/threads/О...ах-строительство-lisp.4641/page-2#post-151402
http://geodesist.ru/forum/threads/Полезные-программы-от-philin-строительство-vba.4610/

http://geodesist.ru/forum/resources/isporand.10/
http://geodesist.ru/forum/threads/ПОДГОНОМЕТРИЯ-lisp-приложение-для-autocad.4614/

Max_Sim, кто Вам мешает знать и видеть??? Читайте форум, и вы сами найдёте там полезное и необходимое в работе. Или, пользуйтесь поиском, забивая искомые слова.

 

Небольшая интересная утилита очень удобна когда необходимо посчитать площади контуров (замкнутых и не очень))) с формированием таблицы в файл или в самом Акаде.
Скачать небольшое видеоописание можно тут
Запускается:
Командой At- с формированием таблицы в Акаде
Командой Af-сохраниение таблицы во внешний файл формата TXT, CSV,XLS

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

 

Может быть пригодится - изменения любых свойств делает автокадовская штатная команда _CHPROP (СВОЙСТВА).
Можно написать свои макросы типа:
^C^C_chprop;_lt;475_1;; - заменит типы линий у предварительно выбранного. Если нет предварительно выбранного, то не сработает.
^C^C_chprop;\;_lt;475_1;; - заменит типы линий только у одного элемента, выбранного после вызова макроса . Для предварительно выбранного не сработает.
^C^C_chprop;\\;_lt;475_1;; - заменит типы линий только у двух элементов, выбранных после вызова макроса, или у всех элементов, выбранных рамкой. Для предварительно выбранного не сработает.
Как сделать и для предварительного, и для последующего выбора только командами - не знаю.
На dwg.ru предложили целых два варианта для любого выбора, но на лиспе:
^C^C((lambda (ss) (if ss (command "_chprop" ss "" "_lt" "475_1" ""))) (ssget))
^C^C(if (setq ss (ssget)) (command "_chprop" ss "" "_lt" "475_1" "")) (setq ss nil)
Если заменить _lt на другой нужный ключ и тип линий на другое свойство, то эти же макросы/программки будут заменять и цвет, и вес, и пр.
Если добавить (command "_chprop" ss "" "_c" "2" "") или т.п., заключив все command в скобки, то одновременно будет меняться и тип линий, и цвет, и т.д. Например:
^C^C((lambda (ss) (if ss ((command "_chprop" ss "" "_lt" "475_1" "") (command "_chprop" ss "" "_c" "2" "") (command "_chprop" ss "" "_lw" "0.30" "")))) (ssget))
Т.е. для этих задач можно обойтись без GeoBL.

 

SmartLine

Программа для проектирования воздушных линий электропередач
напряжением 0,4 и 10 кВ
в среде AutoCAD и BricsCAD
Подойдёт и для исполнительных схем.
http://lep10.ru/
Программа «SmartLine» (автор Роман Малютин) публикуется на условиях лицензии Creative Commons «Attribution-NoDerivs» («Атрибуция — Без производных произведений») 3.0 Непортированная.

 

http://geodesist.ru/forum/threads/Отклонения-в-исполнительных-схемах-строительство-lisp.4641/

 

Beruf - сборник мелких программ для AutoCAD.

Программа из файла Beruf-setup.exe автоматически распаковывается и устанавливается в систему и внедряется в AutoCAD. В AutoCADе при этом появляется несколько новых панелей.
Данный сборник содержит следующие программы (функции):
1. Панель «Основная»
1.1. Вставка стандартных форматов листов
1.2. Задать ноль для отметок
1.3. Проставление отметки от уровня (надо сначала ноль задать);
1.4. Проставление отметки с произвольным текстом;
1.5. Проставление отметки на плане;
1.6. Выноска с текстом;
1.7. Линия условного разрыва;
1.8. Проставление разреза;
1.9. Проставление треугольника геометрии на чертеже;
1.10. Расчет прямоугольного треугольника;
1.11. Интерполяция по 2-м точкам;
1.12. Интерполяция по 3-м точкам;
1.13. Прорисовка трубопровода;
1.14. Реверс линий;
1.15. Импорт пользовательских стилей;
2. Панель «Размеры»
2.1. Простановка размера параллельно/перпендикулярно линии;
2.2. Редактировать размерный текст;
3. Панель «Цифры и тексты»
3.1. Конвертация однострочных текстов в один многострочный;
3.2. Нумерация текстов по порядку вручную;
3.3. Нумерация набора текстов автоматически;
3.4. Сумма всех цифр в наборе;
3.5. Математическая операция над всеми цифрами в наборе;
3.6. Выравнивание набора текстов автоматически;
4. Панель «Маскировки»
4.1. Создать маскировку
4.2. включить контуры маскировок
4.3. выключить контуры
4.4. выбрать все маскировки

К программам прилагается подробная инструкция с картинками.

 

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


представляет собой стрелки отклонений верха и низа конструкции. отклонения показывает в мм.
Работает так: ставишь блок основанием к проектному положению конструкции, у блока есть ручки которые нужно передвинуть на фактическое положение конструкции, т.е. на точки съемки верха и низа констр.

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

Да забыл, направление стрелок нужно указывать самому.
Может есть умельцы работающие с блоками, которые додумают блок, чтобы стрелки разворачивались автоматически по направлению отклонения.

 

Простое приложение,экспорт точек из автокад в эксель и наоборот.Есть окно автокада с точками POINT,нам необходимо их экспортировать в ексель,отрываем ексель,запускаем программку,нажимаем кнопку Автокада,заходим в акад и выбираем нужные точки,нажимаем интер,возвращаемся в ексель и нажимаем стрелку указывающую на ексель-экспорт точек совершен.Либо выделяем точки в экселе для импорта и жмем стрелочку указывающую на автокад-импорт совершен.Для импотрта точек формат № X Y Z.

 

Не знаю, почему не работает. Вот вам упрощенный лисп: выбор точек производите сами, без быстрого выбора.

Code:

(defun c:pl ( / H SSET lay osm npoint n ent pxy pz)
(if(and
(setq sset (ssget '((0 . "POINT"))))
(setq h (getreal "\tУкажи высоту текста\t\t")))
(mapcar(function(lambda  (x)
(entmake(list '(0 . "text")
(assoc 10 (entget x))(cons 40 h)
(cons 1 (rtos (cadddr (assoc 10 (entget x))) 2 2))))))
(vl-remove-if (function listp)
(mapcar (function cadr) (ssnamex sset)))))
(princ))

 

Ежели актуальны румбы в градусах ( без минут и секунд ) - то попробуй вот такую мою Exel-евскую штуку. В моем Excel-файле формат координат - автокадовский, т.е. У - на север, а последняя точка - повтор точки №1, т.е замыкание контура.
Как я понял - надо для лесного дела? Значит минуты с секундами - это юмор.
Потому как братья наши меньшие, пардон лесные, ходят по лесу с буссолью и мерным 20-метровым шнуром.
Какие там нафиг секунды то? Уж они то сами в градусах всю жизнь свои таблицы пишут.
Ну а из Автокада полилинию в таблицу выдернуть - лисп COORN найди тута в форуме.
Он и в Exel полилинию пропишет и пронумерует вершины.

 

Спасибо, получилось!!!
Вопрос, а где в лиспе можно указать отображаемое количество знаков после запятой?

 

Удобно

 

Про размеры после первой минуты


http://geodesist.ru/forum/threads/ПОДГОНОМЕТРИЯ-lisp-приложение-для-autocad.4614/

 

Slimshadymarshal, в ресурсы загляни.
http://geodesist.ru/forum/resources/geo_tools.29/

 

TotalBoundary (Lite) - это бесплатный (на условиях некоммерческого пользования) плагин для AutoCAD, который создан на базе нового мощного программного движка, возможности которого позволяют приложению обрабатывать тысячи примитивов за считанные секунды.
Используя команду _TOTALBOUNDARY в среде AutoCAD легко создавайте замкнутые полилинии вокруг группы выделенных объектов, как показано на следующем примере:



http://www.totalboundary.com/rus/

 

посмотрите http://www.sktisiz.ru/solutions/topography/ есть демо режим 300 запусков бесплатно.

 

Shemba, а вы случайно Меню из ресурсов не грузили? У вас какая-то старая версия лиспа frto.
Загрузи из вложения, и замени её из Меню. Не будет фаталить, и по отметке менять.

 

В geo_tools есть такое. Само подписывает, согласно высоте полилинии. Geo_Tools можно на форуме взять.