「Vla-createtypedarray」の版間の差分

2015年12月25日 (金) 10:19時点における最新版

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

構文: (vla-createtypedarray vla-object ' ' ')

機能: タイプ指定された引数の配列を含むバリアント型を作成する。

引数

vla-object … Utility の VLAオブジェクト
VarArr … バリアント型の変数(中身は配列)。
Type … 指定するデータ型。

VbVarType 列挙型：vbBoolean、vbInteger、vbLong、vbSingle、またはvbDouble。

Value1 [Value2, ...ValueN] … バリアント型に含まれる値。上記の Type パラメータに指定する型。

戻り値: nil

サンプル

(vl-load-com)
(defun c:Example_CreateTypedArray()
    ;; CreateTypedArrayメソッドを使用してダブルから作成された
    ;; 変異配列からスプラインを作成すサンプル。
    ;; このメソッドは遅延バインディングされることに注意。
    ;; ないときは、ユーティリティオブジェクト（ utilObj ）を宣言する

    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
   
    (setq utilObj (vla-get-Utility doc))
    
    ;; スプラインの定義
    (vla-CreateTypedArray utilObj 'startTan vlax-vbDouble 0.5 0.5 0)
    (vla-CreateTypedArray utilObj 'endTan vlax-vbDouble 0.5 0.5 0)
    (vla-CreateTypedArray utilObj 'fitPoints vlax-vbDouble 0 0 0 5 5 0 10 0 0)
    
    ;; スプラインを生成
    (setq modelSpace (vla-get-ModelSpace doc))
    (setq splineObj (vla-AddSpline modelSpace fitPoints startTan endTan))
    (vla-ZoomAll acadObj)
)