Gets the total length of the inner and outer region loops.
Supported platforms: Windows only
Read-only: Yes
Type: Double
The perimeter is returned in drawing units.
No additional remarks.
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
Visual LISP:
(vl-load-com) (defun c:Example_Perimeter() ;; This example creates a region from an arc and a line. ;; It then returns the length of the perimeter of the region. (setq acadObj (vlax-get-acad-object)) (setq doc (vla-get-ActiveDocument acadObj)) (setq modelSpace (vla-get-ModelSpace doc)) ;; Create the arc and line (setq centerPoint (vlax-3d-point 5 3 0) radius 2 startAngle 0 endAngle 3.141592) (setq arcObj (vla-AddArc modelSpace centerPoint radius startAngle endAngle)) (setq lineObj (vla-AddLine modelSpace (vla-get-StartPoint arcObj) (vla-get-EndPoint arcObj))) (setq curves (vlax-make-safearray vlax-vbObject '(0 . 1))) (vlax-safearray-put-element curves 0 arcObj) (vlax-safearray-put-element curves 1 lineObj) ;; Create the region (setq regionObj (vla-AddRegion modelSpace curves)) (vla-ZoomAll acadObj) ;; Find the perimeter of the region. (setq perimeter (vla-get-Perimeter (vlax-safearray-get-element (vlax-variant-value regionObj) 0))) (alert (strcat "The perimeter of the region is " (rtos perimeter 2))) )