如何求屋面膜的面积

我爱欧洲杯123 · 发表于 2015-10-27 17:00:00

本人手上有一工程结算,在计算屋面膜面积时犯了难一直求不出来(结构如下图、手上有CAD）。所以请教各位大神，在此先谢过了。

smcxgxys3nx.png

该贴已经同步到我爱欧洲杯123的微博

a30ry3qinop.jpg

kub1551kcxh.jpg

cu2sivnfnts.jpg

x2xcr2wmbge.jpg

树櫴希德 · 发表于 2015-10-30 20:49:00

根据图面三角网计算表面积论坛测量测绘

lidaxiu · 发表于 2015-11-3 08:04:00

用犀牛插件grasshopper中的area电池，应该能很好解决楼主的问题

alin · 发表于 2017-9-20 12:51:00

把膜炸开成3DFace，再用下面的程序得出
;;;Calculate the total area of all selected 3DFaces
(defun C:FArea
   (/ farea parea ss idx cpt1 cpt2 cpt3 cpt4 a1 b1 c1 a2 b2 c2)
  (if (setq ss (ssget '((0 . "3DFACE"))))
(progn
   (setq idx       0
         farea 0
   )
   (repeat (sslength ss)
      (setq ent (entget (ssname ss idx)))
      (setq cpt1 (dxf 10 ent)
            cpt2 (dxf 11 ent)
            cpt3 (dxf 12 ent)
            cpt4 (dxf 13 ent)
      )
      (setq a1 (distance cpt1 cpt2)
            b1 (distance cpt1 cpt3)
            c1 (distance cpt2 cpt3)
            a2 (distance cpt1 cpt4)
            b2 (distance cpt1 cpt3)
            c2 (distance cpt3 cpt4)
      )
      (setq farea
            (+
               farea
               (/ (sqrt (ABS (- (expt       (+ (expt a1 2)
                                       (expt b1 2)
                                       (expt c1 2)
                                    )
                                    2
                              )
                              (* 2 (+ (expt a1 4) (expt b1 4) (expt c1 4)))
                           )
                        )
                  )
                  4.0
               )
               (/ (sqrt (ABS (- (expt       (+ (expt a2 2)
                                       (expt b2 2)
                                       (expt c2 2)
                                    )
                                    2
                              )
                              (* 2 (+ (expt a2 4) (expt b2 4) (expt c2 4)))
                           )
                        )
                  )
                  4.0
               )
            )
      )
      (setq idx (1+ idx))
   )                                     ; repeat
   (setq idx       0
         parea 0
   )
   (repeat (sslength ss)
      (setq ent (entget (ssname ss idx)))
      (setq cpt1 (flatten (dxf 10 ent))
            cpt2 (flatten (dxf 11 ent))
            cpt3 (flatten (dxf 12 ent))
            cpt4 (flatten (dxf 13 ent))
      )
      (setq a1 (distance cpt1 cpt2)
            b1 (distance cpt1 cpt3)
            c1 (distance cpt2 cpt3)
            a2 (distance cpt1 cpt4)
            b2 (distance cpt1 cpt3)
            c2 (distance cpt3 cpt4)
      )
      (setq parea
            (+
               parea
               (/ (sqrt (ABS (- (expt       (+ (expt a1 2)
                                       (expt b1 2)
                                       (expt c1 2)
                                    )
                                    2
                              )
                              (* 2 (+ (expt a1 4) (expt b1 4) (expt c1 4)))
                           )
                        )
                  )
                  4.0
               )
               (/ (sqrt (ABS (- (expt       (+ (expt a2 2)
                                       (expt b2 2)
                                       (expt c2 2)
                                    )
                                    2
                              )
                              (* 2 (+ (expt a2 4) (expt b2 4) (expt c2 4)))
                           )
                        )
                  )
                  4.0
               )
            )
      )
      (setq idx (1+ idx))
   )                                     ; repeat
   (alert (strcat "\nSurface Area:  "
                  (rtos farea 1 3)
                  " unit sq."
                  "\nPlan Area:    "
                  (rtos parea 1 3)
                  " unit sq."
         )
   )
)                                     ;progn
  )                                     ; if
  (princ)
)                                     ;end defun
(defun Flatten (pt)
  (list (car pt) (cadr pt) 0)
)

yoyoho · 发表于 2017-10-27 14:18:00

感谢 alin 分享程序!!!!

184235521 · 发表于 2022-3-6 15:02:00

CAD拉伸的三维实体炸开后无法测量？如何让炸开的面是3DFACE？

如何求屋面膜的面积

发表回复

精选推荐