11
« on: June 29, 2017, 20:33:14 pm »
Attribute VB_Name = "Model001"
Public Sub Model_001()
App.New
Dim drw As Drawing
Set drw = App.ActiveDrawing
Dim Ty As MillData
Set Ty = App.CreateMillData
heigth = 800
width = 450
Dim Rectangle As Path
Set Rectangle = drw.CreateRectangle(0, 0, width, heigth)
Rectangle.Fillet (5)
App.SelectTool T1
Rectangle.Selected = True
With Ty
.ToolNumber = 1
.OffsetNumber = 1
.SpindleSpeed = 18000
.DownFeed = 3000
.CutFeed = 8000
.SafeRapidLevel = 30
.RapidDownTo = 30
.MaterialTop = 0
.Stock = 0
.FinalDepth = -5
.NumberOfCuts = 1
.McComp = acamCompTOOLCEN
.XYCorners = acamCornersSTRAIGHT
.WidthOfCut = 1
End With
Ty.RoughFinish
Rectangle.Selected = Fale
End Sub