[原创]：我的画三角形中线vba，初学，请指教！

zcf108

我用的方法很老土呢，我看了 maplesu  斑竹的程序，比我的好多了*-*6 *-*6
还有一个画角平分线的 好象很难哦，我画不出来啊*-*6
Sub vba1()
Dim a, b, c As Variant    'a,b,c为三角形三顶点
Dim d, e, f, g, h, i As AcadLine   'd,e,f为三角形的边，g,h,i为三条中线
a = ThisDrawing.Utility.GetPoint(, "请输入第一点:")
b = ThisDrawing.Utility.GetPoint(a, "请输入第二点:")
Set d = ThisDrawing.ModelSpace.AddLine(a, b)
c = ThisDrawing.Utility.GetPoint(b, "请输入第三点:")
Set e = ThisDrawing.ModelSpace.AddLine(b, c)
Set f = ThisDrawing.ModelSpace.AddLine(c, a)
Dim l(2) As Double, m(2) As Double, n(2) As Double  '三角形三条边的中点
l(0) = (a(0) + b(0)) / 2
l(1) = (a(1) + b(1)) / 2
l(2) = (a(2) + b(2)) / 2
m(0) = (b(0) + c(0)) / 2
m(1) = (b(1) + c(1)) / 2
m(2) = (b(2) + c(2)) / 2
n(0) = (c(0) + a(0)) / 2
n(1) = (c(1) + a(1)) / 2
n(2) = (c(2) + a(2)) / 2
Set g = ThisDrawing.ModelSpace.AddLine(a, m)    '中线
Set h = ThisDrawing.ModelSpace.AddLine(b, n)
Set i = ThisDrawing.ModelSpace.AddLine(c, l)
ZoomExtents
End Sub

雪山飞狐(lzh)

最初由 zcf108 发布
[B]我用的方法很老土呢，我看了 maplesu  斑竹的程序，比我的好多了*-*6 *-*6
还有一个画角平分线的 好象很难哦，我画不出来啊*-*6
Sub vba1()
Dim a, b, c As Variant    'a,b,c为三角形三顶点
Dim d, e, f, g, ... [/B]

想想看你徒手画角平分线是怎么画的，编程和徒手画思路是一致的，只不过把绘图者换成了计算机而已