Нужно с использованием AutoLISP или Visual LISP (...

Question

Нужно с использованием AutoLISP или Visual LISP (AutoCAD 2021 (RU)) вычислить объем котлована по формуле усеченной пирамиды.
Запросить у пользователя ширину нижнего основания в м (основание - квадрат) и высоту котлована в м.
Вычислить ширину верхнего основания, с учетом высоты и угла 30 градусов. Вычислить объем котлована и вставить
значение в м3 в указанную точку.

Answer 1

Для AutoCAD 2021 (RU) можно создать команду на AutoLISP KOTLOVAN, которая будет запрашивать размеры котлована, автоматически вычислять объем и вставлять результат в указанную точку чертежа.

1. Формула расчета

На вашем чертеже угол 30° задан от вертикали (между вертикальной линией и откосом котлована).

Ширина верхнего основания:

B=a+2H\tan(30^\circ)

Объем усеченной пирамиды с квадратными основаниями:

\boxed{V=\frac{H}{3}(a^2+B^2+aB)}

где:

$a$ — ширина нижнего квадратного основания, м;
$B$ — вычисляемая ширина верхнего основания, м;
$H$ — высота котлована, м;
$V$ — объем котлована, м³.

Программа будет запрашивать только ширину нижнего основания, высоту и точку вставки результата. Угол 30° задан непосредственно в коде.

2. Готовая программа AutoLISP

Подготовил два файла для AutoCAD 2021:

KOTLOVAN_UTF8.lsp

Для режима Unicode, LISPSYS = 1 или 2

KOTLOVAN_ANSI1251.lsp

Для классического Visual LISP, LISPSYS = 0

Код программы:

lisp

(defun c:KOTLOVAN (/ a h b v pt text-height label)

  (initget 7)
  (setq a (getreal "\nШирина нижнего основания (м): "))

  (initget 7)
  (setq h (getreal "\nВысота котлована (м): "))

  ; Угол откоса 30 градусов от вертикали
  ; B = a + 2*h*tan(30)
  (setq b (+ a (/ (* 2.0 h) (sqrt 3.0))))

  ; Объем усеченной квадратной пирамиды
  (setq v (* (/ h 3.0)
             (+ (* a a) (* b b) (* a b))))

  (princ
    (strcat "\nШирина верхнего основания: "
            (rtos b 2 2) " м"))

  (princ
    (strcat "\nОбъем котлована: "
            (rtos v 2 2) " м3"))

  ; Запрос точки вставки
  (setq pt (getpoint "\nУкажите точку вставки объема: "))

  (if pt
    (progn
      ; Высота текста из настроек чертежа
      (setq text-height (getvar "TEXTSIZE"))
      (if (or (null text-height) (<= text-height 0.0))
        (setq text-height 0.25)
      )

      ; Формирование надписи в м3
      (setq label
        (strcat "V = " (rtos v 2 2) " м\\U+00B3")
      )

      ; Создание многострочного текста
      (if
        (entmake
          (list
            '(0 . "MTEXT")
            '(100 . "AcDbEntity")
            '(100 . "AcDbMText")
            (cons 10 (trans pt 1 0))
            (cons 40 text-height)
            '(71 . 1)
            (cons 7 (getvar "TEXTSTYLE"))
            (cons 1 label)
          )
        )
        (princ "\nОбъем добавлен в чертеж.")
        (princ "\nОшибка при создании текста.")
      )
    )
    (princ "\nТочка вставки не указана; текст не создан.")
  )

  (princ)
)

(princ "\nПрограмма загружена. Команда: KOTLOVAN")
(princ)

3. Проверка на размерах вашего чертежа

Нижнее основание

3,40 м

Высота котлована

2,12 м

Верхнее основание

5,85 м

Угол от вертикали

30°

Расчетный объем котлована

46,39 м³

Значение, которое программа вставит в чертеж: V = 46.39 м³

4. Как запустить в AutoCAD 2021 (RU)

Скачайте файл .lsp.
В AutoCAD введите команду APPLOAD (ЗАГРУЗПРИЛ).
Выберите скачанный файл и нажмите «Загрузить».
В командной строке введите KOTLOVAN.
Введите ширину нижнего основания 3.4, затем высоту 2.12.
Укажите мышью точку вставки объема в чертеже.

Программа создаст объект МТЕКСТ (MTEXT) с вычисленным объемом. Высота текста берется из системной переменной TEXTSIZE, а текстовый стиль — текущий.

Для русского текста в UTF-8 AutoCAD 2021 поддерживает режим Unicode через LISPSYS; после изменения этой переменной требуется перезапуск AutoCAD. (help.autodesk.com help.autodesk.com)

Код и расчетные значения проверены, но непосредственный запуск в AutoCAD в этой среде не выполнялся.

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