CAD批量提取文字

XIAO890325

求一个批量提取文字插件

liuhe

2. (defun c:tt(/ ss i csv str e ff )
   
3.   (setq ss(ssget'(( 0 . "*text"))))
   
4.   (if (not ss)(vl-exit-with-value 0))
   
5.   (setq        i      0
   
6.         csv    "E:\\工作表.csv"
   
7.         ff     (open csv "w")
   
8.   )
   
9.   (repeat (sslength ss)
   
10.     (setq e(ssname ss i)
    
11.           str(cdr(assoc 1(entget e)))
    
12.           i(1+ i))
    
13.     (write-line str ff)
    
14.     )
    
15.   (close ff)
    
16.   )
    
17.    
    
18.    

(defun c:tt(/ ss i csv str e ff )<br />   (setq ss(ssget'(( 0 . "*text"))))<br />   (if (not ss)(vl-exit-with-value 0))<br />   (setq        i      0<br />         csv    "E:\\工作表.csv"<br />         ff     (open csv "w")<br />   )<br />   (repeat (sslength ss)<br />     (setq e(ssname ss i)<br />           str(cdr(assoc 1(entget e)))<br />           i(1+ i))<br />     (write-line str ff)<br />     )<br />   (close ff)<br />   )<br />    <br />    

liuhe

提取啥文字啊 多行 ？单行？属性值？块文字？

XIAO890325

liuhe 发表于 2023-4-23 13:53
提取啥文字啊 多行 ？单行？属性值？块文字？

多行，而且分开的

liuhe

XIAO890325 发表于 2023-4-23 16:09
多行，而且分开的

你提取出来干么呢

XIAO890325

弄到表格里，

XIAO890325

liuhe 发表于 2023-4-24 23:49

这个怎么用的？