Annonce
Pour sa 21ème année, l’association GeoRezo a toujours besoin de vous !
10€ = 1 mois de frais bancaires ; 15€ = 12 mois de nom de domaine ; 30€ = 1 semaine de location des serveurs …
Retrouver nos membres bienfaiteurs
Pages: 1
- Sujet précédent - Inversion du sens de dessin d'une polyligne (de plusieurs sommets) - Sujet suivant
#1 Mon 31 March 2008 11:45
- CRIGBAB
- Participant assidu
- Lieu: Bayonne
- Date d'inscription: 14 Nov 2005
- Messages: 180
Inversion du sens de dessin d'une polyligne (de plusieurs sommets)
Bonjour à toutes et tous.
Voici mon problème, je souhaite inverser le sens de dessin de polyligne sans me redessiner tout ou en déplaçant sommet après sommet (fastidieux).
J'utilise Autodesk Map 3D 2008 et je n'ai pas trouvé dans l'aide une telle fonction.
Quelqu'un a peut être une solution.
Merci par avance
JP LARTIGAU
Hors ligne
#2 Mon 31 March 2008 14:28
Re: Inversion du sens de dessin d'une polyligne (de plusieurs sommets)
Hello,
Un petit lisp devrait faire l'affaire 
Essaye ça :
Code:
(defun c:invsens() (if (null (setq v1 (car (entsel)))) (exit) ) (command "annuler" "m") ; parcours pour récupérer les points (setq v2 (entget v1) v3 nil v4 nil) (foreach v5 v2 (if (= (car v5) 10) ; point (setq v3 (append v3 (list v5))) (if (= (car v5) 42) ; rayon de courbure (setq v4 (append v4 (list (cons 42 (* -1.0 (cdr v5)))))) ) ) ) ; inversion (setq v3 (reverse v3) v4 (reverse v4)) ; bidouille pour remettre dans le bon ordre les rayons de courbure (setq v9 (car v4) v4 (append (cdr v4) (list v9))) (setq v6 nil v7 0) (foreach v5 v2 (if (= (car v5) 10) (setq v6 (append v6 (list (nth v7 v3)))) (if (= (car v5) 42) (setq v6 (append v6 (list (nth v7 v4))) v7 (1+ v7)) (setq v6 (append v6 (list v5))) ) ) ) (entmake v6) (entdel v1) (command "annuler" "f") (princ) )
Robin.
Hors ligne
#4 Mon 31 March 2008 14:44
Re: Inversion du sens de dessin d'une polyligne (de plusieurs sommets)
Hello,
Bon, comme j'aurai dû te suggérer dès le premier message, l'info est présente sur le site de CADXP :
http://www.cadxp.com/modules.php?op=mod … =10953#pid
Finalement, le petit script envoyé tout à l'heure marche mais, fait quelques erreurs, en fin de boucle mais rien de grave.
Pour les questions purement Autocad, comme je le dis souvent, c'est la référence !!!
Et c'est pas pour du beurre, la preuve
Robin.
Hors ligne
#5 Mon 31 March 2008 17:41
- CRIGBAB
- Participant assidu
- Lieu: Bayonne
- Date d'inscription: 14 Nov 2005
- Messages: 180
Re: Inversion du sens de dessin d'une polyligne (de plusieurs sommets)
Bonsoir
Merci cela marche parfaitement même avec la version 2008.
JP LARTIGAU
Hors ligne
Pages: 1
- Sujet précédent - Inversion du sens de dessin d'une polyligne (de plusieurs sommets) - Sujet suivant
