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

tiancao1001

2. 
   
3. '空间平面方程
   
4. 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
   
5.     '判断三点是否在一条直线上
   
6.     If ThreeP_IsOnline(P1, P2, P3) = True Then
   
7.         ThisDrawing.Utility.Prompt "出现三点共线情况" & vbCrLf
   
8.         Exit Function
   
9.     End If
   
10.     Dim M(0 To 5) As Double
    
11.     '计算平面方程系数
    
12.     M(0) = P2(0) - P1(0)
    
13.     M(1) = P2(1) - P1(1)
    
14.     M(2) = P2(2) - P1(2)
    
15.     M(3) = P3(0) - P1(0)
    
16.     M(4) = P3(1) - P1(1)
    
17.     M(5) = P3(2) - P1(2)
    
18.     '计算平面方程系数( Ax+By+Cz+D=0)
    
19.     A = M(1) * M(5) - M(2) * M(4)
    
20.     B = -(M(0) * M(5) - M(2) * M(3))
    
21.     C = M(0) * M(4) - M(1) * M(3)
    
22.     D = -A * P1(0) - B * P1(1) - C * P1(2)
    
23. End Function
    

<br /> '空间平面方程<br /> 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<br />     '判断三点是否在一条直线上<br />     If ThreeP_IsOnline(P1, P2, P3) = True Then<br />         ThisDrawing.Utility.Prompt "出现三点共线情况" & vbCrLf<br />         Exit Function<br />     End If<br />     Dim M(0 To 5) As Double<br />     '计算平面方程系数<br />     M(0) = P2(0) - P1(0)<br />     M(1) = P2(1) - P1(1)<br />     M(2) = P2(2) - P1(2)<br />     M(3) = P3(0) - P1(0)<br />     M(4) = P3(1) - P1(1)<br />     M(5) = P3(2) - P1(2)<br />     '计算平面方程系数( Ax+By+Cz+D=0)<br />     A = M(1) * M(5) - M(2) * M(4)<br />     B = -(M(0) * M(5) - M(2) * M(3))<br />     C = M(0) * M(4) - M(1) * M(3)<br />     D = -A * P1(0) - B * P1(1) - C * P1(2)<br /> End Function<br />

lndl3282471

学习了！！

yyyyyyy234

终于找到源码了的，谢谢