;+++++++++++++++++++++++++++++++++
;+  画矩形断面及配筋[mini_dmpj]  +
;+++++++++++++++++++++++++++++++++

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

(defun c:mini_dmpj ( / old_cmd p1 p2 old_filletrad )
	(mini_start nil)
	(mai_last_com "mini_dmpj")
	(mai_get_scale)
	(setq old_pwidth (getvar "plinewid"))
	(and
		(setq p1 (getpoint "\n输入左下角:<退出>"))
		(setq
			old_filletrad (getvar "filletrad")
			p2 (getcorner p1 "\n输入右上角:<退出>")
		)
	)
	(or p2 (exit))
	(apply 'mai_create_layer mai_beam_jiemian)
	(setvar "plinewid" 0)
	(mai_entmake "rectangle" (list p1 p2))
	(mai_make_dmpj p1 p2 T (/ -3000. mai_scale2))
	(mai_end)
)
