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

marting

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

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