1. Ce site utilise des cookies. En continuant à utiliser ce site, vous acceptez l'utilisation des cookies. En savoir plus.

script pour l'usinage d'un cone en spirale .

Discussion dans 'CamBam' créé par Klystron, 30 Mars 2015.

  1. Klystron

    Klystron Compagnon

    Messages:
    586
    Inscrit:
    29 Mai 2014
    Localité:
    Val d'Oise ( 95 )
    script pour l'usinage d'un cone en spirale .
    Bonjour à tous,
    Je suis à la recherche d'une personne qui connait la programmation Cambam pour élaborer un script ,pour l'usinage d'un cone en creux , et en spirale.
    suivant diamètre outil boule , le diamètre extérieur, et la profondeur.
    si vous avez une idée ?.
    merci .
    bonne journée.
    A+
     
  2. AMDlloydsp

    AMDlloydsp Apprenti

    Messages:
    82
    Inscrit:
    31 Décembre 2014
    script pour l'usinage d'un cone en spirale .
    Yves,
    Jouir!
    Tout ne est pas que vous demandez, mais facilement changé.
    Lloyd
    -------------------
    '//////////////////////////////////////////////////////////////////////////////
    '
    ' Conic_helical_pocket.vbs 21 December 2014
    ' CamBam vbscript
    ' by AMDlloydsp, with credits to 10 Bulls for the idea from "Boingy"
    ' and added features requested by GraphicsMan
    '
    ' based upon "conic helix.vbs". This routine differs by using a target
    ' depth and depth increment, and does one complete circuit at the starting
    ' and ending depths, in order to finish the contour.
    '
    dim turns as single
    dim top_diameter as single
    dim bottom_diameter as single
    dim depth_increment as single
    dim strAnswer as string
    dim direction as single
    dim smooth as single
    dim target_depth as single
    dim test_string as string

    function MakeConicHelix as polyline
    dim start as single = 0 ' in radians
    dim finish as single = turns*2*pi '30*pi ' in radians
    dim steps as single = turns*smooth ' number of steps
    dim radius as single = top_diameter/2
    dim startz as single = 0
    dim endz as single = -1*depth_increment*turns

    dim radius_step as single = (bottom_diameter-top_diameter)/(steps*2)



    dim x as single = 0
    dim y as single = 0
    dim z as single = startz

    dim th as single = start
    dim dt as single = (finish-start)/steps*direction
    dim dz as single = (endz-startz)/steps

    '// Get the drawing ready to draw
    dim p as Polyline = new Polyline

    ' start by doing one full turn without any depth increment
    for i as short = 0 to smooth-1
    x = radius * math.cos(th)
    y = radius * math.sin(th)
    p.Add(x,y,z)
    th = th + dt
    next i

    ' now make loops with depth increment per loop
    for i as short = 0 to steps-1
    if z+dz < target_depth
    z=target_depth
    else
    z = z + dz
    end if
    x = radius * math.cos(th)
    y = radius * math.sin(th)
    p.Add(x,y,z)

    radius=radius+radius_step
    th = th + dt
    if z=target_depth then exit for
    next i

    ' finally, make one loop at depth to finish out the bottom
    for i as short = 0 to smooth-1
    x = radius * math.cos(th)
    y = radius * math.sin(th)
    p.Add(x,y,z)
    th = th + dt
    next i

    MakeConicHelix = p

    end function


    sub main
    top_diameter=val(Inputbox ("Top diameter? "))
    bottom_diameter=val(Inputbox ("Bottom diameter (must be <= top diameter, or hole will be cylindrical)? "))
    depth_loop:
    target_depth=val(Inputbox("Target depth (must be negative)"))
    if target_depth>=0
    goto depth_loop
    end if

    depth_increment=Math.Abs(val(Inputbox ("Depth increment")))
    turns=Math.Abs(target_depth/depth_increment)
    direction=val(Inputbox("Direction to turn -- -1=CCW, 1=CW"))
    direction=direction*-1
    smooth=val(Inputbox("Smoothing factor (number of segments per turn) recommended 100 per turn as a compromise."))
    'test_string=string.format("Top={0}, Bottom={1}, Target={2}, Incr={3}, turns={4}",top_diameter,bottom_diameter,target_depth,depth_increment,turns)
    'MsgBox(test_string)
    dim p as polyline = MakeConicHelix()
    doc.add(p)
    end sub
     
  3. Klystron

    Klystron Compagnon

    Messages:
    586
    Inscrit:
    29 Mai 2014
    Localité:
    Val d'Oise ( 95 )
    script pour l'usinage d'un cone en spirale .
    Bonjour ami Lloyd,
    super, je te remercie, je viens de faire un essai vite fait c'est bon.
    un grand merci pour ton script.
    ---

    Hello friend Lloyd,
    Great, thank you, I just did a quick test that's good.
    a big thank you for your script.

    Yves.
     
  4. Klystron

    Klystron Compagnon

    Messages:
    586
    Inscrit:
    29 Mai 2014
    Localité:
    Val d'Oise ( 95 )
  5. AMDlloydsp

    AMDlloydsp Apprenti

    Messages:
    82
    Inscrit:
    31 Décembre 2014
  6. nagut

    nagut Compagnon

    Messages:
    1 188
    Inscrit:
    1 Décembre 2009
    Localité:
    ST-Claude Jura
    script pour l'usinage d'un cone en spirale .
    salut
    j'ai essayé le script, mais j'ai pas tout compris :-D
    j'ai dessiné avec le script un cône cylindrique de 100 en grand Ø, et 50 en petit sur 20 de haut.
    çà m'a bien sortit ce que je demandais
    mais pour usiner l'intérieur par exemple, j'ai pris "profilage 3D", mais çà ne sort aucun GCode !
    j'ai essayer avec "poche", mais çà passe pas ( logique ).

    j'aime pas quant je comprends pas :smt011
     
  7. AMDlloydsp

    AMDlloydsp Apprenti

    Messages:
    82
    Inscrit:
    31 Décembre 2014
    script pour l'usinage d'un cone en spirale .
    ça m'a bien sortit Ce que je demandais
    Mais verser usiner l' intérieur par exemple , je ai pris " profilage 3D " , Mais çà ne sorte aucun Gcode !
    je ai essayer avec " poche " , Mais çà pas passé ( logique ) .
    -----------
    Le script crée une polyligne qui est destinée à être gravée .
    < G >
    LLoyd
     
  8. dh42

    dh42 Compagnon

    Messages:
    3 975
    Inscrit:
    4 Septembre 2009
    Localité:
    Près de St Etienne (42)
    script pour l'usinage d'un cone en spirale .
    Salut,

    Je n'ai pas encore essayé ce script, mais il y a 120% de chances que tu doive utiliser une opération de gravure ; c'est la seule qui puisse suive un parcours en 3D.

    Je me demande à quoi ça peut bien ressembler un cône cylindrique :lol:

    ++
    David
     
  9. nagut

    nagut Compagnon

    Messages:
    1 188
    Inscrit:
    1 Décembre 2009
    Localité:
    ST-Claude Jura
    script pour l'usinage d'un cone en spirale .
    salut David
    un alésage conique :-D
    dans le script, on a le choix entre une forme cercle, triangle ou carré ; j'ai choisi cercle ( d’où le terme employé )
    avec une opération de gravure, il y a un sacré boulot d'ébauche !! ou bien !
     
  10. Klystron

    Klystron Compagnon

    Messages:
    586
    Inscrit:
    29 Mai 2014
    Localité:
    Val d'Oise ( 95 )
    script pour l'usinage d'un cone en spirale .
    Bonsoir,
    oui le script fonctionne bien, il faut utiliser le mode gravure .
    pour avoir des cercles en spirale, il faut lui entrer 100
    pour faire des triangles en spirale il faut lui entrer 3 et pour des carrés lui mettre 4 etc ... 5 6 7 sont idem.
    voici une copie ecran et son g-code :

    Voir la pièce jointe un essai du script.zip

    c'est rigolot ce petit sous-programme pour Cambam.
    il y a aussi un autre script dans les posts cambam , à chercher plus bas , qui fait une sphère, dans le meme esprit :-D

    A+
     
  11. nagut

    nagut Compagnon

    Messages:
    1 188
    Inscrit:
    1 Décembre 2009
    Localité:
    ST-Claude Jura
    script pour l'usinage d'un cone en spirale .
    OK
    je viens de regarder le GCode, oui çà marche .
    mais c'est bien ce que je disais, il faut un sacré travaille d'ébauche avant !
    c'est pourquoi je n'avais même pas pensé au mode gravure.
    à mon avis , çà peut être amélioré ; inclure justement cette fonction d'ébauche.
    mais la : je vous laisse faire :-D
     
  12. AMDlloydsp

    AMDlloydsp Apprenti

    Messages:
    82
    Inscrit:
    31 Décembre 2014
    script pour l'usinage d'un cone en spirale .
    You'll let WHO do it?

    Why not you try to do it, so we can increase the population of CB scripters!

    Lloyd
     
  13. dh42

    dh42 Compagnon

    Messages:
    3 975
    Inscrit:
    4 Septembre 2009
    Localité:
    Près de St Etienne (42)
    script pour l'usinage d'un cone en spirale .
    Hello Lloyd,

    +1

    ++
    David
     
  14. AMDlloydsp

    AMDlloydsp Apprenti

    Messages:
    82
    Inscrit:
    31 Décembre 2014
    script pour l'usinage d'un cone en spirale .
    Heh! Hi, David. I left it in English to make him "work a little" for the answer! :-D

    Lloyd
     
  15. Klystron

    Klystron Compagnon

    Messages:
    586
    Inscrit:
    29 Mai 2014
    Localité:
    Val d'Oise ( 95 )
Chargement...

Partager cette page