Hydro8

Merci pour ton aide encore une fois. Alors j'ai copié ton code dans mon ancien lisp laissant les xdata de gile et le code pour l'export des xdata. Quand je clique sur un endroit pour le texte il apparait bien, la première ligne est soulignée cependant je n'ai pas de trait de rappel et à aucun moment il m'a demandé le début et la fin de la flèche comme le code d'avant.

J'ai bien le style de texte Surface après avoir lancé la commande une première fois.

J'ai juste rajouté le code de gile pour les xadata.

Oui je n'ai plus les problèmes d'accents par exemple.

Oui pardon j'ai mis le résultat après.

Et sans la partie pour la hauteur du texte :

Voila le résultat :

Voilà exactement le résultat après avoir déifni la flèche : Défini les quatre coins du MText de (gile)paramètre de la variable AutoCAD rejeté: "clayer" nil Commande: *Annuler*

En supprimant "H" 1.0 j'avance mais j'ai encore l'erreur clayer :(

En ligne de commande c'est les commandes normales, du coup si je change le préfix il est bien pris en compte. C'était standard, j'ai essayé avec Arial mais même erreur.

Alors pour le numéro il me met VarB0 par exemple et après avoir choisi le type d'altitude j'ai "commande inconnue H"

Merci encore :) Je suis content j'ai réussi à rajouter les questions et du coup les xdata dans un csv pour les altitudes!

Enfaite le résultat doit ressembler à ça : Sachant que le texte peut être sans ligne, ligne à gauche ou ligne à droite. Ca devient compliqué j'imagine avec la taille du texte, la hauteur etc...

Oui merci pour le lien j'ai commencé à le lire :) Pour le moment j'ai seulement fait des lisp basiques pour tracer des lignes de tel type dans tel calque etc... La suite sera des lignes d'attaches pour les textes qu'on vient de créer (si c'est possible) et le draworder de certains calques mais j'ai cru lire que ce n'était pas possible. Il me reste de la lecture :)

Ca fonctionne ! Bon ba c'est super tout ça, je vais m'amuser comme un fou. Merci encore pour ton aide, j'ai appris plein de choses grâce à tes lisps !

C'est super, exactement ça :) Dernière question (je l'espère), comment éviter la concatenation des chiffres dans : (setq MText (strcat "\\H1.2" PrefixIncrement (itoa ValIncrement) "\\P\\H1S=" xSurf "m²\\PIGN : " Opt3)) \\H1.2 et PrefixIncrement sont mis ensemble du coup la hauteur du texte prend le préfix dedans.

Oui et oui avec comme choix par défaut altitudes. Merci pour ton temps précieux :)

Entre les altitudes/sans Profondeur/sans Hauteur/sans Limite J'ai essayé de rajouter : (SetXdataForApplication (entlast) "Surf" (list (cons 1000 xSurf))) ;; (setq Option1 (getkword (strcat "\nOption du texte [Entre les altitudes/sans Profondeur/sans Hauteur/sans Limite] <Entre les altitudes> : ") ;_ Fin de strcat ) ;_ Fin de getkword ) ;_ Fin de setq (cond ((= Option1 "Entre les altitudes") (setvar ign "Entre les altitudes XX et XX") ) (setq Pt_Ins (getpoint "\nCliquer l'emplacement du texte :")) ;_ Fin de setq (setq MText (strcat "\\H0.53" PrefixIncrement (itoa ValIncrement) "\\P\\H0.38S=" xSurf "m²\\PIGN" ign)) Mais ça ne fonctionne pas.

Petite question d'un débutant super chiant, est ce possible avant de cliquer sur un point pour le texte, de demander une option parmis 4 qui fera varier le texte derrière "IGN" ?

J'ai trouvé pour le dernier problème, la valeur incrémentée était comprise dans la hauteur du texte ;) Edit : du coup je vois pas comment faire sans espace

Ok niquel pour l'export ! Merci beaucoup pour ton boulot c'est vraiment au top !

Ok merci pour cette information. Concernant les lisp : - quand j'insère le texte, il y a la lettre du préfix mais pas le nombre. Par exemple 13b1 devient b1 lors de l'insertion. La fois d'après il y a bien 13b2. - est-il possible de ne pas effectué d'export à chaque contour mais que quand on utilise le lisp liste ?

Ok donc quand je commente les deux lignes comme ça : (setq xMatri (strcat PrefixIncrement (itoa ValIncrement))) ;;;(SetXdataForApplication (entlast) "Matri" (list (cons 1000 xMatri))) (setq xSurf (rtos (getpropertyvalue (entlast) "Area") 2 1)) ;;;;(SetXdataForApplication (entlast) "Surf" (list (cons 1000 xSurf))) Je peux créer le contour et insérer le texte. PS : il y a t'il un moyen de recharger une lisp sans redémarrer autocad ?

J'ai essayé de supprimer carrément la partie : (if (not (tblsearch "style" "Surface")) (command "-style" "Surface" "arial.ttf" "" "" "" "" "" "") ) ;_ Fin de if (command "textstyle" "Surface") Mais cela n'a rien changé. Par contre quand je commente cette ligne : (SetXdataForApplication (entlast) "Matri" (list (cons 1000 xMatri))) Je passe d'une erreur après création contour à une erreur lors de l'insertion du texte, j'ai donc gagné une étape.

Par ce que en gros il créé le contour mais bloque au niveau de l'insertion du texte, du coup il va falloir que je cherche dans ce coin. Edit : l'incrémentation ne se fait pas non plus.