Vla-get-numberoffitpoints

AutoLISP Home - AutoLISP 目次 - DCL - AutoLisp関数互換表 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

構文: (vla-get-numberoffitpointsvla-object)

機能: スプラインのフィット点の数を取得する。

引数

vla-object … Spline の VLAオブジェクト

戻り値: スプラインのフィット点の数。

MEMO:

フィット点はスプラインのパスを定義する。指定されたフィット点の公差を変更するには、vla-fittolerance プロパティを使用する。フィット点を追加するには、vla-addfitpoint メソッドを使用する。フィット点を削除するには、vla-deletefitpoint メソッドを使用する。フィット点の位置を取得するには、vla-getfitpoint メソッドを使用する。指定されたフィット点の位置を変更するには、vla-setfitpoint メソッドを使用します。

サンプル

(vl-load-com)
(defun c:Example_AddFitPoint()
    ;; モデル空間にスプラインを作成してフィット点を追加するサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
  
    ;; スプラインを作成
    (setq startTan (vlax-3d-point 0.5 0.5 10)
          endTan (vlax-3d-point 0.5 0.5 10))
    (setq fitPoints (vlax-make-safearray vlax-vbDouble '(0 . 8)))
    (vlax-safearray-fill fitPoints '(1 1 10
                                     5 5 10
                                     10 0 10
                                    )
    )
    
    ;; スプラインを追加
    (setq modelSpace (vla-get-ModelSpace doc))  
    (setq splineObj (vla-AddSpline modelSpace fitPoints startTan endTan))
    (vla-ZoomAll acadObj)
    (alert (strcat "The Spline has " (itoa (vla-get-NumberOfFitPoints splineObj)) " fit points."))
    
    ;; 新しいフィット点の定義
    (setq newFitPoint (vlax-3d-point 8 5 0))
    
    ;; フィット点をインデックスの最初に追加
    (vla-AddFitPoint splineObj 1 newFitPoint)
    (vla-Regen doc :vlax-true)
    (alert (strcat "ちっと点を追加:1  WCS: 8, 5, 0"
		                 "\nスプラインのフィット点は " (itoa (vla-get-NumberOfFitPoints splineObj)) " です。"
           )
    )
)