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

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

有如下代码，可以用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:07

自己顶一下！…

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

无人懂吗？

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

继续顶………………。

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

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

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

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

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

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

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

(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:18

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

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

不懂，学习下
页: [1]
查看完整版本: 【Excel2007】cad文字导入Excel源码只能2003格式问题！