标注文字提取（急）

fxlt619 · 发表于 2019-12-30 09:28

本帖最后由 fxlt619 于 2020-1-6 09:21 编辑

哪个高手帮忙看一下，把标注文字提取到excel以后，怎么合并排序，最好能有一个序号(defun c:ZZC()
(setq ffn (getfiled "写出文件" "" "xls" 1))
(princ "\n选取文字...")
(setq ss (ssget))
(setq ff (open ffn "w"))
(setq i 0)
(repeat (sslength ss)
(setq ssn (ssname ss i))
(setq ssdata (entget ssn))
(setq sstyp (cdr (assoc 0 ssdata)))
(if (or (= sstyp "TEXT") (= sstyp "DIMENSION"))
(progn
(setq txt (cdr (assoc 42 ssdata)))
(princ txt ff)
(princ "\n" ff)
)
)
(setq i (1+ i))
)
(close ff)
(princ (strcat "\n写出文件: " ffn))
(prin1)
)

start4444 · 发表于 2019-12-30 13:54

本帖最后由 start4444 于 2019-12-30 14:18 编辑

(defun c:tt5 ()
(setq ffn (getfiled "写出文件" "" "xls" 1))
(princ "\n选取文字...")
(setq ss (ssget))
(setq ff (open ffn "w"))
(setq i 0)
(repeat (sslength ss)
(setq ssn (ssname ss i))
(setq ssdata (entget ssn))
(setq sstyp (cdr (assoc 0 ssdata)))
(if (or (= sstyp "TEXT") (= sstyp "DIMENSION"))
(progn
(setq txt (cdr (assoc 42 ssdata)))
(princ (setq i (1+ i)) ff) (princ "\t" ff) (princ txt ff)
(princ "\n" ff)
)
)
)
(close ff)
(princ (strcat "\n写出文件: " ffn))
(prin1)
)

fxlt619 · 发表于 2019-12-30 14:10

** Error: 参数类型错误: numberp: nil **

fxlt619 · 发表于 2019-12-30 14:21

只是加序号了？没有合并相同的？

fxlt619 · 发表于 2019-12-30 16:26

能在修改一下吗？

panliang9 · 发表于 2019-12-31 09:01

这个贴子
http://bbs.mjtd.com/forum.php?mo ... A%D7%A2%D0%C5%CF%A2

fxlt619 · 发表于 2019-12-31 14:59

别捣乱，发的什么啊

账号		自动登录	找回密码
密码			注册

[提问] 标注文字提取（急）

点评

浏览过的版块