[LISP程序]：[LISP程序]：按比例计算并标出封闭图形面积

听鱼 · 发表于 2006-9-25 19:59:43

用多条线(如直线)相连而成的图形(不具备面域,也不是多段线闭合而成)可以求面积吗?
我是学地质的,在资源量估算时用得着,我下一个试试

m123456 · 发表于 2006-9-25 21:18:39

不错，楼主幸苦了

zml84 · 发表于 2006-9-26 15:01:03

面积计算，如果有点位坐标的话很好计算。例如：
(x1 y1)(x2 y2)(x3 y3)(... ...)(xn yn)
共有n个点位依次组成，那么只需依次计算
[(x1*y2-x2*y1)+(x2*y3-x3*y2)+(x3*y4-x4*y3)+...+(xn*y1-x1*yn)]/2
即可。最后要记得用ABS取正。

;;;在下载的文件关于SM函数的定义中，在开始时要求用户响应的动作比较多，可以合并如下：
(IF (NOT SC) (SETQ SC 1)  )
  (IF (NOT GAP) (SETQ GAP 100)  )
  (IF (NOT WS) (SETQ WS 2)  )
  (PRINC "\n当前设置：图形比例 = ")
  (PRINC SC)
  (PRINC "，小数位 = ")
  (PRINC WS)
  (PRINC "\n选择多义线对象或 [图形比例(T)/小数位(X)]:")
  (SETQ SSSPLINE (SSGET))
......

;;;以上是个人意见，希望大家讨论。

totosheng · 发表于 2007-2-12 17:16:49

我来看看

seek_sun · 发表于 2016-5-7 11:58:48

:):):):):):):):):):)正好需要，谢谢分享。

春天里的小可爱 · 发表于 2016-6-15 01:46:35

没看见代码呢

ghbbest · 发表于 2016-6-15 09:06:23

谢谢学学嘻嘻:)

455383153 · 发表于 2016-8-16 12:32:00

看看好不好

w379106181 · 发表于 2018-1-15 14:01:11

源码在哪谢谢分享谢谢分享谢谢分享

王子 · 发表于 2018-5-4 09:57:15

学习一下怎么实现

cq025 · 发表于 2019-9-23 17:23:35

KKKKKKKKKKKKKKKKKKKKK

xdcad9819 · 发表于 2019-11-3 09:58:56

学习学习学习

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