【Excel2007】cad文字导入Excel源码只能2003格式问题！

tm20038175 · 发表于 2011-5-31 20:33

有如下代码，可以用Excel2003使用，但是2007老是提示兼容问题，请高手改下，希望生成2007格式……

(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)
)

tm20038175 · 发表于 2011-6-1 19:08

自己顶一下！…

tm20038175 · 发表于 2011-6-2 18:54

无人懂吗？

tm20038175 · 发表于 2011-6-4 12:00

继续顶………………。

tm20038175 · 发表于 2011-6-4 17:02

再来顶一个~~~~~~~~~~~~~~~~~~~~~~~

tm20038175 · 发表于 2011-6-5 22:27

如何检测excel有没安装，有时候明明安装了却检测不到，是为什么呀。。。。。

tm20038175 · 发表于 2011-6-7 21:23

excel2007方面的资料真少啊………

香田里浪人 · 发表于 2013-12-1 20:21

(defun c:outxls()
(setq flnm (getfiled "保存文件名" "" "xls" 1))
　(setq fn (open flnm "w"))
　(setq s (ssget))
　(setq n (sslength s))
　(setq index ( - n 1))
　(repeat n
　　(setq ents (entget (ssname s index)))
　　(setq index ( - index 1))
　　(setq ent (assoc 0 ents))
　　(if ( = "TEXT" (cdr ent))
　　　　(progn
　　　　　　(setq txt (cdr (assoc 1 ents)))
　　　　　　(write-line txt fn)
　　　　)
　　)
　)
(close fn)
)
(princ "\n文本导出xls")

成仔 · 发表于 2013-12-2 10:06

请教一下，此程序可否改成换行输出？

feng83 · 发表于 2014-5-3 19:29

不懂，学习下

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

[讨论] 【Excel2007】cad文字导入Excel源码只能2003格式问题！

浏览过的版块