No forum autolisp, postei esta rotinazinha: (defun c:est (/ ss dist ent comp compt pt1 pt2 lay offset ang angp) (tbn:error-init (list (list “cmdecho” 0) T)) (vl-load-com) (prompt “nSelecione os objetos…n”) (setq ss (ssget ‘( (0 . “*LINE,~MLINE;ARC”))) dist (getdist “Distância entre os pontos :n”) offset (getdist “nEntre com o tamanho da marca “) offset […]
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
