CADghost 发表于 2004-6-20 15:06:00

提取文字到EXCEL

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


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

wjm3 发表于 2004-6-20 16:10:00

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

CADghost 发表于 2004-6-20 17:29:00

是吗？我试试

CADghost 发表于 2004-6-21 07:59:00

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


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

mmmmmm 发表于 2004-6-22 21:14:00

参考

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

香田里浪人 发表于 2013-12-1 20:10:18

;;;取得图层所有文本.
(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文本导出")
页: [1]
查看完整版本: 提取文字到EXCEL