Программа расчета профиля

Программа «Расчет профиля» создана в помощь инженерам-проектировщикам, работающих с профилями. Автор программы, читатель моего сайта: Рустем Вилевич

Профиль трассы

Программа » Расчет профиля»

Программа состоит из нескольких модулей (команд).

Программа работает только с полилиниями, если вместо полилинии
указать линию, ничего не выйдет. Перевести все линии в полилинии
Вам поможет модуль line_to_poliline.
Важный момент для работы программы. Полилинии должны быть нарисо-
ваны слева на право. 

Краткое описание команд (модулей).

Для того, чтобы задать исходные данные используем команду  ISH_DAN

ISH_DAN — указываем трубу, землю, полки отметок земли, верха трубы, глубины траншеи. Вводим диаметр, отметку подвала, указываем подвал.

otm_trub — поставит отметки трубы. На запрос команды «Выберите объекты:» —  выделяем полилинии, расположенные внизу. Полилинии должны быть нарисованы заранее. Выделяем полилинии только в тех местах, где нужно получит отметки.

Если в начале профиля нет пикета, то следует мысленно продолжить его и поставить в пустом месте, тоже само для конца профиля.

otm_zem — поставит отметки земли. На запрос команды «Выберите объекты:» — выделяем полилинии, расположенные внизу. Полилинии должны быть нарисованы заранее. Выделяем полилинии только в тех местах, где нужно получит отметки.

glub_transh — поставит глубину траншеи. На запрос команды «Выберите объекты:» — выделяем полилинии, расположенные внизу. Полилинии должны быть нарисованы заранее. Выделяем полилинии только в тех местах, где нужно получит отметки.

otm_DNO_TRANSH — поставит отметки дна траншени. На запрос команды «Выберите объекты:» — выделяем полилинии, расположенные внизу. Полилинии должны быть нарисованы заранее. Выделяем полилинии только в тех местах, где нужно получит отметки.

prom_otm — поставит единичную отметку земли и трубы в указанном месте,  выделяем любую полилинию в пределах профиля.

UKLON_TR — поставит уклоны, на ранее указанной полке

UGOL_TR — рассчитает угол в указанном месте и поставит над углом в указанном месте.

  1. Указываем радиус гиба, например —  50;
  2. Указываем расположение угла по горизонтали;
  3. Указываем расположение выноски по вертикали.
  4. В зависимости от радиуса угла и типа выпуклости программа подберет нужную выноску.

razbivka- произведет разбивку профиля по пикетам и будет рисовать полилинию в указанном пикете от нижней указанной полилинии до верхней;

  1. Указываем пикеты кучей;
  2. Указываем нижнюю линию для отрисовки разбивки;
  3. Указываем верхнюю линию для отрисовки разбивки;
  4. Указываем начальный пикет;

Razbivka2 – отрисует линии в нужном пикете от подвала до указанной верхней границы. Верхнюю границу указывать в исходных данных. Поставит заданную подпись.

NOV_RAZBIVKA — обнуляет старую разбивку. Чтобы создать новую разбивку используйте команду razbivka.

PLUSOVKA — поставит плюсовки во всех указанных полилиниях, полилинии выбирать табором. Работает после разбивки (razbivka); Указываем все полилинии где нужно проставить плюсовки.

futlyar

  1. Рассчитает разность отметок и поставит в нижней ячейки окна.
  2. Кнопка Отнять — любое число отнимет указанное значение со всего указанного текста.
  3. Кнопка Привавить сооответственно прибавит.

Перед командами otm_trubotm,  otm_zem,  otm_glub_transh и otm_DNO_TRANSH требуется нарисовать полилинии в местах где нужны отметки обязательно указать подвал и задать отметку подвала

ris_zemlya — команда отрисует землю, по заданным полилиниям и отметкам.

  1. Указываем полилинии табором;
  2. Указываем отметки табором;

razb_trub — нарисует полилинии от нижней полилинии до верхней

  1. Указываем нижнюю полилинию;
  2. Указываем верхнюю полилинию.

