找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1961|回复: 1

[几何] XD::Geom:QueryElev 查询三角网指定位置的高程值

[复制链接]

已领礼包: 40个

财富等级: 招财进宝

发表于 2014-11-23 21:24:37 | 显示全部楼层 |阅读模式
函数发布
函数名称: XD::Geom:QueryElev
调用格式: (XD::Geom:QueryElev lst p)
参数说明: 参数: lst -- 3D FACE实体 or 3点表
返回值: 实数
函数简介: 查询三角网中指定位置的高程
函数来源: 原创
函数作者: Newer
适用版本: XDRX API 
最后更新时间: 2014-11-23
备注: -
演示图片:

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

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

×
  1. ;|
  2. 查询三角网中指定位置的高程
  3. 参数: lst -- 3D FACE实体 or 3点表
  4. 返回值:实数
  5. |;
  6. (defun XD::Geom:QueryElev (lst p / ge int l)
  7.   (and
  8.     (or
  9.       (and
  10.         (= (type lst) 'ENAME)
  11.         (setq ge (xdge::constructor lst))
  12.       )
  13.       (and
  14.         (= (type lst) 'LIST)
  15.         (setq ge (xdge::constructor "kBoundedPlane" lst))
  16.       )
  17.     )
  18.     (setq l (xdge::constructor "kLine3d" p (mapcar
  19.                                              '+
  20.                                              p
  21.                                              (getvar "viewdir")
  22.                                            )
  23.             )
  24.     )
  25.     (setq int (xdge::getpropertyvalue ge "Intersectwith" l))
  26.     (xdge::free)
  27.   )
  28.   (last int)
  29. )


论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 1268个

财富等级: 财源广进

发表于 2014-11-23 21:42:30 | 显示全部楼层
贴个以前写的采用用平面方程计算
  1. ;|
  2. 过三点的空间平面方程 p p1 p2 p3 WCS点
  3. | x -x1 y -y1 z -z1 |
  4. | x2-x1 y2-y1 z2-z1 | = 0
  5. | x3-x1 y3-y1 z3-z1 |
  6. |;
  7. (defun Geom:QueryElev (p p1 p2 p3 / x1 x2 y1 y2 z1 z2 a b c d h1 h2 h3)
  8.   (setq        h1 (caddr p1)
  9.         h2 (caddr p2)
  10.         h3 (caddr p3)
  11.         x1 (- (car p2) (car p1))
  12.         x2 (- (car p3) (car p1))
  13.         y1 (- (cadr p2) (cadr p1))
  14.         y2 (- (cadr p3) (cadr p1))
  15.         z1 (- h2 h1)
  16.         z2 (- h3 h1)
  17.   )
  18.   (setq        a (- (* y1 z2) (* y2 z1))
  19.         b (- (* z1 x2) (* x1 z2))
  20.         c (- (* y2 x1) (* y1 x2))
  21.   )
  22.   (if (< c 0.)
  23.     (setq a (- a)
  24.           b (- b)
  25.           c (- c)
  26.     )
  27.   )
  28.   (setq        d (- (+        (* (car p1) a)
  29.                 (* (cadr p1) b)
  30.                 (* h1 c)
  31.              )
  32.           )
  33.   )
  34.   (- (/ (+ (* a (car p)) (* b (cadr p)) d) c))
  35. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-22 13:08 , Processed in 0.231735 second(s), 34 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表