(defun c:ttr (/ str ename1 attlst ss ename2 lst i strlst)	
	(setq attlst (list "材料" "厚度" "单套数量" "零件图号"));;;属性标记
	(setq strlst (list " " "-" "件" "T" "PCS" "pcs" "\\P"));;;分隔符
	(setq ss (ssget))
	(and 
		(setq sslst (sun-ss2lst_lst2ss ss))
		(setq ename1 (car (vl-remove-if-not
												'(lambda (x)
													 (= (sun-dxf 0 x) "INSERT")
												 )
												sslst
											)									 
								 )			
		)
		(setq ename2 (car (vl-remove-if-not
												'(lambda (x)
													 (wcmatch (sun-dxf 0 x) "*TEXT")
												 )
												sslst
											)									 
								 )			
		)
		(setq lst (sun-str-Split (sun-mtext2text(sun-dxf 1 ename2)) strlst))
		(setq i 0)
		(foreach x lst 
			(sun-xz-att ename1 (nth i attlst) x)
			(setq i (1+ i))
		)
	)	
	(princ)
)