- 1
- 0
- 约9.73千字
- 约 9页
- 2018-09-29 发布于江苏
- 举报
以前编过表格导文本的程序
以前编过表格导出文本的程序,前天开始学和其他程序的连接,试着编了下面这个程序帮忙看看是否能用,现在不是很确定不同版本的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
您可能关注的文档
- 以内数的认识陈娅.doc
- 以内的加法口算练习题.doc
- 以内连加连减三.ppt
- 以内连加连减口算题.docx
- 以内的退位减法复习课件.ppt
- 以创先争优活动抓手.doc
- 以制度建设打开腐倡廉新局面.doc
- 以前不懂爱,现爱上了思念的忧伤.pptx
- 以农民专业合作为台努力探索测土配方施肥专业化服务新模式.ppt
- 以前在指导区有1位老师给指导了1下有了1些起色.doc
- (正式版)DB51∕T 1867-2014 《袋栽黑木耳生产技术规程》.docx
- (正式版)DB51∕T 2413-2023 《油橄榄密植丰产栽培技术规程》.docx
- (正式版)DB51∕T 2436-2017 《川菜东坡一品肉烹饪工艺技术规范》.docx
- (正式版)DB51∕T 2396-2017 《农村电子商务服务站(点)服务与管理规范》.docx
- (正式版)DB51∕T 2419-2017 《桢楠扦插育苗技术规程》.docx
- CN105145773B 一种无花果曲奇饼干及其制作方法 (江苏农林职业技术学院).docx
- CN105203825A 微测量电极的制作方法和热电势的测量方法及相关装置 (国家纳米科学中心).docx
- CN105137533B 一种啁啾光纤光栅及其制作方法 (南京航空航天大学).docx
- (正式版)DB51∕T 2453-2018 《巴山新居公共管理指南》.docx
- (正式版)DB51∕T 1892-2014 《川西北地区沙化土地治理技术规程》.docx
原创力文档

文档评论(0)