Как высчитать среднюю высоту в автокаде

Обновлено: 03.07.2024

Передо мной открыта в автокаде, топосъемка с вертикальными отметками, нарисована трасса (инженетрные сети), естественно не попадает в отметки топосъемки, а для того чтобы начертить профиль нужна отметка высоты грунта именно в тех точках в которых проходит наша трасса.

1. Выбираем точки и отметки точек существующие
2. Выводим среднее апроксимированное значение в текстовом виде, согласно тем текстам которые были выделены.
3. Сам лисп общитывает полигон и с помощью тригонометрических функций находит высоту точки находящщейся в том полигоне выбранных точек который задал пользователь, чем больше точек тем точнее высота, но округлять до двух знаков после запятой, вместо запятой естественно должна быть точка

1. Укажите 1. точку
2. Укажите отметку 1й точки
3. Укажите 2ю точку
4. Укажите отметку 2й точки

n. Укажите точку встваки апроксимированной отметки

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

если чем могу помочь то помогу.

__________________
инженер проектировшик с опттом программа авто гад образование высшие Для подобных задач надо использовать специализированное ПО. Писать самодельный ЛИСП для каждой функции просто непродуктивно.

Поскольку приходится работать на чужих компах и в разных местах, вырабатываю сам себе алгоритм работы без использования громоздких софтов. Стараюсь максимально использовать "голый" ACad. И минимизировать количество приложений.

Я бысделал так:
1) Просто поднять все точки на высоту (легче всего делать при помощи команд ToolPack, или просто вбить руками высоты в окне Properties).
2) Потом объединить все точки с известными высотами при помощи 3d_face (тоже можно сделать руками и без софта).
3) Потом останется только построить профиль. Опять же ToolPack.
Вот и всё.

bernata, не непорядок, мне и так дают рельеф объемный, я от него сразу избавляюсь __________________
инженер проектировшик с опттом программа авто гад образование высшие

Вот к примеру у вас дуга (одна граница рельефа). Сама дуга в 2D. Текстом указана отметка ее начала и другим текстом - конца. напротив дуги - линия (вторая граница рельефа), в той же плоскости, то бишь, тоже 2D и тоже имеет текстовые отметки. Между этими двумя объектами находится поворот трассы, тоже 2 2D линии. Надо построить профиль по этой трассе.
Задаем дискретизацию (делим трассу на кучу точек), одинаковую для обеих границ рельефа. Определяем высоты для каждой точки границ. Из каждой n-ной точки одной границы проводим прямую к такой же точке другой границы и замеряем пересечение с трассой. В точках трассы делаем дополнительную разбивку границ рельефа так, чтобы прямые из точки на одной границе к другой проходили через точку на трассе.
Вычисляем высоты точек рельефа на трассе и вычерчиваем кривую профиля.

