100% satisfaction guarantee Immediately available after payment Both online and in PDF No strings attached
logo-home
Samenvatting Hulp code eindtest Alphacam 3 $3.74
Add to cart

Summary

Samenvatting Hulp code eindtest Alphacam 3

 14 views  0 purchase
  • Course
  • Institution

Document die je helpt bij de eindtest

Preview 2 out of 5  pages

  • May 16, 2023
  • 5
  • 2022/2023
  • Summary
avatar-seller
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

The benefits of buying summaries with Stuvia:

Guaranteed quality through customer reviews

Guaranteed quality through customer reviews

Stuvia customers have reviewed more than 700,000 summaries. This how you know that you are buying the best documents.

Quick and easy check-out

Quick and easy check-out

You can quickly pay through credit card or Stuvia-credit for the summaries. There is no membership needed.

Focus on what matters

Focus on what matters

Your fellow students write the study notes themselves, which is why the documents are always reliable and up-to-date. This ensures you quickly get to the core!

Frequently asked questions

What do I get when I buy this document?

You get a PDF, available immediately after your purchase. The purchased document is accessible anytime, anywhere and indefinitely through your profile.

Satisfaction guarantee: how does it work?

Our satisfaction guarantee ensures that you always find a study document that suits you well. You fill out a form, and our customer service team takes care of the rest.

Who am I buying these notes from?

Stuvia is a marketplace, so you are not buying this document from us, but from seller Studenthouttechnologie. Stuvia facilitates payment to the seller.

Will I be stuck with a subscription?

No, you only buy these notes for $3.74. You're not tied to anything after your purchase.

Can Stuvia be trusted?

4.6 stars on Google & Trustpilot (+1000 reviews)

53022 documents were sold in the last 30 days

Founded in 2010, the go-to place to buy study notes for 14 years now

Start selling
$3.74
  • (0)
Add to cart
Added