BixenteLiz

. Merci Patrick de venir modérer ce sujet l@ où d'autres ont échoué. Je suis d'accord, c'est très dommage, d'autant qu'il existe peu voire aucun autre forum dédié à AutoCAD. Mais accueilli comme je l'ai été ici, je ne peux absolument pas rester. Peu être que ce fil ne reflète pas la vrai personnalité du forum, mais il n'empêche que, me concernant, les réponses obtenues ne sont pas dignes d'un forum d'entraide. L'estime que je porte sur ce forum en est réduite à néant. Messieurs les modérateurs, vous portez l'entière responsabilité de mon départ. Vous m'avez vraiment écœuré sur ce coup... Heureusement qu'il existe d'autres forums d'entraide dont je fait partie où les gens n'ont pas votre perception des choses, où les anciens m'ont appris énormément de choses, et où aujourd'hui je peux prendre du plaisir à aider les nouveaux. Sachez qu'en misant sur moi et en prenant le temps de m'expliquer les choses, j'aurais un jour aidé les novices. Mon but était bien de m'investir par la suite sur ce forum et d'aider là où les autres m'ont aidé quelques mois plus tôt... De l'entraide quoi, un échange, une inversion de rôles permanente entre demandeurs et questionneurs. Vous avez décidé que je n'avais pas le droit d'apprendre, pas le droit à des explications là où j'en ai demandé, très bien, mais vous avez mis un terme à cet échange qui aurait pu s'instaurer. Je vous souhaitais plus tôt une bonne continuation, mais finalement je vais souhaiter bon courage et surtout bonne chance. Car vous aurez besoin de beaucoup de chance pour "insufler une envie " aux nouveaux arrivants (citation de BonusCAD) Votre rôle de modérateur et d'entretenir l'échange, de soutenir les nouveaux dans leur apprentissage, pas de tout détruire... C'est la sérénité même de votre forum qui est en jeu... Pensez-y [Edité le 7/7/2010 par masterdisco]

De toute façon, comme avoir le dernier mot fasse à deux "modérateurs" (oui, oui, ce mot veut bien dire "modérer" > définition : "Diminuer l'intensité de quelque chose. Tempérer." ) Revenons en à la source du conflit d'accord ? Citation de gile : Citation de lili2006 : Vous avez estimé à tort que je souhaitais abuser de vous. Relisez mes posts. Vous avez considéré à tort que j'étais un profiteur. Et pourtant Je n'avais demandé que de l'aide. Je n'ai jamais forcé quiconque à me répondre bonuscad a raison : J'ai demandé de l'aide, on m'a fourni une solution toute faite. En agissant comme ça, vous entretenez vous même une système qui ne vous convient pas, voyez la niveau de contradiction ! Peut être que d'autres membres demandent des solutions toutes faites, et bien sûr qu'il faut leur dire qu'ils abusent, mais vous avez fait l'amalgame en me prenant pour l'un d'eux. >lili2006, gile, : Vraiment, relisez mes posts précédents. Vu que tous les deux vous semblez vouloir avoir le dernier mot, je vous met au défi de trouver le moment où j'aurais demandé une solutions clé en main. J'attends une réponse. Alors maintenant CA SUFFIT. Je ne viens pas sur un forum pour que l'on me donne des leçons injustifiées, ou que l'on se serve de moi pour passer ses nerfs. Qui êtes vous pour traiter les membres de cette manière ? A mon tour de juger, puisque visiblement sur ce forum, même les modérateurs peuvent juger les autres membres : Oui vos propos sont indigne de modérateurs, que ce soit gile, ou que ce soit lili2006. Un modérateur ne devrait jamais juger un membre à tort. Vous avez commis un erreur, assumez. Vous (tous les deux) êtes à la source de ce conflit, et vraiment, je serais ravi de vous voir déchus de vos "fonctions". > A l'administrateur du site, ma demande de suppression de compte date de 06/07/2010. Vous avez légalement deux mois pour en tenir compte et rendre ma demande effective. Mon courrier pour la CNIL pour "refus d'accès à des données personnelles" est déjà prêt, je l'envoie le 05/09/2010 au soir si rien n'a été fait...

