求一个提取功能

664571221

求一个提取功能，如图轴线符号，提取其中的文字，如果提取多个用中间用  /  来间隔  7-E/7-D

永不言弃

不知道是 不是这个意思

2. ;;;需要小懒人工具箱支持
   
3. ;;;下载地址
   
4. ;;;http://yunpan.cn/c3iAVqYptpwj9  访问密码 cc19
   
5. ;;;QQ群： 208388011
   
6. (defun c:tt();;;文字合并输出
   
7.   (vl-load-com)
   
8.   (setq ss (ssget (list(cons 0 "TEXT"))))
   
9.   (if (/= ss nil)
   
10.     (progn
    
11.       (setq tex (xlr_ss_ssptn ss 1))
    
12.       (setq text "")
    
13.       (foreach tx tex
    
14.   (if (= text "")
    
15.     (setq text tx)
    
16.     (setq text (strcat tx "/" text))
    
17.     )
    
18.   )
    
19.       (xlr_dttext  text 1.5   3 )
    
20.       )
    
21.     )
    
22.   )

;;;需要小懒人工具箱支持<br /> ;;;下载地址<br /> ;;;http://yunpan.cn/c3iAVqYptpwj9  访问密码 cc19<br /> ;;;QQ群： 208388011<br /> (defun c:tt();;;文字合并输出<br />   (vl-load-com)<br />   (setq ss (ssget (list(cons 0 "TEXT"))))<br />   (if (/= ss nil)<br />     (progn<br />       (setq tex (xlr_ss_ssptn ss 1))<br />       (setq text "")<br />       (foreach tx tex<br />   (if (= text "")<br />     (setq text tx)<br />     (setq text (strcat tx "/" text))<br />     )<br />   )<br />       (xlr_dttext  text 1.5   3 )<br />       )<br />     )<br />   )