不能自动打开excel

liuxinkai

2. (defun c:c2e (/ hangdau)
   
3. 
   
4.   (defun sosanh  (e1 e2 / p1 p2)
   
5. 
   
6.     (setq p1 (car e1)
   
7. 
   
8.     p2 (car e2)
   
9. 
   
10.     )
    
11. 
    
12.     (if  (equal (cadr p1) (cadr p2) fuzz)
    
13. 
    
14.       (< (car p1) (car p2))
    
15. 
    
16.       (< (cadr p2) (cadr p1))
    
17. 
    
18.     )
    
19. 
    
20.   )
    
21. 
    
22.   (setq  ss  (ssget "_C" (setq pt(getpoint "选取第一点："))(getcorner pt  "\n选取第二点：") '((0 . "TEXT")));做了部分修改
    
23. 
    
24.   lst  (ss2ent ss)
    
25. 
    
26.   lst  (mapcar  '(lambda (e)
    
27. 
    
28.          (cons (cdr (assoc 10 (entget e)))
    
29. 
    
30.          (cdr (assoc 1 (entget e)))
    
31. 
    
32.          )
    
33. 
    
34.        )
    
35. 
    
36.       lst
    
37. 
    
38.     )
    
39. 
    
40.   lst  (mapcar  '(lambda (e)
    
41. 
    
42.          (if (= (cdr e) "*")
    
43. 
    
44.            (cons (car e) "")
    
45. 
    
46.            e
    
47. 
    
48.          )
    
49. 
    
50.        )
    
51. 
    
52.       lst
    
53. 
    
54.     )
    
55. 
    
56.   caotext  (cdr (assoc 40 (entget (ssname ss 0))))
    
57. 
    
58.   fuzz  (* caotext 1.0)
    
59. 
    
60.   lst  (vl-sort lst 'sosanh)
    
61. 
    
62.   index  1
    
63. 
    
64.   oldy  nil
    
65. 
    
66.   fid  (open "d:\\xls数据文件.csv" "w")
    
67. 
    
68.   )
    
69. 
    
70. (command "start" "d:\\xls数据文件.csv")
    
71. 
    
72.   (foreach e lst
    
73. 
    
74.     (if  (equal oldy (cadr (car e)) fuzz)
    
75. 
    
76.       (progn (princ "," fid) (setq index (1+ index)))
    
77. 
    
78.       (progn (if hangdau
    
79. 
    
80.          (progn (setq index 1) (princ "\n" fid))
    
81. 
    
82.          (setq hangdau t)
    
83. 
    
84.        )
    
85. 
    
86.       )
    
87. 
    
88.     )
    
89. 
    
90.     (princ (cdr e) fid)
    
91. 
    
92.     (setq oldy (cadr (car e)))
    
93. 
    
94.   )
    
95. 
    
96.   (close fid)
    
97. 
    
98. )
    
99. 
    
100. (defun ss2ent (ss / sodt index lstent)
     
101. 
     
102.   (setq  sodt  (if ss
     
103. 
     
104.     (sslength ss)
     
105. 
     
106.     0
     
107. 
     
108.         )
     
109. 
     
110.   index 0
     
111. 
     
112.   )
     
113. 
     
114.   (repeat sodt
     
115. 
     
116.     (setq ent   (ssname ss index)
     
117. 
     
118.     index   (1+ index)
     
119. 
     
120.     lstent (cons ent lstent)
     
121. 
     
122.     )
     
123. 
     
124.   )
     
125. 
     
126.   (reverse lstent)
     
127. 
     
128. )

