C点作线段AB垂线，且交于B点的解法。
图示，求Ｃ点到ＡＢ线段的垂线，且交点于Ｂ点．程序解决如下
Sub LS()
Sub LS()
Dim Aa(2) As Variant
Aa(0) = Array(10, 33)
Aa(1) = Array(20, 50)
Aa(2) = Array(25, 50)
Dim pp(0 To 2) As Double, ppp(0 To 2) As Double
Dim Alfa(1) As Double, ll As AcadLine
For ii = 0 To 1
For jj = 0 To 1
pp(jj) = Aa(ii)(jj)
ppp(jj) = Aa(ii + 1)(jj)
Next jj
Set ll = ThisDrawing.ModelSpace.AddLine(pp, ppp)
Alfa(ii) = ll.Angle
Next ii
Debug.Print Alfa(1), Alfa(0) * 180 / 3.1415926, Alfa(1) - Alfa(0)
Debug.Print Alfa(0) - Pi / 2, (Alfa(0) - Pi / 2) * 180 / Pi
ll.Rotate ll.StartPoint, Alfa(0) - Pi / 2
End Sub
Function Pi() As Double
Pi = 4 * Atn(1)
End Function
总觉得VBA里面几何分析很重要，这个功能在lisp里面太容易了
要运行LISP在命令行会滚动一大堆内容,速度不如VBA快。要想提高程序运行速度，VBA效果比LISP好。
用几何算法，就是要提高速度。在VBA中也可以运行LISP语句。
ll.Rotate ll.StartPoint, Alfa(0) - Pi / 2与LISP的(command "Rotate" pp,"")是等价的。
页:
[1]