Ну это так, общие правила. Рисуете направление трассы (2D или 3D полилиния, рисуете одну границу рельефа, другую, включаете макрос, устанавливаете на границах рельефа отметки высот, указываете на линию направления и давите ентер.
Глубина или высота трассы определяется во втором этапе, когда вы уже видите сам профиль.

Последний раз редактировалось Supermax, 13.10.2008 в 18:18 . > dextron3 : А потом мужественно преодолеваешь проблемы, созданные собственноручно __________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.

Supermax, это алгоритм, уж больно сложный. я хотел чтонибудь простого и гениального. __________________
инженер проектировшик с опттом программа авто гад образование высшие

Было похожее реализовано на лиспе. В те времена работали только с Кредо или в "голом" акаде. Вот в акаде и решили малехо автоматизировать. До сих пор пользуются. Наже кусочек описания меню.

____Интерполяция____ - заголовок группы команд

Отметка по 2 точкам – вычисление и отрисовка отметки точки методом интерполяции, лежащей между двумя точками с известными отметками

Отметка по 3 точкам – вычисление и отрисовка отметки точки методом интерполяции, лежащей в треугольнике тремя точками с известными отметками

По прямой – вычисление и отрисовка отметок точек с шагом 1см методом интерполяции, лежащих на прямой между двумя точками с известными отметками

По кривой c шагом 10см – вычисление и отрисовка отметок точек с шагом 10см методом интерполяции, лежащих на ломаной линии между двумя точками с известными отметками

По кривой – вычисление и отрисовка отметок точек с шагом 1см методом интерполяции, лежащих на ломаной линии между двумя точками с известными отметками

То же, вверх – вычисление и отрисовка отметок точек с шагом 1см методом интерполяции, лежащих на ломаной линии между двумя точками по отметке первой точки с запросом уклона ко второй точке. Отметки повышаются от первой точки ко второй. По запросу отрисовка уклона и расстояния.

То же, вниз – вычисление и отрисовка отметок точек с шагом 1см методом интерполяции, лежащих на ломаной линии между двумя точками по отметке первой точки с запросом уклона ко второй точке. Отметки понижаются от первой точки ко второй. По запросу отрисовка уклона и расстояния.

____Расчет___ - заголовок группы команд

На поперечнике - по h – расчет отметки второй точки и уклона на поперечнике в плане методом подбора по отметкам первой и второй точек. Применяется, если задана отметка первой точки и надо подобрать отметку второй точки, отслеживая при этом значение уклона.

На поперечнике - по i – расчет отметки второй точки и уклона на поперечнике в плане методом подбора по отметке первой точки и уклону ко второй. Применяется, если задана отметка первой точки и надо подобрать уклон ко второй точке, отслеживая при этом ее отметку.

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

Водораздел – расчет и отрисовка отметки водораздела между двумя точками лотка проезжей части (между дождеприемными колодцами) и уклонов к водоразделу с двух сторон.

Как посчитать Объем земляных масс в Автокаде, или как вообще посчитать? Возможно какой-то добродетель напишет программу которая обработает, например, изначальный файл координат, и файл координат исполнительной съемки и посчитает объем земляных работ. Если найдется мастер, поделюсь чем имею.

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

Коллеги посоветовали GEONIKS и LISKAD. Сижу осваиваю. Хорошо что хоть объект не горит. Благодарю за советы.

да в геониксе можно подсчитать без проблем)))только запутанно немого

Коллеги посоветовали GEONIKS и LISKAD. Сижу осваиваю. Хорошо что хоть объект не горит. Благодарю за советы.

Лучше всего использовать связку AutoCAD Civil 3D 2008/2009+GeoniCS 2007/2008/2009.

Цитата

Лучше всего использовать связку AutoCAD Civil 3D 2008/2009+GeoniCS 2007/2008/2009.

И какие преимущества в этом.

Credo-MIX(TER), Геоникс, Сивил, LisCAD, .

Есть уточняющие и важные вопросы:
1. для кого и с какой точностью нужен объем,
2. каковы исходные данные (густота пикетов съемки и адекватость реальным поверхностям),
3. насколько владеет вопросом принимающая сторона (а она всегда есть),
4. в каком виде надо сдавать "готовую продукцию".

Вот в маркшейдерской библии обозначена точность до 7%. Больше ни в одном документе не нашел.
А между чем и чем (кем и кем)?

Я работаю на стройке с землей уже 15 лет. И часто бывает так, что приношу картограмму земляных работ, сделанную по всем нормам и посчитанную в Credo-TER и дооформленную в КАДе, а у противоположной "стороны" клочек бумаги с отметками набранными под нивелир и объем, как две отметки из всех отметок снятых поверхностей и неизвесто как посчитанная площадь контура.
И разница у меня с ним 40000 куб.м и 30000 куб.м
А съемку текущей поверхности я сделал тахеометром и посчитал при нем. А с отражателем ходил он сам. А исходную (черные отметки) поверхность мы с ним подписали при открытии объекта.
Но он свою писульку уже показал своему начальству и у него команда от начальства "ни шагу назад!"
И это не самый "тяжелый" случАй из жизни. Бывает, что приходится спорить с коллегой из "вражеского стана" о разнице в 0.5%, по воле рукамиводителей.

