Se alguem já usou o CAR, CADR, CAADR, etc, deve ter sentido falta de recuparar uma lista de elementos no meio da lista, exemplo: ( 1 2 3 4 5 6 ) se eu querer pegar os elementos do 2º ao 4º, temos (3 4 5), mas como fazê-lo?pode ser assim: (defun sub-list (lst a […]
Algumas pessoas já descobriram as funcionalidades das funções Activex, por exemplo: Vla-AddLine, para adicionar uma linha… Muito bem, todos este métodos do tipo “adição” de entitade, e muitos outros, requerem como primeiro argumento “ONDE” adicionar a entidade… no Model, Paper, onde inserir? Quem usa o entmake (ou mesmo o command) para criar entidades, normalmente não
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
