Ik wil deze macro gaan namaken voor Eding en toen ik zat te bedenken hoe ik het ga doen vroeg i me af of ik werkelijk de enige ben die dit gaat proberen en of het niet eens tijd is voor een macro deel topic??
Wat ik dus wil bereiken is het vinden van het midden van een vierkant/rechthoek/cirkel/ovaal/gat enz zowel inwendig als uitwendig.
Een vierkant/rechthoek kan met 1 macro maar voor de cirkel zegt hij in het filmpje het met een dubbele meting te doen om zo ook de maximale maat en onrondheid te weten.
Ik begin hier dus om gelijk mijn gedachten te typen om ze zelf terug te kunnen vinden en jullie ideeën gelijk te overwegen, Maar ook om de vraag naar behoefte van een deel je macro topic. Waar ik eventueel wel wil een bestandslocatie (Google drive, onedrive, oid) voor wil beheren om het overzichtelijk te houden Het wil hier met alle goede bedoelingen natuurlijk wel eens afdwalen.
In de sorotec macro zit al iets wat ik als basis kan gebruiken
Code: Selecteer alles
Sub user_8
; ---------------------------------------------------------------------------------------
; #4550 Zero point determination marker direction
; #4551 Zero point offset offset X +
; #4552 zero point offset X
; #4553 Zero point offset offset Y +
; #4554 zero point determination offset Y-
Dlgmsg "Determine zero point 1 = X + / 2 = X- / 3 = Y + / 4 = Y-" "Direction:" 4550
IF [#4550 == 0]
ENDIF
; ---- X-Plus -----------------------------------------------------------------------------------
IF [#4550 == 1]
G91 G38.2 x20 F [#4504]
G90
IF [#5067 == 1] ;If sensor was found
G91 G38.2 x-10 F [#4505]
G90
IF [#5067 == 1] ;If sensor was found
G92 X #4551
G91 G00 x-1
G90
ENDIF
ELSE
DlgMsg "ERROR: No sensor found - measurement canceled"
ENDIF
#4550 = 0
ENDIF
; ---- X-minus -----------------------------------------------------------------------------------
IF [#4550 == 2]
G91 G38.2 x-20 F [#4504]
G90
IF [#5067 == 1] ;If sensor was found
G91 G38.2 x10 F [#4505]
G90
IF [#5067 == 1] ;If sensor was found
G92 X #4552
G91 G00 x1
G90
ENDIF
ELSE
DlgMsg "ERROR: No sensor found - measurement canceled"
ENDIF
#4550 = 0
ENDIF
; ---- Y-Plus -----------------------------------------------------------------------------------
IF [#4550 == 3]
G91 G38.2 y20 F [#4504]
G90
IF [#5067 == 1] ;If sensor was found
G91 G38.2 y-10 F [#4505]
G90
IF [#5067 == 1] ;If sensor was found
G92 y #4553
G91 G00 y-1
G90
ENDIF
ELSE
DlgMsg "ERROR: No sensor found - measurement canceled"
ENDIF
#4550 = 0
ENDIF
; ---- Y minus -----------------------------------------------------------------------------------
IF [#4550 == 4]
G91 G38.2 y-20 F [#4504]
G90
IF [#5067 == 1] ;If sensor was found
G91 G38.2 y10 F [#4505]
G90
IF [#5067 == 1] ;If sensor was found
G92 y #4554
G91 G00 y1
G90
ENDIF
ELSE
DlgMsg "ERROR: No sensor found - measurement canceled"
ENDIF
#4550 = 0
ENDIF
ENDSUB