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 […]
Outro dia estava precisando desenhar um retângulo tal que circunscrevesse um TEXT ou MTEXT… pois bem, existe a função textbox no autolisp, mas esta so funciona com TEXT… e ainda, ele devolve uma lista com a diagonal do retângulo ocupado pelo texto, como se ele estivesse na origem (0,0) e tivesse rotação zero… aí desenvolvi
Bom… já respondi em alguns forums como fazer pra verificar se um ponto está dentro de um polígono e, pra constar, este é o código que eu apresentei: (defun pointInPolygon (pts pt / i j odd qtd it jt) (setq i 0 j 0 odd nil qtd (length pts) x (car pt) y (cadr pt))
