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



; 删除配筋率值[mini_spjlz].lsp

(defun c:mini_spjlz ( /  s1 ss tc_text )
	(mini_start nil)
	(mai_last_com "mini_spjlz")
	(mai_get_scale)
	(setq
		ss (mai_select_first '((0 . "*TEXT")) "选择需要梁筋过滤的文字:<退出>" "没有找到文字.")
		tccad-删除配筋率值
			(mai_ureal
				1
				""
				"\n<1>请输入要提示的配筋率值"
				tccad-删除配筋率值
			)
	)
	(foreach s1 (mai_ssget_2_list ss)
		(setq tc_text (mai_dxf 1 s1))
		(mapcar
			'(lambda(x)(setq tc_text (vl-string-translate x " " tc_text)))
			(list "-" "(" ")" "%")
		)
		(setq 
			tc_text (read (strcat "(" tc_text ")"))
			tc_text (apply 'max (vl-remove-if-not 'numberp tc_text))
		)
		(if	(<= tc_text tccad-删除配筋率值)
			(entdel s1)
		)
	)
	(mai_end)
)
