cadpolo

A tous une bonne anée 2007 ............ Plein de réponses aux questions posées ....

Ok ...... j'oublis ......Substr pour mon code ...... Merci à tout le monde .....

Bon ..... :cool: Dans mon code , je calcule une distance, (setq plength (distance sp ep )) que je renvois a une liste (setq list_plength ( append list_plength ( list plength ))) dans ce cas => (1.414 1.732 2.285) et avec Substr je voudrais récupérer chaque element de cette liste pour les additionnés . Donc j'ai pensé à (start) = (nth n list_plength) mon ième élément de la liste càd n=0 et list_plength :1.414 et (length) = nombre de chiffre après la virgule (mais dans ce cas après réflexion ne marche pas )

Re merci les gars ..... Tout simplement définition autocad [surligneur] (substr string start [length]) [/surligneur] je pensais à ça : (substr (string) qui est ma (list_plength) => (1.414 1.732 2.285) les chiffres contenus dans la liste sont t'ils des String ou real ????? (setq plength (distance sp ep )) (setq list_plength ( append list_plength ( list plength ))) vu que la distance retourné est un chiffre .... dans quel cas Substr ne marche pas ?????? (start) = (nth n list_plength) mon ième élément de la liste càd n=0 et list_plength :1.414 (length) = nombre de chiffre après la virgule ..... mais là stupido ????? En faite voila je ne sais pas si j'ai été claire ???????

Merci les gars .... Mais et le subtstr

Il y a cette possibilité, j'ai le code mes de Patrick qui m'a un peu éclairé ..... (defun c:test () ;initialisation des listes (setq plength 0 ) (setq sp (getpoint "\n Point de départ: " )) (while (/= nil (setq ep (getpoint sp "\n Point suivant: " ))) (setq plength (+ plength (distance sp ep ))) (setq sp ep ) );fin de while (print plength ) (princ) );fin de defun Ca marche bien, en faite j'ingorais que l'on pouvait additionner des variables avec elles meme . Peux etre que je me complique trop la tache .... Mais j'aimerais quand même savoir comment extraire des données réelles d'une liste ?????.

Salut a vous ..... Voila....Je me retourne de nouveau vers vous, car je n'arrive pas à récupérer et à additionner les données d'une liste .... (defun c:test () ;initialisation des listes (setq list_pt ()) (setq list_plength () ) (setq add_list_plength () ) (setq sp (getpoint "\n Point de départ: " )) (while (/= nil (setq ep (getpoint sp "\n Point suivant: " ))) (setq plength (distance sp ep )) [b] (setq list_plength ( append list_plength ( list plength )))[/b] ;;;Cette ligne me retourne une liste de nombre ;;; [surligneur] ( 1.414 1.414 2.285 )[/surligneur] ;;;et j'aimerais récupérer chaque atome de cette liste pour les additionner ... (setq sp ep ) );fin de while (setq length_list (length list_plength )) jusqu'ici tout va bien ... (setq n 0 ) (while (< n length_list ) (setq total_length_list (nth n list_plength )) ;;;(read list_plength ) ;;;(setq add_list_plength (substr list_plength 2 2)) ;;;(setq add_list_plength ( 1+ total_length_list )) (print total_length_list ) ;;;ce test me retourne les éléments de la liste et la boucle marche .... (setq n (1+ n )) );fin de while (princ) );fin de defun (substr string start [length]) j'ai penser utiliser ( substr (list_plength) (nth n list_plength) [length] ) mais une distance étant un nombre a virgule dans le cas de mon projet (length) étant un reèlle je ne vois pas comment sortir un nombre ex: 1.414 . Et puis je pense que ce code peux servir pour autre chose ...... (setq list_pt (append list_pt ( list sp ) (list ep ))) LIST_PT = ((0.0 0.0 0.0) (1.0 1.0 0.0) (1.0 1.0 0.0) (2.0 2.0 0.0) (2.0 2.0 0.0) (3.0 3.0 0.0)) Bon voila ....Si vous pouvez me renseigner ......

Salut zebulon ... merci pour tes info ..... SSADD pour la creation d'un groupe de selection .......

Salut ........ dite moi si je me trompes Pour creer un jeu selection [surligneur] (setq ma_sel (ssget (mon filtre )))[/surligneur] ...... j'ajoute ma selection à mon groupe de sélection ...de j'ai crée .. [surligneur] (setq nouv_ssadd (ssadd nouv_ssadd ma_sel ))[/surligneur] je compte le nb dans ma_sel [surligneur] (setq nb_ma_sel (sselngth ma_sel ))[/surligneur] mon compteur a 0 [surligneur] (setq n 0 )[/surligneur] boucle [surligneur] (while (< n nb_ma_sel )[/surligneur] je passe en revu mon groupe ... [surligneur] (setq ma_sel_ssname (ssanme n ma_sel )[/surligneur] """la je mets une fonction """"""" [surligneur] (setq n ( + 1 n))[/surligneur] et la fin de ma boucle ...... Si tout à c'est bon, Ben je me retrouve avec un jeu vide [surligneur] nouv_ssadd [/surligneur] j'ai du louper une étape .....?????? :casstet:

Re les mecs ..... Ben Gile tu as raison, ça marche en désactivant osmode .... Mais ce n'est pas normal qu'on doive désactivé osmode , vu que l'on a déja rentré les points de coordonnées .....Bon ça marche .... Salut et merci

Salut ....Gile Je vais essayer ça ...... Tchao .....

Re.... Bon .... Je pense qu'un exemple parlera mieux, comment peux t'on coller une image ... Mais Tramber et gile La valeur de width est de 0.00 et j'ai aussi rajouter un (rtos (setq width 0.064) 3 3) qui normalement devrais garder les trois chiffres après la virgule ..... Eh ben NON ça marche bien que si Osmode est à 0 . Malheureusement je ne peux tracer sans accrochage aux objets ....

Salut .... Voici le code en entier sous forme d'ebauche ...... Et le code DCL

OUI gile Salut ..... j'ai bien compris l'impair du pair ... mais quand tu regardes avec l'espion il te renvois bien un Nb à virgule et non un entier ..... Bob demain je vais poster le code en entier ...... Pour le tester ...... merci les gars ...... Tchao ....................................

Salut Tramber ...... Que veux tu dire par impair ??????