| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > полуавтоматический подсчёт картограммы земляных масс

полуавтоматический подсчёт картограммы земляных масс

Ответ
Поиск в этой теме
Непрочитано 07.03.2011, 02:40 #1
полуавтоматический подсчёт картограммы земляных масс
baaba
 
архитектор
 
Москва
Регистрация: 07.07.2007
Сообщений: 644

Небольшой лиспик помогающий подсчитывать земляные массы на картограмме:
Код:
[Выделить все]
; Its impotant: before runing set the "_sqsite"!
(setq _sqsite 25.0)

(defun gcode (_msg) (entget (car (entsel _msg)))) 

(defun gnum (_msg) (atof (cdr (assoc 1 (gcode _msg)))))

(defun txtch (_tval _msg / _tg)
	(setq _tg (gcode _msg))
	(entmod (subst (cons 1 _tval) (assoc 1 _tg) _tg))
)

(defun c:calcheight ()
	(txtch
		(rtos (- (gnum "\nSelect the project height:") (gnum "\nSelect existing height:")))
		"\nSelect working height text string:")
	(princ)
)

(defun c:calcvol ()
	(txtch
		(rtos (*	(/
			(+
				(gnum "\nSelect height 1: ")
				(gnum "\nSelect height 2: ")
				(gnum "\nSelect height 3: ")
				(gnum "\nSelect height 4: ")
			) 4.0) (expt _sqsite 2)))
		"\nSelect volume text string:"
	)
	(princ)
)

(princ "\n Type CALCHEIGHT and then CALCVOL")
(princ)
Идея такова:
1, создаётся сетка с пустыми значениями;
2, добавляются зрачения проектной отметки и существующей отметки, вручную (по даным топоосновы и вертикальной планировки);
3, высчитываются значения рабочих отметок, коммандой CALCHEIGHT, путём указания на экране;
4, коммандой CALCVOL высчитываются значения объёмов (среднее арифметическое четёрёх рабочих отметок перемноженное на площадь ячейки сетки. Важно не забыть в коде программы установить переменную _sqsite, перед загрузкой программы. У меня она сейчас стоит на 25 метрах).
Да, это всё попахивает грязным хаком, но я планирую сэкономить полдня работы. Если кому надо, с удовольствием делюсь заготовкой.
Прилагаю чертёж и скриншот.

Миниатюры
Нажмите на изображение для увеличения
Название: screen_070311-02-29-05.jpg
Просмотров: 1305
Размер:	39.9 Кб
ID:	55083  

Вложения
Тип файла: zip Drawing1.zip (7.5 Кб, 644 просмотров)

Просмотров: 9130
 
Непрочитано 20.05.2011, 08:42
#2
Largo GT

Архитектор
 
Регистрация: 11.03.2009
Новороссийск
Сообщений: 99


Offtop: а зачем архитектору считать картограммы ?
Largo GT вне форума  
 
Непрочитано 27.05.2013, 07:10
#3
Valery Brelovsky

Инженер дорожник
 
Регистрация: 22.10.2007
Израиль
Сообщений: 1,859


А если в квадрате рабочие отметки не только плюсовые.
Valery Brelovsky вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > полуавтоматический подсчёт картограммы земляных масс

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Баланс земляных масс и последствия Дмитрий DV Технология и организация строительства 4 12.11.2011 15:22
Баланс земляных масс Chief Justice Прочее. Архитектура и строительство 11 26.10.2011 10:11
ГП, Подсчет объемов земляных масс zodchij Прочее. Архитектура и строительство 1 09.12.2010 10:07
Оформление плана земляных масс под засыпку котлованов и планировку площадки Никитка Прочее. Архитектура и строительство 9 15.10.2010 16:04