[编程申请]：对从头开始学习VBA 题目的答案

renxiaoming

Sub vba3()

'画直线
Dim sp As Variant, ep As Variant, op As Variant
sp = ThisDrawing.Utility.GetPoint(, "请输入三角形的第一点:")
ep = ThisDrawing.Utility.GetPoint(sp, "请输入三角形的第二点:")
Dim L1 As AcadLine
Set L1 = ThisDrawing.ModelSpace.AddLine(sp, ep)    '根据"起点"和"终点"画直线

op = ThisDrawing.Utility.GetPoint(ep, "请输入三角形的第三点:")
Dim L2 As AcadLine
Set L2 = ThisDrawing.ModelSpace.AddLine(ep, op)    '画直线
Dim L3 As AcadLine
Set L3 = ThisDrawing.ModelSpace.AddLine(op, sp)    '画直线

Dim x1(2) As Double, x2(2) As Double, x3(2) As Double
x1(0) = (sp(0) + ep(0)) / 2: x1(1) = (sp(1) + ep(1)) / 2: x1(2) = (sp(2) + ep(2)) / 2
x2(0) = (ep(0) + op(0)) / 2: x2(1) = (ep(1) + op(1)) / 2: x2(2) = (ep(2) + op(2)) / 2
x3(0) = (op(0) + sp(0)) / 2: x3(1) = (op(1) + sp(1)) / 2: x3(2) = (op(2) + sp(2)) / 2:

Dim L4 As AcadLine
Dim L5 As AcadLine
Dim L6 As AcadLine

Set L4 = ThisDrawing.ModelSpace.AddLine(x1, x2) '画中线
Set L5 = ThisDrawing.ModelSpace.AddLine(x2, x3)
Set L6 = ThisDrawing.ModelSpace.AddLine(x3, x1)
ZoomExtents                                      '范围缩放
End Sub