关于如何统计大量矩形并输出到excel (已解决)

fan_zh

附件为更最终矩形统计输出程序

fan_zh

[em0]

fan_zh

[em0][em0]

fan_zh

下班 前顶一下

yjr111

为什么不一次说清楚呢？？

2. ;;;;输出excel
   
3. (defun lst2csv(lsthead tipstr lst / ff1 ff2 i pro ele )
   
4. (SETQ lst (cons lsthead lst)
   
5.       ff1 (getfiled "输出到excel" tipstr "CSV" 1)
   
6.       ff2(open ff1 "a")
   
7.       i 0
   
8.       )
   
9. (repeat (length LST)
   
10.   (SETQ pro (nth i lst)
    
11.         ele (vl-string-translate "( )" ",,,"(vl-princ-to-string pro))
    
12.         ele (vl-string-subst "" "," ele)
    
13.         i (1+ i)
    
14.         )
    
15. (write-line ele ff2)
    
16. )
    
17. (close ff2)
    
18. )
    
19. ;;;矩形周长面积，只对无旋转的矩形有效
    
20. (defun c:tt(/ ss n e vlae mj zc  jielst)
    
21. (setq ss(ssget '((0 . "LWPOLYLINE"))))
    
22.   (if ss
    
23.     (progn
    
24.       (setq n 0)
    
25.       (repeat (setq n(sslength ss))
    
26.         (setq e(ssname ss (setq n(1- n)))
    
27.               vlae(vlax-ename->vla-object e)
    
28.               )
    
29.         (if (=(vla-get-closed vlae):vlax-true)
    
30.           (progn
    
31.           (setq s(entget e))
    
32.           (foreach x s
    
33.             (if (= (car x)10)(setq p10_lst(cons (cdr x) p10_lst)))
    
34.           )
    
35.           (if(equal (angle (car p10_lst)(cadr p10_lst)) 0.0 1e-3)
    
36.             (progn
    
37.              (setq xdelta(distance (car p10_lst)(cadr p10_lst)))
    
38.              (setq ydelta(distance (car p10_lst)(last p10_lst)))
    
39.              )
    
40.             (progn
    
41.              (setq ydelta(distance (car p10_lst)(cadr p10_lst)))
    
42.              (setq xdelta(distance (car p10_lst)(last p10_lst)))
    
43.              )
    
44.             )
    
45.           (setq jielst(cons (list (1+ n) xdelta ydelta) jielst))
    
46.           )
    
47.           )       
    
48.       )
    
49.       )
    
50.     )
    
51. (princ (strcat "矩形长宽列表如下:" (vl-princ-to-string jielst)))
    
52. (setq lsthead  '("序号""矩形X增量" "矩形Y增量")
    
53.        tipstr "矩形数据列表"      
    
54.        )
    
55. (lst2csv lsthead tipstr jielst)
    
56. (princ)
    
57. )

;;;;输出excel<br /> (defun lst2csv(lsthead tipstr lst / ff1 ff2 i pro ele )<br /> (SETQ lst (cons lsthead lst)<br />       ff1 (getfiled "输出到excel" tipstr "CSV" 1)<br />       ff2(open ff1 "a")<br />       i 0<br />       )<br /> (repeat (length LST)<br />   (SETQ pro (nth i lst)<br />         ele (vl-string-translate "( )" ",,,"(vl-princ-to-string pro))<br />         ele (vl-string-subst "" "," ele)<br />         i (1+ i)<br />         )<br /> (write-line ele ff2)<br /> )<br /> (close ff2)<br /> )<br /> ;;;矩形周长面积，只对无旋转的矩形有效<br /> (defun c:tt(/ ss n e vlae mj zc  jielst)<br /> (setq ss(ssget '((0 . "LWPOLYLINE"))))<br />   (if ss<br />     (progn<br />       (setq n 0)<br />       (repeat (setq n(sslength ss))<br />         (setq e(ssname ss (setq n(1- n)))<br />               vlae(vlax-ename->vla-object e)<br />               )<br />         (if (=(vla-get-closed vlae):vlax-true)<br />           (progn<br />           (setq s(entget e))<br />           (foreach x s<br />             (if (= (car x)10)(setq p10_lst(cons (cdr x) p10_lst)))<br />           )<br />           (if(equal (angle (car p10_lst)(cadr p10_lst)) 0.0 1e-3)<br />             (progn<br />              (setq xdelta(distance (car p10_lst)(cadr p10_lst)))<br />              (setq ydelta(distance (car p10_lst)(last p10_lst)))<br />              )<br />             (progn<br />              (setq ydelta(distance (car p10_lst)(cadr p10_lst)))<br />              (setq xdelta(distance (car p10_lst)(last p10_lst)))<br />              )<br />             )<br />           (setq jielst(cons (list (1+ n) xdelta ydelta) jielst))<br />           )<br />           )        <br />       )<br />       )<br />     )<br /> (princ (strcat "矩形长宽列表如下:" (vl-princ-to-string jielst)))<br /> (setq lsthead  '("序号""矩形X增量" "矩形Y增量")<br />        tipstr "矩形数据列表"       <br />        )<br /> (lst2csv lsthead tipstr jielst)<br /> (princ)<br /> )

fan_zh

感谢yjr111

试了一下，矩形的Y增量不对，能再检查一下吗

fan_zh

下班前顶一下

freeok

我是来顶贴的。。

fan_zh

感谢楼上的顶贴

fan_zh

请看附件，并附上抓图
我随便画了几个矩形，试了好几次都没找出规律