[VBA程序]：空间一点到面的垂线

tiancao1001

空间一点到面的垂线

2. 
   
3. Sub P2Region()
   
4.     On Error GoTo E:
   
5.     Dim M(5) As Double
   
6.     Dim P1 As Variant, P2 As Variant, P3 As Variant, P4 As Variant
   
7.     ThisDrawing.Utility.InitializeUserInput 1, ""
   
8.     P1 = ThisDrawing.Utility.GetPoint(, "平面上的第一点：")
   
9.     ThisDrawing.Utility.InitializeUserInput 1, ""
   
10.     P2 = ThisDrawing.Utility.GetPoint(, "平面上的第二点：")
    
11.     ThisDrawing.Utility.InitializeUserInput 1, ""
    
12.     P3 = ThisDrawing.Utility.GetPoint(, "平面上的第三点：")
    
13.     '判断三点是否在一条直线上
    
14.     If ThreeP_IsOnline(P1, P2, P3) = True Then
    
15.        ThisDrawing.Utility.Prompt "所选三点共线" & vbCrLf
    
16.        Exit Sub
    
17.     End If
    
18.     ThisDrawing.Utility.InitializeUserInput 1, ""
    
19.     P4 = ThisDrawing.Utility.GetPoint(, "空间一点：")
    
20.     M(0) = P2(0) - P1(0)
    
21.     M(1) = P2(1) - P1(1)
    
22.     M(2) = P2(2) - P1(2)
    
23.     M(3) = P3(0) - P1(0)
    
24.     M(4) = P3(1) - P1(1)
    
25.     M(5) = P3(2) - P1(2)
    
26.     '计算平面方程系数( Ax+By+Cz+D=0)
    
27.     Dim A As Double, B As Double, C As Double, D As Double
    
28.     A = M(1) * M(5) - M(2) * M(4)
    
29.     B = -(M(0) * M(5) - M(2) * M(3))
    
30.     C = M(0) * M(4) - M(1) * M(3)
    
31.     D = -A * P1(0) - B * P1(1) - C * P1(2)
    
32.     Dim T As Double
    
33.     T = -(A * P4(0) + B * P4(1) + C * P4(2) + D) / (A ^ 2 + B ^ 2 + C ^ 2)
    
34.     Dim P5(2) As Double
    
35.     P5(0) = T * A + P4(0)
    
36.     P5(1) = T * B + P4(1)
    
37.     P5(2) = T * C + P4(2)
    
38.     ThisDrawing.ModelSpace.AddPoint P5
    
39.     ThisDrawing.ModelSpace.AddLine P4, P5
    
40.     ThisDrawing.SetVariable "PDMODE", 35
    
41.     Exit Sub
    
42. E:
    
43.    ThisDrawing.Utility.Prompt Err.Description & vbCrLf
    
44. End Sub

<br /> Sub P2Region()<br />     On Error GoTo E:<br />     Dim M(5) As Double<br />     Dim P1 As Variant, P2 As Variant, P3 As Variant, P4 As Variant<br />     ThisDrawing.Utility.InitializeUserInput 1, ""<br />     P1 = ThisDrawing.Utility.GetPoint(, "平面上的第一点：")<br />     ThisDrawing.Utility.InitializeUserInput 1, ""<br />     P2 = ThisDrawing.Utility.GetPoint(, "平面上的第二点：")<br />     ThisDrawing.Utility.InitializeUserInput 1, ""<br />     P3 = ThisDrawing.Utility.GetPoint(, "平面上的第三点：")<br />     '判断三点是否在一条直线上<br />     If ThreeP_IsOnline(P1, P2, P3) = True Then<br />        ThisDrawing.Utility.Prompt "所选三点共线" & vbCrLf<br />        Exit Sub<br />     End If<br />     ThisDrawing.Utility.InitializeUserInput 1, ""<br />     P4 = ThisDrawing.Utility.GetPoint(, "空间一点：")<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 />     Dim A As Double, B As Double, C As Double, D As Double<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 />     Dim T As Double<br />     T = -(A * P4(0) + B * P4(1) + C * P4(2) + D) / (A ^ 2 + B ^ 2 + C ^ 2)<br />     Dim P5(2) As Double<br />     P5(0) = T * A + P4(0)<br />     P5(1) = T * B + P4(1)<br />     P5(2) = T * C + P4(2)<br />     ThisDrawing.ModelSpace.AddPoint P5<br />     ThisDrawing.ModelSpace.AddLine P4, P5<br />     ThisDrawing.SetVariable "PDMODE", 35<br />     Exit Sub<br /> E:<br />    ThisDrawing.Utility.Prompt Err.Description & vbCrLf<br /> End Sub

左权

哇！！太好了啊！

yefeng1860

学习学习

王清辉

哇！！太好了啊

lndl3282471

学习学习！！