Texte Mirroir

[grand_sapin]

Bonjour à toutes et à tous

 

Je travaille en BET VRD, et j'ai créé un type de ligne pour mes réseaux de Basse Tension. Ce type de ligne donne ça : ---- BT ---- BT ---- BT ----

 

*Basse Tension,Basse Tension ---- BT ---- BT ---- BT ---- BT ----
A,12.7,-5.08,["BT",STANDARD,S=2.54,R=0.0,X=-2.54,Y=-1.27],-5.08

 

Seulement j'ai un fichier ou mon écriture "BT" est écrite comme si on la regardait dans un mirroir, en "reflété". J'ai téléchargé le lisp "Inverser polyligne" sur le site de Didier Duhem, mais ça ne fonctionne qu'une fois sur 10 quand j'ai de la chance.

 

J'ai une collègue qui possède Covadis 2007-4 sur AutoCAD 2006, sur son poste, quand elle inverse la polyligne, ça fonctionne à chaque coup, et dès que je réouvre mon dessin sur mon poste, ça recommence.

 

Merci de vos idées pour résoudre ce désagrément

 

Rémy

[(gile)]

Salut,

 

Tu peux essayer avec ce LISP, qui fonctionne avec tous types de polylignes (2D, 3D ou optimisées) ou celui de Elpanov Evgeniy donné plus bas dans le même sujet, qui ne fonctionne qu'avec les lwpolylignes.

 

Il me semble qu'on trouve sur le net des versions du LISP de Didier Duhem qui sont incomplètes (il manque des définitions de sous-routines) et contrairement aux deux autres que je te propose, celle-ci ne conserve pas les largeurs des polylignes.

 

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

[lecrabe]

 

Bonjour

 

Il faut vérifier que ton style utilisé n'est Ni Reflété, Ni Renversé !

 

Et c'est peut être la routine Lisp qui déconne à mon avis ... :o

 

Sinon en voici une que j'utilise de temps en temps (Merci à Olivier)

 

;;;

;;; ATTENTION: Cette Routine ne traite pas les polylignes SPLINEES OU LISSEES

;;;

 

(defun c:invsens2()

(if (or (null (setq v0 (ssget '((0 . "LWPOLYLINE")))))

(

)

(exit)

)

(command "annuler" "m")

(setq v10 0)

 

(while (

(setq v1 (ssname v0 v10))

; 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)

(setq v10 (1+ v10))

)

 

(command "annuler" "f")

(princ)

)

 

Le Decapode (inversant)

 

 

[lecrabe]

 

ReBonjour

 

SORRY, la routine de GIlles est mille fois mieux !

 

Elle traite tous les cas - Bravo - Bravo

 

Le Decapode (en retard d'une guerre)

 

[grand_sapin]

Merci Gille pour cette routine ô combien efficace.

 

Mais pour le coup, je crois que le crabe aussi à touché de la pince un point important, car dès que j'utilise ta routine, l'écriture n'est plus reflétée, donc ça fonctionne, mais elle devient inversée !!! :mad:

 

Du coup ma question est la suivante, comment fait-on pour savoir si mon type de ligne et inversé ou reflété déjà à la base ???

 

Merci de vos réponses

 

Rémy

 

[Edité le 10/8/2006 par grand_sapin]

[lecrabe]

 

Bonjour

 

Tu regardes les propriétés du style de texte utilisé dans ton type de ligne complexe !

 

Barre de menu: Format / Style de Texte ...

 

Le Decapode "content"

 

[grand_sapin]

Ami à 10 pattes rebonjour.

 

Je suis allé verifier dans ces paramètres mais je te répond par la négative et t'explique pourquoi :

 

je suis en Style de texte "Standard" donc de base sans paramétrage personnel.

De plus dans mon fichier, ce que j'ai omis de préciser auparavant, c'est que seulement certaines polylignes réagissent de la sorte, d'autres fonctionnent très bien, et l'écriture est bien droite, dans le sens de lecture normal.

 

C'est pour ça que ça corse le problème et que j'ai vite compris que je n'avais plus les armes pour en venir à bout.

 

Rémy