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

sailorcwx

总觉得VBA里面几何分析很重要，这个功能在lisp里面太容易了

兰州人

sailorcwx发表于2008-9-18 1:15:00总觉得VBA里面几何分析很重要，这个功能在lisp里面太容易了

要运行LISP在命令行会滚动一大堆内容,速度不如VBA快。要想提高程序运行速度，VBA效果比LISP好。

用几何算法，就是要提高速度。在VBA中也可以运行LISP语句。

ll.Rotate ll.StartPoint, Alfa(0) - Pi / 2与LISP的(command "Rotate" pp,"")是等价的。