Programas

Programas

Pranchas

Como você faz para inserir um formato no desenho? você tem os blocos de A0 ao A4 já desenhados, certo? e insere eles normalmente como blocos… ok, eu também… mas e quando você precisa dum formato de dimensões fora do padrão? as veze acontece, não é? e aí? explode um formato parecido, etc… mais… (defun […]

Programas

Inverter polilinha

Quem trabalha com topografia e ja usou alguma rotina para inverter o sentido de uma poligonal e descobriu que ela perde a informação da WIDTH? ou o linetype scale?eu já… isso ocorre porque muitas delas simplesmente desenham uma nova polilinha e deletam a antiga…então tente usar esta rotina ao invéz daquelas… mais… (defun c:ivp (/

Programas, subrotinas

mkdir2

Uma rotina que complementa a função VL-MKDIR: (defun mkdir2 (path / pos lst drive f);limpa a string: (while (vl-string-search “” path) (setq path (vl-string-subst “/” “” path)));remove a barra do final, se ela existir: (setq path (vl-string-right-trim “/” path));desmonta a string numa lista: (while (setq pos (vl-string-search “/” path)) (setq pasta (substr path 1 pos)

Rolar para cima