vlax-3d-point

na verdade é o inverso que eu quero mostrar:

---

(defun 3d-of-vla (var)
  (vlax-safearray->list 
    (vlax-variant-value var)))

---

esta rotinazinha parece ser bem simples, mas lembrar dela é mais fácil do que desses nomes "vlax..."

Adicionado em 22/11/2006:

---

(defun vlax-2d-point (pt)
  (vlax-safearray-fill
    (vlax-make-safearray vlax-vbDouble '(0 . 1))
    (list (car pt) (cadr pt))))

---

Para manipular coordenadas de LWPOLYLINE, a safearray deve ter apenas X e Y, então para complementar vlax-3d-point, fiz a vlax-2d-point