nicolas2

http://images1.hiboox.com/vignettes/0309/c744cabba6c982d33a00f444921440ab.jpg

http://images1.hiboox.com/images/0309/c744cabba6c982d33a00f444921440ab.jpg

Bon, voila déja pour les fonds GRC. ;FondB.lsp ;Version 1.0 ;Programme AutoLISP écrit par Maxence Delannoy et modifié par Yann Nicollet avec l'aide de Bonuscad et Bred ;Dernière modification le 12.01.09 ;Objet: Tracé de fonds GRC suivant NF E 81-102. (defun c:FB ( / DiamExt RayInt RayCar Ep HtBD HtTot PtIns X0 X1 Y0 Y1 Ang1) (setvar "OSMODE" 0) (setq DiamExt (getreal "\nDiamètre extérieur: ") RayCar (/ DiamExt 10.0) Ep (getreal "\nEpaisseur: ") HtBD (getreal "\nHauteur du bord droit: ") HtTot (+ HtBD Ep (- DiamExt (sqrt (- (expt (- DiamExt RayCar) 2.0) (expt (- (* DiamExt 0.5) Ep RayCar) 2.0))))) PtIns (getpoint "\nPoint d'insertion: ") X0 (- (car PtIns) (* DiamExt 0.5)) X1 (+ (car PtIns) (* DiamExt 0.5)) Y0 (- (+ (cadr PtIns) HtTot) DiamExt Ep) Y1 (+ (cadr PtIns) HtBD) ) (command "_.PLINE" (list X1 (nth 1 PtIns)) (list X1 Y1) "_A" "_CE" ; Arc défini par son centre (list (- X1 RayCar Ep) Y1) "_A" ; Angle... (setq Ang1 (/ (* 180 (angle (list (nth 0 PtIns) Y0) (list (- X1 RayCar Ep) Y1))) pi)) "_CE" (list (nth 0 PtIns) Y0) "_A" ; Angle... (- 180 (* 2 Ang1)) "_CE" (list (+ X0 RayCar Ep) Y1) "_A" ; Angle... Ang1 "_L" ; Ligne... (list X0 (nth 1 PtIns)) "_C" ; Ferme la polyligne ) ) (prompt "M.D.D. - FondB.lsp chargé.") (prompt "\nTapez FB pour dessiner un fond GRC suivant NF E 81-102.") (princ) Si quelq'un veut se pencher sur les Fonds elliptiques NF E 81.103 (le rapport de l'ellipse est de 3.8 (exemple pour un Ø de 1000, l'autre axe est de 263.15) en utilisant la même démarche que le fond GRC..Help !!.... Merci pour votre aide !

Re-bonjour à vous 2 , j'ai cliqué trop vite, je vais joindre une image à mon futur message pour étayer mon essai. Merci Le travail d'équipe est essentiel. En cas d'erreur, ça permet d'accuser quelq'un d'autre

Merci à vous 2, tout fonctionne à merveille. Je vais essayer de faire la même chose pour un fond elliptique : - le rapport de mon ellipse entre le grand axe et le petit axe est de 1.9 (ex : si mon grand axe est de 1000mm , mon petit axe sera de 526.31mm)

Bonjour et merci à tous pour votre aide ! Je voudrais modifier le programme suivant en inserrant des formules mathématiques sur les lignes surlignées en jaune : DiamExt (getreal "\nDiamètre extérieur: ") [surligneur] RayInt (getreal "\nRayon intérieur: ") RayCar (getreal "\nRayon de carre: ")[/surligneur] Ep (getreal "\nEpaisseur: ") HtBD (getreal "\nHauteur du bord droit: ") [surligneur] HtTot (getreal "\nHauteur totale: ")[/surligneur] PtIns (getpoint "\nPoint d'insertion: ") X0 (- (nth 0 PtIns) (/ DiamExt 2)) X1 (+ (nth 0 PtIns) (/ DiamExt 2)) Y0 (- (+ (nth 1 PtIns) HtTot) RayInt Ep) Y1 (+ (nth 1 PtIns) HtBD) En sachant que : Rayint = DiamExt RayCar = 1/10ième de DiamExt HtTot = HtBD + Ep + h2 en sachant que h2 = Rayint - (Racine ((Rayint - RayCar)² - (DiamExt/2 - Ep - RayCar)² ) ) Merci encore pour votre aide

Bonjour à tous, je suis actuelement sur Autocad 2004 (bureau d'études en chaudronnerie) et je suis à la recherche d'une solution pour éviter de redessiner systématiquement des fonds (genre fonds bombés pour cuve à mazout) à chaque fois que le Ø de la cuve change, la forme restant la même. J'ai 3 variables: - le Ø - l'épaisseur - la hauteur du bord droit Quand nous étions sous Autocad LT 97, nous utilisions Genius LT où nous dessinions ce type de fond et les variables A, B, C.... étaient demandées à l'insertion. Est-ce que les blocs dynamiques servent à ça...??!! Ma question vous paraîtra peu-être simplette, mais étant tout seul au BE, je ne prend pas le temps d'aller voir ailleurs ce qu'il ce fait. Merci pour votre aide !

Bonjour à tous, J'ai trouvé une société www.cadig.com qui propose un applicatif pour gérer les liens entre excel et Autocad. Travaillant actuellement sous Autocad 2004 et désirant migrer vers le 2008, ma question est la suivante : Autocad 2008 sait-il le faire, sans passer par cet applicatif...? Merci à tous :)

Bonjour à tous, cela fait bientôt 12 ans que je suis dans la même entreprise de chaudronnerie (appareil à pression) en tant que dessinateur, mon problème est que j'ai toujours la tête dans le guidon et que je ne prend pas le temps (étant seul au Bureau d'études) d'aller voir ailleur ce qu'il se passe! Je suis sous AUTOCAD (en 2D) et je souhaite savoir si il éxiste des applicatifs métiers, des programmes... permettant de gagner du temps. Merci :)

Bonjour à tous, je suis à la recherche d'un type de ligne pour représenter des soudures sur une tôle. Pour l'instant je dessine un "morceau" de ligne que je copie/colle sur toute la longueur de la tôle. Voici la constitution de ma ligne : ,----------' ,----------' ,----------' La représentation est approximative mais je n'ai pas trouvé mieux... Explication: mon exemple et constitué de 3 motifs répétés (la longeur de la ligne définira mon nombre de motifs). Le 1ier "tiret bas" est collé à ma ligne horinzontale et le 2ième "tiret haut" est lui aussi collé à la fin de ma ligne horizontale (ici mon motif à répété est terminé). Quelqu'un possède t'il la solution.... Merci à tous!

Bonjour, dans les conventions de dessin chaudronnerie, lors d'un croisement de côtes, l'une des deux doit être "masquée" (au passage d'une ligne d'attache, de la ligne de côte, du texte...). Existe-t'il, au même titre que TEXTMASK pour le texte dans le menu express, une fonction similaire permettant d'y arriver ? Merci à tous pour votre aide !

Bonjour à tous, éxiste-t'il des lisps pour dessiner automatiquement des fonds elliptiques ou GRC en 2D. Merci.

Bonjour à tous, Nous venons d'acheter une machine plasma (MESSER GRIESHEIM) pour découper des pièces en acier. Sous AUTOCAD, je développe mes pièces (chaudronnerie) et je désigne par un texte l'emplacement des pièces à souder (ex: Oreille de levage). Pour l'instant je "bricole" mon texte pour qu'il n'y ai qu'un seul point de départ à mon texte (au niveau du "O" sur mon exemple) et une seule sortie (au niveau du "e" sur mon exemple), tout ceci d'un seul tenant pour que ma machine n'est pas de temps de pose, de multiples points de palpage.... Sur PROFIRST (un autre logiciel de dessin) il éxiste une "police vectorielle" ou les lettres n'ont qu'une entrée, qu'une sortie mais pas de lien d'une lettre à l'autre. Existe-t'il un moyen pour avoir uniquement à écrire et que tout ce "bricolage" soit pris en charge par un type de police ou un logiciel....? Merci de votre aide!