pereschet_otmetok_ugla – пересчитает отметки трубы с учетом биссектрисы

  1. Указать вершину угла;
  2. Указать выноску с параметрами угла;
  3. Указать полилинии. Можете выбрать все. Программа за границами тангенсов все равно ничего считать не будет
  4. В конце программа сама отрисует полилинию, соответствующую кривой.

risovanie_tangensov_ugla – отрисует тангенсы кривой от полки уклонов до трубопровода. При запросе нужно указать выноску.

line_to_poliline – переведет все линии в полилинии. При запросе нужно указать линии. Можно выбрать весь чертеж разом, переведутся только линии.

risovanie_krivoi —  отрисовывает кривую, по указанной выноске.

Видео по работе с программой.

Как установить программу

Если Вы хотите установить программу «Расчет профиля» себе на компьютер вам необходимо сделать следующее:

1. Скачиваем файлы

Скачиваем Автокадовские файлы с блоками UGOL_VIPUK.dwg, UGOL_VIPUK_5DN.dwg, UGOL_VOG.dwg, UGOL_VOG_5DN.dwg и файл частичной адаптации расчет профиля_ТХ.cuix. Копируем их в нужное нам место, допустим в D:\LISP\DIN_BLOKI\

 Качать Блоки и Файл CUIX Качать Блоки и Файл CUIX (Размер файла: 140.4 kB)

 2. Добавляем путь доступа к вспомогательным файлам

Добавляем путь где будут лежать файлы с блоками (D:\LISP\DIN_BLOKI\) в пути поддержки Автокад.

В командной строке набираем  _Options и нажимаем  Enter

Откроется диалоговое окно «Параметры«. Перейдите на вкладку Файлы и нажмите на кнопку Добавить

Появится пустая строка в которую мы вводим путь к файлам с блоками

Добавляем путь

Добавляем путь поддержки

Нажимаем кнопки  Применить и ОК

3. Загружаем панель инструментов

В командной строке набираем _CUI и нажимаем Enter

Откроется окно «Адаптация пользовательского интерфейса».

Переходим на вкладку «Адаптация» и нажимаем на кнопку «Загрузить файл частичной адаптации».

Находим файл расчет профиля_ТХ.cuix  и нажимаем кнопку Открыть

Загрузка панели инструментов

Загрузка панели инструментов

AutoCAD загрузит новый файл частичной адаптации

Нажмите кнопки Применить и ОК в окне  «Адаптация пользовательского интерфейса».

Если панель в Автокад не появилась, то идем в Рисование\Панель инструментов\Расчет Профиля\

Активизация панели

Активизация панели

Активируем панель.

4. Скачать и загрузить программу  «Расчет профиля»

Программу «Расчет профиля» я предоставляю в двух видах:

1. Исходные коды программы.

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

Исходные коды состоят из файлов Диалоговых окон (DCL-файлов) и LISP программы: Расчет профиля.lsp

 Скачать DCL файлы Скачать DCL файлы (Размер файла: 2.6 kB)

 

Скачав DCL-файлы, поместите их в папку, где лежать файлы с блоками (в папку вспомогательных файлов Автокад).

 Скачать Расчет профиля.lsp Скачать Расчет профиля.lsp (Размер файла: 28.21 kB)

2. Скомпилированный  VLX-файл

Скомпилированный  VLX-файл включает в себя и LISP-файл и DCL-файлы. Его легче загрузить, но нельзя просматривать и редактировать.

 Скачать Расчет профиля.vlx Скачать Расчет профиля.vlx (Размер файла: 32.58 kB)

 

Если Вы не знаете, как загрузить LISP-файл или VLX-файл в AutoCAD читайте здесь: //acad-prog.ru/lisp-programmy/

Пишите комментарии. Я  с удовольствием ответим на ваши вопросы.

Если Вы хотите получать новости с моего сайта. Оформляйте подписку.

До новых встреч.

«Автор: Рустем Вилевич»

Google

Также на эту тему Вы можете почитать:

