C点作线段AB垂线，且交于B点的解法。

兰州人 · 发表于 2008-9-17 22:08:00

图示，求Ｃ点到ＡＢ线段的垂线，且交点于Ｂ点．
程序解决如下
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 · 发表于 2008-9-18 01:15:00

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

兰州人 · 发表于 2008-9-18 08:33:00

要运行LISP在命令行会滚动一大堆内容,速度不如VBA快。要想提高程序运行速度，VBA效果比LISP好。
用几何算法，就是要提高速度。在VBA中也可以运行LISP语句。
ll.Rotate ll.StartPoint, Alfa(0) - Pi / 2与LISP的(command "Rotate" pp,"")是等价的。

C点作线段AB垂线，且交于B点的解法。

发表回复

精选推荐