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 […]
Esqueci de postar esta rotina: ; função para calcular o comprimento de linhas(defun get-length-of (ent) (if (setq ent (ename-of ent)) (vlax-curve-getdistatparam ent (vlax-curve-getendparam ent)))) Link(s) da(s) subrotina(s) usada(s):get-length-of, ename-of
Como eu disse, mais polilinhas!! Na edição de LWPOLYLINEs, principalmente daquelas que representam poligonais, muitas vezes precisamos excluir alguns vértices, por um motivo qualquer e muitas pessoas simplesmente sobrepõe um vértice a outro… tá funciona, mas não é lá uma solução muito elegante, não concordam?? a rotina a seguir faz isso: apaga vértices da polilinha,
