Makro do sondy 3D

[qqaz]

I tak wygląda pisanina dla już od roku potrzebującego.
Nawet nie skopiował bo wtedy chociaż by zgłosił że coś nie tak albo jako problem ze nie działa albo jako sensację że spieprzone a ON poprawił i dopiero teraz jest dobrze.
Hans Kloss tylko gada.

[j22]

Mam, Mam, mam......
muszę coś gdzieś wpisywać?

[qqaz]

Chopie zupełnie jak grzybiarz co to znalazł kapelusz na nóżce więc grzyb.

Nie zadziała!
Nie dość że tylko fragment pokazałeś to i tak wystarczy.
Tam jest odwołanie do licznika "setuserdro(1510,0)" w którym ustawiasz na n=0 i w oparciu o zmiany coś dalej się dzieje.
ALE TY NA SWOIM EKRANIE TAKIEGO NIE MASZ!!!
kicha.

Dodane 1 minuta 1 sekunda:
no chyba że to DRO masz
i tą resztę makra

[j22]

Jak mam makro ale w postaci pliku tekstowego, jak to zapisać, żeby mach to widział?


SetDRO(0,0) 'set X DRO to Zero
SetDRO(1,0) 'set Y DRO to Zero


Code "G31 X-25.4 F250" 'Probe Move to X-25.4mm @ 250mm/min
While IsMoving()
Sleep(10)
Wend
SetDRO(0,0) 'This is the Right Edge

Code "G31 X25.4 F250" 'Probe Move to X25.4mm @ 250mm/min
While IsMoving()
Sleep(10)
Wend

Xpos = GetDRO(0) 'Xpos holds Left Poss
Xmid = Xpos/2 'Xmid is the X center line

Code "G0 X" & Xmid
While IsMoving()
Sleep(10)
Wend
SetDRO(0,0) 'X enter Line



Code "G31 Y-25.4 F250" 'Probe Move to Y-25.4mm @ 250mm/min
While IsMoving()
Sleep(10)
Wend
SetDRO(1,0) 'This is the Bottom Edge

Code "G31 Y25.4 F250" 'Probe Move to Y25.4mm @ 250mm/min
While IsMoving()
Sleep(10)
Wend

Ypos = GetDRO(1) 'Ypos holds Bottom Poss
Ymid = Ypos/2 'Ymid is the Y center line

Code "G0 Y" & Ymid
While IsMoving()
Sleep(10)
Wend
SetDRO(1,0) 'Y enter Line


wkurzyłem się i sam napisałem

[qqaz]

Hurra! Jest progres
Ale wcześniej pisałeś że chcesz znaleźć krawędź/narożnik detalu a to jest makro które ustawia zero programu w środku otworu
Wiesz co znalazłeś?
No ale działa i zero ustawia.
Tylko zmieniłbym je tak aby szukało w otworze o średnicy którą wpiszę. Teraz jeżeli otwór jest większy od 1" to już będzie sadzić błędy.
Zastosuj takie:

SetDRO(0,0) 'set X DRO to Zero
SetDRO(1,0) 'set Y DRO to Zero

fi=QUESTION("PODAJ ŚREDNICĘ")
Code "G31 X" &-fi & " F250" 'Probe Move to X-25.4mm @ 250mm/min
While IsMoving()
Sleep(10)
Wend
SetDRO(0,0) 'This is the Right Edge

Code "G31 X" & fi & " F250" 'Probe Move to X25.4mm @ 250mm/min
While IsMoving()
Sleep(10)
Wend

Xpos = GetDRO(0) 'Xpos holds Left Poss
Xmid = Xpos/2 'Xmid is the X center line

Code "G0 X" & Xmid
While IsMoving()
Sleep(10)
Wend
SetDRO(0,0) 'X enter Line



Code "G31 Y" & -fi & " F250" 'Probe Move to Y-25.4mm @ 250mm/min
While IsMoving()
Sleep(10)
Wend
SetDRO(1,0) 'This is the Bottom Edge

Code "G31 Y" & fi & " F250" 'Probe Move to Y25.4mm @ 250mm/min
While IsMoving()
Sleep(10)
Wend

