多段线数据导入EXCEL

q3_2006

这是院长做的，表格有关的函数一次也没用，主要是想学习如何做成院长这样的表格
分行，分列，及表头改颜色，表内数据为多段线各子段长度及总长
拜托各位高手，谢谢了！

st788796

如果你临时炸开变为LINE就可以直接利用CAD的数据导出功能，不需要自己写程序

用API写TABLE就可以，非要EXCEL？

q3_2006

st788796 发表于 2013-11-6 15:00
如果你临时炸开变为LINE就可以直接利用CAD的数据导出功能，不需要自己写程序

用API写TABLE就可以，非要E ...

EXCEL是可以更新的，如果和EXCEL或TABLE一样可以更新就OK....另外，线长是标注。。也是可变的。。不是文本。。。用标注更简单

xtay112

;P;P;P;P;P;P;P 回2楼，入了excel一切数据才具通用性

st788796

xtay112 发表于 2013-11-6 15:10
回2楼，入了excel一切数据才具通用性

生成table的同时也可以生成xls，两者还可以建立数据链接实现互动

/db_自贡黄明儒_

st788796 发表于 2013-11-6 15:19
生成table的同时也可以生成xls，两者还可以建立数据链接实现互动

搞一个来我们学习一下嘛

st788796

求长度可以这样，剩下的参考那个钢筋表统计生成

1. (defun c:tt (/ ss ptl strl)
   
2.   (if (setq ss (ssget '((0 . "lwpolyline"))))
   
3.     (progn
   
4.       (setq ptl  (mapcar '(lambda (x) (xdrx_entity_getstretchpoint x))
   
5.     (xdrx_pickset->ents ss)
   
6.    )
   
7.      ll  (mapcar
   
8.      '(lambda (x)
   
9.         (mapcar '(lambda (c) (apply 'distance c))
   
10.          (mapcar '(lambda (a b) (list a b)) x (cdr x))
    
11.         )
    
12.       )
    
13.      ptl
    
14.    )
    
15.      strl (mapcar '(lambda (x) (mapcar '(lambda (a) (rtos a 2 3)) x))
    
16.     ll
    
17.    )
    
18.       )
    
19.     )
    
20.   )
    
21. )

(defun c:tt (/ ss ptl strl)<br />   (if (setq ss (ssget '((0 . "lwpolyline"))))<br />     (progn<br />       (setq ptl  (mapcar '(lambda (x) (xdrx_entity_getstretchpoint x))<br />     (xdrx_pickset->ents ss)<br />    )<br />      ll  (mapcar<br />      '(lambda (x)<br />         (mapcar '(lambda (c) (apply 'distance c))<br />          (mapcar '(lambda (a b) (list a b)) x (cdr x))<br />         )<br />       )<br />      ptl<br />    )<br />      strl (mapcar '(lambda (x) (mapcar '(lambda (a) (rtos a 2 3)) x))<br />     ll<br />    )<br />       )<br />     )<br />   )<br /> )