;+++++++++++++++++++++++++++++++
;+  画单根箍筋-S筋[mini_dgsj]  +
;+++++++++++++++++++++++++++++++

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

(defun c:mini_dgsj ( / old_cmd old_pwidth p1 p2) ;old_osmode
	(mini_start nil)
	(mai_last_com "mini_dgsj")
	(mai_get_scale)
	; (setq old_osmode (getvar "osmode"))
	; (setvar "osmode" 4)
	(setq old_pwidth (getvar "plinewid"))
	(and
		(setq p1 (getpoint "\n画单根箍筋(S筋)第一点:<退出>"))
		(setq p2 (getpoint p1 "\n画单根箍筋(S筋)第二点:<退出>"))
		(mai_make_dgsj p1 p2)
	)
	(mai_end)
)
