	;; 删掉梁箍筋的非加密区-留加密箍[mini_ljmk]

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



(defun c:mini_ljmk (/ old_cmd e elist n nv1 sl ss v1)
	;; by 小萝卜头 8/25/10 10:01 上午
	(mini_start nil)
	(princ "\n删掉梁箍筋的非加密区 by 小萝卜头")
	(setq ss (mai_select_first '((0 . "TEXT") (1 . "%%13#*`@*`/*(#)")) "选择删掉梁箍筋的非加密区文字实体:" "没有选择文字实体."))
	(foreach e (mai_ssget_2_list ss)
		(setq
			elist (entget e)
			v1 (mai_dxf 1 elist)
			n (vl-string-position 47 v1)
			sl (strlen v1)
			nv1 (strcat (substr v1 1 n) (substr v1 (- sl 2) sl))
		)
		(entmod (subst (cons 1 nv1) (assoc 1 elist) elist))
	)
	(mai_end)
)