Возвращаясь к программной части задачи: Кредо имеет годами проверенную математику. Поэтому пользуюсь КредоДАТ-КредоТЕР. Есть у Кредо еще один момент: картограмма строится с учетом действующих СНиПов - сеточка, узлы, табличка внизу, "сумма прописью". Этих требований никто не отменял.
А "терки" с контрагентом нередко решаются так: НИ ВАШИМ, НИ НАШИМ, А ПОПОЛАМ. Но это уже без геодезистов. Вот такой рынок.

Есть у Кредо еще один момент: картограмма строится с учетом действующих СНиПов - сеточка, узлы, табличка внизу, "сумма прописью". Этих требований никто не отменял.

А вы пробовали вручную проверить Кредо?
Я пробовал, и вот в чём нюанс, подсчёт в Кредо ведём с шагом 0.5-1 м (чтоб поточнее), а сетку строим с шагом 10-20 м (чтоб читалось),так вот возьмём один квадрат 20х20 умножим его площадь на среднюю отметку из 4-ёх по его углам, и полученная цифра не совпадёт с той что подписал Кредо в этом квадрате :(.
Поэтому для меня проблема, не то в чём считать и как, а как правильно оформлять .
Я сначала в Land Desktop считаю объём, записываю его (чтоб на него ориентироваться), а потом ручками с помощью утилиты:«Объём земляных работ», долго и муторно, зато любому "принимающему", на пальцах можно всё доказать и объяснить.

Есть уточняющие и важные вопросы:

1. для кого и с какой точностью нужен объем,

2. каковы исходные данные (густота пикетов съемки и адекватость реальным поверхностям),

3. насколько владеет вопросом принимающая сторона (а она всегда есть),

4. в каком виде надо сдавать "готовую продукцию".

Вот в маркшейдерской библии обозначена точность до 7%. Больше ни в одном документе не нашел.

А между чем и чем (кем и кем)?

И разница у меня с ним 40000 куб.м и 30000 куб.м

А съемку текущей поверхности я сделал тахеометром и посчитал при нем. А с отражателем ходил он сам. А исходную (черные отметки) поверхность мы с ним подписали при открытии объекта.

Но он свою писульку уже показал своему начальству и у него команда от начальства "ни шагу назад!"

И это не самый "тяжелый" случАй из жизни. Бывает, что приходится спорить с коллегой из "вражеского стана" о разнице в 0.5%, по воле рукамиводителей.

А "терки" с контрагентом нередко решаются так: НИ ВАШИМ, НИ НАШИМ, А ПОПОЛАМ. Но это уже без геодезистов. Вот такой рынок.

Было время картограмму делал в ручную и ни когда вопросов не было. Во всём этом деле прежде всего математика. 30% разница это за над то. Хотелось бы взглянуть на Ваши расчёты. Если так грубо прикинуть площадка 100*300=30000 и средняя высота насыпи 1м. А вторая сторона утверждает что 1,30. Ато так на прикид и в среднем.
Уточните на счёт нивелира. Обычно те кто отсыпал землю считают и накручивают объём после отсыпки грунта.
Если хотите пришлите два расчёта я посмотрю.

To: Valery Brelovsky
Прислать не могу - коммерческая тайна это теперь называется.
Это был котлован с несколькими горизонтами и нивелирные отметки были правильные.
Но если на более высоких горизонтах их набрать побольше, а на более низких поменьше, а потом все это считать, как среднюю отметку из всех, то получается рассказанное мною.
Я не случайно употребил слово АДЕКВАТНОСТЬ. Можно аккуратно пройти по всем линиям перегиба рельефа (верх откоса, низ откоса в строительстве) , а внутри плоских площадок взять совсем немного пикетов. Если программа работает с линиями перелома рельефа (структурные линии), то построит вполне адекватную поверхность. А если все эти пикеты будут только точками съемки в общей куче, то поверхность можно изобразить заметно иной - то есть по разному. Ну и подсчеты объемов будут заметно разные. Отметки, как показывает практика, сильнее влияют на подсчет объемов, чем площади, при измерении выемок/насыпей.
Вот я о чем.

Сергей Климкин,
Да, какие обиды ;)

