如何把CAD里面的每个数字导出到EXCEL?

aytxq

回复 仲文玉 的帖子

能不能具體的講一下，尤其是怎麼把字符寫入對應的csv欄位和列位.謝謝

yshf

2. 
   
3. (defun c:test()
   
4.    (if (setq ssa (ssget "x" '((0 . "text"))))
   
5.        (progn
   
6.             (setq name (open "d:\\test.csv" "w")
   
7.                   n    (sslength ssa)
   
8.                   i    0
   
9.             )
   
10.             (repeat n
    
11.                 (setq ent (ssname ssa i)
    
12.                       zfc (cdr (assoc 1 (entget ent)))
    
13.                       i   (1+ i)
    
14.                 )
    
15.                 (if (= (read zfc) (atof zfc))
    
16.                     (princ (strcat zfc "\n") name)
    
17.                 )
    
18.             )
    
19.             (close name)
    
20.    
    
21.        )
    
22.    )
    
23.    (princ)
    
24. )
    

<br /> (defun c:test()<br />    (if (setq ssa (ssget "x" '((0 . "text"))))<br />        (progn<br />             (setq name (open "d:\\test.csv" "w")<br />                   n    (sslength ssa)<br />                   i    0<br />             )<br />             (repeat n<br />                 (setq ent (ssname ssa i)<br />                       zfc (cdr (assoc 1 (entget ent)))<br />                       i   (1+ i)<br />                 )<br />                 (if (= (read zfc) (atof zfc))<br />                     (princ (strcat zfc "\n") name)<br />                 )<br />             )<br />             (close name)<br />    <br />        )<br />    )<br />    (princ)<br /> )<br />

yoyoho

谢谢! yshf 分享实用程序!!!!

773786668

yshf 发表于 2011-3-21 22:40

感谢分享程序