Perimeter Example |
Using Programming Languages other than VBA
Sub Example_Perimeter() ' This example creates a region from an arc and a line. ' It then returns the length of the perimeter of the region. Dim curves(0 To 1) As AcadEntity Dim arcObj As AcadArc Dim lineObj As AcadLine ' Create the arc and line Dim centerPoint(0 To 2) As Double Dim radius As Double Dim startAngle As Double Dim endAngle As Double centerPoint(0) = 5#: centerPoint(1) = 3#: centerPoint(2) = 0# radius = 2# startAngle = 0 endAngle = 3.141592 Set arcObj = ThisDrawing.ModelSpace.AddArc(centerPoint, radius, startAngle, endAngle) Set lineObj = ThisDrawing.ModelSpace.AddLine(arcObj.startPoint, arcObj.endPoint) Set curves(0) = arcObj Set curves(1) = lineObj ' Create the region Dim regionObj As Variant regionObj = ThisDrawing.ModelSpace.AddRegion(curves) ZoomAll ' Find the perimeter of the region. Dim perimeter As Double perimeter = regionObj(0).perimeter MsgBox "The perimeter of the region is " & regionObj(0).perimeter, , "Perimeter Example" End Sub
Comments? |