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

LinkWithin

Related Posts Plugin for WordPress, Blogger...