;+++++++++++++++++++++++++++++++
;+  画正交矩形箍筋[mini_jxkj]  +
;+++++++++++++++++++++++++++++++

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

(defun c:mini_jxkj ( / old_cmd old_pwidth  pt1 pt2) ;old_osmode
	(mini_start nil)
	(mai_last_com "mini_jxkj")
	(mai_get_scale)
	; (setq old_osmode (getvar "osmode"))
	; (setvar "osmode" 4)
	(setq old_pwidth (getvar "plinewid"))
	(and
		(setq pt1 (getpoint "\n画正交矩形箍筋第一角点:<退出>"))
		(setq pt2 (getcorner pt1 "\n画正交矩形箍筋第二角点:<退出>"))
		(mai_make_dmpj pt1 pt2 nil (* -15 (/ 100. mai_scale2)))
	)
	(mai_end)
)