1.Построение и подсчет ведет Кредо, но по Вашим исходным данным. Если Вы набрали пикеты через 30-20 м, то не получится проверять Кредо ни через 2, ни через 10 м. Это Вы свою съемку только проверяете. Если Вы структурировали съемку - провели линии перелома рельефа, то пикетов может быть и пореже,чем через 20 м. Главное не пропустить ключевых для поверхности точек.

У меня не плохо развито объёмное видение, соответственно съёмки у меня АДЕКВАТНЫЕ.

2.Кредо (да и другие нормальные программы) считают объемы не между двумя плоскостями внутри квадрата (неважно накого размера - 20х20 м или 1х1 м), а между заданными Вашей съемкой поверхностями, разбивая и верхнюю и нижнюю на треугольники. Эти треугольники почти всегда мельче треугольников построенных поверхностей. Из них строятся трехгранные усеченные призмы и объем получается, как сумма этих призм.

Да, признаюсь из Credo, знаком только с Credo_DAT, по-этому и предположил не верную методику расчёта, по аналогии с Land Desktop-ом, в котором их (методик подсчёта) две:
1)GRID - по сетке
2)Composite - по треугольникам

Где-то авторы описывали это не так коряво, как я.

Цитата изРасчёт объёмов работ в Credo.pdf
В ходе операции расчета каждая точка одной поверхности проецируется на вторую поверхность, аналогично происходит с точками второй поверхности - каждая из них имеет проекцию на первой поверхности. Кроме того, в каждой точке пересечения ребер треугольников одной и второй поверхностей программа также определяет пару точек. Аналогичные пары рассчитываются по линии нулевых работ, границе расчета объемов, структурным линиям. Для всех этих пар точек программа определяет разность высот из моделей обеих поверхностей (по сути, рабочие отметки). По всем этим точкам строится сплошная сеть треугольников, образующая трехгранные призмы, вертикальные ребра которых соответствуют разности высот поверхностей. Для каждой такой призмы рассчитывается объем, сумма объемов всех призм дает искомое значение.

3. А внутри Вашей сетки квадратов все гладко и в 1-й и во 2-й поверхностях? Скорее всего там есть пикеты, которые "вылезают" вверх или вниз от условных плоскостей, "проводимых" Вами через 4 угла этого квадрата.

На "гладкость" я всегда проверяю, построением горизонталей через 0.1 м, так наглядно видно, где и что "вылезает".

А контроль никогда не сойдётся, (я не говорю о 10%, разница составляет 1-0.5 потому , что на бумаге (исп. схеме), мы видим всего лишь прямоугольник 20х20 с отметками и толщинами по углам, а Credo (да и другие нормальные программы) видит в этом квадрате множество трехгранных призм.

Да, я тоже: "Не первый раз за мужем" :)

IMHO
:cry: Самый точный объём пока подсчитывать не научились (мы же не строим горизонтали ломаной линией, а делаем их плавными каким-нибудь spline-ом).

