XIAO890325 发表于 2023-4-23 13:13:02

CAD批量提取文字

求一个批量提取文字插件

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

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

liuhe 发表于 2023-4-23 13:53:55

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

XIAO890325 发表于 2023-4-23 16:09:26

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

多行，而且分开的

liuhe 发表于 2023-4-23 16:37:52

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

你提取出来干么呢

XIAO890325 发表于 2023-4-24 08:48:41

弄到表格里，

XIAO890325 发表于 2023-4-25 15:04:54

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


这个怎么用的？
页: [1]
查看完整版本: CAD批量提取文字