（XD::VLA:3dVariantToPointList）3D Variant数组转换LISP 3D点表

marting

1. (defun XD::VLA:3dVariantToPointList (var / foo)
   
2.   (defun foo (lst)
   
3.     (if lst
   
4.       (cons (list (car lst) (cadr lst) (caddr lst)) (foo (cdddr lst)))
   
5.     )
   
6.   )
   
7.   (foo (vlax-safearray->list (vlax-variant-value var)))
   
8. )
   

(defun XD::VLA:3dVariantToPointList (var / foo)<br />   (defun foo (lst)<br />     (if lst<br />       (cons (list (car lst) (cadr lst) (caddr lst)) (foo (cdddr lst)))<br />     )<br />   )<br />   (foo (vlax-safearray->list (vlax-variant-value var)))<br /> )<br />