Hydro8

Mince c'est dommage ! Peut-être une variable pour éviter les interruptions en cas d'erreurs ?

Voila : https://we.tl/DezeQvurzO

C'est seulement un dessin1 vide dans lequel j'ai créé le calque (non gelé, non vérouillé) et testé le lisp.

Alors même avec le calque déjà créé, j'ai le même message d'erreur. Cette ligne me donne 0 si je la lance dans AutoCad.

Merci ça fonctionne bien ! Merci d'avoir pris la peine de coder quelque chose ! Malheureusement j'ai toujours le problème de variable clayer rejeté quand je clique sur l'emplacement du texte. J'ai essayé d'enlever le 0 de la ligne (setq ValIncrement (vlax-ldata-get "DenisH" "ValIncrement" 0)) Mais ça ne règle pas le problème. Merci encore de vos réponses :)

Imaginons j'ai un rectangle avec un mtext dedans. Avec la fonction contour, je clique dans le rectangle (peu importe l'endroit) ça va me faire la polyligne du contour mais aussi un rectangle autour du mtext j'imagine pour le détourer. Est il possible de lui dire de ne pas prendre en compte le mtext à part le mettre dans un autre calque.

Petite question qui me trôte dans la tête (même avec la commante contour classique), c'est possible de créer le contour automatiquement sans qu'il fasse un rectangle autour du texte ?

Bravo, c'était effectivement le problème. Merci beaucoup à tous !

Non t'inquiètes pas je comprends :) Merci pour ton temps et ton aide en tout cas !

Du coup désolé d'être insistant, d'après toi est ce possible de réécrire le fichier avec toutes les surfaces existantes à la création d'une surface ?

Héhé avec U+00B2 on est bon ! Merci beaucoup DenisHen :) Si quelqu'un a une idée pour les accents dans les commandes du lisp.

Bonjour, DenisHen m'a fait une routine lisp qui écrit la surface d'un contour pointé / saisie. Elle fonctionne bien, le seul problème c'est que devant l'exposant m² il y a un Â. Je peux l'enlever par la suite mais à chaque insertion du texte c'est la même chose. Voici le bout de code que j'utilise : (command "_.-STYLE" "Arial" "arial" "" "" "" "" "") Juste après le début de la commande et plus bas : (setq MText (strcat PrefixIncrement (itoa ValIncrement) "\\PS=" (rtos Surf 2 1) "m2\\PING")) Quelqu'un à une idée d'où provient le problème ? Je ne sais pas si c'est relaté, mais j'ai un problème pour les accents des commandes également : Merci pour votre aide !

Oui je peux effectivement le supprimer.

J'ai essayé \S2 ou \S^2 mais toujours sans succès, dommage :( Bon désolsé d'abuser et peut-être que cela demande trop de travail / est trop compliqué par rapport au fonctionnement actuelle : Est-il possible de réécrire le fichier de surface à chaque fois ? Le problème c'est que si on a des surfaces qu'on a ensuite supprimé ou autre, elles apparaissent quand même dans le fichier. Cela peut paraître bizarre mais je commence à connaître les personnes avec qui je travaille <_< J'ai peur que cela ne fonctionne pas car j'imagine que une fois insérer on ne peut pas retrouver la totalité des textes précédemment ajoutés. Edit : pour la police je suis en Consolas.

À priori ça fonctionne !! À quoi servait ce 1 ? Juste si quelqu'un passe par là et qu'il saurait pour le ², voici le résultat en arial chez moi : Je sais pas si c'est lié mais par exemple dans la commande, le é de Préfix ne s'affiche pas correctement.

Non même avec cette commande, même erreur. J'ai essayé dans un autre dessin ou carément enlever la ligne pour établir le calque mais toujours pareil :angry:

J'ai testé sur un nouveau dessin, la commande me créer le calque "MARTY-SURFACES_FRACTIONS" qui est pas défaut. Il est ni vérouillé, ni gelé. Pour le ², le symbole apparaît bien mais il y avait juste  devant alors que dans le code j'ai juste m².

Pour la police j'ai choisi arial :blink: J'ai le message d'erreur sur la variable clayer quand je dois choisir l'emplacement du texte que ça soit en contour ou polyligne.

Pour la partie préfix / nombre ça fonctionne au top. Pour la partie insérer le texte : - pour le contour, ça boucle sur l'insertion du texte non la création du contour. - pour la polyligne, je peux faire une poly, insérer le texte, refaire une poly différente mais le deuxième texte aura le même nombre et la même surface que la première. J'ai ajouté un peu de texte sur le mtext qui est insérer : (setq MText (strcat PrefixIncrement (itoa ValIncrement) "\\P S= " (rtos Surf 2 1) "m² \\P ING")) Mais l'exposant ² est toujours précédé de "Â". Je n'ai pas trouvé de solution sur internet, les personnes utilise l'exposant directement à priori. Question bonus, est-il possible de mettre la première ligne du MTEXT dans une autre hauteur de texte que le reste ?

Quand je change le préfixe, il passe automatiquement à Contour/Polyligne. En gros, si c'est possible mes connaissances en lisp étant basique, si l'utilisateur fait autre chose que clique un point (appuyer sur entrée / espace par exemple, il ne se passe rien. Seul un échap termine la commande. Je viens d'y penser, est-il possible d'enchainer les commandes ? Ou faut-il obligatoirement relancer la commande du début pour une question d'incrémentation ?

Ca fonctionne au top ! Derniers petits problèmes pour la forme : - est il possible après avoir modifier le préfix / nombre de revenir à ce menu ? Car quand je change le préfix après je ne peux pas changer le nombre (par exemple passé de 1a20 à 2a1). - est il possible de rien faire quand on clique sur entrée pour choisir l'emplacement de texte ? Pour le moment cela fait une erreur car pas d'emplacement. Pour éviter que certaines personnes se retrouvent avec l'erreur quand elles ont trop fait entrée / espace.

J'ai essayé ta version avec l'export du fichier .surf mais du coup je trouve ce fichier où ensuite ? Car il ne se passe rien de différent. Edit : j'ai rien dit, j'ai mal lu et mal testé. C'est surement beaucoup demandé car ça fait une commande en plus à developper mais est-il possible de faire un export global une fois qu'on a réalisé toutes les surfaces ? J'ai essayé de mettre un valeur par défaut pour le choix Contour / Polyligne mais ça ne fonctionne pas. J'ai essayé : (setq Option2 (getkword "\nOptions des textes [Contour/Polyligne] <C> : ") ;

Oui j'ai vu ton edit après, cela fonctionne au top ! Bravo !! Petites question, est-il possible de sortir un listing des surfaces ? Je n'ai jamais utilisé encore ce genre de fonction mais ça pourrait bien servir au lieu de recopier bêtement chaque surface sur excel.

La commande se lance bien mais quand j'arrive au choix de polyligne / contour, il ne se passe rien après que je rentre C ou P.

Merci cela fonctionne bien pour l'arrondie :) Oui je pense c'est une polyligne du contour. Je viens de tester la commande contour et ça me donne bien une polyligne en contour.