Délimitation d\'image polygonal

[Ph.V]

 

Existe t il un moyen de rajouter des sommets à une délimitation d'image en mode polygonal sans être obligé de le refaire ?

J'avoue avoir cherché un moment puis abandonné mais ...sait on jamais ...

 

[fabcad]

Ph.V

 

oui tu ne peux pas ajouter des sommets a une délimitation polygonale d'une image

mais j'ai crée une fonction LISP qui peux t'aider :

copie ce programme dans un editeur type bloc-notes et enregistre-le sous la forme

delim.lsp et charge-le dans autocad

cette fonction permet une delimitation via une lwpolyligne.

 

avant de la faire fonctionner tu peux utiliser la fonction contour pour creer la polyligne

de ta delimitation actuelle puis faire l'edition des sommets et enfin utiliser la fonction delim-image.

 

Bonne uilisation

Fabcad

 

(defun c:delim-image (/ m c1 i)

(setvar "cmdecho" 0)

 

(setq ent (car (entsel "\nSelectionnez une lwpolyligne :")))

(setq img (car (entsel "\nSelectionnez une image :")))

 

(if (= (cdr (assoc 280 (entget img))) 0)

(command "DELIMIMAGE" img "Nouveau" "Polygonal")

(command "DELIMIMAGE" img "Nouveau" "oui" "Polygonal")

);fin if si image est déjà délimitée

 

(if (= (cdr (assoc 0 (entget ent))) "LWPOLYLINE")

(progn

(setq lst-ent (entget ent))

(setq lng-lst (length lst-ent))

(setq i 0)

(while (<= i lng-lst)

(if (= (car (nth i lst-ent)) 10)

(progn

(setq p1 (cdr (nth i lst-ent)))

(command (strcat (rtos (car p1) 2 2) "," (rtos (cadr p1) 2 2)))

);fin progn

);fin if

(setq i (+ i 1))

); fin while

);fin progn

(prompt "\n Cet objet n'est pas une LWPOLYLINE !!! Utilisez CONVERT pour la transformer !!!")

);fin if

 

(setvar "cmdecho" 1)

);fin defun

;;;-------------------------------------------------------------------

[Ph.V]

 

C'est une commande très interessante pour réaliser des visualisations de projet car elle me permet de faire un photomontage d'une VueDyn sur une photo du site, mais parfois il me manque des sommets pour affiner le document final.

Merci pour ton retour