309aaba342
- 8B PDO config: ULINT-sized payload, no 0x1A01 diag PDO on SM3 (device rejected SM3=8 with diag assigned: 'size not allowed, min/max 0xa') - twin_layout_blob_sized(): single 64-bit mapping entry for 8B payloads - Ticker: per-byte XOR 0x5A transform in 8B mode so TwinCAT can verify every byte individually (1KB path unchanged, const-guarded) - TwinCAT automation scripts: deploy with RPC retry, LinkVariables-based whole-array relink (element links only carry 1 byte), ADS watch, diag - Docs: 8B design, verification methodology, test report
63 lines
2.6 KiB
PowerShell
63 lines
2.6 KiB
PowerShell
#Requires -RunAsAdministrator
|
|
$ErrorActionPreference = "Continue"
|
|
$dte = New-Object -ComObject TcXaeShell.DTE.17.0
|
|
$dte.MainWindow.Visible = $true
|
|
try { $dte.SuppressUI = $false } catch {}
|
|
$dte.Solution.Open("C:\Users\tonycao\work\twincat3-auto-cli\TwinCAT_EL6695_Primary\TwinCATProject1.sln")
|
|
Start-Sleep 20
|
|
$sm = $null
|
|
for ($i = 0; $i -lt 20; $i++) {
|
|
try { $sm = $dte.Solution.Projects.Item(1).Object; if ($sm) { break } } catch {}
|
|
Start-Sleep 3
|
|
}
|
|
if (-not $sm) { Write-Host "no sysmgr"; exit 1 }
|
|
try { $sm.SetTargetNetId("169.254.176.217.1.1") } catch {}
|
|
Start-Sleep 2
|
|
|
|
$box = "TIID^设备 1 (EtherCAT)^模块 3 (EK1100)^模块 10 (EL6695)"
|
|
$cands = @(
|
|
"$box^IO Outputs^IO Outputs",
|
|
"$box^IO Outputs^IO Outputs[0]",
|
|
"$box^IO Inputs^IO Inputs",
|
|
"$box^IO Inputs^IO Inputs[0]"
|
|
)
|
|
foreach ($c in $cands) {
|
|
$it = $null
|
|
try { $it = $sm.TryLookupTreeItem($c) } catch { Write-Host "err $c : $_" }
|
|
if ($it) {
|
|
$sz = ""
|
|
try { $sz = $it.BitSize } catch {}
|
|
Write-Host "OK: $c name=$($it.Name) type=$($it.ItemType) bitsize=$sz"
|
|
} else {
|
|
Write-Host "MISS: $c"
|
|
}
|
|
}
|
|
|
|
$varAin = "TIPC^PlcSync^PlcSync Instance^PlcTask Inputs^GVL_Sync.aIn1"
|
|
$varAout = "TIPC^PlcSync^PlcSync Instance^PlcTask Outputs^GVL_Sync.aOut1"
|
|
foreach ($v in @($varAin, $varAout)) {
|
|
$it = $null
|
|
try { $it = $sm.TryLookupTreeItem($v) } catch {}
|
|
if ($it) { Write-Host "PLC OK: $v" } else { Write-Host "PLC MISS: $v" }
|
|
}
|
|
|
|
Write-Host "--- unlink existing ---"
|
|
try { $sm.UnlinkVariables($varAin, "$box^IO Inputs^IO Inputs") ; Write-Host "unlinked aIn1" } catch { Write-Host "unlink aIn1: $_" }
|
|
try { $sm.UnlinkVariables($varAout, "$box^IO Outputs^IO Outputs"); Write-Host "unlinked aOut1" } catch { Write-Host "unlink aOut1: $_" }
|
|
|
|
Write-Host "--- link whole arrays ---"
|
|
try { $sm.LinkVariables($varAin, "$box^IO Inputs^IO Inputs"); Write-Host "linked aIn1" } catch { Write-Host "link aIn1: $_" }
|
|
try { $sm.LinkVariables($varAout, "$box^IO Outputs^IO Outputs"); Write-Host "linked aOut1" } catch { Write-Host "link aOut1: $_" }
|
|
|
|
$xml = $sm.ProduceMappingInfo()
|
|
[System.IO.File]::WriteAllText("C:\Users\tonycao\work\ethercat-linux\tmp_mapping2.xml", $xml, [System.Text.Encoding]::UTF8)
|
|
Write-Host "mapping saved"
|
|
|
|
Write-Host "--- save + activate + restart ---"
|
|
try { $dte.Solution.SaveAll(); Write-Host "saved" } catch { Write-Host "save: $_" }
|
|
try { $sm.ActivateConfiguration(); Write-Host "activated" } catch { Write-Host "activate: $_" }
|
|
Start-Sleep 10
|
|
try { $sm.StartRestartTwinCAT(); Write-Host "restart issued" } catch { Write-Host "restart: $_" }
|
|
Start-Sleep 10
|
|
Write-Host "done"
|