设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1605|回复: 2

[VBA函数]:返回 空间平面方程

[复制链接]

已领礼包: 1个

财富等级: 恭喜发财

发表于 2007-12-2 14:22:27 | 显示全部楼层 |阅读模式

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

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

x

  1. '空间平面方程
  2. Function KJPMFC(P1 As Variant, P2 As Variant, P3 As Variant, ByRef A As Double, ByRef B As Double, ByRef C As Double, ByRef D As Double) As Integer
  3.     '判断三点是否在一条直线上
  4.     If ThreeP_IsOnline(P1, P2, P3) = True Then
  5.         ThisDrawing.Utility.Prompt "出现三点共线情况" & vbCrLf
  6.         Exit Function
  7.     End If
  8.     Dim M(0 To 5) As Double
  9.     '计算平面方程系数
  10.     M(0) = P2(0) - P1(0)
  11.     M(1) = P2(1) - P1(1)
  12.     M(2) = P2(2) - P1(2)
  13.     M(3) = P3(0) - P1(0)
  14.     M(4) = P3(1) - P1(1)
  15.     M(5) = P3(2) - P1(2)
  16.     '计算平面方程系数( Ax+By+Cz+D=0)
  17.     A = M(1) * M(5) - M(2) * M(4)
  18.     B = -(M(0) * M(5) - M(2) * M(3))
  19.     C = M(0) * M(4) - M(1) * M(3)
  20.     D = -A * P1(0) - B * P1(1) - C * P1(2)
  21. End Function
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
发表于 2010-2-18 03:59:56 | 显示全部楼层
学习了!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2014-6-12 21:17:41 | 显示全部楼层
终于找到源码了的,谢谢
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2019-9-19 20:25 , Processed in 0.129913 second(s), 22 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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