|
Evo tu je programska sekvenca koja mi sve to radi
'--------------
'obrada CuDcWin
'--------------
Sub ObradaCuDcWin()
Dim i, j
Dim RetId
Dim Izbor
Dim PunoImeDxf As String
Dim PunoImeCdw As String
Dim ImeBezExt As String
Dim TehOldIme As String
Dim TehOldDeb As Double
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
TehOldIme = ""
TehOldDeb = 0
'--glavna petlja
For i = 1 To ObjBroj
DoEvents
PunoImeDxf = TekaDir & ImeDXF(i)
PunoImeCdw = TekaDir & ImeCDW(i)
ImeBezExt = ImeNoe(i)
'-provera ima li teka
If fs.FileExists(PunoImeCdw) Then
GoTo L1
End If
If Not fs.FileExists(PunoImeDxf) Then
GoTo L1
End If
'-poziv na promenu tehnologije
If Not TehOldIme = TehIme(i) Or Not TehOldDeb = DebMat(i) Then
TehOldIme = TehIme(i)
TehOldDeb = DebMat(i)
Izbor = MsgBox("Technologiát válts a következőre" & vbCr & vbCr _
& TehIme(i) & " " & Str(DebMat(i)) & "mm" _
, vbInformation, "ZZManóFia üzeni")
End If
'-amin na obradu
Izbor = MsgBox(ImeDXF(i) & vbCr _
& "kerül feldolgozásra" & vbCr & vbCr _
& "Tovább", vbInformation + vbYesNo, "ZZManóFia üzeni")
If Izbor = vbNo Then Exit For
'-CuDcWin
Shell "C:\CuDcWin\CuDcWin.exe", vbMaximizedFocus
SendKeys "~", 1 'enter pokrece editor
DoEvents
SendKeys "%(T) {DOWN 5} ~", 1 'otvara *.dxf input prozor
SendKeys PunoImeDxf, 1 'upisuje ime
SendKeys "~", 1 'enter input
DoEvents
SendKeys "~", 1 'enter deselect
SendKeys "%(T) {RIGHT 6} {DOWN 3} ~", 1 'analiza
DoEvents
SendKeys "%(T) {DOWN 4} ~", 1 'otvara output prozor
SendKeys PunoImeCdw, 1 'upisuje ime
SendKeys "~", 1 'enter output
DoEvents
SendKeys "%(T) {DOWN 9} ~", 1 'otvara baza prozor
SendKeys BazaPunoIme, 1 'upisuje ime baze
SendKeys "~", 1 'enter
SendKeys "~", 1 'enter
SendKeys "~", 1 'enter
DoEvents
SendKeys ImeBezExt, 1 'upisuje ime
SendKeys "~", 1 'enter
SendKeys "~", 1 'enter
DoEvents
SendKeys SeceSe(i), 1 'upisuje broj
SendKeys "~", 1 'enter
SendKeys "%(T) {UP 1} ~", 1 'exit CuDcWin
DoEvents
L1: Next
End Sub
Meni treba ideja kako preneti podatke iz jednog programa u drugi a da ta dva programa nisu u bili kakvoj vezi. O programu koji imam u firmi ne znam nista. To je program koji vrsi analizu delova koji ce biti seceni sa CNC plazma masinom. Posto ne zelim da rucno punim podatke trazim nacin kako da to resim programom. Asinhroni Shell i SendKeys su do sada, ne znam zasto funkcionisali.
|