Ypos = GetDRO(1) 'Ypos holds Bottom Poss
Ymid = Ypos/2 'Ymid is the Y center line

Code "G0 Y" & Ymid
While IsMoving()
Sleep(10)
Wend
SetDRO(1,0) 'Y enter Lined


Dołożyłem okienko z pytaniem o średnicę
fi=QUESTION("PODAJ ŚREDNICĘ")
a linijkach najazdowych zamiast wartości sztywnej podstawiłem zmienną której wartość otrzymałem w dołożonym pytaniu
...& fi &...

Jak mam makro ale w postaci pliku tekstowego, jak to zapisać, żeby mach to widział?

na poprzedniej stronie napisałem - albo pik tekstowy XXX.m1s w katalogu makr Twojego profilu (C:\Mach3\macros\Mach3Mill) albo na ekranie klawisz, otwierasz, wklejasz, zapisujesz, gotowe
Jeżeli będzie to plik tekstowy to uruchamiasz go z lini MDI wpisując nazwę i enter ( bo przecież nie w Gkodzie).

Dodane 4 minuty 15 sekundy:
a wiesz czym się różni to co wcześniej podałem

G31x100 F100
a=#2000
x=a+2
message(" znaleziona ścianka na współrzędnej x=" & x)

od tego teraz

Code "G31 Y" & -fi & " F250"
While IsMoving()
Sleep(10)
Wend
SetDRO(1,0)

różni się nadzieją że sprawdzisz i zapytasz co jest z tym nie tak.

[j22]

co Ty, jakimś programistą jesteś?

[j22]

czy mógłbys sprawdzić to?

[qqaz]

Sprawdziłem, nie będzie działać (a raczej nie sprawdzałem bo po co)
G91 - tryb przyrostowy ale z którego miejsca bo przecież nie z każdego - uruchomisz to masz szansę coś połamać
G38.2 - nie znane polecenie dla Macha
G10 L20 P1 Zxxxxxx skąd mam wiedzieć że parametry właściwe?

Skąd wygrzebałeś te pliki bo z pewnością nie z obszarów dla Macha. Raczej coś linuxowe albo jeszcze inne. G38.2/3/4 to kody zapewne najazdowe ale nie w Machu!
Wpisałeś sobie do klawisza ten plik z centrowaniem w otworze? Działa?
To co poprawiłem aby było pytanie o średnicę też działa? Nie działa?
Z reguły nie zamieszczam nic gotowego co kopiuj/wklej przynosi skutek. Zawsze w tym jest coś co przeszkadza a pytający , jeżeli jest zainteresowany, zaczyna drążyć sprawę i razem poprawiamy.
Bo wtedy ujawniają się dodatkowe aspekty które trzeba uwzględnić a i pytacz dowiaduje się wiecej i odkrywa istotę działania.

Nie chce mi się namawiać Cię do analizy tych dwóch wcześniejszych fragmentów.

ale tutaj dostaniesz wartość poprzedniego czujnikowania
G31x100 F100
a=getvar(2000)
x=a+2
message(" znaleziona poprzednio ścianka na współrzędnej x=" & x)

a w tym poda taką którą znalazł teraz
G31x100 F100
While IsMoving()
Sleep(10)
Wend
a=getvar(2000)
x=a+2
message(" znaleziona teraz ścianka na współrzędnej x=" & x)

Dodane 1 minuta 21 sekundy:
a jednak kopiuj/wklej wstawiłem

[j22]

Makro do otworów raczej mnie nie interesuje, szukam zwykłego do krawędzi, to co wrzuciłem, ściągnąłem z jakiejś strony
Padaczki dostanę

[qqaz]

ten drugi fragment spełnia oczekiwania:
-Jest to makro
-Do szukania krawędzi/ścianki
-Szuka ścianki na odcinku "stąd w stronę x100" czyli lewej ścianki kostki.
Jeżeli wstawisz G91 jak we wcześniejszym to będziesz szukać w trybie "stąd nie dalej niż 100" .
I przywróć wcześniejsze G90 (czyli dobrze było)

Dodane 1 minuta 16 sekundy:
Czy po znalezieniu ma licznik ustawić na X=0?