dicas

civil 3d, dicas

Civil 3D e estacas de 20m

Como diria o Alotoni, do Jovem Nerd: Lambda, Lambda, Lambda Nerds!!! Bom hoje um pouco de Cilvil 3d, só pra sair um pouco desse negócio de visual lisp!! Gostou do título?, é isso mesmo!! estacas de 20m!! padrão DER, Brasil, essas paradas todas… mas e aí, como que faz?? O Civil 3d teima que “1+3,00m” […]

dicas, minsert, Programas

Minsert para Insert

Uma rotinazinha bem simples que quebrou um galhao outro dia: (defun c:mins2ins (/ ent elist) (vl-load-com) (if (setq ss (ssget ‘((0 . “INSERT”)))) (repeat (sslength ss) (setq ent (ssname ss 0) elist (entget ent ‘(“*”))) (foreach x ‘(44 45 70 71) (setq elist (vl-remove (assoc x elist) elist))) (entmake elist) (entdel ent) (ssdel ent ss)))

Rolar para cima