Ah!!! então aquele perverso do seu estagiário conectou os pontos do civil 3d em 2d????? putaqueopariu!!! Dá um esporro nele, depois mostra pra ele o programinha ver a bagaça ;converte polilinhas 2d para 3d, baseado em vertices do c3d(defun c:2dto3d (/ ss lst lsc this ent vla pts flag erro);controle de erro (tbn:error-init ‘(nil (end-status)));se […]
Vou postar uma rotina que me livrou de alguns problemas com polilinhas várias vezes, uma rotina que inverte o sentido do caminhamento da polilinha… sim, tem duzias de programinhas por aí que fazem isso, mas os que eu vi (o do POSICAO, por exemplo) só desenham uma nova entidade, apagando a antiga… bem, esta reorganiza
Bom, pra apagar já postei, agora pra INCLUIR vértices, a idéia é: clica o segmento e escolhe a posição do novo vértice… mais… (defun c:avert (/ tmp ent pts pts2 pt dist lst pr tp b sw ew n) (tbn:error-init ‘((“cmdecho” 0) t)) (while (progn (if (> (length lst) 0) (initget “U” 0)) (setq tmp
