Automatisme pour moulure d\'acier

[Serge1591]

Bonjour.

 

Je fais beaucoup de dessin d’atelier pour du revêtement métallique. Je dois très souvent dessiner des moulures d’acier. Existe t’il une fonction automatique qui peut dessiner une double ligne (une multi-ligne) avec une épaisseur que j’ai désigné, avec un rayon de pliage pré-déterminé et les bouts de la double ligne fermée ?

 

Merci à l'avance

[Tramber]

Il faut procéder par étapes.

 

Une polyligne à l'axe neutre, la commande raccord avec le rayon adéquat (on peut facilement initialiser la valeur de rayon avec un bouton, si ca t'interesse). Puis 2 "décalés" de la valeur demie-largeur. Enfin, faire les lignes en bout soi-même.

 

Sinon, utiliser le super programme tole :

(defun c:tole ( /  epa poly lipoint0 lipoints lidep lifin)
 (setq epa (getreal "\nEpaisseur de la tole ? : "))
 (setq poly (car(entsel)))
 (setq lipoint0 (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget poly))))  
 (command "_offset" epa poly  (polar(last lipoint0)(/ pi 2) epa) "")
 (setq lipoints (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget (entlast)))))
 (setq lidep (car lipoints) lifin (last lipoints))
 (command "_offset" epa poly  (polar(last lipoint0)(-(/ pi 2)) epa) "")
 (setq lipoints (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget (entlast)))))
 (setq lidep (append (list lidep)(list(car lipoints))) lifin (append (list lifin)(list(last lipoints))))
 (command "_line" (car lidep)(cadr lidep)"")(command "_line" (car lifin)(cadr lifin)"")
 )

a enregistrer dans un bloc-note sous le nom nomfichier.lsp et taper tole après avoir glisser le fichier depuis l'xplorateur ou choisis Outils->Charger une application.

 

Bien entendu, mieux vaut lancer la commande Raccord, option Polyligne avant de décaler ce qui sera considéré comme l' axe neutre ou la fibre neutre, grace à l'outil tole. En choisissant une fois le rayon pour toute la poly, on a déjà fait le quart du boulot.

 

Ch'est tout.

 

Attention, ca marche mal avec les accorchages aux objets, c'est un programme vite fait.

 

[Edité le 4/2/2005 par Tramber]

[Patrick_35]

Wahou, l'imperator du script qui donne des lisps de sa manufacture :o

 

Il y a de plus en plus de concurrence ;)

 

http://www.clicksmilies.com/s0105/spezial/Fool/inc.gif

 

@+

[Tramber]

:red:

 

Disons Imperator (et encore, c'est trop, et je te l'ai déjà dit !) dans Excel pour le script.

 

(comme c'est bientôt le 2000ème, faudra y aller de sa 'tite contrib...)

 

 

[Serge1591]

Salut.

 

J'ai essayer le lisp que vous m'avez donner. Gros merci. Mais lorsque je le fais rouler, j'ai le message suivant ;erreure: nombre d'arguments insuffisants.

Peut-il y avoir une erreure dans le lisp ? J'ai bien vérifié si tout les caractères était ok pourtant.

Encore merci.

[bonuscad]

Bon je ne vais pas marcher sur les plates-bande de Tramber.

 

Mais au premier coup d'oeil je vois que ca routine fait appel a des (command) d'édition et de création.

Or si on ne prend pas soin d'inactiver les accroche objets avant, il arrive souvent que la routine avorte.

 

Essaye d'abord d'inactiver les ACCROBJ avant de lancer la routine, pour voir si ca ce déroule mieux.

 

Je sens qu'une correction est proche ;)

[Patrick_35]

J'ai eu exactement la même réaction que toi Bonus, et ce n'est pas les accrobj

J'ai fait le test sur une poly fermé avec un décalage > à la plus grande distance, sur une ligne plus deux ou trois autres, mais le lisp tient la route

Serge1591, décrit-nous exactement tes manips avant le plantage et si tu travailles sur des scu différents

 

@+

[Serge1591]

Le plantage est au début de l'execution. Ausitôt que je tape TOLE le message d'erreure s'affiche.

[Tramber]

Le brillant auteur du code revient après une grippe carabinée qui l'a cloué 5 jours au bas mot, au fond du lit, le thermomètre dans le bec.

 

L'enfer !

 

Voir un peu :

 

Coordonnées 3D

Accrobj (ca je l'avais dit)

Une echelle de travail adaptée (le mm au lieu du km mais je doute qu'il y ait problème de ce côté)

Problème de RESOLUTION (desactiver off course)

 

L'erreur peut venir du fait que tu ne cliques pas une poly2D pur jus, dessinée sur AutoCAD 2000.

Est-ce qu'au moins il te demande : Epaisseur de la tole puis t'invite à cliquer sur une entité [là, il faut cliquer une poly] .?

 

 

Dommage que ca ne roule pas chez toi, imagine que ce programme pourrait en rien correspondre à ton besoin

:cool:

envoie-moi une de tes polyline ou un dessin, on ne sait jamais (baudinet75@hotmail.com)

 

Au fait, c'est bizarre qu'il ne te pose pas la première question, t'as bien copié collé tout y compris les parenthèses ?

Les gars,.... ?

 

[Edité le 9/2/2005 par Tramber]

[Patrick_35]

Mon pauvre Tramber, je t'envoi mon infirmière si tu veux

http://smileys.smileycentral.com/cat/36/36_1_40.gif

 

Pour Serge1591

As-tu bien suivi la procédure que t'as indiqué Tramber, à savoir un copier/coller puis un load du fichier ?