通信人家园

标题: 框选CAD文字导入Excel表格进行数据处理的LISP代码 [查看完整版帖子] [打印本页]

时间: 2013-11-11 08:42

作者: 利源制图 标题: 框选CAD文字导入Excel表格进行数据处理的LISP代码

框选CAD文字导入Excel表格进行数据处理
(defun c:dc()
(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)
)

时间: 2013-11-11 09:28

作者: mobileww

太深奥不懂不过感觉很有用

通信人家园 (https://www.txrjy.com/)