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 ??????

Tiboulen.. Je te remercie pour tes renseignements, mais il ne s'agit pas d'un Pb d'accorchage et d'initialisation de ces accrochages . Mais l'orsque tu es dans type : Intersection,Proche et Perpend.. Si le Pt de saisie est (0,0,0) en cliquant avec les accrog... il me prend (-0.10 , 0.05 , 0.00 ) au lieu de ci-dessus ....... Il ne s'agit de la sauvegarde des var...OSMODE ... Et si je saise en OSMODE 0, j'ai plus de chance d'avoir mes coordonnées ( 0,0,0 )

Salut .... :) Voila j'ai fait un code qui me permet de dessiner un profilé metallique type IPE... Donc j'ai un rectangle et deux ligne en pointillé de part et d'autre de mon axe ( Pour ceux qui ne savent ce qu'est un profilé ) L'exemple type : [surligneur] (setvar "osmode" XXX ) (setq sp (getpoint "\n Point : ")) (setq ep (getpoint "\n Point suivant : " sp)) (setq pangle (angle sp ep)) (setq plength (distance sp ep)) (setq angp90 (+ pangle (dtr 90))) (setq angm90 (- pangle (dtr 90)))[/surligneur] Pour tracer mon rectangle : j'utilise ça : [surligneur] (command "polylign" sp (setq p2 (polar sp angm90 (/ width 2))) (setq p3 (polar p2 pangle plength)) (setq p4 (polar p3 angp90 width)) (setq p5 (polar p4 (+ pangle (dtr 180)) plength)) "clore") );;fin de command [/surligneur] La largeur width est donné par un tableau sous forme de cond ... Et pour tracé mes deux lignes de part et d'autres de mon axe : [surligneur] (setq sp1 ( polar sp angm90 (* width 0.05))) (setq ep1 (polar sp1 pangle plength )) (setq sp2 ( polar sp angp90 (* width 0.05))) (setq ep2 (polar sp2 pangle plength ))[/surligneur] [surligneur] (command "ligne" sp1 ep1 "") (command "ligne" sp2 ep2 "")[/surligneur] Ben suivant le type d'accrochage Osmode 672 : intersection,proche,perpendiculaire . Ca part en vrille j'ai mon rectangle et mes deux lignes sur le meme axe de saisie de point SP et EP Et si je n'utilise aucun point d'accrochage il me le trace correctement .... Effectivement, en travaillant en metre meme si ce nest pas l'unite du metalll... j'ai des dimension Ex : pour un IPE 80 la largeur est de 0.046 .... Ben justement avec les accrochages osmode 672 ... ne marche et sans accrochage me le trace correctement ..... Pour simplifiez comme j'ai été très long la saisie des points peux t'on la gérer .....

Effectivement .... mais je pensais a un code dxf de la lwpolyline a retourmé ... Bon merci les gars ...... :D

Salut Gile .... En faite j'aimerais faire une sélection de toute les entités contrairement entsel qui te permet d'en faire qu'une (si je me trompe pas ) .... et dans cette sélection si il y a que des polylines .....on fait sinon on passe a utre chose ...

Salut ... Je m'y remet un peu .... voila j'aimerais savoir comment peux t'on écrire ce code ... Si c'est une Lwpolyline ->>sélection Sinon autre fonction .. Merci ...

Super Lelion33 effectivement, le calque 0 était gelé ... merci Oui bipbip le calque defpoints n'est pas un calque de travail, mais utile quand tu ne veux pas que le contour de ta fenetre dans ta mise en page ne sorte pas à l'impressio au lie de creer un calque non imprimable .... Tchao et merci pour vos réponses .........

Salut .... Eh oui je suis encore en 2004, voila dans l'onglet presentation qu'en je passe la fenetre ( Vports) dans le calque Defpoints pour gelé le cadre,pour m'on impression . je n'arrive plus par la suite à la sélectionner ??? Pourtant Defpoints n'est ni geler ou verrouiller ... Avez vous déja rencontrer ce type de Pb..

Merci ... patrick ...... Et puis le Zero nest pas un Oui "O" ......je m'étais planté ...... :P

Salut Patrick ... En faite j'aimerais que le facteur d'extension soit à [surligneur] 0.6[/surligneur] là tu me le mets à 1.....

Salut...... [surligneur] Eh..COCORICO...hein........[/surligneur] Voila j'ai un pb avec un ptit lisp créer , dans mon lisp j'ai mis ça " [surligneur] (command "-style" "STANDARD BA" "romans" "" "0" " 0.6" "0" "N" "N" "N" "")[/surligneur] et là il me dit que [surligneur] La valeur doit être positive et non nulle. ; erreur: Fonction annulée Spécifiez le facteur d'extension < 0.6000>:[/surligneur] Normalement cela devrait marché NON ?????