[baaba]

Небольшой лиспик помогающий подсчитывать земляные массы на картограмме:

Код:

[Выделить все]

; 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 метрах).
Да, это всё попахивает грязным хаком, но я планирую сэкономить полдня работы. Если кому надо, с удовольствием делюсь заготовкой.
Прилагаю чертёж и скриншот.

[Largo GT]

Offtop: а зачем архитектору считать картограммы ?

[Valery Brelovsky]

А если в квадрате рабочие отметки не только плюсовые.