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