Egalware/CMS-MTConn
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Aggiunta acquisizione path (come vettore 5 assi...)

Browse Source
This commit is contained in:
Samuele E. Locatelli
2016-05-20 11:20:42 +02:00
parent 47328550ce
commit 0a6d4c43cc
9 changed files with 3129 additions and 402 deletions
Download Patch File Download Diff File Expand all files Collapse all files
MTC_Sim/CMSCncLib/CNC/CNC.FANUC/CNC.FANUC.vb
+12 -13
View File
@@ -612,7 +612,7 @@ Namespace CNC
Public Function getAllAxisPos() As Focas1.ODBPOS
' RIFERIMENTO:
' C:\Users\samuele.STEAMWAREWIN\Documents\VisualStudioProjects\CMS_orig\A02B-0207-K737_04.20\Document\SpecE\Position\cnc_rdposition.htm
' C:\Users\samuele\Documents\FOCAS A02B-0207-K737_04.20\Document\SpecE\Position\cnc_rdposition.htm
Dim nPathIdx As Integer
Dim nNumAxisRead As Integer
@@ -640,7 +640,7 @@ Namespace CNC
End Function
Public Function getAllAxisLoad() As Focas1.ODBSVLOAD
' RIFERIMENTO:
' C:\Users\samuele.STEAMWAREWIN\Documents\VisualStudioProjects\CMS_orig\A02B-0207-K737_04.20\Document\SpecE\Position\cnc_rdsvmeter.htm
' C:\Users\samuele\Documents\FOCAS A02B-0207-K737_04.20\Document\SpecE\Position\cnc_rdsvmeter.htm
Dim nPathIdx As Integer
Dim nNumAxisRead As Integer
@@ -669,7 +669,7 @@ Namespace CNC
Public Function getGlobalFeedrate() As Focas1.ODBACT
' RIFERIMENTO:
' C:\Users\samuele.STEAMWAREWIN\Documents\VisualStudioProjects\CMS_orig\A02B-0207-K737_04.20\Document\SpecE\Position\cnc_actf.htm
' C:\Users\samuele\Documents\FOCAS A02B-0207-K737_04.20\Document\SpecE\Position\cnc_actf.htm
Dim nPathIdx As Integer
Dim nNumAxisRead As Integer
@@ -700,7 +700,7 @@ Namespace CNC
Public Function getAllDynData() As Focas1.ODBDY2_1
' RIFERIMENTO:
' C:\Users\samuele.STEAMWAREWIN\Documents\VisualStudioProjects\CMS_orig\A02B-0207-K737_04.20\Document\SpecE\Position\cnc_rddynamic2.htm
' C:\Users\samuele\Documents\FOCAS A02B-0207-K737_04.20\Document\SpecE\Position\cnc_rddynamic2.htm
Dim nPathIdx As Integer
Dim nNumAxisRead As Integer
@@ -731,7 +731,7 @@ Namespace CNC
Public Function getPathGCodeMod() As Focas1.ODBGCD
' RIFERIMENTO:
' C:\Users\samuele.STEAMWAREWIN\Documents\VisualStudioProjects\CMS_orig\A02B-0207-K737_04.20\Document\SpecE\Misc\cnc_rdgcode.htm
' C:\Users\samuele\Documents\FOCAS A02B-0207-K737_04.20\Document\SpecE\Misc\cnc_rdgcode.htm
Dim nPathIdx As Integer
Dim nNumAxisRead As Integer
@@ -762,7 +762,7 @@ Namespace CNC
Public Function getPathGCode1Shot() As Focas1.ODBGCD
' RIFERIMENTO:
' C:\Users\samuele.STEAMWAREWIN\Documents\VisualStudioProjects\CMS_orig\A02B-0207-K737_04.20\Document\SpecE\Misc\cnc_rdgcode.htm
' C:\Users\samuele\Documents\FOCAS A02B-0207-K737_04.20\Document\SpecE\Misc\cnc_rdgcode.htm
Dim nPathIdx As Integer
Dim nNumAxisRead As Integer
@@ -792,18 +792,17 @@ Namespace CNC
End Function
Public Function getPathTTCoord() As Focas1.ODB3DHDL
' NONVA!!!! richiede extra..
Public Function getPathTTCoord() As Focas1.ODB5AXMAN
' RIFERIMENTO:
' C:\Users\samuele.STEAMWAREWIN\Documents\VisualStudioProjects\CMS_orig\A02B-0207-K737_04.20\Document\SpecE\Position\cnc_rd3dtooltip.htm
' C:\Users\samuele\Documents\FOCAS A02B-0207-K737_04.20\Document\SpecE\Position\cnc_rd5axmandt.htm
Dim nPathIdx As Integer
Dim nNumAxisRead As Integer
Dim nReturn As Integer
Dim ttCoord As Focas1.ODB3DHDL
Dim ttCoord As Focas1.ODB5AXMAN
' inizializzo
ttCoord = New Focas1.ODB3DHDL
ttCoord = New Focas1.ODB5AXMAN
'leggo il numero del processo attivo
nPathIdx = GetActivePath()
@@ -813,7 +812,7 @@ Namespace CNC
If Is30Series Then
' leggo tutto!!!
nReturn = Focas1.cnc_rd3dtooltip(nLibHandle(nPathIdx), ttCoord)
nReturn = Focas1.cnc_rd5axmandt(nLibHandle(nPathIdx), ttCoord)
If F_CheckRetError_Cnc(nReturn, "cnc_rd3dtooltip RefreshPathTTCoord CNC.FANUC.CMS_CncLib") Then
Throw New CmsNcException("ERR cnc_rd3dtooltip RefreshPathTTCoord CNC.FANUC.CMS_CncLib")
@@ -827,7 +826,7 @@ Namespace CNC
Public Function getSpindleSpeed() As Focas1.ODBSPEED
' RIFERIMENTO:
' C:\Users\samuele.STEAMWAREWIN\Documents\VisualStudioProjects\CMS_orig\A02B-0207-K737_04.20\Document\SpecE\Position\cnc_rdspeed.htm
' C:\Users\samuele\Documents\FOCAS A02B-0207-K737_04.20\Document\SpecE\Position\cnc_rdspeed.htm
Dim nPathIdx As Integer
Dim nNumAxisRead As Integer
MTC_Sim/MTC_Sim/AdapterFanuc.cs
+21 -12
View File
@@ -702,9 +702,9 @@ namespace MTC_Sim
if (vettGCodes.gcd2.flag > 0) GCodAttivi += string.Format("# {0} #", vettGCodes.gcd2.code);
if (vettGCodes.gcd3.flag > 0) GCodAttivi += string.Format("# {0} #", vettGCodes.gcd3.code);
//inizio = DateTime.Now;
//CMSCncLib.Focas1.ODB3DHDL vettTTCoord = FANUC_ref.getPathTTCoord();
//if (utils.CRB("recTime")) TimingData.addResult("R{0}-TTCoord", DateTime.Now.Subtract(inizio).Ticks);
inizio = DateTime.Now;
CMSCncLib.Focas1.ODB5AXMAN vettTTCoord = FANUC_ref.getPathTTCoord();
if (utils.CRB("recTime")) TimingData.addResult("R{0}-TTCoord", DateTime.Now.Subtract(inizio).Ticks);
// FARE!! per ora solo 1 path...
@@ -715,22 +715,31 @@ namespace MTC_Sim
vettPath[i].mPathFeed.Value = FeedRate;
vettPath[i].mPathCodG_Act.Value = GCodAttivi;
vettPath[i].mPathPosActX.Value = ((decimal)vettTTCoord.data1) / utils.CRI("defDecPlaces");
vettPath[i].mPathPosActY.Value = ((decimal)vettTTCoord.data2) / utils.CRI("defDecPlaces");
vettPath[i].mPathPosActZ.Value = ((decimal)vettTTCoord.data3) / utils.CRI("defDecPlaces");
vettPath[i].mPathPosActI.Value = ((decimal)vettTTCoord.c1) / utils.CRI("defDecPlaces");
vettPath[i].mPathPosActJ.Value = ((decimal)vettTTCoord.c2) / utils.CRI("defDecPlaces");
vettPath[i].mPathPosActK.Value = "0"; // è 5 assi...nullo...
//vettPath[i].mPathFeedOver.Value = PtData.PathFeedrateOver;
//vettPath[i].mPathRapidOver.Value = PtData.PathRapidOver;
//vettPath[i].mPathPosActX.Value = PtData.PathPosAct.x;
//vettPath[i].mPathPosActY.Value = PtData.PathPosAct.y;
//vettPath[i].mPathPosActZ.Value = PtData.PathPosAct.z;
//vettPath[i].mPathPosActI.Value = PtData.PathPosAct.i;
//vettPath[i].mPathPosActJ.Value = PtData.PathPosAct.j;
//vettPath[i].mPathPosActK.Value = PtData.PathPosAct.k;
//vettPath[i].mPathPartId.Value = PtData.PartId;
//vettPath[i].mPathPartCount.Value = PtData.pzTot;
//vettPath[i].mPathCurrProg.Value = PtData.ProgramName;
//vettPath[i].mPathCurrProgRowNum.Value = PtData.ProgrRow;
//vettPath[i].mPathActiveAxes.Value = PtData.ActiveAxes;
}
// accodo dati path in DataMonitor......
StringBuilder sb = new StringBuilder();
sb.AppendLine(string.Format("Path 1, Asse 1: {0:N3}", ((decimal)vettTTCoord.data1) / utils.CRI("defDecPlaces")));
sb.AppendLine(string.Format("Path 1, Asse 2: {0:N3}", ((decimal)vettTTCoord.data2) / utils.CRI("defDecPlaces")));
sb.AppendLine(string.Format("Path 1, Asse 3: {0:N3}", ((decimal)vettTTCoord.data3) / utils.CRI("defDecPlaces")));
sb.AppendLine(string.Format("Path 1, Cent 1: {0:N3}", ((decimal)vettTTCoord.c1) / utils.CRI("defDecPlaces")));
sb.AppendLine(string.Format("Path 1, Cent 2: {0:N3}", ((decimal)vettTTCoord.c2) / utils.CRI("defDecPlaces")));
parentForm.dataMonitor = sb.ToString();
}
}
@@ -760,7 +769,7 @@ namespace MTC_Sim
// fare: salvataggio assi...
// mostro assi in DataMonitor......
StringBuilder sb = new StringBuilder();
sb.AppendLine(string.Format("Asse {0}: PosAct:{1:N3}, ToGo:{2:N3}{3}", posAssi.p1.abs.name, (double)(posAssi.p1.abs.data) / Math.Pow(10, posAssi.p1.abs.dec), posAssi.p1.dist.name, (double)(posAssi.p1.dist.data) / Math.Pow(10, posAssi.p1.dist.dec), Environment.NewLine));
sb.AppendLine(string.Format("Asse {0}: PosAct:{1:N3}, ToGo:{2:N3}{3}", posAssi.p2.abs.name, (double)(posAssi.p2.abs.data) / Math.Pow(10, posAssi.p2.abs.dec), posAssi.p2.dist.name, (double)(posAssi.p2.dist.data) / Math.Pow(10, posAssi.p2.dist.dec), Environment.NewLine));
@@ -769,7 +778,7 @@ namespace MTC_Sim
sb.AppendLine(string.Format("Asse {0}: PosAct:{1:N3}, ToGo:{2:N3}{3}", posAssi.p5.abs.name, (double)(posAssi.p5.abs.data) / Math.Pow(10, posAssi.p5.abs.dec), posAssi.p5.dist.name, (double)(posAssi.p5.dist.data) / Math.Pow(10, posAssi.p5.dist.dec), Environment.NewLine));
sb.AppendLine(string.Format("Asse {0}: PosAct:{1:N3}, ToGo:{2:N3}{3}", posAssi.p6.abs.name, (double)(posAssi.p6.abs.data) / Math.Pow(10, posAssi.p6.abs.dec), posAssi.p6.dist.name, (double)(posAssi.p6.dist.data) / Math.Pow(10, posAssi.p6.dist.dec), Environment.NewLine));
parentForm.showMessage(sb.ToString());
parentForm.dataMonitor += sb.ToString();
}
}
MTC_Sim/MTC_Sim/App.config
+2
View File
@@ -28,6 +28,8 @@
<add key="openDumpOnStart" value="true"/>
<add key ="testCharSep" value="|"/>
<add key ="defDecPlaces" value="3"/>
<add key="D1_NAME" value="CMS-ARES-SIM"/>
<add key="D1_ID" value="demo_123456"/>
MTC_Sim/MTC_Sim/CMS.ico
BIN
View File
Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 148 KiB