:(Наиболее точный объём, на сегодняшний день, подсчитывается по трехгранным призмам, но бывает труднодоказуем заказчику т.к. контроль не сходиться.

To: Valery Brelovsky
Прислать не могу - коммерческая тайна это теперь называется.
Это был котлован с несколькими горизонтами и нивелирные отметки были правильные.
Но если на более высоких горизонтах их набрать побольше, а на более низких поменьше, а потом все это считать, как среднюю отметку из всех, то получается рассказанное мною.
Я не случайно употребил слово АДЕКВАТНОСТЬ. Можно аккуратно пройти по всем линиям перегиба рельефа (верх откоса, низ откоса в строительстве) , а внутри плоских площадок взять совсем немного пикетов. Если программа работает с линиями перелома рельефа (структурные линии), то построит вполне адекватную поверхность. А если все эти пикеты будут только точками съемки в общей куче, то поверхность можно изобразить заметно иной - то есть по разному. Ну и подсчеты объемов будут заметно разные. Отметки, как показывает практика, сильнее влияют на подсчет объемов, чем площади, при измерении выемок/насыпей.
Вот я о чем.

"Но если на более высоких горизонтах их набрать побольше, а на более низких поменьше, а потом все это считать, как среднюю отметку из всех, то получается рассказанное мною."
Как усреднять отметку нельзя. Это не правильный алгоритм решения и он не даёт правильный результат. Вам нужно это понять и доказать что это не правильный расчёт. Вспомните математику.
Я трудно представляю ситуацию с котлована с горизонтами. Но если есть горизонты то и считать нужно по горизонтам отдельно, а не в коем случае по средней отметке вей глубины котлована вычисленной по такой методе. Средняя отметка может быть только для горизонта. Есть ещё и средняя площадь на которую нужно умножать эту отметку

Я не знаю о какой программе Вы говорите,но к примеру Civil считает объём между двумя поверхностями. И изменения количества точек, это не влияет на объём.

Как посчитать в куче точек среднюю отметку высоты Z? :D Не используя сторонних приложений, наверняка такое должно быть? Я использую цивил 3D.

[S]А чего же тогда в ветке AutoCad пишите?[/S]
Постройте поверхность по этим точкам.В Свойствах Поверхности увидите ее max,min и среднюю высоты.
(закладка Статистика).В закладке Анализ можете построить контур по желаемой высоте.

Да че то тут посетителей просто больше ))), понятно спасибо!

Может попробуешь так.

;;================================>TXT-SUM<====================================
;; Команда вычисления суммы и суммы произведений групп чисел
;; TXTSUM.lsp Version 2.01
;; Автор: Протасов Георгий
;;Программа вычисляет сумму групп чисел, заданных в виде простого текста.
;;При выборе парных групп чисел с одинаковым количеством элементов вычисляется
;;сумма произведений /Удобно для подсчета спецификаций/. Группы чисел для
;;определения суммы произведений могут быть организованы вертикально и
;;горизонтально. Десятичный разделитель может быть запятой и точкой.
;;Результат копируется в буфер обмена.
;;============================================================================

