CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2022 开发者帮助 › 查看内容

AutoCAD 2022 开发者帮助

IsPlanar 属性（ActiveX）

2024-5-18 18:45| 发布者: admin| 查看: 317| 评论: 0|原作者: admin|来自: AutoCAD

确定给定样条是否为平面样条。

支持的平台：仅限 Windows

签名

VBA：

object.IsPlanar

对象

类型：样条曲线

此属性应用于的对象。

属性值

只读：是的

类型：布尔

True：样条曲线是平面的。
False：样条曲线不是平面的。

言论

没有其他评论。

例子

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

可视化 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))
)