1. Chú ý: Các bạn nên tham khảo Nội quy trước khi viết bài (click vào liên kết bên dưới).
    * Nội quy và Thông báo diễn đàn CNCProVN.com
    * Nếu bạn thấy hứng thú với bài viết. Hãy dùng chức năng Share to facebook để chia sẻ bài viết lên facebook.

          
Trang 4 của 5 Đầu tiênĐầu tiên ... 2345 CuốiCuối
Kết quả 61 đến 80 của 81

Chủ đề: dự án thay máu cnc brother tc227 sang mach 3

  1. #61
    Thợ bậc 6
    Ngày tham gia
    Aug 2015
    Đang ở
    Sài Gòn
    Bài viết
    477
    Cám ơn
    153
    Được cám ơn 74 lần
           ở 61 bài viết
    Trích dẫn Gửi bởi CKD Xem bài viết
    Bệnh nan y khó trị bác ạ.
    Có bác hồ trị được. Nhưng bác thì không có nhiều time theo me. Nên lười cứ lười thôi.
    Số là e cũng bị bệnh nan y giống bác nên làm xong thay dao thì e quăng đó luôn
    hôm nay lấy ra test thử cho chạy ở tốc độ chậm thì nó kêu và rung quá
    các bác có kinh nghiệm turning con hbs dòng h2-758 và h2-2206 của leadshine chỉ em với ạ, e mua về chỉ biết set số xung/vòng thôi ợ
    Thu mua vệ tinh, tàu vũ trụ, robot thăm dò... cũ giá cao

  2. #62
    Thợ bậc 6 CKD's Avatar
    Ngày tham gia
    Nov 2013
    Bài viết
    6,680
    Cám ơn
    1,733
    Được cám ơn 5,321 lần
           ở 2,595 bài viết
    Lên web leisai thì phải, down bản tuning v1.3 tiếng hoa về làm bác.
    Chủ yếu em giảm dòng cho nó chạy êm + mát. Giảm bi nhiêu thì tuỳ theo tải máy nhé.
    DT: O7837277II - CKD's Youtube Channel - Facebook - Tổng hợp chủ đề
    17 ds 3, Thạnh Mỹ Lợi, Q2, tp.HCM

  3. Thành viên đã cám ơn CKD cho bài viết hữu ích này:


  4. #63
    Thợ bậc 6
    Ngày tham gia
    Aug 2015
    Đang ở
    Sài Gòn
    Bài viết
    477
    Cám ơn
    153
    Được cám ơn 74 lần
           ở 61 bài viết
    Trích dẫn Gửi bởi CKD Xem bài viết
    Lên web leisai thì phải, down bản tuning v1.3 tiếng hoa về làm bác.
    Chủ yếu em giảm dòng cho nó chạy êm + mát. Giảm bi nhiêu thì tuỳ theo tải máy nhé.
    e kết nối với lap qua cáp usb-rs232 nhưng không kết nối được bác ợ, nó cứ báo lỗi thế này
    Click vào ảnh để xem ảnh lớn hơn. 

Name:	fc9a620705b6e1e8b8a7.jpg 
Views:	0 
Size:	567.6 KB 
ID:	74858

    Click vào ảnh để xem ảnh lớn hơn. 