Ah d'accord... vous être donc nés tous les deux avec la science infuse. Voila qui explique tout. Dans ce cas c'est vrai, vous êtes bien meilleurs que moi... Désolé mais moi je n'ai pas la science infuse. Je débute en LISP, j'essaye d'apprendre seul, je n'ai pas de base. C'est un point que j'ai toujours précisé, mais visiblement ça vous est complètement égal. Maintenant grande question (merci d'y répondre) : > Comment puis-je aider quelqu'un si je n'ai pas les connaissances pour répondre à son problème ? "Bonjour, je ne sais pas répondre à ton problème mais je te soutiens, bonne chance" :exclam: Génial ! Pour moi il y a 2 étapes pour un membre autodidacte : 1. Il pose des questions, soumets ses problèmes >> En fonction des réponses fournies, il apprend. 2. Ce qu'il a appris, il le partage et aide les autres. Mais visiblement sur ce forum tout le monde est né en sachant tout sur tout, personne n'est autodidacte... Vous ne m'avez jamais rien expliqué tous les deux, relisez vos posts, vous m'avez tendu des solutions et "tiens démerde toi maintenant". Comment puis-je apprendre comme ça ? Comment puis-je aider les autres si je n'ai rien appris ? Moi pauvre ignorant, j'avoue mon infériorité fasse à vous. Ma mère ne m'a pas appris le LISP quand j'étais dans son ventre... Pauvre de moi. Je ne partage pas cette philosophie où les débutants et autodidactes n'ont pas leur place. C'est pour ça que je quitte le forum. A ce propos, j'attends toujours la suppression de mon compte... Que faut-il faire pour qu'elle soit effective ? Dénoncer CadXP à la CNIL ? Si c'est que ça... A moins que les modérateurs fassent quelque chose...

Je ne peux pas partir sans répondre à ces propos... Nous sommes d'accord, c'est pourquoi je n'ai toujours demandé QUE de l'aide. Partager quoi ? Les explications que l'on m'a fourni ? On ne m'a rien appris sur ce site, on m'a fourni des codes sans mes les expliquer, ce n'est jamais ce que j'ai demandé. Je le comprends, mais je ne dois pas pour autant en faire les frais et tout ramasser. Bien sûr que c'est normal , mais je ne suis pas une entreprise, je suis un utilisateur d'Autocad qui cherche de l'aide pour apprendre le LISP C'est quand même pas dur à comprendre. Comment faut-il le dire ???! Gile, le code est génial, c'est exactement ce que je voulais, mais NON JE N'AI PAS OBTENU L'AIDE QUE JE VOULAIS. On ne m'a pas fourni de l'aide, on ma tendu la solution sur un plateau. C'est très gentil, la solution m'est extrêmement utile et d'une efficacité redoutable, mais ça n'a jamais été ce que je demandais. Je ne demandais que de l'aide. Peu être, mais en tout cas ce fil n'est pas digne d'un forum d'entraide, en tout cas de la vision que j'en ai. ...réponses qui se retrouvent noyées dans ce débat malheureusement pour elles Tu as le droit de penser ça. Ma réaction est juste celle de quelqu'un qui n'a pas du tout la même vision de l'entraide. Je le redis : encore merci Gilles, vraiment, le programme conçu est génial. Merci aux autres qui ont tenté de m'aider. Toutefois, cette fois-ci, il s'agit bien de mon dernier post. Je souhaite supprimer mon compte pour la simple et bonne raison que je ne partage pas la mentalité de ce site, où la motivation latente des membres semble être de trouver un gagne-pain plus que le partage de connaissances à titre gracieux... Vous avez le droit, mais je ne raisonne pas de la même façon et je ne souhaite pas faire partie de cette communauté. Puisqu'il n'y a pas de lien pour supprimer son compte j'ai fais la demande au Webmaster, j'attends donc que la suppression soit effective. Avis aux modérateurs, si vous avez le moyen de supprimer mon compte allez-y... Bonne continuation. [Edité le 5/7/2010 par masterdisco]

Le code proposé fonctionne bien à priori. Merci pour tout. Bonne continuation au forum. Nul doute que vous m'aurez très vite oublié...

Gile, merci pour le code proposé et merci de m'avoir encore consacré du temps. Au vu des différentes réactions et de la tournure houleuse que prends ce fil, je me permets de suggérer une chose : relisez l'historique de la discussion, et citez un seule de mes propos ou vous estimez que j'ai demandé une solution "clé en main". A la base, il s'agissait même d'une simple demande d'aiguillage : Citation de mon premier post : Aussi, je tiens à remercier au plus haut point gile qui m'a énormément aidé en faisant bien plus que m'aiguiller, puisqu'il m'a proposé un programme quasi abouti dès le début. Mais gardez bien tous en tête que mon but n'était pas de sous-traiter la création de mon programme, mais de trouvez des gens d'expérience pour me guider quand j'en aurais besoin. J'ai des supérieurs, je ne fais pas ce que je veux. Si j'avais voulu sous-traiter la programmation à quelqu'un d'extérieur, il aurait fallu que j'en fasse la demande, que j'obtienne un budget. C'est pour cela que j'ai souhaité résoudre mon problème moi même, et que je m'adresse à un forum d' entraide. Ma requête n'a jamais été un appel d'offre, mais une demande de partage d'expérience. Bien sûr que le travail de gile est énorme, que son implication l'est tout autant, et je le rejoins parfaitement quand il dis précédemment : C'est tout ce que je demandais : des pistes, de l'aide, des aiguillages... Je suis vraiment surpris par les diverses réactions, y compris celles des modérateurs, pour un forum qui se veut être un forum d'entraide, et qui dévalorise l'aide gracieuse au profit de missions rémunérées. S'il s'agit en fait d'un forum d'appel d'offres, il faudrait le précises dès le début, au moins les gens sauraient à quoi s'en tenir. Donc encore merci pour le travail effectué. je n'ai pas encore testé le code, je vais le faire d'ici peu, mais puisque visiblement tout le monde me prend ici pour quelqu'un qui souhaite vous exploiter, dans tous les cas je ne demanderai plus rien, et mon prochain post qui servira à vous dire si le code fonctionne ou non sera mon dernier sur ce site quoi qu'il arrive, suite à quoi je supprimerai mon compte. Cordialement.

Re, bonjour gile, J'aimerai revenir sur ce point : Je tiens juste à préciser que le but n'est pas de me faire gagner de l'argent, je ne travaille pas à mon compte ni à la tâche, et mon salaire ne changera pas en fonction de ma productivité. Comme je l'ai déjà dis plusieurs fois, mon but est d'apprendre à programmer, et comme tout novice, j'ai besoin d'aide au début. Je ne tiens à exploiter personne, et si quelqu'un ici à cette impression, qu'il ne réponde pas à mon post, je demande juste qu'on m'aide à apprendre, pas que l'on fasse le travail gratuitement à ma place. Je le répète, je suis un membre actif sur plusieurs forums (XLD notamment, pour ne pas le citer) et bien oui, mois aussi je perds mon temps sans être rémunéré, parfois sans même un "merci", mais j'estime que un juste retour pour les gens qui m'ont aidé à mes débuts... [Edité le 2/7/2010 par masterdisco] [Edité le 2/7/2010 par masterdisco]

Je viens d'interpréter différemment la question, et peut être que la suggestion était de déplacer l'origine du mur avant de lancer le programme ? Si c'est bien de ça que l'on parle ça n'est pas réalisable car je ne peux connaitre à l'avance la longueur que mon assemblage fera, et la longueur du débord m'est donc inconnue, ce qui m'empêche de le répartir de part et d'autre du mur... [Edité le 2/7/2010 par masterdisco]

Bonjour barbichette, merci de me consacrer un peu de temps. Si, bien sûr que je peux les déplacer manuelle, et c'est bien ce que je fais en ce moment, mais la finalité de ce fil est d'automatiser au maximum le travail. Des trains de banches, j'en place des centaines par mois à l'écran. Si un programme me permets de gagner 3 secondes sur chaque train, autant dire que ça m'intéresse au plus haut point. C'est pour cela que je souhaiterais ajouter cette troisième option évoquée précédemment. [Edité le 2/7/2010 par masterdisco]

Personne ...?

Bonjour tous le monde, je déterre mon topic car je souhaite apporter une petite modif sur le programme que gile a conçu à l'époque (je le remercie encore pour cela). Nous avions parlé de mur libre et de mur bloqué. J'aimerais ajouter une troisième notion : mur "en appui". Je souhaiterais donc avoir ces 3 options : - Mur libre (mur complètement libre, ni coincé entre deux autres, ni en appui contre un autre.) - Mur en appui (mur libre d'un côté, mais venant se coller à un mur déjà réalisé de l'autre) - Mur bloqué (mur coincé entre deux autres déjà réalisés) Je m'explique. Aujourd'hui lorsque je choisis l'option "Mur libre", mes banches sont placées avec un débord, mais celui-ci se trouve intégralement du côté du point d'arrivée du premier segment de polyligne, c'est à dire que mon premier bloc est aligné avec le premier point. Le calcul actuel du "mur libre" deviendrait donc "mur en appui". Je souhaite donc créer le troisième code correspondant aux nouveau calcul de "mur libre". Le calcul de la composition ne diffère pas de calcul des "murs en appui", les compositions issues de ce calcul doivent être les mêmes, j'aimerais simplement que l'écart entre la longueur de l'assemblage et la longueur du mur (débord) soit réparti de part et d'autre du mur (1/2 débord à gauche et 1/2 débord à droite). Je n'ai pas compris la partie du code correspondant au placement des blocs... merci d'avance pour votre aide, et merci à Gile s'il passe par ce topic...

Une carte graphique peut être défectueuse de cette manière ? C'est à dire sans montrer de défaillances dans d'autres logiciels qu'autocad ? J'espèque que ça n'est pas ça car le service ne voudra jamais me racheter un nouveau pc ...!

Re, je viens de faire un test tout bête : j'ai réduit la taille de ma fenêtre AutoCAD, chose que je ne fais jamais puisqu'il est bien plus pratique de bosser en fenêtre maximisée (1680x1050, écran 22") >> des que ma fenetre autocad est de très petite taille (1/4 de l'écran en largeur), le problème disparait, les déplacements et zooms sont très fluides. Le problème apparait progressivement dès que j'augmente la taille de la fenêtre... Il s'agirait donc bien d'un problème de performances de mon PC... :( Je ne comprends pas, comment une carte graphique ATI RADEON HD5165 avec 1000Mo DDR3, si belle sur le papier, pourrait elle être moins puissante que la carte graphique de mon ancien ordi bas de gamme vieux de 4 ans ???? [Edité le 23/6/2010 par masterdisco]

Bonjour, Oui j'ai bien mis mes écrans à la fréquence maxi supportée (60hz...) J'ai joint le service info qui me réinstalle demain à midi la version 2009 pour voir si le problème vient de ma config ou d'AutoCAD 2010. Est ce que quelqu'un a déjà eu ce problème de "balayage", ou de "rafraichissement lent", je ne sais pas comment on peut appeler ça, y compris sur d'autres versions d'AutoCAD ou suis je le seul ?? Ce que je trouvé étonnant c'est que des collègues à moi ont autocad 2010 complet et n'ont pas de problème en ayant une config différente...

Merci Dinosor, Le logiciel demande minimum une heure d'analyse selon l'explication sur le lien donné, je ne pourrai donc pas tester ca aujourd'hui... Si quelqu'un a une autre idée je suis toujours preneur bien sûr...

Re Dinosor, Je suis en train d'en chercher mais je ne trouve pas de "testeur de carte graphique" sur le net. Aurais tu des noms à me proposer ?

Oui j'ai essayé avec le pilote Autodesk, rien ne change. Il arrive également que sur certaines pages Web un peu lourde (avec du flash etc) , on puisse voir l'écran se rafraichir de haut en bas lors du défilement. J'ai mis le pilote de ma carte graphique à jour ce matin même, j'ai le dernier ATI Catalyst installé, Direct X 9.0c... >> Christian : Bonjour, j'ai déjà effectué cette manip, j'ai également changé la taille du fichier d'échange et à force de surenchérir j'en suis aujourd'hui à 20480 Mo (le dernier zéro n'est pas en trop!) et rien n'a changé.

Bonjour Dinosor, merci beaucoup de me consacrer un peu de temps, Ma CG n'est effectivement pas dans la liste, mais la CG de ma config précédente ne l'était pas non plus et AutoCAD 2009 (je n'avais pas 2010 à l'époque) tournait très bien quand même. Voici ce que me dit 3DCONFIG : http://img31.imageshack.us/img31/5899/3dconfig.jpg Journal des résultats du préparateur Version: 18.1.0.4 Date du dernier ajustement: 20/05/2010 Configuration de l'ordinateur ----------------------------- Vitesse du processeur: 2.3 GHz RAM : 3062 Mo Périphérique 3D --------------- Nom : ATI Mobility Radeon HD 5165 Fabricant : ATI Microprocesseur : Mobility Radeon HD 5165 Mémoire : 1024.0 MB Pilote : 6.14.0010.7018 Votre ordinateur contient un périphérique 3D qui n'est pas certifié. Des cartes graphiques et des pilotes d'affichage 3D sont continuellement ajoutés à la liste sur le site Web d'Autodesk après avoir été testés. Recherchez les mises à jour et téléchargez la liste de certification la plus récente quand vous le souhaitez. Exécutez la commande CONFIG3D, puis cliquez sur le bouton Rechercher les mises à jour. Pilote actuel de l'application: acaddm10.hdi Etat de l'effet actuel: ----------------------- Performances 3D améliorées: Disponible et actif Shader de Gooch: Disponible et utilise le matériel Eclairage par pixel: Disponible et actif Affichage total des ombres: Disponible et actif Compression de texture: Disponible et inactif Pilotes d'application disponibles et effet pris en charge: ---------------------------------------------------------- Pilote du logiciel Effet pris en charge: Performances 3D améliorées: Ne s'applique pas Shader de Gooch: Emulation logicielle seulement Eclairage par pixel: Ne s'applique pas Affichage total des ombres: Ne s'applique pas Compression de texture: Ne s'applique pas Pilote Direct3D: Non certifié Effet pris en charge: Performances 3D améliorées: Disponible Shader de Gooch: Disponible Eclairage par pixel: Disponible Affichage total des ombres: Disponible Compression de texture: Disponible Pilote Autodesk: Non certifié Effet pris en charge: Performances 3D améliorées: Disponible Shader de Gooch: Disponible Eclairage par pixel: Disponible Affichage total des ombres: Disponible Compression de texture: Disponible

Bonjour, Le service info de mon entreprise nous a migré récemment vers la version 2010. Au passage, ils ont changé mon PC pour le remplacer par un beaucoup plus puissant (sur le papier en tout cas). Le problème : la vitesse de rafraichissement de l'écran est très lente, j'ai le temps de voir l'écran se redessiner de haut en bas à chaque déplacement ou zoom, que ce soit dans l'espace objet ou dans l'espace papier. Les déplacements et le dessin en général sont donc très lents, bien plus que sur mon ancienne config qui était bien inférieure... Ceci est très pénible et occasionne une perte de productivité qui commence à se faire ressentir... Je voudrais donc savoir si d'autres personnes ont le même problème, et surtout s'il existe une solution. Cela vient-il de ma carte graphique ? les ATI RADEON sont elles performantes en temps normal sur AutoCAD ? Voici le détail de ma config : Hardware : ___Toshiba Satellite PRO ___Intel Core i5 430M 2266 MHz x 4core ___4096 Mo RAM DDR3 533 Mhz (2x 2048Mo) ___ATI Mobility Radeon HD 5165 1024 Mo DirectX 9.0 Software : ___Windows XP SP3 ___AutoCAD 2010 (complet) ___maj AutoCAD installées et n'ayant pas produit d'amélioration : Update 1, Update 2, VBA enabler Merci d'avance à ceux qui sauront ou auront essayé de m'aider.... Encore plus de détails sur ma config : Voir ici

Bonjour, Je possède un grand nombre dessins (entre 100 et 200) . En pratique, j'ouvre plusieurs de ces dessins et je lance une publication en choisissant une mise en page dont le nom est commun à tous. Je souhaiterai ajouter une nouvelle mise en page à l'ensemble de ces dessins afin de continuer à procéder de la sorte, mais en utilisant cette nouvelle mise en page commune lors de la publication. >> Comment faire ??? merci

Bonjour, Je possède un grand nombre dessins (entre 100 et 200) . En pratique, j'ouvre plusieurs de ces dessins et je lance une publication en choisissant une mise en page dont le nom est commun à tous. Je souhaiterai ajouter une nouvelle mise en page à l'ensemble de ces dessins afin de continuer à procéder de la sorte, mais en utilisant cette nouvelle mise en page commune lors de la publication. >> Comment faire ??? merci

Il est vrai que pour un premier projet en LISP j'ai peut être vu un peu haut. En fait le LISP s'est imposé à moi cette fois ci, à la base je cherchais une solution par blocs dynamiques. Pour mes prochaines requêtes sur un problème de LISP, j'essaierai de faire en sorte que le projet soit moins ambitieux, afin de pouvoir en faire le plus possible par moi même, comme ça cela donnera moins l'impression que j'arrive en demandant un solution clé en main, car je le redis, je ne demandais pas une solution clé en main, je demandais juste de l'aide... En tout cas merci pour tout, la solution finale me conviens très bien, j'en suis vraiment satisfait, et votre implication Gile dans mon projet est à la hauteur du gain de productivité qui en découle. A + [Edité le 9/6/2010 par masterdisco]

Bonjour, Effectivement tout semble convenir, j'ai pu tester rapidement ce matin. Il est vrai que j'en ai demandé beaucoup sur ce fil, j'en suis parfaitement conscient. Je tiens juste à dire qu'il s'agissait vraiment des point sur lesquels je bloquais, j'ai réellement essayé de me débrouiller par moi même, mais n'ayant aucune base, forcément mes limites sont vites atteintes... Il y a deux ans je me suis lancé dans la programmation VBA sur Excel, de la même manière, c'est à dire en autodidacte et en n'ayant aucune connaissance en programmation. J'ai fais tout mon apprentissage sur le forum XLD. Au début, les gens se plaignait de mes demandes qu'ils jugeaient excessives. Aujourd'hui je suis un membre actif de ce forum, et tant que possible j'aide les membres débutants. Tout ca pour dire que vos efforts n'ont pas servi à rien Gile, non seulement ils me permettent de gagner du temps mais ils vont peut être à terme me permettre d'aider les autres à mon tour...

J'ai réussi à placer automatiquement les bonnes réglettes réglables avec le code suivant : (defun foo1 (len) (cond ((< len 40) nil) ((< len 50) '(40 12)) ((< len 60) '(40 32)) ((< len 70) '(60 12)) ((< len 80) '(60 32)) ((< len 90) '(60 32)) ((< len 92) '(90)) ((< len 100) '(90 12)) ((< len 110) '(90 32)) ((< len 120) '(90 32)) ((< len 122) '(120)) ((< len 130) '(120 12)) ((< len 150) '(120 32)) ((< len 160) '(90 60 12)) ((< len 170) '(120 40 12)) ((< len 182) '(120 40 32)) ((< len 190) '(120 60 12)) ((< len 210) '(120 60 32)) ((< len 212) '(120 90)) ((< len 220) '(120 90 12)) ((< len 230) '(120 90 32)) ((< len 240) (cons 120 (foo1 (- len 120)))) ((< len 250) '(240 12)) ((< len 270) '(240 32)) ((< len 280) (cons 120 (foo1 (- len 120)))) (T (cons 240 (foo1 (- len 240)))) ) ) Maintenant comment puis-je faire pour attribuer au paramètre Lg de ces blocs la valeur / Delta = [Longueur de la polyligne] - [Longueur totale de l'assemblage (hors réglette)] ??