MTC_Sim/MTC_Sim/CMS_MachineSim.Designer.cs
Generated
+550 -370
View File
File diff suppressed because it is too large Load Diff
MTC_Sim/MTC_Sim/CMS_MachineSim.cs
+11 -4
View File
@@ -1172,13 +1172,20 @@ namespace MTC_Sim
#endregion
/// <summary>
/// mostra il messaggio richiesto...
/// Stringa dati monitoraggio mostrata...
/// </summary>
/// <param name="messaggio"></param>
public void showMessage(string messaggio)
public string dataMonitor
{
lblOutMessage.Text = messaggio;
get
{
return lblOutMessage.Text;
}
set
{
lblOutMessage.Text = value;
}
}
MTC_Sim/MTC_Sim/CMS_MachineSim.resx
+2526
View File
File diff suppressed because it is too large Load Diff
MTC_Sim/MTC_Sim/MTC-Adapter.csproj
+4
View File
@@ -32,6 +32,9 @@
<ErrorReport>prompt</ErrorReport>
<WarningLevel>4</WarningLevel>
</PropertyGroup>
<PropertyGroup>
<ApplicationIcon>CMS.ico</ApplicationIcon>
</PropertyGroup>
<ItemGroup>
<Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
<HintPath>..\packages\NLog.4.3.3\lib\net45\NLog.dll</HintPath>
@@ -90,6 +93,7 @@
<DependentUpon>SetupAdapter.cs</DependentUpon>
</EmbeddedResource>
<Content Include="Analisi tempi.txt" />
<Content Include="CMS.ico" />
<Content Include="dump\dump.exe" />
<Content Include="SubMode.txt">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
MTC_Sim/MTC_Sim/Properties/AssemblyInfo.cs
+3 -3
View File
@@ -5,11 +5,11 @@ using System.Runtime.InteropServices;
// General Information about an assembly is controlled through the following
// set of attributes. Change these attribute values to modify the information
// associated with an assembly.
[assembly: AssemblyTitle("MTC_Sim")]
[assembly: AssemblyTitle("MTC_Adapter")]
[assembly: AssemblyDescription("")]
[assembly: AssemblyConfiguration("")]
[assembly: AssemblyCompany("")]
[assembly: AssemblyProduct("MTC_Sim")]
[assembly: AssemblyCompany("Steamware - CMS - SCM")]
[assembly: AssemblyProduct("MTC_Adapter")]
[assembly: AssemblyCopyright("Copyright © 2016")]
[assembly: AssemblyTrademark("")]
[assembly: AssemblyCulture("")]