Hello Guest it is June 07, 2024, 06:38:06 AM

Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Kissling

Pages: 1 2 »
1
Thanks a lot for this solution.

Works well.

But I try to find a solution where no "AskTextQuestion" is used to enter the value.

I try to  find a way where i can write the value in the DRO-Feld and the macro is executed when pressing Enter

Maybe there is another way?

Grüße aus Bayern nach Bayern :-)

2
Finished Screens / Re: Mach3 Set 1920*1080
« on: September 12, 2023, 08:27:36 AM »
saubere Arbeit, sieht richtig schön "aufgeräumt" aus.
Ich bin auch nicht so für diese bunten Screensets.
Gruß Tom

darf ich fragen, mit welchem Programm Du die Hintergründe erstellt hast?

Das habe ich mit Affinity Photo 2 gemacht.
Die Grundlage des gesamten Set ist von PA.
Leider habe ich da doch so einige "Unstimmigkeiten" gefunden.
Desshalb habe ich das gesamte Set komplett überarbeitet.

Funktioniert inzwischen ganz ordentlich :-)

Gruß Ronald

3
Hello TPS,

this is all no problem!

My Problem is:
How can i execute the basic Sript when I write a new value to the UserDRO?

Do I have to design a UserDRO AND a Button?

Regards

4
Thanks to TPS

But than I have to Insert 2 thinks.

one to write the  value
and
as you wrote
one for executing the script

I there no way to way to get this:
write the value in the feeld
by pressing Enter the macro is executed

Regards

5
VB and the development of wizards / Read a value and execute a User-Macro
« on: September 11, 2023, 07:59:13 AM »
Hello

I'm optimizing my Screenset.
The Basis of my Sreenset is from PA.
But I did so many imprvements and Errorcorections.

Now I try to build a button where set the x-coordinate an then the Spindle goes to this coordinate.
Simply: Goto X Goto Y Goto Z

Im try to do this with machsreen.

My question is:
How can I build a Button that reads the valeu and then executes a VB-Script where i can Use the value?
I only find something where I can define the Value and something where I can execute Code.But I need a Button whitch is dooing both!


Thanks a lot

6
@ TPS
Thanks so much.
This was a greate advice.

I did the following code working nearly perfect:.

'-----------------------------------------------------------------'
'-------------------- Referenzfahrt ausführen -------------------'
REFCOMBINATION(4)
REFCOMBINATION(8)
REFCOMBINATION(2)
REFCOMBINATION(1)
'----------------------------------------------------------------'



'------------------ Konfigurationsdatei öffnen ------------------'
Set xmlDoc = CreateObject("MSXML.DomDocument")
xmlDoc.Load "c:\Mach3\Mill.xml"
'----------------------------------------------------------------'



'------------------------ Werte auslesen ------------------------'
Set nodeslist = xmlDoc.selectNodes("/profile/Preferences/Enc0")
XHomeOffset =nodeslist(0).text
'MsgBox XHomeOffset

Set nodeslist = xmlDoc.selectNodes("/profile/Preferences/Enc1")
YHomeOffset =nodeslist(0).text
'MsgBox YHomeOffset

Set nodeslist = xmlDoc.selectNodes("/profile/Preferences/Enc2")
ZHomeOffset =nodeslist(0).text
'MsgBox ZHomeOffset
'----------------------------------------------------------------'




'---------------------- Koordinaten setzen ----------------------'
MsgBox XHomeOffset
SetDRO(0, XHomeOffset)

MsgBox YHomeOffse
SetDRO(1, YHomeOffset)

MsgBox ZHomeOffset
SetDRO(2, ZHomeOffset)
'----------------------------------------------------------------'


Set xmlDoc = Nothing
'-----------------------------------------------------------------'


There is only one proble to be solved:
The code is working to fast!

The command:
 "SetDRO(0, XHomeOffset)"
and
"SetDRO(1, YHomeOffset)"
and
"SetDRO(2, ZHomeOffset)"

is executed bevore the mashine has reached the switches.

Question:
Is there a way to wait till the reverece-drive has reached his switch

Something like:
"wait till reached switch"

regards Ronny

7
Thanks to TPS for your advice.

But:
I tried so many parameters of the list you gave me the in your reply.
But none of this parameters returned the value I need.

Can anybode the me whitch value(s) this is (are):
See attatched File ( I dont find how to poste a Picture at this place)

8
Hello,

my Referece-Indicators are mouted at the right/back/botom Side of my machine.

After doing a reference-drive the maschine coordinates are set correct to
x=304
y= 477
Z= 20

Now I whant to have the same values in the local coordinate-system!

So, how can I get this done?

Here is my VB-Script:

REFCOMBINATION(4)
REFCOMBINATION(8)
REFCOMBINATION(2)
REFCOMBINATION(1)

after this I need:
Set X= "Homing&Limits"SoftMinX
Set Y= "Homing&Limits"SoftMinY
Set Z= "Homing&Limits"SoftMaxX

Can please anybody help me doing this?

Regards Ronald


9
Thanks so much for your answer.

10
Hello Tweakie,

thanks to your answer.
Mayby I didn't worte so that it is understandable.

I know that Smothstepper needs stepper drivers.
But:
can I replace my UC100 with the Smothstepper and use my Tripple Beast as Stepper Driver?

Regards Ronny

Pages: 1 2 »