12 комментарии на “Программа расчета профиля

  1. Дмитрий 07.09.2016 09:57

    Добрый день!
    На 16 автокаде попытался потестировать. Все виснит. В чем причина понять не могу

  2. Дмитрий 07.09.2016 10:11

    Получилось загрузить. В переменной PUT_FILE необходимо прописать путь где лежит файл.

  3. Дмитрий 07.09.2016 10:48

    Не случайно у вас опыта создания динамического блока методами Lisp. Динамический блок имеется ввиду с установкой параметров и операций.
    Заранее спасибо.

    • Михаил Орлов 16.09.2016 06:44

      Нет. Динамические блоки создаю стандартными методами. Управляю ими через LISP.

    • Рустем Вилевич 19.09.2016 05:12

      Первое что мне пришло в голову была такая же мысля. Но к сожалению подобным навыком я не владею. Реализовывая подобный подход в итоге у меня родилась программа для оформления планов, где я просто создал около 20 видов выносок в виде динамических блоков, закинул в нужную папку и все, все работает все редактируется всем все нравится))). Но на этот путь истинный меня направил Михаил, а то так бы и долбился бы головой об стену.

  4. Елена 18.09.2017 04:16

    Здравствуйте,
    Подскажите, пожалуйста, а как установить данную программку на англоязычный AutoCAD? Все устанавливается, но команды не распознаются.
    Заранее благодарна

    • Михаил Орлов 21.09.2017 15:38

      Если команды не распознаются. Скорее всего не загружен исполняемый файл. Если Вы не знаете, как загрузить LISP-файл или VLX-файл в AutoCAD читайте здесь: //acad-prog.ru/lisp-programmy/

  5. Дмитрий 05.12.2017 13:54

    Добрый день. Великолепная программа, значительно ускоряет рабочий процесс.
    Но есть пара вопросов.
    1) Как сделать что бы у отметок было не 2 а например 3 знака после запятой?
    2) И как уменьшить высоту полки в подсчете уклонов? вместо 12 на 10

    • Михаил Орлов 22.12.2017 09:15

      1. Вопрос.
      Во всех модулях

      C:prom_otm
      C:otm_trub
      C:otm_zem
      C:glub_transh
      C:vstavka_vsekh_otm

      Найти строку такую или аналогично такой, она как правило в конце блока

      (setq TXT (rtos (- (+ PDV (/ (* (- Yttr YPD) VM)  1000)) (/ Dntr 1000)) 2 2))

      Вместо 2 поставить 3

      (setq TXT (rtos (- (+ PDV (/ (* (- Yttr YPD) VM)  1000)) (/ Dntr 1000)) 2 3))

      2. Вопрос
      Найти модули

      ukl_vverh, ukl_vniz, ukl_0

      Исправить 12 на 10 строки могут не совпадать но суть думаю понятна.

      (setq t1 (list xo yo xo (+ yo 12))); создали список для полилинии
      (setq t1 (list xo yo (+ xo text_L) (+ yo 12))); создали список для полилинии

      Также чтобы не съедались нули нужно системной переменной DIMZIN присвоить значение 0, обычное значение 8
      Пишем в командной строке

      DIMZIN
      Вводим 0
  6. Нина 12.04.2019 14:15

    Добрый день! Помогите, при выборе команды отметка трубы, после выбора полилинии выскакивает ошибка « точка не определена»

  7. Владимир 26.05.2019 19:15

    Здравствуйте, надеюсь проект еще живой. По ставил на 19 акад, панелька вылезла, правда кнопочки не всегда отображаются, помогает смена рабочего пространства. Но при нажатии на любую из кнопок акад выдает сообщение «неизвестная команда». В чем причина? Что делать?

    • Михаил Орлов 27.06.2019 10:21

      Вам нужно подключить (загрузить) в Автокад программный файл Расчет профиля.vlx (или Расчет профиля.lsp). Как это сделать можно прочитать здесь:
      https://acad-prog.ru/lisp-programmy/
      Или здесь:
      https://omadwg.ru/docs.php
      Раздел «Что делать если программа к подключилась к Автокад?».

Оставить комментарий

Ваш mail не будет опубликован.

Вы можете использовать HTML теги и атрибуты: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>