以前编过表格导文本的程序.docVIP

以前编过表格导出文本的程序，前天开始学和其他程序的连接，试着编了下面这个程序帮忙看看是否能用，现在不是很确定不同版本的excel有什么问题没有：） PHP代码:　　　　　　　　　　　　　　　　　　　　　　　　　　　 ;;; 提取cad表格到excel中的程序，功能比较简单，效率比较低 ;;; by qjchen ;;; 练练手而已，功能比较弱，建议大家用truetable：） ;;; 要求r2000以上，要求所有的文本在格子中，每个格子只有一个文本，文本可在格 ;;; 子内任何位置，要求非常规则的表格，表格从上到下的列数都一致? ;;; 所以选择的时候最好不要选择标题栏 ;;; 编程思路：沿左上角画两条线，和表格相交得到表格的各列宽度和各行高度，循? ;;; 环选取文本到表中 ;;; 待改进的地方:争取不要那么多废话让自己选择文件名，不断选择则不断往一个 ;;; excel里面存，直到不想要为止 ;;; 我个人还是比较喜欢存到txt中，而非直接到excel (defun c:b2e (/ p1 p2 p3 p4 p1a p2a p1b p4b pvlist phlist palllist newpvlist ????????i j column row ss palist en ed ttext fn fh ?????????) ??(setvar osmode 33) ??(setq p1 (getpoint \n左上角点：)) ??(setq p3 (getpoint \n右下角点：)) ??(setvar osmode 0) ??(setq p2 (list (car p1) (car (cdr p3)) 0)) ??(setq p4 (list (car p3) (car (cdr p1)) 0)) ??(setq p1a (polar p1 0 1)) ??(setq p2a (polar p2 0 1)) ??(setq p1b (polar p1 (* pi 1.5) 1)) ??(setq p4b (polar p4 pi 1))???????????; 纵向交点集pvlist ??(setq pvlist (vl-Get-Int-Pt p1a p2a)) ??(setq pvlist (mapcar ???????? (lambda (x) ????????????(polar x pi 1) ??????????) ???????? pvlist ???????????) ??)???????????????????????; 横向交点集phlist ??(setq phlist (vl-Get-Int-Pt p1b p4b)) ??(setq palllist (list pvlist)) ??(setq i 1) ??(repeat (- (length phlist) 1) ????(setq newpvlist (mapcar ??????????????(lambda (x) ???????????? (list (car (nth i phlist)) (car (cdr x)) ???????????????????(car (cddr x)) ???????????? ) ???????????????) ??????????????pvlist ????????????) ????) ????(setq palllist (append ?????????????palllist ?????????????(list newpvlist) ???????????) ????) ????(setq i (1+ i)) ??) ??(setq column (length palllist)) ??(setq row (length (nth 0 palllist))) ??(setq j 0) ??(setq finallist nil) ??(repeat (- row 1) ????(setq i 0 ??????rowlist nil ????) ????(repeat (- column 1) ??????(setq pa1 (nth j (nth i palllist))) ??????(setq pa2 (nth (1+ j) (nth i palllist))) ??????(setq pa3 (nth (1+ j) (nth (1+ i) palllist))) ??????(setq pa4 (nth j (nth (1+ i) palllis