Name:	0fc7a058c7e923b77af8.jpg 
Views:	0 
Size:	644.9 KB 
ID:	74859
    cáp thì e đã test thử gửi chương trình vô máy cnc ok rồi
    Thu mua vệ tinh, tàu vũ trụ, robot thăm dò... cũ giá cao

  5. #64
    Thợ bậc 6
    Ngày tham gia
    Aug 2017
    Bài viết
    336
    Cám ơn
    20
    Được cám ơn 78 lần
           ở 68 bài viết
    Trước em cũng bị lỗi kết nối nhưng em dùng giắc com 9pin cắm vô máy để bàn, sau cạo sạch chân ở máy tính thì vô được. Còn cáp usb-rs232 em chưa thử.

  6. Thành viên đã cám ơn Thanhcuongquynhon cho bài viết hữu ích này:


  7. #65
    Thợ cả
    Ngày tham gia
    Nov 2013
    Bài viết
    5,915
    Cám ơn
    2,195
    Được cám ơn 3,263 lần
           ở 2,038 bài viết
    Trích dẫn Gửi bởi vusvus Xem bài viết
    Cái tủ điện còn đang dang dở
    Đính kèm 73924
    Lần thay dao liều mạng đầu tiên
    Đính kèm 73925
    drive có màn hính sao ko cònig trên đó luôn ợ

  8. #66
    Thợ bậc 6
    Ngày tham gia
    Aug 2015
    Đang ở
    Sài Gòn
    Bài viết
    477
    Cám ơn
    153
    Được cám ơn 74 lần
           ở 61 bài viết
    Trích dẫn Gửi bởi nhatson Xem bài viết
    drive có màn hính sao ko cònig trên đó luôn ợ
    cái này là lần đầu làm chuyện ấy của e, e cũng chưa biết nên config parameter nào nên mới định config trên máy tính cho nó dễ nhìn hơn ợ
    bác Nhatson cho e hỏi trường hợp như của e thì config thế nào cho nó mượt lại ợ
    Thu mua vệ tinh, tàu vũ trụ, robot thăm dò... cũ giá cao

  9. #67
    Thợ cả
    Ngày tham gia
    Nov 2013
    Bài viết
    5,915
    Cám ơn
    2,195
    Được cám ơn 3,263 lần
           ở 2,038 bài viết
    Trích dẫn Gửi bởi vusvus Xem bài viết
    cái này là lần đầu làm chuyện ấy của e, e cũng chưa biết nên config parameter nào nên mới định config trên máy tính cho nó dễ nhìn hơn ợ
    bác Nhatson cho e hỏi trường hợp như của e thì config thế nào cho nó mượt lại ợ
    em nghĩ cụ cần check xem nó rung nhất ở tốc độ bao nhieu>> bao nhiêu RPM
    1.nếu rung ở tốc độc chậm dưới 50RPM thì cụ tăng độ phân giải của microstep lên. khớp nối cũng là 1 phần của vấn đề
    2. nếu rung ở tốc độ mid 100 dến 300rpm thì 1 là thay đổi điện áp , ktra csuất nguồn, drive chạy AC được nhưng 2 con tụ trong bé, nếu DC được thì tốt hơn. trường hợp này điều chỉnh para PA_11 Closed loop curent, default là 100 xuống còn 70 80% thử
    b.r

  10. Có 2 thành viên đã cám ơn nhatson cho bài viết hữu ích này:


  11. #68
    Thợ bậc 6 CKD's Avatar
    Ngày tham gia
    Nov 2013
    Bài viết
    6,680
    Cám ơn
    1,733
    Được cám ơn 5,321 lần
           ở 2,595 bài viết
    Cái USB-RS232 không phải cái nào cũng nhận đâu nhe.
    Nếu có PC thì cắm trực tiếp cổng COM, lưu ý cái cổng này cũ nên đôi khi có chút vấn đề về chân cẳng.
    Dùng USB-COM thì phải dùng loại xịn sòn tí, dù chip HC340 bèo nhèo hay thằng nào khác thì đồ xịn nó cũng goog hơn. Tớ dùng đồ của UNITEK, dù RS232, 422, 485 đều chạy good cho các ứng dụng.

    Đôi khi nó cũng sàm sàm không nhận...
    DT: O7837277II - CKD's Youtube Channel - Facebook - Tổng hợp chủ đề
    17 ds 3, Thạnh Mỹ Lợi, Q2, tp.HCM

  12. Có 2 thành viên đã cám ơn CKD cho bài viết hữu ích này:


  13. #69
    Thợ bậc 6
    Ngày tham gia
    Aug 2015
    Đang ở
    Sài Gòn
    Bài viết
    477
    Cám ơn
    153
    Được cám ơn 74 lần
           ở 61 bài viết
    e đã thử tăng độ phân giải từ 100pluse/mm lên 300pulse/mm em nó đã giảm dc khoảng 90%
    nhưng ở tốc độ chậm như khi chạy bo cung vẫn còn rung tí ợ

    còn cái cổng COM trên máy tính thì có 1 máy e dùng để đổ chương trình sang máy cnc mỗi ngày mà e lấy con máy đó cắm vào vẫn ko dc bác CKD ợ

    e cảm ơn các bác đã nhiệt tình giúp e
    Thu mua vệ tinh, tàu vũ trụ, robot thăm dò... cũ giá cao

  14. #70
    Thợ cả
    Ngày tham gia
    Nov 2013
    Bài viết
    5,915
    Cám ơn
    2,195
    Được cám ơn 3,263 lần
           ở 2,038 bài viết
    Trích dẫn Gửi bởi vusvus Xem bài viết
    e đã thử tăng độ phân giải từ 100pluse/mm lên 300pulse/mm em nó đã giảm dc khoảng 90%
    nhưng ở tốc độ chậm như khi chạy bo cung vẫn còn rung tí ợ

    còn cái cổng COM trên máy tính thì có 1 máy e dùng để đổ chương trình sang máy cnc mỗi ngày mà e lấy con máy đó cắm vào vẫn ko dc bác CKD ợ

    e cảm ơn các bác đã nhiệt tình giúp e
    sao ko để lên 400 step per minimet cho nó chẵn ah?
    Lần sửa cuối bởi nhatson, ngày 06-08-2019 lúc 05:38:59 PM.

  15. Thành viên đã cám ơn nhatson cho bài viết hữu ích này:


  16. #71
    Kem hảo hạng solero's Avatar
    Ngày tham gia
    Dec 2013
    Bài viết
    2,281
    Cám ơn
    733
    Được cám ơn 1,175 lần
           ở 649 bài viết
    Xem PA13, PA14 là bao nhiêu rồi tính tiếp.

  17. Thành viên đã cám ơn solero cho bài viết hữu ích này:


  18. #72
    Thợ bậc 6 CKD's Avatar
    Ngày tham gia
    Nov 2013
    Bài viết
    6,680
    Cám ơn
    1,733
    Được cám ơn 5,321 lần
           ở 2,595 bài viết
    Lụ đạn quá!
    Tối qua em cài lại thử mấy thằng ProTuner mà nó éo có nhận ra driver. Nhớ là cũng thằng win này đã từng cài roài và chạy Ok (vừa ghost mới lại, 7 64bit).
    Cài trên máy khác 7 32bit lại Ok. Nên cũng chẵng biết thế nào mà lần luôn

    Monitor Port thì thấy port hỏi driver trả lời Ok. Mà soft nó bảo không thấy driver. Éo éo...
    DT: O7837277II - CKD's Youtube Channel - Facebook - Tổng hợp chủ đề
    17 ds 3, Thạnh Mỹ Lợi, Q2, tp.HCM

  19. #73
    Thợ bậc 6
    Ngày tham gia
    Aug 2015
    Đang ở
    Sài Gòn
    Bài viết
    477
    Cám ơn
    153
    Được cám ơn 74 lần
           ở 61 bài viết
    Trích dẫn Gửi bởi nhatson Xem bài viết
    sao ko để lên 400 step per minimet cho nó chẵn ah?
    e để 300 thì vận tốc max được có 5000 thôi nên e không cho cao hơn nữa
    Thu mua vệ tinh, tàu vũ trụ, robot thăm dò... cũ giá cao

  20. #74
    Thợ bậc 6
    Ngày tham gia
    Aug 2015
    Đang ở
    Sài Gòn
    Bài viết
    477
    Cám ơn
    153
    Được cám ơn 74 lần
           ở 61 bài viết
    Trích dẫn Gửi bởi solero Xem bài viết
    Xem PA13, PA14 là bao nhiêu rồi tính tiếp.
    PA13, PA14 của e mua về vẫn chưa đổi nên nó còn giá trị mặc định
    PA 13=0
    PA 14= 30
    hai cái này có nên bật lên không cụ kem và cái pa 14 set khoảng bao nhiêu là dc ợ
    Thu mua vệ tinh, tàu vũ trụ, robot thăm dò... cũ giá cao

  21. #75
    Thợ bậc 6
    Ngày tham gia
    Aug 2015
    Đang ở
    Sài Gòn
    Bài viết
    477
    Cám ơn
    153
    Được cám ơn 74 lần
           ở 61 bài viết
    Trích dẫn Gửi bởi CKD Xem bài viết
    Lụ đạn quá!
    Tối qua em cài lại thử mấy thằng ProTuner mà nó éo có nhận ra driver. Nhớ là cũng thằng win này đã từng cài roài và chạy Ok (vừa ghost mới lại, 7 64bit).
    Cài trên máy khác 7 32bit lại Ok. Nên cũng chẵng biết thế nào mà lần luôn

    Monitor Port thì thấy port hỏi driver trả lời Ok. Mà soft nó bảo không thấy driver. Éo éo...
    bác CKD monitor port bằng phần mềm gì ạ, để e làm thử coi nó có bị tẻo giống của bác không
    Thu mua vệ tinh, tàu vũ trụ, robot thăm dò... cũ giá cao

  22. #76
    Thợ bậc 6 CKD's Avatar
    Ngày tham gia
    Nov 2013
    Bài viết
    6,680
    Cám ơn
    1,733
    Được cám ơn 5,321 lần
           ở 2,595 bài viết
    https://www.eltima.com/hhd-serial-mo...ternative.html

    Mình dùng cái này ....
    Được 15 ngày dùng.
    DT: O7837277II - CKD's Youtube Channel - Facebook - Tổng hợp chủ đề
    17 ds 3, Thạnh Mỹ Lợi, Q2, tp.HCM

  23. #77
    Kem hảo hạng solero's Avatar
    Ngày tham gia
    Dec 2013
    Bài viết
    2,281
    Cám ơn
    733
    Được cám ơn 1,175 lần
           ở 649 bài viết
    PA 13 set lên 1.
    Pa 14 tăng lên đến khi nào êm thì xem lại sai số gia công nhé.

  24. Thành viên đã cám ơn solero cho bài viết hữu ích này:


  25. #78
    Thợ bậc 6
    Ngày tham gia
    Aug 2015
    Đang ở
    Sài Gòn
    Bài viết
    477
    Cám ơn
    153
    Được cám ơn 74 lần
           ở 61 bài viết
    các bác làm atc có khi nào gặp trường hợp em nó bị cà tưng không các bác, của e lúc thì nó chạy tới giữa chương trình thay dao thì nó ngưng (mới index), coi như thay xong rồi lấy dao đó chạy tiếp (số dao vẫn là số cũ)
    lúc thì nó lên thay dao chạy spindle lên max speed rồi rút lên thay, e không bấm estop kịp là toi bà nó rồi...vân vân và mây mây
    e cũng chả biết tại mach3 bản chất nó tửng như vậy hay do máy tính của e hay gì nữa
    các bác làm qua chia sẻ kinh nghiệm với ạ
    e cám ơn
    Thu mua vệ tinh, tàu vũ trụ, robot thăm dò... cũ giá cao

  26. #79
    Thợ bậc 6
    Ngày tham gia
    Aug 2015
    Đang ở
    Sài Gòn
    Bài viết
    477
    Cám ơn
    153
    Được cám ơn 74 lần
           ở 61 bài viết
    file m6start.m1s của e




    Sub main()

    'OldTool=GetCurrentTool() 'current tool position


    If IsActive(OEMTRIG1) And Not IsActive(OEMTRIG2) And IsActive(OEMTRIG3) And Not IsActive(OEMTRIG4) Then

    OldTool = 1

    ElseIf Not IsActive(OEMTRIG1) And IsActive(OEMTRIG2) And IsActive(OEMTRIG3) And Not IsActive(OEMTRIG4) Then

    OldTool = 2

    ElseIf IsActive(OEMTRIG1) And IsActive(OEMTRIG2) And IsActive(OEMTRIG3) And Not IsActive(OEMTRIG4) Then

    OldTool = 3

    ElseIf Not IsActive(OEMTRIG1) And Not IsActive(OEMTRIG2) And Not IsActive(OEMTRIG3) And IsActive(OEMTRIG4) Then

    OldTool = 4

    ElseIf IsActive(OEMTRIG1) And Not IsActive(OEMTRIG2) And Not IsActive(OEMTRIG3) And IsActive(OEMTRIG4) Then

    OldTool = 5

    ElseIf Not IsActive(OEMTRIG1) And IsActive(OEMTRIG2) And Not IsActive(OEMTRIG3) And IsActive(OEMTRIG4) Then

    OldTool = 6

    ElseIf IsActive(OEMTRIG1) And Not IsActive(OEMTRIG2) And Not IsActive(OEMTRIG3) And Not IsActive(OEMTRIG4) Then

    OldTool = 7

    ElseIf Not IsActive(OEMTRIG1) And IsActive(OEMTRIG2) And Not IsActive(OEMTRIG3) And Not IsActive(OEMTRIG4) Then

    OldTool = 8

    ElseIf IsActive(OEMTRIG1) And IsActive(OEMTRIG2) And Not IsActive(OEMTRIG3) And Not IsActive(OEMTRIG4) Then

    OldTool = 9

    ElseIf Not IsActive(OEMTRIG1) And Not IsActive(OEMTRIG2) And IsActive(OEMTRIG3) And Not IsActive(OEMTRIG4) Then

    OldTool = 10

    Else
    MsgBox("Turret is missing alignment")
    DoOemButton(1021) 'reset

    End If 'end get current tool





    NextTool = GetSelectedTool() 'tool to be indexed
    TestM6 = False 'test run sub replace NextTool value by question
    A=35 'CCW ACTIVE atc reverse time
    B=35 'CW DEACTIVE

    '=============get current parameter==============


    ' Save the current feedrate.
    CurrentFeed = GetOemDRO(818)

    ' Save current coordinate mode (absolute/inc)
    oldCoordinateMode = GetOemLED(48)


    ' Save the current position

    CurrentPosX = GetDro(0)
    CurrentPosY = GetDro(1)
    CurrentPosZ = GetDro(2)

    ' use the user LED to store the state of coolant,
    If getoemled(13) Then
    'OEM LED 13 = "Flood LED" thus coolant is on
    ' set user led on
    setuserled(1000,1)
    Code "M9"
    Else
    'coolent is off
    ' set user led off
    setuserled(1000, 0)
    End If



    '============= end get current parameter==============




    While (GetOemLed(807) Or GetOemLed(808) Or GetOemLed(809))
    Message(" Please Home Machine before Tool Change")

    'Cycle Stop
    ' Button 5 - select Diagnostic screen
    DoOemButton(5)

    Exit Sub
    DoOemButton(105)

    Wend


    If TestM6 Then 'if test get tool to index
    NextTool = Question("Tool to index ")
    End If

    While NextTool>10 Or NextTool<1 'valid tool check
    'Message("Next Tool out of range")
    NextTool = Question("Next tool out of range, enter the right tool number ")
    'Exit Sub
    Wend

    Code"G91G28Z0."
    Message("Waiting for z home")

    While IsMoving ()
    Wend
    ' Code"G91G28X0.Y0."
    'Message("Waiting for x and y home")

    ' While IsMoving ()
    ' Wend





    '=============toolchange===============

    If OldTool <> NextTool Then 'if same tool skip index



    'Code"G91G28Z0" 'move z to tool machine zero
    Code"M9"
    ''While IsMoving ()
    ''Wend
    ActivateSignal(OUTPUT1) 'SON RELAY


    Sleep(150)

    '=====M19=====
    Code"M5"
    Code"S100M3"
    Sleep(1200)
    While (IsActive(OEMTRIG15)) 'index
    Wend
    activatesignal(output3) 'analog cut
    ActivateSignal(OUTPUT8)
    sleep(70)

    'DeActivateSignal(Output12) 'spindle cooling
    DeActivateSignal(OUTPUT1) 'son
    'DoSpinStop() this line causing toolchange error, code m5 is ok
    Code"M5"
    Message("Is anything is moving?")

    While IsMoving ()
    Wend
    Sleep(300)

    '=====end m19=====



    '====is spindle still rotating====
    If GetOEMDRO(39)>0 Then
    MsgBox("spindle still rotating ")
    DoOemButton(1021) 'reset
    End If
    '====end is spindle rotation chẹck====

    Code"G90 G53 G0 Z194." 'move z up to release current tool

    While IsMoving ()
    Wend


    '=== Index Tool === 'rotate DIRECTION

    If OldTool = 1 And (Nexttool = 2 Or Nexttool = 3 Or Nexttool = 4 Or Nexttool = 5 Or Nexttool = 6) Then
    ActivateSignal(Output5)
    setuserled(1001,1)


    ElseIf OldTool = 2 And (Nexttool = 3 Or Nexttool = 4 Or Nexttool = 5 Or Nexttool = 6 Or Nexttool = 7) Then
    ActivateSignal(Output5)
    setuserled(1001,1)


    ElseIf OldTool = 3 And (Nexttool = 4 Or Nexttool = 5 Or Nexttool = 6 Or Nexttool = 7 Or Nexttool = 8) Then
    ActivateSignal(Output5)
    setuserled(1001,1)


    ElseIf OldTool = 4 And (Nexttool = 5 Or Nexttool = 6 Or Nexttool = 7 Or Nexttool = 8 Or Nexttool = 9) Then
    ActivateSignal(Output5)
    setuserled(1001,1)

    ElseIf OldTool = 5 And (Nexttool = 6 Or Nexttool = 7 Or Nexttool = 8 Or Nexttool = 9 Or Nexttool = 10) Then
    ActivateSignal(Output5)
    setuserled(1001,1)

    ElseIf OldTool = 6 And (Nexttool = 7 Or Nexttool = 8 Or Nexttool = 9 Or Nexttool = 10 Or Nexttool = 1) Then
    ActivateSignal(Output5)
    setuserled(1001,1)

    ElseIf OldTool = 7 And (Nexttool = 8 Or Nexttool = 9 Or Nexttool = 10 Or Nexttool = 1 Or Nexttool = 2) Then
    ActivateSignal(Output5)
    setuserled(1001,1)

    ElseIf OldTool = 8 And (Nexttool = 9 Or Nexttool = 10 Or Nexttool = 1 Or Nexttool = 2 Or Nexttool = 3) Then
    ActivateSignal(Output5)
    setuserled(1001,1)

    ElseIf OldTool = 9 And (Nexttool = 10 Or Nexttool = 1 Or Nexttool = 2 Or Nexttool = 3 Or Nexttool = 4) Then
    ActivateSignal(Output5)
    setuserled(1001,1)

    ElseIf OldTool = 10 And (Nexttool = 1 Or Nexttool = 2 Or Nexttool = 3 Or Nexttool = 4 Or Nexttool = 5) Then
    ActivateSignal(Output5)
    setuserled(1001,1)

    Else
    DeActivateSignal(Output5) 'ATC rotate CCW
    setuserled(1001,0)

    End If 'end rotate direction
    Sleep(35)
    ActivateSignal(OUTPUT6) 'ATC rotate


    Select Case NextTool
    Case 1'Tool#5 >1
    While Not(IsActive(OEMTRIG1) And Not IsActive(OEMTRIG2) And IsActive(OEMTRIG3) And Not IsActive(OEMTRIG4) And IsActive(OEMTRIG5))
    Wend
    Case 2'Tool#6 >2
    While Not(Not IsActive(OEMTRIG1) And IsActive(OEMTRIG2) And IsActive(OEMTRIG3) And Not IsActive(OEMTRIG4) And IsActive(OEMTRIG5))
    Wend
    Case 3'Tool#7 >3
    While Not(IsActive(OEMTRIG1) And IsActive(OEMTRIG2) And IsActive(OEMTRIG3) And Not IsActive(OEMTRIG4) And IsActive(OEMTRIG5))
    Wend
    Case 4'Tool#8 >4
    While Not(Not IsActive(OEMTRIG1) And Not IsActive(OEMTRIG2) And Not IsActive(OEMTRIG3) And IsActive(OEMTRIG4) And IsActive(OEMTRIG5))
    Wend
    Case 5'Tool#9 >5
    While Not(IsActive(OEMTRIG1) And Not IsActive(OEMTRIG2) And Not IsActive(OEMTRIG3) And IsActive(OEMTRIG4) And IsActive(OEMTRIG5))
    Wend
    Case 6'Tool#10 >6
    While Not(Not IsActive(OEMTRIG1) And IsActive(OEMTRIG2) And Not IsActive(OEMTRIG3) And IsActive(OEMTRIG4) And IsActive(OEMTRIG5))
    Wend
    Case 7'Tool#1 >7
    While Not(IsActive(OEMTRIG1) And Not IsActive(OEMTRIG2) And Not IsActive(OEMTRIG3) And Not IsActive(OEMTRIG4) And IsActive(OEMTRIG5))
    Wend
    Case 8'Tool#2 >8
    While Not(Not IsActive(OEMTRIG1) And IsActive(OEMTRIG2) And Not IsActive(OEMTRIG3) And Not IsActive(OEMTRIG4) And IsActive(OEMTRIG5))
    Wend
    Case 9'Tool#3 >9
    While Not(IsActive(OEMTRIG1) And IsActive(OEMTRIG2) And Not IsActive(OEMTRIG3) And Not IsActive(OEMTRIG4) And IsActive(OEMTRIG5))
    Wend
    Case 10'Tool#4 >10
    While Not(Not IsActive(OEMTRIG1) And Not IsActive(OEMTRIG2) And IsActive(OEMTRIG3) And Not IsActive(OEMTRIG4) And IsActive(OEMTRIG5))
    Wend
    End Select



    If getuserled(1001) Then 'REVERSE MOTOR TO STOP ATC IMMEDIAELY
    DeActivateSignal(OUTPUT5)
    Sleep(A)


    Else
    ActivateSignal(OUTPUT5)
    Sleep(B)



    End If 'end reverse

    DeActivateSignal(OUTPUT6) 'stop ATC
    DeActivateSignal(OUTPUT5)

    Select Case NextTool
    Case 1'Tool#5 >1 'safe check, does it safe to take the tool
    While Not(IsActive(OEMTRIG1) And Not IsActive(OEMTRIG2) And IsActive(OEMTRIG3) And Not IsActive(OEMTRIG4))
    Wend
    Case 2'Tool#6 >2
    While Not(Not IsActive(OEMTRIG1) And IsActive(OEMTRIG2) And IsActive(OEMTRIG3) And Not IsActive(OEMTRIG4))
    Wend
    Case 3'Tool#7 >3
    While Not(IsActive(OEMTRIG1) And IsActive(OEMTRIG2) And IsActive(OEMTRIG3) And Not IsActive(OEMTRIG4))
    Wend
    Case 4'Tool#8 >4
    While Not(Not IsActive(OEMTRIG1) And Not IsActive(OEMTRIG2) And Not IsActive(OEMTRIG3) And IsActive(OEMTRIG4))
    Wend
    Case 5'Tool#9 >5
    While Not(IsActive(OEMTRIG1) And Not IsActive(OEMTRIG2) And Not IsActive(OEMTRIG3) And IsActive(OEMTRIG4))
    Wend
    Case 6'Tool#10 >6
    While Not(Not IsActive(OEMTRIG1) And IsActive(OEMTRIG2) And Not IsActive(OEMTRIG3) And IsActive(OEMTRIG4))
    Wend
    Case 7'Tool#1 >7
    While Not(IsActive(OEMTRIG1) And Not IsActive(OEMTRIG2) And Not IsActive(OEMTRIG3) And Not IsActive(OEMTRIG4))
    Wend
    Case 8'Tool#2 >8
    While Not(Not IsActive(OEMTRIG1) And IsActive(OEMTRIG2) And Not IsActive(OEMTRIG3) And Not IsActive(OEMTRIG4))
    Wend
    Case 9'Tool#3 >9
    While Not(IsActive(OEMTRIG1) And IsActive(OEMTRIG2) And Not IsActive(OEMTRIG3) And Not IsActive(OEMTRIG4))
    Wend
    Case 10'Tool#4 >10
    While Not(Not IsActive(OEMTRIG1) And Not IsActive(OEMTRIG2) And IsActive(OEMTRIG3) And Not IsActive(OEMTRIG4))
    Wend
    End Select


    '=====end index=====
    'Sleep(1200) 'TEST
    '=====end m19=====
    Code"G91 G28 Z0." 'Take the tool
    While IsMoving ()
    Wend

    End If 'if same tool skip index
    Sleep(100)
    DeActivateSignal(OUTPUT1) 'son
    deactivatesignal(output3) 'analog
    DeActivateSignal(OUTPUT8) 'home RELAY


    Message("Tool "& NextTool &" loaded ")
    SetCurrentTool(NextTool)
    '====== complete toolchange======






    '=restore parameter===


    Code "F" & CurrentFeed


    ' check user led
    If getuserled(1000) Then
    'coolant was on
    Code "M8"
    End If


    ' go to old tool position
    'Code("G00 G90 G53 X" & CurrentPosX & "Y" & CurrentPosY)
    While IsMoving ()
    Wend
    'Code("G00 G90 G53 Z" & CurrentPosZ)
    While IsMoving ()
    Wend


    ' Reset coordinate mode to original value
    If oldCoordinateMode = 0 Then
    Code("G91")
    End If

    '===end restore parameter======

    End Sub
    Thu mua vệ tinh, tàu vũ trụ, robot thăm dò... cũ giá cao

  27. Thành viên đã cám ơn vusvus cho bài viết hữu ích này:


  28. #80
    Thợ bậc 6
    Ngày tham gia
    Aug 2015
    Đang ở
    Sài Gòn
    Bài viết
    477
    Cám ơn
    153
    Được cám ơn 74 lần
           ở 61 bài viết
    file m3.m1s

    If IsActive(Input1) Then
    DoOemButton(1021) 'reset
    MsgBox("Z axis in the tool change area?")
    Else
    ActivateSignal(OUTPUT1)
    ActivateSignal(OUTPUT12) 'spindle cooling
    DeActivateSignal(OUTPUT3)
    DoSpinCW()
    End If
    Thu mua vệ tinh, tàu vũ trụ, robot thăm dò... cũ giá cao

  29. Thành viên đã cám ơn vusvus cho bài viết hữu ích này:


Trang 4 của 5 Đầu tiênĐầu tiên ... 2345 CuốiCuối

Các Chủ đề tương tự

  1. Dự án Thay điện ,khôi phục phay CNC OKUMA
    Bởi thucncvt trong diễn đàn Máy phay CNC
    Trả lời: 1
    Bài viết cuối: 27-07-2019, 12:26:28 AM
  2. xin hỏi về lệnh m3 điều khiển mach mach 3
    Bởi cuong trong diễn đàn Board điều khiển khác
    Trả lời: 3
    Bài viết cuối: 31-05-2018, 05:48:06 PM
  3. Đài thay dao máy Brother TC 321N giá ve chai
    Bởi clickmefunny trong diễn đàn Gian hàng hết hiệu lực
    Trả lời: 7
    Bài viết cuối: 24-08-2016, 05:27:23 PM
  4. Trả lời: 11
    Bài viết cuối: 05-06-2015, 01:02:20 PM

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •