|
Vous devez être un utilisateur enregistré pour pouvoir télécharger les fichiers. |
Non-Membres : Enregistrez-vous ici |
Mot de passe oublié?
Changer le mot de passe?
La base de données a été réintialisée fin Juin.
|
Vous trouverez ici des fichiers de tracés de pièces paramétrées, écrites en Lisp pour AutoCad.
Ces programmes fonctionnent. Par conséquent je ne répondrai à aucune question les concernant.
Vous pouvez utiliser librement ces programmes pour votre usage personnel à condition que la mention de l'auteur et du copyright figurent.
|
Butées à billes simple effet à contreplaque sphérique SKF.
Programme de tracé de butées à billes simple effet à contreplaque sphérique à partir d'un fichier de dimensions.
;-------------------------------------------------------------------------------
;------------------ PROGRAMME DE TRACE DE BUTEE A Simple Effet
;------------------------ à contreplaque spherique
;------------------------- Copyright (C) 1987- ... JP MOLINA
;******* lref.dcl fichier associé **************
;******* SKF_BSSP.DIM fichier dimensionnel ************
;-------------------------------------------------------------------------------
(defun ChercheBUTSESP( / f)
(setq p0 (list x_pt y_pt)) ; p0
(setq ang (degrad inclin)) ;inclin
(setq trait ep) ;Epaisseur du trait
(setq f (open "BSSP.WRK" "r") )
(if (/= index nil)
(progn
(setq index (+ index 2) ) ;pour éviter la valeur 0
(repeat index ; 1 ligne vierge en début de fichier
(setq ref (read-line f))
)
(close f)
(ConverBUTSESP)
)
(alert "Pas de référence choisie!")
)
)
;-------------------------------------------------------------------------------
(defun ConverBUTSESP()
(setq dnom (atof (substr ref 2 3) ) )
(setq de (atof (substr ref 6 3) ) )
(setq H (atof (substr ref 10 4) ) )
(setq d1 (atof (substr ref 36 3) ) )
(setq d2 (atof (substr ref 40 3) ) )
(setq d3 (atof (substr ref 44 3) ) )
(setq d4 (atof (substr ref 48 3) ) )
(setq c (atof (substr ref 51 4) ) )
(setq H1 (atof (substr ref 57 2) ) )
(setq Rs (atof (substr ref 60 3) ) )
(setq s (atof (substr ref 64 4) ) )
(setq r (atof (substr ref 69 3) ) )
(SqueletteBUTSESP)
)
;-------------------------------------------------------------------------------
(defun SqueletteBUTSESP(/ p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12
cr cc q qq q2 q3
pa1 pb1 pa2 pb2 pa3 pb3 pa4 pb4 po1 po2 po4 pp2 pp3 pp4
alf )
(If (And (/= dnom "NIL")
(/= de "NIL")
(/= H "NIL")
(/= d1 "NIL")
(/= d2 "NIL") (/= d3 "NIL") (/= d4 "NIL")
(/= r "NIL")
)
(progn (setq q (polar p0 ang H1))
(setq p (polar q (+ ang pi) H))
(setq cr (polar q ang s))
(setq p1 (polar p (+ ang (/ pi 2.0)) (/ d2 2.0) ) )
(setq pa1 (polar p1 (+ ang (/ pi 2.0)) r ) )
(setq pb1 (polar p1 ang r ) )
(setq p2 (polar p0 (+ ang (/ pi 2.0)) (/ d4 2.0) ) )
(setq q2 (polar p0 (+ ang (/ pi 2.0)) (/ d3 2.0) ) )
(setq qq (polar p0 (+ ang (/ pi 2.0)) (/ de 2.0) ) )
(setq pp2 (polar p (+ ang (/ pi 2.0)) (/ de 2.0) ) )
(setq pa2 (polar qq ang c) )
(setq pb2 (polar p (+ ang (/ pi 2.0)) (/ d3 2.0) ) )
(setq q3 (polar p2 ang c) )
(setq p4 (polar q (+ ang (/ pi 2.0)) (/ dnom 2.0) ) )
(setq pa4 (polar p4 (+ ang pi) r) )
(setq pb4 (polar p4 (+ ang (/ pi 2.0)) r) )
(setq pp4 (polar p4 (+ ang pi) H) )
(setq p3 (polar q (+ ang (/ pi 2.0)) (/ d1 2.0) ) )
(setq pp3 (polar p3 (+ ang pi) H))
(setq pa3 (polar p3 (- ang (/ pi 2.0)) r) )
(setq pb3 (polar p3 (+ ang pi) r) )
(setq po1 (polar pb1 (- ang (/ pi 2.0)) d2) )
(setq po4 (polar pa4 (- ang (/ pi 2.0)) dnom) )
(setq po2 (polar p2 (- ang (/ pi 2.0)) d4) )
(setq p5 (polar pp2 ang (/ H 3.0) ))
(setq p6 (polar p1 ang (/ H 3.0) ))
(setq p7 (polar p3 (+ ang pi) (/ H 3.0) ))
(setq p8 (polar p4 (+ ang pi) (/ H 3.0) ))
(setq cc (inters pp4 p3 pp3 p4) )
(setq p9 (inters p5 p6 pp3 p4) )
(setq p10 (inters p5 p6 pp4 p3) )
(setq p11 (inters p7 p8 pp4 p3) )
(setq p12 (inters p7 p8 pp3 p4) )
(setq alf (abs (- (angle pa2 cr) (angle pb2 cr)) ))
(setq alfa (radeg alf) )
(Supp_Echo)
(Dess_BSEsp)
)
)
)
;-------------------------------------------------------------------------------
(defun HachurageBUTSESP(arg1 arg2)
(command "HACHURES" "U" arg1 (/ H 10.0) "" arg2 "")
)
;-------------------------------------------------------------------------------
(defun Dess_BSEsp(/ pl neg pos ent1 ent2 ent3 cible dean dian fpt tpt)
(Init)
;****** Trace de la plaque spherique -------------
(command "POLYLIGN" p10 "LA" (abs trait) "" p6 pb1
"a" "a" -90 pa1 "LI" pb2
"a" "a" (- alfa) pa2 "LI" p5 p9
"a" "ce" cc p10 "" )
(setq ent1 (entlast))
;****** Trace de la plaque -----------------------
(command "POLYLIGN" p11 p7 pb3
"a" "a" -90 pa3 "LI" pb4
"a" "a" -90 pa4 "LI" p8 p12
"a" "ce" cc p11 "")
(setq ent2 (entlast))
;****** Trace de la bille -----------------------
(setq dean (distance p9 p12) )
(setq dian (- dean (* (abs trait) 2.0) ))
(command "ANNEAU" dian dean cc "")
;******Trace de la contre-plaque spherique -------
(command "POLYLIGN" pb2 q2 p2 q3 pa2 "a" "ce" cr pb2 "")
(setq ent3 (entlast))
;--------------------------------------------------------
;(command "MIROIR" (ssget "X" '((0 . "POLYLINE" ) (8 . "RLT")) ) "" p q "")
(setq ss1 (ssget "X" (list (cons 8 "RLT" ) )) )
(command "MIROIR" ss1 "" p q "")
(setq ss1 nil) ; libère la mémoire
(setq pos (+ (radeg ang) 45 ) )
(setq neg (- (radeg ang) 45 ) )
(setq cible (getvar "APERTURE") )
(setvar "APERTURE" 3)
(HachurageBUTSESP pos ent1)
(HachurageBUTSESP neg ent2)
(HachurageBUTSESP neg ent3)
(HachurageBUTSESP pos po1)
(HachurageBUTSESP neg po4)
(HachurageBUTSESP neg po2)
;---------**** trace du centre de rotulage -------------------------
(setq fpt (getvar "PDMODE"))
(setq tpt (getvar "PDSIZE"))
(setvar "PDMODE" 32)
(setvar "PDSIZE" 5)
(command "POINT" cr)
(Deplac)
(setvar "APERTURE" cible)
(setvar "PDMODE" fpt)
(setvar "PDSIZE" tpt)
(Remet_Echo)
)
;-------------------------------------------------------------------------------
(defun nettoieBUTSESP()
(setq p nil) (setq ang nil) (setq art nil) (setq nom nil) (setq ref nil)
(setq design nil) (setq dnom nil) (setq de nil) (setq H nil) (setq d1 nil)
(setq d2 nil) (setq r nil) (setq trait nil)
(setq mark nil) (setq eko nil) (setq a nil) (setq d3 nil) (setq d4 nil)
(setq H1 nil) (setq c nil) (setq Rs nil) (setq s nil)(setq index nil)
(setq arg1 nil) (setq arg2 nil) (setq alfa nil)
)
;-------------------------------------------------------------------------------
(defun C:BSESP()
(c:nettoie_plan)
(nettoieBUTSESP)
(prompt "\n* Butee Simple Effet avec ContrePlaque spherique *(C) JP MOLINA *")
(princ)
(skf_dlg 9 "icorlt(but2)" )
(if (/= sortie 1) (ChercheBUTSESP) )
(nettoieBUTSESP)
(princ)
)
;-------------------------------------------------------------------------------
Et voici un extrait du fichier SKF_BSSP.DIM.
110 162 40.2 130000 390000 53222 160 113 135 165 14.0 45 125 65.0 1.1 12500 790 1.7 2.89
110 190 67.2 276000 780000 53322 187 113 150 195 20.5 72 140 51.0 2.0 24000 3200 1.2 9.1
120 170 40.8 140000 440000 53224 170 123 145 175 15.0 46 125 61.0 1.1 13400 1000 1.6 3.2
120 210 74.1 325000 980000 53324 205 123 165 220 22.0 80 160 63.0 2.1 28500 5000 1.1 12.5
130 190 47.9 186000 585000 53226 187 133 160 195 17.0 53 140 67.0 1.5 17000 1800 1.4 4.85
140 200 48.6 190000 620000 53228 197 143 170 210 17.0 55 160 87.0 1.5 17600 2000 1.4 5.45
|
|
| Retour Table des Matières |
Dernière Modification : Mer 18 Fevrier 2009 17:53
Copyright © 1999-2010 Jean-Paul Molina Tous droits réservés.
|
