;;;*************************************************
;;;  按输入值删除板配筋面积
;    删除板配筋值[mini_sbpjz].lsp
;;;*************************************************
(apply
	'(lambda( / x )
		(or mai_pile_text
			(not (setq x (mai_panel_search "谜你结构专业设置文件[mini_jiegou_config].lsp")))
			(load x)
		)
	)
	nil
)

(defun c:mini_sbpjz (/ old_cmd s1 ss txt)
	(mini_start nil)
	(mai_last_com "mini_sbpjz")
	(setq
		ss (mai_select_first '((0 . "*TEXT")) "选择需要删除板配筋值的文字:<退出>" "没有找到文字.")
		tccad-删除板配筋值
			(mai_ureal
				1
				""
				"\n<1>请输入要删除的板配筋值"
				tccad-删除板配筋值
			)
	)
	(foreach s1 (mai_ssget_2_list ss)
		(setq txt (atof (mai_dxf 1 s1)))
		(if	(<= txt tccad-删除板配筋值)
			(entdel s1)
		)
	)
	(mai_end)
)
