XDExcel 解析库应用(1)---圆心坐标按行列输出 Excel

st788796

1. (defun c:tt (/ ss lst i j sheet)
   
2.   (if (and (setq ss (ssget '((0 . "circle"))))
   
3.            (xdex_book_open) ;_开始新的 xls 文件
   
4.            (setq sheet (xdex_book_addsheet "test")) ;_新建一个 sheet
   
5.            (xdex_book_setActiveSheet "test") ;_将sheet 设为当前
   
6.       )
   
7.     (progn
   
8.       (setq
   
9.         lst (mapcar '(lambda (x / p)
   
10.                        (setq p (xdrx_getpropertyvalue x "center"))
    
11.                        (list p p)
    
12.                      )
    
13.                     (xdrx_pickset->ents ss)
    
14.             )
    
15.         lst (xd::list:tablesort lst 0 3 1e-3)
    
16.         lst (apply 'append
    
17.                    (mapcar '(lambda (x)
    
18.                               (mapcar 'car x)
    
19.                             )
    
20.                            lst
    
21.                    )
    
22.             )
    
23.         i   0
    
24.       )
    
25.       (xdrx_runtime t)
    
26.       (foreach x lst
    
27.         (setq j -1)
    
28.         (mapcar        '(lambda (a)
    
29.                    (xdex_cell_write i (setq j (1+ j)) a) ;_写出坐标
    
30.                  )
    
31.                 x
    
32.         )
    
33.         (setq i (1+ i))
    
34.       )
    
35.       (xdex_book_save "d:\\test.xls")
    
36.       (princ "\n")
    
37.       (princ (xdrx_runtime))
    
38.       (princ "\nd:\\test.xls is Ok!")
    
39.     )
    
40.   )
    
41.   (princ)
    
42. )
    

(defun c:tt (/ ss lst i j sheet)<br />   (if (and (setq ss (ssget '((0 . "circle"))))<br />            (xdex_book_open) ;_开始新的 xls 文件<br />            (setq sheet (xdex_book_addsheet "test")) ;_新建一个 sheet <br />            (xdex_book_setActiveSheet "test") ;_将sheet 设为当前<br />       )<br />     (progn<br />       (setq<br />         lst (mapcar '(lambda (x / p)<br />                        (setq p (xdrx_getpropertyvalue x "center"))<br />                        (list p p)<br />                      )<br />                     (xdrx_pickset->ents ss)<br />             )<br />         lst (xd::list:tablesort lst 0 3 1e-3)<br />         lst (apply 'append<br />                    (mapcar '(lambda (x)<br />                               (mapcar 'car x)<br />                             )<br />                            lst<br />                    )<br />             )<br />         i   0<br />       )<br />       (xdrx_runtime t)<br />       (foreach x lst<br />         (setq j -1)<br />         (mapcar        '(lambda (a)<br />                    (xdex_cell_write i (setq j (1+ j)) a) ;_写出坐标<br />                  )<br />                 x<br />         )<br />         (setq i (1+ i))<br />       )<br />       (xdex_book_save "d:\\test.xls")<br />       (princ "\n")<br />       (princ (xdrx_runtime))<br />       (princ "\nd:\\test.xls is Ok!")<br />     )<br />   )<br />   (princ)<br /> )<br />

这个 Excel 库太快了！

st788796

改进后模式

1. (defun c:tt (/ ss lst )
   
2.   (if (and (setq ss (ssget '((0 . "circle"))))
   
3.            (xdex_book_open) ;_开始新的 xls 文件
   
4.              (xdex_book_addsheet "test" t) ;_新建一个 sheet 并设为当前
   
5.       )
   
6.     (progn
   
7.       (setq
   
8.         lst (mapcar '(lambda (x / p)
   
9.                        (setq p (xdrx_getpropertyvalue x "center"))
   
10.                        (list p p)
    
11.                      )
    
12.                     (xdrx_pickset->ents ss)
    
13.             )
    
14.         lst (xd::list:tablesort lst 0 3 1e-3)
    
15.         lst (apply 'append
    
16.                    (mapcar '(lambda (x)
    
17.                               (mapcar 'car x)
    
18.                             )
    
19.                            lst
    
20.                    )
    
21.             )
    
22.       )
    
23.       (xdrx_runtime t)
    
24.       (xdex_cell_rangewrite 0 0 lst);_批量写入
    
25.       (xdex_book_save "d:\\test.xls")
    
26.       (princ "\n")
    
27.       (princ (xdrx_runtime))
    
28.       (princ "\nd:\\test.xls is Ok!")
    
29.     )
    
30.   )
    
31.   (princ)
    
32. )
    

(defun c:tt (/ ss lst )<br />   (if (and (setq ss (ssget '((0 . "circle"))))<br />            (xdex_book_open) ;_开始新的 xls 文件<br />              (xdex_book_addsheet "test" t) ;_新建一个 sheet 并设为当前<br />       )<br />     (progn<br />       (setq<br />         lst (mapcar '(lambda (x / p)<br />                        (setq p (xdrx_getpropertyvalue x "center"))<br />                        (list p p)<br />                      )<br />                     (xdrx_pickset->ents ss)<br />             )<br />         lst (xd::list:tablesort lst 0 3 1e-3)<br />         lst (apply 'append<br />                    (mapcar '(lambda (x)<br />                               (mapcar 'car x)<br />                             )<br />                            lst<br />                    )<br />             )<br />       )<br />       (xdrx_runtime t)<br />       (xdex_cell_rangewrite 0 0 lst);_批量写入<br />       (xdex_book_save "d:\\test.xls")<br />       (princ "\n")<br />       (princ (xdrx_runtime))<br />       (princ "\nd:\\test.xls is Ok!")<br />     )<br />   )<br />   (princ)<br /> )<br />

命令: tt
选择对象: 指定对角点: 找到 6156 个
选择对象:
2.106
d:\test.xls is Ok!

6100 行坐标，写表格 2.1s

good32167

正在学表格导出 学习了

dbqtju

留下了。有空研究。

dbqtju

留下了。有空看看

l775887181

不够职分不够职分不够职分不够职分不够职分不够职分

wenyish

cad导出excel，excel导入cad，太重要了，数据时代！

alieacm

学习学习，有空看看