日志
vba 编程 第三课
2014-09-11 18:22
本例提示用户输入五个点,然后根据输入的点创建多段线。该多段线是闭合的,所形成的面积显示在消息框中。 Dim p1 As Variant Dim p2 As Variant Dim p3 As Variant Dim p4 As Variant Dim p5 As Variant ' 获取用户输入的点 p1 = acadDoc.Utility.GetPoint(, vbCrLf & "First point: ") p2 = acadDoc.Utility.GetPoint(p1, vbCrLf & "Second point: ") p3 = acadDoc.Utility.GetPoint(p2, vbCrLf & "Third point: ") p4 = acadDoc.Utility.GetPoint(p3, vbCrLf & "Fourth point: ") p5 = acadDoc.Utility.GetPoint(p4, vbCrLf & "Fifth point: ") ' 根据这些点创建二维多段线 Dim polyObj As AcadLWPolyline Dim vertices(0 To 9) As Double vertices(0) = p1(0): vertices(1) = p1(1) vertices(2) = p2(0): vertices(3) = p2(1) vertices(4) = p3(0): vertices(5) = p3(1) vertices(6) = p4(0): vertices(7) = p4(1) vertices(8) = p5(0): vertices(9) = p5(1) Set polyObj = acadDoc.ModelSpace.AddLightWeightPolyline _ (vertices) polyObj.Closed = True acadDoc.Application.ZoomAll ' 显示多段线的面积 MsgBox "The area defined by the points is " & _ polyObj.Area, , "Calculate Defined Area" |
下一篇: vba 编程 第四课
上一篇: vba 编程 第二课