;+++++++++++++++++++++++++++++
;+  已知根数,直径求钢筋面积[mini_rein_cale1]  +
;+++++++++++++++++++++++++++++

(apply
	'(lambda( / x )
		(or mai_pile_text
			(not (setq x (mai_panel_search "谜你结构专业设置文件[mini_jiegou_config].lsp")))
			(load x)
		)
	)
	nil
)

(defun c:mini_rein_cale1 (/ old_cmd n d) ;a1
	(mini_start nil)
	(mai_last_com "mini_rein_cale1")
	(and
		(setq n (getreal "\n钢筋根数 = "))
		(setq d (getreal "\n钢筋直径 [毫米mm] = "))  
		(princ (strcat "\n钢筋面积 [平方毫米mm2] = " (rtos (* n 0.25 pi d d) 2 2)))
	)
	(mai_end)
) ;defun c:a1 end