(defun c:c2e (/ hangdau)<br /> <br />   (defun sosanh  (e1 e2 / p1 p2)<br /> <br />     (setq p1 (car e1)<br /> <br />     p2 (car e2)<br /> <br />     )<br /> <br />     (if  (equal (cadr p1) (cadr p2) fuzz)<br /> <br />       (< (car p1) (car p2))<br /> <br />       (< (cadr p2) (cadr p1))<br /> <br />     )<br /> <br />   )<br /> <br />   (setq  ss  (ssget "_C" (setq pt(getpoint "选取第一点："))(getcorner pt  "\n选取第二点：") '((0 . "TEXT")));做了部分修改<br /> <br />   lst  (ss2ent ss)<br /> <br />   lst  (mapcar  '(lambda (e)<br /> <br />          (cons (cdr (assoc 10 (entget e)))<br /> <br />          (cdr (assoc 1 (entget e)))<br /> <br />          )<br /> <br />        )<br /> <br />       lst<br /> <br />     )<br /> <br />   lst  (mapcar  '(lambda (e)<br /> <br />          (if (= (cdr e) "*")<br /> <br />            (cons (car e) "")<br /> <br />            e<br /> <br />          )<br /> <br />        )<br /> <br />       lst<br /> <br />     )<br /> <br />   caotext  (cdr (assoc 40 (entget (ssname ss 0))))<br /> <br />   fuzz  (* caotext 1.0)<br /> <br />   lst  (vl-sort lst 'sosanh)<br /> <br />   index  1<br /> <br />   oldy  nil<br /> <br />   fid  (open "d:\\xls数据文件.csv" "w")<br /> <br />   )<br /> <br /> (command "start" "d:\\xls数据文件.csv")<br /> <br />   (foreach e lst<br /> <br />     (if  (equal oldy (cadr (car e)) fuzz)<br /> <br />       (progn (princ "," fid) (setq index (1+ index)))<br /> <br />       (progn (if hangdau<br /> <br />          (progn (setq index 1) (princ "\n" fid))<br /> <br />          (setq hangdau t)<br /> <br />        )<br /> <br />       )<br /> <br />     )<br /> <br />     (princ (cdr e) fid)<br /> <br />     (setq oldy (cadr (car e)))<br /> <br />   )<br /> <br />   (close fid)<br /> <br /> )<br /> <br /> (defun ss2ent (ss / sodt index lstent)<br /> <br />   (setq  sodt  (if ss<br /> <br />     (sslength ss)<br /> <br />     0<br /> <br />         )<br /> <br />   index 0<br /> <br />   )<br /> <br />   (repeat sodt<br /> <br />     (setq ent   (ssname ss index)<br /> <br />     index   (1+ index)<br /> <br />     lstent (cons ent lstent)<br /> <br />     )<br /> <br />   )<br /> <br />   (reverse lstent)<br /> <br /> )

前几天从此网站下载了这个cad文字转excel的代码（找不到下载地址了），按道理生成excel后会自动打开，但是没反应。把(command "start" "d:\\xls数据文件.csv")放到命令行运行能打开。在(command "start" "d:\\xls数据文件.csv")之前加(command "delay" 2000)延时，之后加延时都打不开，有什么诀窍吗？

寒潮大冬瓜

其实导出csv格式文件比较合适，因为很多电脑只安装wps，输出excel的‘xls’格式文件，在没有安装office的主程序的前提下似乎创建不了，创建csv反而可以，其实也是表格……

kozmosovia

要close fid之后才能start csv。否则文件被打开，还没写数据。

kozmosovia

寒潮大冬瓜 发表于 2025-1-20 12:04
其实导出csv格式文件比较合适，因为很多电脑只安装wps，输出excel的‘xls’格式文件，在没有安装office的主 ...

不存在，可以按照csv的格式，后缀用xls就行，WPS或者Excel打开时会自动识别并打开。

寒潮大冬瓜

升级版TQZB2014-6-19提取文字及其插入点10坐标提取到指定文件夹
http://bbs.mjtd.com/forum.php?mo ... &fromuid=418631
(出处: 明经CAD社区)
我菜鸟出来的代码导出的都是‘csv’格式，如果是txt，不能直接深化处理……