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

Deixe um comentário

Carrinho de compras
Rolar para cima