Vla-get-numberoffitpoints

提供:GizmoLabs - だいたい CAD LISP なサイト
2015年2月2日 (月) 21:29時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-get-numberoffitpoints''vla-object'') ; 機能 : スプラインのフィット点の数を取得する。 ; 引数 :* vla-object … Spl...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(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)) " です。"
           )
    )
)

関連事項