XD Excel 解析库应用(4)-- 生成多段线顶点表到EXCEL

newer

1. (defun c:tt ()
   
2.   (if (and
   
3.         (setq e (car (xdrx_entsel "\n拾取一个多段线<退出>:" '((0 . "*POLYLINE")))))
   
4.         (setq fl (xdrx_system_selectFiles "选择文件" "界址点" "xls" 1))
   
5.         (setq fl (car fl))
   
6.       )
   
7.     (progn
   
8.       (setq ll nil)
   
9.       (setq pts (xdrx_getpropertyvalue e "vertices"))
   
10.       (setq ll (list '("编号" "X"
    
11.                       "Y" "Z"
    
12.                      )
    
13.                )
    
14.       )
    
15.       (setq j 1)
    
16.       (foreach n pts
    
17.         (setq ll (cons (list j (cadr n) (car n) (caddr n)) ll)
    
18.               j (1+ j)
    
19.         )
    
20.       )
    
21.       (setq ll (reverse ll))
    
22.       (if (and
    
23.             (xdex_book_open)
    
24.             (xdex_book_addsheet "界址点" t)
    
25.           )
    
26.         (progn
    
27.           (setq j 0)
    
28.           (foreach n ll
    
29.             (xdex_cell_write j 0 (car n))
    
30.             (xdex_cell_write j 1 (cadr n))
    
31.             (xdex_cell_write j 2 (caddr n))
    
32.             (xdex_cell_write j 3 (cadddr n))
    
33.             (setq j (1+ j))
    
34.           )
    
35.           (if (xdex_book_save fl)
    
36.             (progn
    
37.               (princ "\n文件生成成功.")
    
38.               (xdrx_system_shellexecute fl);;Execl打开刚生成的界址点坐标表
    
39.             )
    
40.           )
    
41.           (xdex_book_close)
    
42.         )
    
43.       )
    
44.     )
    
45.   )
    
46.   (princ)
    
47. )
    
48. 
    

(defun c:tt ()<br />   (if (and<br />         (setq e (car (xdrx_entsel "\n拾取一个多段线<退出>:" '((0 . "*POLYLINE")))))<br />         (setq fl (xdrx_system_selectFiles "选择文件" "界址点" "xls" 1))<br />         (setq fl (car fl))<br />       )<br />     (progn<br />       (setq ll nil)<br />       (setq pts (xdrx_getpropertyvalue e "vertices"))<br />       (setq ll (list '("编号" "X"<br />                       "Y" "Z"<br />                      )<br />                )<br />       )<br />       (setq j 1)<br />       (foreach n pts<br />         (setq ll (cons (list j (cadr n) (car n) (caddr n)) ll)<br />               j (1+ j)<br />         )<br />       )<br />       (setq ll (reverse ll))<br />       (if (and<br />             (xdex_book_open)<br />             (xdex_book_addsheet "界址点" t)<br />           )<br />         (progn<br />           (setq j 0)<br />           (foreach n ll<br />             (xdex_cell_write j 0 (car n))<br />             (xdex_cell_write j 1 (cadr n))<br />             (xdex_cell_write j 2 (caddr n))<br />             (xdex_cell_write j 3 (cadddr n))<br />             (setq j (1+ j))<br />           )<br />           (if (xdex_book_save fl)<br />             (progn<br />               (princ "\n文件生成成功.")<br />               (xdrx_system_shellexecute fl);;Execl打开刚生成的界址点坐标表<br />             )<br />           )<br />           (xdex_book_close)<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

上面是用 xdex_cell_write 一个单元格一个单元格的写，下面使用 xdex_cell_writeRange 可以批量按范围写一次。

1. (defun c:tt ()
   
2.   (if (and
   
3.         (setq e (car (xdrx_entsel "\n拾取一个多段线<退出>:" '((0 . "*POLYLINE")))))
   
4.         (setq fl (xdrx_system_selectFiles "选择文件" "界址点" "xls" 1))
   
5.         (setq fl (car fl))
   
6.       )
   
7.     (progn
   
8.       (setq ll nil)
   
9.       (setq pts (xdrx_getpropertyvalue e "vertices"))
   
10.       (setq ll (list '("编号" "X"
    
11.                       "Y" "Z"
    
12.                      )
    
13.                )
    
14.       )
    
15.       (setq j 1)
    
16.       (foreach n pts
    
17.         (setq ll (cons (list (itoa j) (cadr n) (car n) (caddr n)) ll)
    
18.               j (1+ j)
    
19.         )
    
20.       )
    
21.       (setq ll (reverse ll))
    
22.       (if (and
    
23.             (xdex_book_open)
    
24.             (xdex_book_addsheet "界址点" t)
    
25.           )
    
26.         (progn
    
27.           (xdex_cell_writerange 0 0 ll)
    
28.           (if (xdex_book_save fl)
    
29.             (progn
    
30.               (princ "\n文件生成成功.")
    
31.               (xdrx_system_shellexecute fl);;Execl打开刚生成的界址点坐标表
    
32.             )
    
33.           )
    
34.           (xdex_book_close)
    
35.         )
    
36.       )
    
37.     )
    
38.   )
    
39.   (princ)
    
40. )
    

(defun c:tt ()<br />   (if (and<br />         (setq e (car (xdrx_entsel "\n拾取一个多段线<退出>:" '((0 . "*POLYLINE")))))<br />         (setq fl (xdrx_system_selectFiles "选择文件" "界址点" "xls" 1))<br />         (setq fl (car fl))<br />       )<br />     (progn<br />       (setq ll nil)<br />       (setq pts (xdrx_getpropertyvalue e "vertices"))<br />       (setq ll (list '("编号" "X"<br />                       "Y" "Z"<br />                      )<br />                )<br />       )<br />       (setq j 1)<br />       (foreach n pts<br />         (setq ll (cons (list (itoa j) (cadr n) (car n) (caddr n)) ll)<br />               j (1+ j)<br />         )<br />       )<br />       (setq ll (reverse ll))<br />       (if (and<br />             (xdex_book_open)<br />             (xdex_book_addsheet "界址点" t)<br />           )<br />         (progn<br />           (xdex_cell_writerange 0 0 ll)<br />           (if (xdex_book_save fl)<br />             (progn<br />               (princ "\n文件生成成功.")<br />               (xdrx_system_shellexecute fl);;Execl打开刚生成的界址点坐标表<br />             )<br />           )<br />           (xdex_book_close)<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

iLisp

foreach可以用mapcar，顺序不变只是cons 进 j

grs432

生成多段线顶点的数量到表格怎么做呢？？？同解多段线顶点经过的块的量怎么求解？好像是1个问题？

newer

grs432 发表于 2014-11-4 10:20
生成多段线顶点的数量到表格怎么做呢？？？同解多段线顶点经过的块的量怎么求解？好像是1个问题？

没明白你要问的，能通俗的说下吗？

hjting

不错 学习啦:)

jiang__jin

学习学习！

xxchemkin

牛叉叉，学习了。