Determines whether the given spline is planar.
Supported platforms: Windows only
Read-only: Yes
Type: Boolean
No additional remarks.
VBA:
Sub Example_IsPlanar()
' This example creates a Spline object in model space and
' determines whether the Spline is planar
Dim splineObj As AcadSpline
Dim startTan(0 To 2) As Double, endTan(0 To 2) As Double
Dim fitPoints(0 To 8) As Double
Dim UserMessage As String
' Define the Spline object
startTan(0) = 0.5: startTan(1) = 0.5: startTan(2) = 0
endTan(0) = 0.5: endTan(1) = 0.5: endTan(2) = 0
fitPoints(0) = 0: fitPoints(1) = 0: fitPoints(2) = 0: fitPoints(3) = 5
fitPoints(4) = 5: fitPoints(5) = 0: fitPoints(6) = 10: fitPoints(7) = 0: fitPoints(8) = 0
' Create new Spline object
Set splineObj = ThisDrawing.ModelSpace.AddSpline(fitPoints, startTan, endTan)
ThisDrawing.Application.ZoomAll
' Display whether or not new Spline is planar
UserMessage = IIf(splineObj.IsPlanar, "is planar", "is not planar")
MsgBox "The new Spline " & UserMessage
End Sub
Visual LISP:
(vl-load-com)
(defun c:Example_IsPlanar()
;; This example creates a Spline object in model space and
;; determines whether the Spline is planar
(setq acadObj (vlax-get-acad-object))
(setq doc (vla-get-ActiveDocument acadObj))
;; Define the Spline object
(setq startTan (vlax-3d-point 0.5 0.5 0)
endTan (vlax-3d-point 0.5 0.5 0)
fitPoints (vlax-make-safearray vlax-vbDouble '(0 . 8)))
(vlax-safearray-fill fitPoints '(0 0 0
5 5 0
10 0 0
)
)
;; Create new Spline object
(setq modelSpace (vla-get-ModelSpace doc))
(setq splineObj (vla-AddSpline modelSpace fitPoints startTan endTan))
(vla-ZoomAll acadObj)
;; Display whether or not new Spline is planar
(setq UserMessage (if (= (vla-get-IsPlanar splineObj) :vlax-true) "is planar" "is not planar"))
(alert (strcat "The new Spline " UserMessage))
)