(defun c:sse (/ ss x obj str )
	(sun-undo-start-king)
	(setq ss (ssget '((0 . "TEXT"))))
	(foreach x (sun-ss2lst_lst2ss ss)
		(setq obj (sun-e-v x)
			str (vla-get-TextString obj)
		)
		(cond 
			((wcmatch str "Production Qty*")
				(vla-put-TextString obj (BF-str-subst-all "排版数量" "Production Qty" str))
			)
			((wcmatch str "Sheet*")
				(vla-put-TextString obj (BF-str-subst-all "板材" "Sheet" str))
			)
			((wcmatch str "Parts Nested*")
				(vla-put-TextString obj (BF-str-subst-all "已排零件" "Parts Nested" str))
			)
			((wcmatch str "Util*")
				(vla-put-TextString obj (BF-str-subst-all "利用率" "Util" str))
			)
			((wcmatch str "Cut Distance*")
				(vla-put-TextString obj (BF-str-subst-all "切割长度" "Cut Distance" str))
			)
		)
	)	
	(sun-undo-end-king)
	(princ)
)