不能自动打开excel
(defun c:c2e (/ hangdau)(defun sosanh(e1 e2 / p1 p2)
(setq p1 (car e1)
p2 (car e2)
)
(if(equal (cadr p1) (cadr p2) fuzz)
(< (car p1) (car p2))
(< (cadr p2) (cadr p1))
)
)
(setqss(ssget "_C" (setq pt(getpoint "选取第一点："))(getcorner pt"\n选取第二点：") '((0 . "TEXT")));做了部分修改
lst(ss2ent ss)
lst(mapcar'(lambda (e)
(cons (cdr (assoc 10 (entget e)))
(cdr (assoc 1 (entget e)))
)
)
lst
)
lst(mapcar'(lambda (e)
(if (= (cdr e) "*")
(cons (car e) "")
e
)
)
lst
)
caotext(cdr (assoc 40 (entget (ssname ss 0))))
fuzz(* caotext 1.0)
lst(vl-sort lst 'sosanh)
index1
oldynil
fid(open "d:\\xls数据文件.csv" "w")
)
(command "start" "d:\\xls数据文件.csv")
(foreach e lst
(if(equal oldy (cadr (car e)) fuzz)
(progn (princ "," fid) (setq index (1+ index)))
(progn (if hangdau
(progn (setq index 1) (princ "\n" fid))
(setq hangdau t)
)
)
)
(princ (cdr e) fid)
(setq oldy (cadr (car e)))
)
(close fid)
)
(defun ss2ent (ss / sodt index lstent)
(setqsodt(if ss
(sslength ss)
0
)
index 0
)
(repeat sodt
(setq ent (ssname ss index)
index (1+ index)
lstent (cons ent lstent)
)
)
(reverse lstent)
)前几天从此网站下载了这个cad文字转excel的代码（找不到下载地址了），按道理生成excel后会自动打开，但是没反应。把(command "start" "d:\\xls数据文件.csv")放到命令行运行能打开。在(command "start" "d:\\xls数据文件.csv")之前加(command "delay" 2000)延时，之后加延时都打不开，有什么诀窍吗？
其实导出csv格式文件比较合适，因为很多电脑只安装wps，输出excel的‘xls’格式文件，在没有安装office的主程序的前提下似乎创建不了，创建csv反而可以，其实也是表格…… 要close fid之后才能start csv。否则文件被打开，还没写数据。 寒潮大冬瓜 发表于 2025-1-20 12:04
其实导出csv格式文件比较合适，因为很多电脑只安装wps，输出excel的‘xls’格式文件，在没有安装office的主 ...
不存在，可以按照csv的格式，后缀用xls就行，WPS或者Excel打开时会自动识别并打开。 升级版TQZB2014-6-19提取文字及其插入点10坐标提取到指定文件夹
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=191507&fromuid=418631
(出处: 明经CAD社区)
我菜鸟出来的代码导出的都是‘csv’格式，如果是txt，不能直接深化处理……
页:
[1]