Como Criar DimStyle com Visual Lisp

3 de dezembro de 2006 / Deixe um comentário / dicas

presta bem atenção, pois é meio complicado: (setq;pega o activedocument: thisdrawing (vla-get-activedocument (vlax-get-acad-object));pega a collection de dimensions deste documento: dimstyles (vla-get-dimstyles thisdrawing);verifica a existencia da dimstyle e pega/ou cria ela: dimsty (if (not (tblsearch “dimstyle” “sua_dimension”)) (vla-add dimstyles “sua_dimension”) (vla-item dimstyles “sua_dimension”)));|Para configurar a sua dimension style via visual lisp,você deve configurar todas as variaveis […]

dicas, Programas, subrotinas

OCS e WCS

1 de dezembro de 2006 / Deixe um comentário / dicas, Programas, subrotinas

Ontem, estava “soldando” umas linhas com a minha rotina MJ4 quando derepente ela me falha!! putz, fiquei cabreiro, afinal havia testando ela de todas as formas que eu pude imaginar!!! Curioso, foi tentar descobrir o que estava acontecendo… mais… Pra minha surpresa, tudo parecia estar em ordem, mas simplesmente não funcionava, não emendava as polilinhas..

dicas, Programas, subrotinas

Rot-of-ucs

28 de novembro de 2006 / Deixe um comentário / dicas, Programas, subrotinas

Esta rotina abaixo estou usando para rotacionar textos que estão de “cabeça para baixo”, ela faz o seguinte: ao receber um determinado ângulo em radianos, testa se ele faria um TEXT ficar de cabeça para baixo… mesmo se você tiver um UCS diferente do WCS, se estiver, soma 180º a ele, vejam: (defun rot-of-ucs (rot