100% tevredenheidsgarantie Direct beschikbaar na betaling Zowel online als in PDF Je zit nergens aan vast
logo-home
Samenvatting Hulp code eindtest Alphacam 3 €3,49
In winkelwagen

Samenvatting

Samenvatting Hulp code eindtest Alphacam 3

 14 keer bekeken  0 keer verkocht

Document die je helpt bij de eindtest

Voorbeeld 2 van de 5  pagina's

  • 16 mei 2023
  • 5
  • 2022/2023
  • Samenvatting
Alle documenten voor dit vak (1)
avatar-seller
Studenthouttechnologie
Omrekenen naar 32 mm systeem
If 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

Voordelen van het kopen van samenvattingen bij Stuvia op een rij:

√  	Verzekerd van kwaliteit door reviews

√ Verzekerd van kwaliteit door reviews

Stuvia-klanten hebben meer dan 700.000 samenvattingen beoordeeld. Zo weet je zeker dat je de beste documenten koopt!

Snel en makkelijk kopen

Snel en makkelijk kopen

Je betaalt supersnel en eenmalig met iDeal, Bancontact of creditcard voor de samenvatting. Zonder lidmaatschap.

Focus op de essentie

Focus op de essentie

Samenvattingen worden geschreven voor en door anderen. Daarom zijn de samenvattingen altijd betrouwbaar en actueel. Zo kom je snel tot de kern!

Veelgestelde vragen

Wat krijg ik als ik dit document koop?

Je krijgt een PDF, die direct beschikbaar is na je aankoop. Het gekochte document is altijd, overal en oneindig toegankelijk via je profiel.

Tevredenheidsgarantie: hoe werkt dat?

Onze tevredenheidsgarantie zorgt ervoor dat je altijd een studiedocument vindt dat goed bij je past. Je vult een formulier in en onze klantenservice regelt de rest.

Van wie koop ik deze samenvatting?

Stuvia is een marktplaats, je koop dit document dus niet van ons, maar van verkoper Studenthouttechnologie. Stuvia faciliteert de betaling aan de verkoper.

Zit ik meteen vast aan een abonnement?

Nee, je koopt alleen deze samenvatting voor €3,49. Je zit daarna nergens aan vast.

Is Stuvia te vertrouwen?

4,6 sterren op Google & Trustpilot (+1000 reviews)

Afgelopen 30 dagen zijn er 53022 samenvattingen verkocht

Opgericht in 2010, al 14 jaar dé plek om samenvattingen te kopen

Start met verkopen
€3,49
  • (0)
In winkelwagen
Toegevoegd