提取文字到EXCEL

CADghost

怎样提出表LSP中的字符串到EXCEL纵列中呢？


（setq lsp ' ("1-1" "1-2" "1-3")

wjm3

如果只是导入excel第一列的话，方法和导入word、txt一样。

CADghost

是吗？我试试

CADghost

那么怎么将文字插入到EXCEL的第二列呢？


还有，怎么插入到第一列最后一个字符的下一列？

mmmmmm

参考

[WEB]http://www.ikozmos.com/vlae/vlxls/vlxls-project.htm[/WEB]

香田里浪人

;;;取得图层所有文本.
(defun c:outcsv()
(setq flnm (getfiled "保存文件名" "" "csv" 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文本导出")