[TB-LISP函数]：TBC:Area 计算任意多边形的面积

tengteb · 发表于 2022-6-7 09:23:14

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 tengteb 于 2022-6-13 18:37 编辑

(defun TBC:Area (pts / s i n x1 x2 y)
  (setq n (length pts)
      s 0
  )
  (and
(>= n 3)
(setq s (* (cadar pts) (- (car (last pts)) (caadr pts))))
(setq i 1)
(while (< i n)
   (setq y  (cadr (nth i pts))
         x1 (car (nth (1- i) pts))
         x2 (car (nth (rem (1+ i) n) pts))
         s  (+ s (* y (- x1 x2)))
         i  (1+ i)
   )
) ;while
(setq s (* 0.5 (abs s)))
  ) ;and
  s
)

ynhh · 发表于 2022-6-7 11:12:10

晓东恢复了是个好事啊
又见大师们发言了

qqqincccken · 发表于 2022-6-8 00:09:10

谢谢提供分享下载试用一下

qxlonmsn · 发表于 2022-6-11 07:58:18

66666666666

hh_lj007 · 发表于 2022-6-13 16:48:05

谢谢分享源码

gdfyhao · 发表于 2022-6-13 18:50:52

能恢复太不容易了

账号		自动登录	找回密码
密码			立即注册

[源码] [TB-LISP函数]：TBC:Area 计算任意多边形的面积

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。