fan_zh 发表于 2012-12-12 12:02:26

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

本帖最后由 fan_zh 于 2013-5-27 14:39 编辑

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


fan_zh 发表于 2012-12-12 14:18:12

fan_zh 发表于 2012-12-12 16:06:40

fan_zh 发表于 2012-12-12 17:30:06

下班 前顶一下

yjr111 发表于 2012-12-12 19:04:09

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

fan_zh 发表于 2012-12-13 09:20:59

感谢yjr111

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

fan_zh 发表于 2012-12-13 17:20:29

下班前顶一下

freeok 发表于 2012-12-14 07:40:40

我是来顶贴的。。

fan_zh 发表于 2012-12-14 09:11:15

感谢楼上的顶贴

fan_zh 发表于 2012-12-14 15:18:18

请看附件，并附上抓图
我随便画了几个矩形，试了好几次都没找出规律
页: [1] 2 3
查看完整版本: 关于如何统计大量矩形并输出到excel (已解决)