abd2080

l'objectif c'est de concaténer le nom de tronçon et la distance correspondante, si le nom de troncon est TRONCON-A et la distance correspondante est 3.54 il devient TRONCON-A 3.54 . Merci d'avance.

l'objectif c'est de concaténer le nom de tronçon et la distance correspondante, si le nom de troncon est TRONCON-A et la distance correspondante est 3.54 il devient TRONCON-A 3.54 . Merci d'avance.

Merci didier de votre réponse. je veut aussi que le résultat soit afficher sur le nom de tronçon sélectionné sur le dessin autocad. Menci infiniment.

salut tout le monde. y a t'il la possibilité de modifier le code pour ajouter la distance calculé comme suffixe au nom de tronçon sur le dessin (concaténer le nom et la distance). Par exemple si le nom de tronçon est Tr1 et la distance 3,54 , le résultat a afficher sur le dessin est Tr1_3,54 et merci d'avance a tous.

merci DenisHen c'est parfait. merci beaucoup.

salut merci de votre reponse. je veux multiplier la distance par une constante. amicalement.

salut tout le monde y a t'il un possibilité d'introduire dans le code un facteur qui permet de changer l'affichage des distances sur le fichier de sortie (multiplier le resultat par 0.01 ou 0.1 par exemple). merci infiniment.

ça fonctionne très bien. c'est effectivement ce qui j'ai demandé . un grand merci Monsieur gile.

merci dedier de votre reponse je veux que quelqu'un de nous chers membres de le faire pour moi (réponse 1). et merci pour le site "Les bases AutoLisp" merci d'avance à tous le monde.

bonsoir monsieurs. Tout d'abord merci à vous: si vous permettez , je suis en train de découvrir le langage lisp; je me demande si quelqu'un peut apporter quelque modification sur ce lisp DIST (gerald). ;; DIST (gerald) ;; Écrit dans un CSV les tronçons et leur distance. (defun c:lg (/ p1 dist Tronc Nom NomFich) (setq Nom (strcat (getvar "dwgprefix") (getvar "dwgname"))) (setq Nom (substr Nom 1 (- (strlen Nom) 4))) (setq Nom (strcat Nom ".csv")) (while (setq Tronc (getstring "\nSaisir le nom du tronçon :")) (setq p1 (getpoint "\nSpécifiez le premier point : ")) (setq dist (getdist p1 "\nSpécifiez le second point : ")) (setq NomFich (open Nom "a")) (write-line (strcat Tronc ";" (rtos dist 2 2)) NomFich) (close NomFich) ) ;_ Fin de while (princ) ) ;_ Fin de defun pour qu'il propose de sélectionner un texte comme nom de tronçon (nom de tronçon écrit sur le dessin ) et de pouvoir saisir le nom du tronçon le cas échéant(s'il n'est pas écrit sur le dessin). et de changer la couleur de de ce texte (nom de tronçon sur le dessin) après chaque opération pour identifier les tronçons déjà sélectionnées. le résultat sur le fichier CSV reste le même. un grand merci a tous le monde. merci beaucoup.