怎么提取多个多行文字的内容输出到excel

shasow · 发表于 2015-1-19 01:17:32

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 shasow 于 2015-1-19 01:24 编辑

我有一张图，有好多个房间的名字，都是多行文字，我想提取多行文字到excel，如何实现，有没有lsp？

newer · 发表于 2015-1-19 02:04:38

把图传上来吧。

shasow · 发表于 2015-1-19 02:16:36

本帖最后由 shasow 于 2015-1-19 02:18 编辑

附件如下：我的一段程序可以提取，但把多行文字的控制符也提出来了，如何只提取多行文字内容？？

(defun c:q2()
(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 "MTEXT"))
(progn
(setq txt (cdr (assoc 1 ssdata)))
(princ txt ff)
(princ "\n" ff)
)
)
(setq i (1+ i))
)
(close ff)
(princ (strcat "\n写出文件: " ffn))
(prin1)
)

shasow · 发表于 2015-1-19 02:24:02

此贴发的板块不合适，现已改到A/VLISP板中，请版主删除此贴

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

怎么提取多个多行文字的内容输出到excel

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子