Pb avec la fonction raccord.

[yalta]

Bonjour à toutes et à tous,

 

Quelle est ou quelle serait l'astuce pour faire un même raccord sur plusieurs Polylignes en les sélectionnant toutes à la fois...???

 

Merci d'avance,

 

Sylvain ;)

[lecrabe]

 

Hello

 

Je pense qu'il faut une routine Lisp pour lancer la commande Raccord ou Chanfrein sur N polylignes en passant l'option P pour traiter tous les sommets des N polylignes ...

 

Le Decapode

 

[(gile)]

La voici :

 

(defun c:mrac (/ rad ss)
 (initget 6)
 (if (setq
rad (getdist (strcat "\nSpécifiez le rayon pour les raccords <"
		     (rtos (getvar "FILLETRAD"))
		     ">: "
	     )
    )
     )
   (setvar "FILLETRAD" rad)
 )
 (prompt "\nSélectionnez les polylignes.")
 (if (setq ss (ssget '((0 . "LWPOLYLINE"))))
   (foreach pl	(vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
     (command "_.fillet" "_p" pl)
   )
 )
 (princ)
) 

[Edité le 18/10/2006 par (gile)]

[lecrabe]

 

Hello Gilles

 

Bravo, quelle réactivité , je suis impressionné ! :) :D :cool:

 

Le Decapode "admiratif"

 

[yalta]

... ;) ;) un grand merci à vous pour votre rapidité et votre efficacité.

 

Sylvain

[x_all]

sujet déterré pour dire une fois de plus merci (gile)

:)