Specifies the suppression of the second extension line.
Supported platforms: Windows only
VBA:
object.ExtLine2Suppress
Type: Dim3PointAngular, DimAligned, DimAngular, DimArcLength, DimRotated
The objects this property applies to.
Read-only: No
Type: Boolean
The initial value for this property is False.
VBA:
Sub Example_ExtLine2Suppress() ' This example creates a Dim3PointAngular object in model space ' and suppresses the extension lines using the ExtLine1Suppress ' and ExtLine2Suppress properties Dim DimPointAngularObj As AcadDim3PointAngular Dim AngleVertex(0 To 2) As Double Dim FirstPoint(0 To 2) As Double, SecondPoint(0 To 2) As Double Dim TextPoint(0 To 2) As Double Dim Line1Suppressed As String, Line2Suppressed As String ' Define the new Dim3PointAngular object AngleVertex(0) = 0: AngleVertex(1) = 0: AngleVertex(2) = 0 FirstPoint(0) = 2: FirstPoint(1) = 2: FirstPoint(2) = 0 SecondPoint(0) = 1: SecondPoint(1) = 4: SecondPoint(2) = 0 TextPoint(0) = 6: TextPoint(1) = 6: TextPoint(2) = 0 ' Create the new Dim3PointAngular object in model space Set DimPointAngularObj = ThisDrawing.ModelSpace.AddDim3PointAngular(AngleVertex, FirstPoint, SecondPoint, TextPoint) ThisDrawing.Application.ZoomAll ' Read and display current extension line suppression information Line1Suppressed = IIf(DimPointAngularObj.ExtLine1Suppress, "is suppressed", "is not suppressed") Line2Suppressed = IIf(DimPointAngularObj.ExtLine2Suppress, "is suppressed", "is not suppressed") MsgBox "Line one of the extension " & Line1Suppressed & vbCrLf & _ "Line two of the extension " & Line2Suppressed ' Suppress line one of the extension DimPointAngularObj.ExtLine1Suppress = True ThisDrawing.Regen acAllViewports MsgBox "Line one of the extension is now suppressed" ' Suppress line two of the extension DimPointAngularObj.ExtLine2Suppress = True ThisDrawing.Regen acAllViewports MsgBox "Line two of the extension is now suppressed" ' Turn both extension lines back on DimPointAngularObj.ExtLine1Suppress = False DimPointAngularObj.ExtLine2Suppress = False ThisDrawing.Regen acAllViewports MsgBox "Both extension lines are now visible again" End Sub
Visual LISP:
(vl-load-com) (defun c:Example_ExtLine2Suppress() ;; This example creates a Dim3PointAngular object in model space ;; and suppresses the extension lines using the ExtLine1Suppress ;; and ExtLine2Suppress properties (setq acadObj (vlax-get-acad-object)) (setq doc (vla-get-ActiveDocument acadObj)) ;; Define the new Dim3PointAngular object (setq AngleVertex (vlax-3d-point 0 0 0) FirstPoint (vlax-3d-point 2 2 0) SecondPoint (vlax-3d-point 1 4 0) TextPoint (vlax-3d-point 6 6 0)) ;; Create the new Dim3PointAngular object in model space (setq modelSpace (vla-get-ModelSpace doc)) (setq DimPointAngularObj (vla-AddDim3PointAngular modelSpace AngleVertex FirstPoint SecondPoint TextPoint)) (vla-ZoomAll acadObj) ;; Read and display current extension line suppression information (setq Line1Suppressed (if (= (vla-get-ExtLine1Suppress DimPointAngularObj) :vlax-true) "is suppressed" "is not suppressed")) (setq Line2Suppressed (if (= (vla-get-ExtLine2Suppress DimPointAngularObj) :vlax-true) "is suppressed" "is not suppressed")) (alert (strcat "Line one of the extension " Line1Suppressed "\n" "Line two of the extension " Line2Suppressed)) ;; Suppress line one of the extension (vla-put-ExtLine1Suppress DimPointAngularObj :vlax-true) (vla-Regen doc acAllViewports) (alert "Line one of the extension is now suppressed") ;; Suppress line two of the extension (vla-put-ExtLine2Suppress DimPointAngularObj :vlax-true) (vla-Regen doc acAllViewports) (alert "Line two of the extension is now suppressed") ;; Turn both extension lines back on (vla-put-ExtLine1Suppress DimPointAngularObj :vlax-false) (vla-put-ExtLine2Suppress DimPointAngularObj :vlax-false) (vla-Regen doc acAllViewports) (alert "Both extension lines are now visible again") )