(DEFUN TXT-SUM ( / l1 l2 sum1 sum0 msg TXTIPNT MAXY MAXX REMBER SORT STRREPL
GETNUMBERS CPCBD cmdecho-save error-save)
(SETQ error-save *error*
cmdecho-save (GETVAR "CMDECHO")
);SETQ

(DEFUN *error* (msg)
(IF error-save (SETQ *error* error-save))
(IF msg (PRINC "\nВыполнение функции прервано "))
;; Восстановление значений системных переменных
(SETVAR "CMDECHO" cmdecho-save)
(PRINC)
);DEFUN

;Функция копирования числа в буфер обмена
(DEFUN CPCBD (num / convn)
(IF (AND (SETQ convn (FINDFILE "G_StrToCbd.exe")) num)
(STARTAPP convn (RTOS num))
);
);DEFUN

;Функция поиска левой нижней точки текста
(DEFUN TXTIPNT (en / ed ins p p1 p2 wdth hght hght0 ang)
(SETQ ed (ENTGET en));Описание текста
(IF (AND
(AND (NOT (NULL (CDR (ASSOC 72 ed)))) (NOT (NULL (CDR (ASSOC 73 ed)))))
(OR (/= (CDR (ASSOC 72 ed)) 0) (/= (CDR (ASSOC 73 ed)) 0))
);AND
(SETQ ins (CDR (ASSOC 11 ed)))
(SETQ ins (CDR (ASSOC 10 ed)))
);IF
(SETQ ins (TRANS ins en 2) ;Точка вставки
p1 (CAR (TEXTBOX ed))
p2 (CADR (TEXTBOX ed))
wdth (- (CAR p2) (CAR p1)) ;Ширина
hght (- (CADR p2) (CADR p1)) ;Высота
hght0 (CADR p2);Высота
ang (IF (NULL (ASSOC 50 ed)) 0 (CDR (ASSOC 50 ed))) ;Угол наклона
);SETQ
(COND
((AND (= (CDR (ASSOC 72 ed)) 0) (= (CDR (ASSOC 73 ed)) 0))
(SETQ p1 ins)
);Влево
((AND (= (CDR (ASSOC 72 ed)) 1) (= (CDR (ASSOC 73 ed)) 0))
(SETQ p1 (POLAR ins (+ ang PI) (/ wdth 2)))
);По центру
((AND (= (CDR (ASSOC 72 ed)) 2) (= (CDR (ASSOC 73 ed)) 0))
(SETQ p1 (POLAR ins (+ ang PI) wdth))
);Вправо
((AND (= (CDR (ASSOC 72 ed)) 3) (= (CDR (ASSOC 73 ed)) 0))
(SETQ p1 (POLAR ins (+ ang PI) wdth))
);Вписанный
((AND (= (CDR (ASSOC 72 ed)) 4) (= (CDR (ASSOC 73 ed)) 0))
(SETQ p (POLAR ins (- ang PI) (/ wdth 2))
p (POLAR p (+ ang (* PI 0.5)) (/ hght0 2))
p1 (POLAR p (- ang (* PI 0.5)) hght0)
);SETQ
);По середине
((AND (= (CDR (ASSOC 72 ed)) 5) (= (CDR (ASSOC 73 ed)) 0))
(SETQ p1 (POLAR ins (+ ang PI) wdth))
);По ширине
((AND (= (CDR (ASSOC 72 ed)) 0) (= (CDR (ASSOC 73 ed)) 1))
(SETQ p1 ins)
);Низ и Влево
((AND (= (CDR (ASSOC 72 ed)) 1) (= (CDR (ASSOC 73 ed)) 1))
(SETQ p1 (POLAR ins (+ ang PI) (/ wdth 2)))
);Низ и По центру
((AND (= (CDR (ASSOC 72 ed)) 2) (= (CDR (ASSOC 73 ed)) 1))
(SETQ p1 (POLAR ins (+ ang PI) wdth))
);Низ и Вправо
((AND (= (CDR (ASSOC 72 ed)) 0) (= (CDR (ASSOC 73 ed)) 2))
(SETQ p (POLAR ins (+ ang (* PI 0.5)) (/ hght 2))
p1 (POLAR p (- ang (* PI 0.5)) hght)
);SETQ
);Середина и Влево
((AND (= (CDR (ASSOC 72 ed)) 1) (= (CDR (ASSOC 73 ed)) 2))
(SETQ p (POLAR ins (- ang PI) (/ wdth 2))
p (POLAR p (+ ang (* PI 0.5)) (/ hght 2))
p1 (POLAR p (- ang (* PI 0.5)) hght)
);SETQ
);Середина и Центр
((AND (= (CDR (ASSOC 72 ed)) 2) (= (CDR (ASSOC 73 ed)) 2))
(SETQ p2 (POLAR ins (+ ang (* PI 0.5)) (/ hght 2))
p (POLAR p2 (+ ang PI) wdth)
p1 (POLAR p (- ang (* PI 0.5)) hght)
);SETQ
);Середина и Вправо
((AND (= (CDR (ASSOC 72 ed)) 0) (= (CDR (ASSOC 73 ed)) 3))
(SETQ p1 (POLAR ins (- ang (* PI 0.5)) hght))
);Верх и Влево
((AND (= (CDR (ASSOC 72 ed)) 1) (= (CDR (ASSOC 73 ed)) 3))
(SETQ p (POLAR ins (+ ang PI) (/ wdth 2))
p1 (POLAR p (- ang (* PI 0.5)) hght)
);SETQ
);Верх и По центру
((AND (= (CDR (ASSOC 72 ed)) 2) (= (CDR (ASSOC 73 ed)) 3))
(SETQ p (POLAR ins (+ ang PI) wdth)
p1 (POLAR p (- ang (* PI 0.5)) hght)
);SETQ
);Верх и Вправо
(t
(SETQ p1 ins)
);Влево по умолчанию
);COND
);DEFUN

;;;Поиск самого верхнего элемента списка
(DEFUN MAXY (l / m i)
(SETQ i 1
m (CAR l));
(WHILE (<= i (1- (LENGTH l)))
(IF (<= (CADR (TXTIPNT m)) (CADR (TXTIPNT (NTH i l))))
(SETQ m (NTH i l))
);IF
(SETQ i (1+ i))
);WHILE
m
);DEFUN

;;;Поиск самого левого элемента списка
(DEFUN MAXX (l / m i)
(SETQ i 1
m (CAR l));
(WHILE (<= i (1- (LENGTH l)))
(IF (<= (CAR (TXTIPNT m)) (CAR (TXTIPNT (NTH i l))))
(SETQ m (NTH i l))
);IF
(SETQ i (1+ i))
);WHILE
m
);DEFUN

;;;Удаление первого вхождения элемента a в список l
(DEFUN REMBER (a l)
(COND ((NULL l) nil)
((EQUAL (CAR l) a) (CDR l))
(t (CONS (CAR l) (REMBER a (CDR l))))
);COND
);DEFUN

;;Функция замены в строке base подстроки srch на repl
(DEFUN STRREPL (base srch repl / basel i)
(SETQ i 1)
(IF (AND (/= srch "")
(<= (STRLEN srch) (STRLEN base))
);AND
(PROGN
(SETQ basel (STRLEN base))
(WHILE
(< i (+ (- basel (STRLEN srch)) 2))
(IF (= (SUBSTR base i (STRLEN srch)) srch)
(PROGN
(SETQ base
(IF (= i 1)
(STRCAT repl
(SUBSTR base (+ i (STRLEN srch)))
);STRCAT
(STRCAT
(SUBSTR base 1 (- i 1))
repl
(SUBSTR base
(+ i (STRLEN srch))
);SUBSTR
);STRCAT
);IF
);SETQ
(SETQ i (+ i (strlen repl))
basel (STRLEN base)
);SETQ
);PROGN
(SETQ i (1+ i))
);IF
);WHILE
);PROGN
);IF
base
);DEFUN

(IF (OR (NULL C:TXT-SUM)
(NOT (LISTP C:TXT-SUM))
);OR
(DEFUN C:TXT-SUM () (TXT-SUM))
);IF
(PRINC "\nДобавлена команда TXT-SUM. ")
(PRIN1)

Автор:

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

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

Начало работы

В ходе следующих действий будет создана простая компоновка помещения с использованием метрических единиц измерения.

acadiso.dwt

Дополнительные сведения о шаблонах см. в разделе А вы пробовали работать с шаблонами?

Измерения на текущем чертеже отображаются в десятичном формате, одна единица чертежа равна одному метру.

Расчет и отображение площади

Далее описывается расчет площадей помещений для определения максимального количества человек, которые могут в них находиться.

Существует несколько способов поиска информации о площади объекта; кроме того, можно использовать заданные точки. Используйте палитру свойств или такие команды, как ПЛОЩАДЬ, ИЗМЕРИТЬГЕОМ или СПИСОК.

Отображаются свойства выбранного объекта, включая площадь.

Прим.: В отличие от отдельных линий полилинии считаются замкнутыми объектами и всегда имеют вычисленную площадь.

В командной строке введите aa (ПЛОЩАДЬ).

Замкнутый периметр, выделенный зеленым цветом, определяет площадь для расчета.

Вычисленное значение площади отображается в командном окне и динамической подсказке. Если результаты не отображаются, нажмите клавишу F2, чтобы открыть командное окно.

На ленте щелкните вкладку «Главная» панель «Утилиты» раскрывающийся список «Измерить» «Быстрое».

Вычисленные значения можно увидеть при наведении указателя на объекты и между ними.

Прим.: Параметр «Быстрое» предназначен для динамического отображения вычисленной площади замкнутого объекта. Обратите внимание, что из указанной площади, выделенной зеленым цветом, исключены разомкнутые пространства. Удерживая клавишу SHIFT, щелкните мышью, чтобы указать несколько замкнутых областей для расчета.

Добавление метки рассчитанной площади

Можно вставить несколько меток, отображающих площадь переговорных комнат. При использовании команд ПЛОЩАДЬ или ИЗМЕРИТЬГЕОМ либо палитры свойств площадь отображается, но метки на чертеже не создаются. Для отображения площади используйте мультивыноски (МВЫНОСКА) и поля. Дополнительные сведения и советы по использованию команды МВЫНОСКА см. в разделе А вы пробовали использовать мультивыноски для меток и выносных элементов?

Перейдите на вкладку «Аннотации» и выберите панель «Выноски». Выберите инструмент «Мультивыноска».
Щелкните в любом месте внутри периметра, чтобы задать расположение стрелки, а затем щелкните в месте расположения полки выноски.
Введите текст (например, Площадь =).
Поместите указатель в то место, где должен располагаться текст поля. Щелкните правой кнопкой мыши и выберите «Вставить поле».

Совет: Если в контекстном меню нет параметра «Вставить поле», нажмите клавиши CTRL + F.

Диалоговое окно "Поле" временно закроется.

Доступен предварительный просмотр рассчитанного значения выбранного свойства.

Площадь выбранного помещения отображается в тексте мультивыноски.

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

Совет: Данные в поле не обновляются автоматически. Перерасчет полей управляется системной переменной FIELDEVAL. Если задано значение по умолчанию, при сохранении или использовании команды РЕГЕН это поле будет обновлено. Кроме того, можно дважды щелкнуть текст мультивыноски (в месте вставки поля). Щелкните правой кнопкой мыши и выберите «Обновить поле». Предположим, что по новым региональным нормативам допускается один человек на четыре квадратных метра (м 2 ) пространства перекрытия. Можно определить максимальное количество человек на встрече в любое время, разделив площадь помещения на 4 м 2 .

Переговорная	Площадь (м 2 )	Максимальное количество человек
RM 1	24.00	6
RM 2	40.00	10

Упорядочение объектов и их размещение на определенном расстоянии

Добавьте мебель в переговорные комнаты и расположите кресла так, чтобы они находились хотя бы на расстоянии метра друг от друга.

Перейдите на вкладку «Вид» панель «Палитры» «Центр управления». найти
В дереве Центра управления перейдите к компоненту, который требуется добавить в чертеж. В данном примере компонент CHAIR7 находится в папке %ProgramFiles%\Autodesk\AutoCAD <выпуск>\Sample\Database Connectivity\Floor Plan Sample.dwg\Blocks.
Вставьте шесть кресел в область RM 1 и 10 кресел в область RM 2.

Параметр «Быстрое» особенно полезен при отображении расстояний на чертеже в реальном времени. Кроме того, можно использовать команду ДИСТ, чтобы найти расстояние между определенными точками.

Сводная информация

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

Автор:

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

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

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

Выводится диалоговое окно "Нанесение отметки уровня".

Если требуется.	то .
выбрать существующую систему координат из чертежа,	выберите систему координат из списка в окне ПСК.
создать пользовательскую систему координат (ПСК) под новым именем,	нажмите на (определить ПСК) и определите новую ПСК на экране.
использовать ПСК имеющейся отметки уровня,	нажмите на (согласовать ПСК) и выберите отметку уровня на экране.

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

Например, имеется ПСК под именем "Первый этаж", и в ней исходным значением Z является 3 м. Когда отметку уровня вводят в МСК и устанавливают для нее значение 2 м и затем изменяют систему координат на "Первый этаж", то Z-значение отметки уровня заменяется на ‑1 м.

Читайте также: