Crée des tole automatiquement

[Titi0077]

Bonjour à tous, en fait ce que je cherche a réaliser un petit programme qui en lui rentrant certains parametre serai capable de generer un trace 2d vue de dessus d'une tole ondule (a ondulations carrées).

 

Il suffirais de lui renter les parametre suivant :

 

longueur grande ondulation

longueur petite ondulation

epaisseur de la tole

epaisseur de l'ondulation

longueur totale desirer

 

toute orientations et recommendations seront les biens venues...

 

Merci

Titi0077. :D

 

 

[Virgile_69]

Bonjour,

Serait-ce un développé de tôle ou simplement le dessin d'un rectangle avec des lignes pour représenté les plies de la tôle implanté

[Titi0077]

Non en fait ce serai une representation d'une tole vue de dessus qui par la suite apres extrusion representerais un mur en tole ondule ( ondulation carrée). :D

[Titi0077]

Voila j'ai realise ce petit lips pour trace 1 ondulation .

 

mais apparament il y a une erreur et je ne la trouve pas si qq1 pouvai verifier ce serai cool

 

Thanks......

 

 

$(defun c:tole()

(setq ptd(getpoint "\npoint de départ : "))

(setq L1(getreal "\nLongueur ondulation 1 : "))

(setq L2(getreal "\nLongueur ondulation 2 : "))

(setq E(getreal "\nEpaisseur tole : "))

(setq H(getreal "\nHauteur ondulation : "))

(setq L10(/ L1 2))

(setq L30(-(/ L1 2) E))

(setq L40(+(* E 2) L2))

(setq L11(polar ptd pi L10))

(setq E1(polar L11 (/ pi 2) E))

(setq L21(polar E1 pi L2))

(setq E2(polar L21 (-(/ pi 2) pi) E))

(setq L12(polar E2 pi L10))

(setq H1(polar L12 (/ pi 2) H))

(setq L31(polar H1 (* pi 2) L30)))

(setq E3(polar L31 (/ pi 2) E))

(setq L41(polar E3 (* pi 2) L40)))

(setq E4(polar L41 (-(/ pi 2) pi) E))

(setq L32(polar E4 (* pi 2) L40))

(command "_pline" ptd L11 E1 L21 E2 L12 H1 L31 E3 L41 E4 L32 ptd"")

(princ)

)

 

 

[bruno_l]

comme ca ca marche

(defun C:TOLE ()

(setq PTD (getpoint "\npoint de départ : ")

L1 (getreal "\nLongueur ondulation 1 : ")

L2 (getreal "\nLongueur ondulation 2 : ")

E (getreal "\nEpaisseur tole : ")

H (getreal "\nHauteur ondulation : ")

L10 (/ L1 2)

L30 (- (/ L1 2) E)

L40 (+ (* E 2) L2)

L11 (polar PTD pi L10)

E1 (polar L11 (/ pi 2) E)

L21 (polar E1 pi L2)

E2 (polar L21 (- (/ pi 2) pi) E)

L12 (polar E2 pi L10)

H1 (polar L12 (/ pi 2) H)

L31 (polar H1 (* pi 2) L30)

E3 (polar L31 (/ pi 2) E)

L41 (polar E3 (* pi 2) L40)

E4 (polar L41 (- (/ pi 2) pi) E)

L32 (polar E4 (* pi 2) L40)

) ;_ Fin de setq

(command "_pline" PTD L11 E1 L21 E2 L12 H1 L31 E3 L41 E4 L32 PTD "")

(princ)

) ;_ Fin de defun

[Tramber]

Ben ouais, j'ai capté au moment ou tu as publié la réponse, il manquait un espace à la fin de "_plin".

 

 

Oeil de Lynx !

[bruno_l]

en fait il y avait plusieurs parentheses en trop

et l'oeil de lynx c'est l'editeur visual lisp plutot que moi

 

[Titi0077]

merci beaucoup pour votre aide je vais essayer de faire un peu evoluer ce code pour realise plusieur ondulation ...............

 

Merci Titi0077