J'ai essayé ceci mais évidemment ça ne marche pas (le contraire m'aurait vraiment étonné). ;------------------------------------------- (defun c:Coffrer (/ *error* foo1 foo2 pl ep fr ins pt len lst rot blk names) (vl-load-com) (or *acdoc* (setq *acdoc* (vla-get-ActiveDocument (vlax-get-acad-object))) ) (or *wallwidth* (setq *wallwidth* 0.2)) (defun *error* (msg) (and msg (/= msg "Fonction annulée") (princ (strcat "Erreur: " msg)) ) (vla-EndUndoMark *acdoc*) (princ) ) (defun foo1 (len) (cond ((<= len 2) nil) ((<= len 10) '(9)) ((<= len 30) '(30)) ((< len 60) '(40)) ((< len 80) '(60)) ((< len 90) '(40 40)) ((< len 100) '(90)) ((< len 120) '(60 40)) ((< len 130) '(120)) ((< len 150) '(90 40)) ((< len 160) '(90 60)) ((< len 240) (cons 120 (foo1 (- len 120)))) ((< len 250) '(240)) ((< len 280) (cons 120 (foo1 (- len 120)))) (T (cons 240 (foo1 (- len 240)))) ) ) (defun foo2 (len) (cond ((< len 0) nil) ((<= len 20) '(40)) ((<= len 40) '(60)) ((<= len 70) '(90)) ((<= len 100) '(120)) ((<= len 140) (cons 120 (foo2 (- len 120)))) ((<= len 190) (cons 120 (foo2 (- len 120)))) ((<= len 230) '(240)) ((<= len 250) '(240 40)) (T (cons 240 (foo2 (- len 240)))) ) ) (setq names '((40 . "B40x2") (60 . "B60x2") (90 . "B90x2") (120 . "B120x2") (240 . "B240x2") (9 . "R0.02-0.09") (30 . "R0.10-0.30") ) ) (if (setq ss (ssget '((0 . "LWPOLYLINE") (8 . "*")))) (progn (if (setq ep (getdist (strcat "\nEpaisseur du mur <" (rtos *wallwidth*) ">: ") ) ) (setq *wallwidth* ep) (setq ep *wallwidth*) ) (initget 1 "Bloqué Libre") (setq fr (getkword "\nSpécifiez une option [bloqué/Libre]: ")) (vla-StartUndoMark *acdoc*) (vlax-for pl (setq ss (vla-get-ActiveselectionSet *acdoc*)) (setq ins (vlax-curve-getStartPoint pl) pt (vlax-curve-getPointAtParam pl 1) len (distance ins pt) rot (angle ins pt) lst (if (= fr "Bloqué") (foo1 (* 100 len)) (foo2 (* 100 len)) ) vec (polar '(0. 0. 0.) rot 0.01) ) (while (setq n (car lst)) (setq blk (vla-InsertBlock (vla-get-ModelSpace *acdoc*) (vlax-3d-point ins) (cdr (assoc n names)) 1.0 1.0 1.0 rot ) ins (mapcar '+ ins (mapcar '* vec (list n n n))) lst (cdr lst) ) (vla-Move blk (vlax-3d-point ins) (vlax-3d-point (polar ins (- rot (/ pi 2.0)) (/ ep 2.0))) ) (foreach p (vlax-invoke blk 'GetDynamicBlockProperties) (if (= (vla-get-PropertyName p) "Ep") (vla-put-Value p ep) ) (if (= (vla-get-PropertyName p) "Lg") (vla-put-Value p len) ) ) ) ) (vla-delete ss) ) ) (*error* nil) ) Je suppose mes modifs sont bourrées d'erreur de syntaxe... Si quelqu'un pouvais me corriger svp... [Edité le 8/6/2010 par masterdisco]