[DDlis]

Здравствуйте.
У меня такая проблема: возникла надобность подсчитать объем бетона в монолитных стенах, считать каждую стену отдельно занятие долгое и я попробовал их выдавить в трехмерке и найти объем, так вот нет ли у кого-нибудь лиспа, который находил бы суммарный объем объемных фигур. Или если есть путь попроще подскажите пожалуйста

[Admin]

Сделай UNION всех нужных тебе солидов.
Получится один солид, даже если у них нет точек соприкосновения.
Вот у него и смотри объем.

[Fogel]

Сообщение от Admin Сделай UNION всех нужных тебе солидов. Получится один солид, даже если у них нет точек соприкосновения. Вот у него и смотри объем.

Какой такой UNION, зачем UNION дарагой? Просто выдели ВСЕ объекты будет тебе ОБЩИЙ объем
(defun c:massa()

Код:

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

	(command "_massprop" (SSGET) "" "_Y" "C:/Программы/acad+/massa.mpr")
	(setq oldcmd (getvar "CMDECHO"))
	(setvar "CMDECHO" 0)
	(setq F1 (OPEN "C:/Программы/acad+/massa.mpr" "R"))
	(READ-LINE F1)
	(READ-LINE F1)
	(READ-LINE F1)
	(SETQ ZAP (READ-LINE F1))
	(CLOSE F1)
	(SETQ ZAP (SUBSTR ZAP 7))
	(SETQ PL 7.86)
	(SETQ PL (GETREAL "Плотность материала (кг/м куб) <7680.0>"))
	(IF (= PL NIL) (SETQ PL 7860.0))
	(SETQ REZ (STRCAT (RTOS (* PL (ATOF ZAP) 0.000000001) 2 3) " кг"))
	(alert (STRCAT "Масса Вашего объекта " REZ))
	(setvar "CMDECHO" oldcmd)
)

Путь временного файла и плотность подогнать по вкусу.