从点列表构造变型

到目前为止，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

• 调用该函数以分配双精度数组 （）。该函数还要求您指定数组的索引下限和上限边界。In 中，调用 to 指定起始索引 0，并将上限设置为比传递给它的元素数少 1 （）。vlax-make-safearrayvlax-vbdoublevlax-make-safearraygp:list->variantArrayvlax-make-safearrayptsList
• 调用该函数以使用点列表中的元素填充数组。vlax-safearray-fill
• 调用 Theis 将安全数组转换为变体。作为最后一个函数调用，返回值将传递给调用函数。vlax-make-variantgp:list->variantArray

下面是调用将列表转换为双精度数组的函数调用示例：gp:list->variantArray

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