Resume
Samenvatting Hulp code eindtest Alphacam 3
- Cours
- CAD/CAM 3
- Établissement
- Hogeschool Gent (HoGent)
Document die je helpt bij de eindtest
[Montrer plus]
Aperçu du contenu
Omrekenen naar 32 mm systeemIf opt32mm = True Then
Lengte = ((Int((Lengte - Dikte) / 32) * 32) + Dikte)
Breedte = ((Int((Breedte - (2 * 37)) / 32)) * 32) + (2 * 37)
Aanmaken constructieblok + uitgangsmateriaal
Dim Constructieblok As Path
Set Constructieblok = drw.CreateRectangle(0, 0, Lengte, Breedte)
Constructieblok.SetWorkVolume 0, -Dikte 'maken cnstr blok
Dim Uitgangsmateriaal As Path
Set Uitgangsmateriaal = drw.CreateRectangle(-5, -5, Lengte + 5, Breedte + 5)
Uitgangsmateriaal.SetMaterial 0, -Dikte
Aanmaken werkvlak (0-punt,punt waar x naar wijst, punt waar z naar wijst)
Dim BovenVlak As WorkPlane
Set BovenVlak = drw.CreateWorkPlane(0, 0, 0, Lengte, 0, 0, 0, Breedte, 0)
drw.SetWorkPlane BovenVlak
Contour frezen !juiste werkvlak actief maken
1. Tekenen contour
Dim Contour As Path
Set Contour = drw.CreateRectangle(0, 0, Lengte, Breedte)
2. Gereedschap definiëren
Dim ContourFrees As MillTool
On Error Resume Next '(foutmeldingen uitschakelen)
Set ContourFrees = App.SelectTool(App.LicomdatPath & "\licomdat\tools hout\rechte frezen\
recht 20_diamant.art")
On Error GoTo 0 '(foutmeldignen weer aan)
'foutmelding als frees niet gevonden
If ContourFrees Is Nothing Then
, MsgBox "selecteer zelf een gereedschap aub", vbCritical, "GEREEDDSCHAP NIET
GEVONDEN!"
Set ContourFrees = App.SelectTool("$user")
End If
3. Bewerkingsrichting
With Contour
.SetStartPoint Lengte / 2, 0 'startpunt
.CW = False 'ccw
.Selected = True 'selecteer contour
.ToolInOut = acamOUTSIDE 'frees buitenkand
End With
4. Freesbewerking definiëren
Dim ContourFreesGegevens As MillData
Set ContourFreesGegevens = App.CreateMillData
With ContourFreesGegevens
.FinalDepth = -Dikte - 1
.MaterialTop = 0
.NumberOfCuts = 1
.OffsetNumber = 100 'correctieadres
.SafeRapidLevel = 50 'vrijloop
.RapidDownTo = 10 'aanloop
.Stock = 0 'toeslag
.XYCorners = acamCornersSTRAIGHT 'rechte frees hoeken
'extra opties onder alphacam opties / vba macro's / help alphacam api
End With
5. Frezen zelf
Dim ContourFrezing As Paths
Set ContourFrezing = ContourFreesGegevens.RoughFinish
ContourFrezing.Item(1).SetLeadInOutAuto acamLeadBOTH, acamLeadBOTH , 2, 2, 45, True, True,
10 'in en uitloop instellingen
Les avantages d'acheter des résumés chez Stuvia:
Qualité garantie par les avis des clients
Les clients de Stuvia ont évalués plus de 700 000 résumés. C'est comme ça que vous savez que vous achetez les meilleurs documents.
L’achat facile et rapide
Vous pouvez payer rapidement avec iDeal, carte de crédit ou Stuvia-crédit pour les résumés. Il n'y a pas d'adhésion nécessaire.
Focus sur l’essentiel
Vos camarades écrivent eux-mêmes les notes d’étude, c’est pourquoi les documents sont toujours fiables et à jour. Cela garantit que vous arrivez rapidement au coeur du matériel.
Foire aux questions
Qu'est-ce que j'obtiens en achetant ce document ?
Vous obtenez un PDF, disponible immédiatement après votre achat. Le document acheté est accessible à tout moment, n'importe où et indéfiniment via votre profil.
Garantie de remboursement : comment ça marche ?
Notre garantie de satisfaction garantit que vous trouverez toujours un document d'étude qui vous convient. Vous remplissez un formulaire et notre équipe du service client s'occupe du reste.
Auprès de qui est-ce que j'achète ce résumé ?
Stuvia est une place de marché. Alors, vous n'achetez donc pas ce document chez nous, mais auprès du vendeur Studenthouttechnologie. Stuvia facilite les paiements au vendeur.
Est-ce que j'aurai un abonnement?
Non, vous n'achetez ce résumé que pour €3,49. Vous n'êtes lié à rien après votre achat.
Peut-on faire confiance à Stuvia ?
4.6 étoiles sur Google & Trustpilot (+1000 avis)
53022 résumés ont été vendus ces 30 derniers jours
Fondée en 2010, la référence pour acheter des résumés depuis déjà 14 ans