点のリストからバリアント型を作成する

これまでは、変数 polypoints 内のデータは、多くの AutoLISP 呼び出しに適したリスト形式です。しかし、ActiveX 呼び出しの入力パラメータとしては、バリアント型の倍精度浮動小数点数型配列のデータを渡さなければなりません。次のようなユーティリティ関数を使用して、リストからバリアント型に変換するという要求に応えることができます。

(defun gp:list->variantArray (ptsList / arraySpace sArray)
  ; allocate space for an array of 2d points stored as doubles
  (setq arraySpace (vlax-make-safearray
              vlax-vbdouble ; element type
              (cons 0
                    (- (length ptsList) 1)
                    ) ; array dimension
              )
  )

  (setq sArray (vlax-safearray-fill arraySpace ptsList))

  ; return array variant
  (vlax-make-variant sArray)
)

gp:list->variantArray は、次のように動作します。

• vlax‑make-safearray 関数を呼び出すことにより、倍精度浮動小数点数型(vlax-vbdouble) の配列を割り当てます。vlax‑make‑safearray 関数には、配列の開始インデックスと終了インデックスを指定する必要があります。gp:list->variantArray では、vlax‑make‑safearray の呼び出しで、開始インデックスには 0 を指定し、終了インデックスには、渡された要素(ptsList)の最大数を指定しています。
• vlax-safearray-fill 関数を呼び出すことにより、点リストの要素を使用して配列を作成します。
• vlax-make-variant を呼び出すことにより、セーフ配列をバリアント型に変換します。gp:list->variantArray の最後の関数呼び出しで、呼び出し元の関数に戻り値が渡されます。

次に、gp:list‑>variantArray を呼び出して、リストを倍精度浮動小数点数型のバリアント型配列に変換する関数呼び出しの例を示します。

; data conversion from list to variant
(setq VLADataPts (gp:list->variantArray polypoints))