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

标注文字提取（急）

本帖最后由 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:11

本帖最后由 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:28

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

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

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

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

能在修改一下吗？

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

这个贴子
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=93576&highlight=%B1%EA%D7%A2%D0%C5%CF%A2

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

别捣乱，发的什么啊
页: [1]
查看完整版本: 标注文字提取（急）