two-element array of doubles 과 three-element array of doubles .

 어제 작업중 분명히 좌표가 Variant값인데 오류가 발생하여 한참을 고민하였습니다.

나중에 알고보니 double 2-요소 배열과 double 3-요소 배열의 차이때문에 오류가 ㅎㅎㅎ

그래서 그냥 서브루틴을 만든것을 올립니다.

Variant도 다 같은 Variant이 아닌라는 것을 참조하세요^^

 

(defun TwoElementArray (VariantPt / ListPt)      (setq ListPt (trans (vlax-safearray->list VariantPt) 0 3))      (vlax-make-variant          (vlax-safearray-fill              (vlax-make-safearray vlax-vbdouble '(0 . 1))              (list (car ListPt) (cadr ListPt))          )      )  )

 (defun TwoElementArray (VariantPt / ListPt) 
    (setq ListPt (trans (vlax-safearray->list VariantPt) 0 3)) 
    (vlax-make-variant 
        (vlax-safearray-fill 
            (vlax-make-safearray vlax-vbdouble '(0 . 1)) 
            (list (car ListPt) (cadr ListPt)) 
        ) 
    ) 
)