[ADD] Block- und Text-Werkzeuge aus Walz (ACADSST) uebernommen
Neue Module ssg_blocktools.lsp (SSG_BLOCK_COUNT, SSG_BLOCK_DELETE, SSG_ATTR_ERSETZEN) und ssg_texttools.lsp (SSG_TEXT_ERSETZEN, SSG_TEXT_PARALLEL, SSG_TEXT_HOEHE, SSG_TEXT_STIL) sowie der generische Eingabe-Wrapper ssg_input.lsp, dazu Menue-/Lade-Integration, zweisprachige Texte und Unit-Tests fuer die reinen Kerne. Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
This commit is contained in:
+26
-6
@@ -6,11 +6,12 @@ REM Zeichnet jede Zeile der Export-CSV (EXPORTCSV) als achsparalleles
|
||||
REM Rechteck aus Position + Boundingbox, mit Legende und Tooltip je
|
||||
REM Rechteck sowie den Anschluss-Koordinatensystemen K1-K4 (rotes Kreuz,
|
||||
REM blaue Linie K1->K2->K3->K4), und oeffnet das Ergebnis im Browser.
|
||||
REM Optional zusaetzlich Materialfluss- und Bahnzusammenhang-Graph.
|
||||
REM Optional zusaetzlich Materialfluss-, Bahnzusammenhang- und TRO-Fluss-Graph.
|
||||
REM
|
||||
REM Die Darstellung uebernimmt sps_skel (bin\material_flow.bat,
|
||||
REM Option --show-bbs). sps_skel wird neben dxfmakros erwartet
|
||||
REM (..\sps_skel) oder ueber die Umgebungsvariable SPS_SKEL_HOME.
|
||||
REM Option --show-bbs, bzw. bin\tro_flow.bat fuer 'tro'). sps_skel wird
|
||||
REM neben dxfmakros erwartet (..\sps_skel) oder ueber die Umgebungs-
|
||||
REM variable SPS_SKEL_HOME.
|
||||
REM
|
||||
REM Aufruf:
|
||||
REM bin\show_exportcsv.bat results\export.csv, alle Zeilen
|
||||
@@ -18,13 +19,15 @@ REM bin\show_exportcsv.bat meine_export.csv andere CSV in results\ (oder Pf
|
||||
REM bin\show_exportcsv.bat export.csv flow ohne VF/GF-Einzelbausteine
|
||||
REM bin\show_exportcsv.bat export.csv mflow zusaetzlich Materialfluss-Graph
|
||||
REM bin\show_exportcsv.bat export.csv track zusaetzlich Bahnzusammenhang-Graph
|
||||
REM bin\show_exportcsv.bat export.csv flow mflow track alles kombiniert
|
||||
REM bin\show_exportcsv.bat export.csv tro zusaetzlich TRO-Fluss-Graph (lagerichtig)
|
||||
REM bin\show_exportcsv.bat export.csv flow mflow track tro alles kombiniert
|
||||
REM
|
||||
REM mflow/track brauchen Graphviz ('dot' im PATH).
|
||||
REM mflow/track/tro brauchen Graphviz ('dot' bzw. 'neato' im PATH).
|
||||
REM
|
||||
REM Ergebnis: %SKEL_RESULTS%\<name>_bbs.svg
|
||||
REM %SKEL_RESULTS%\<name>_material_flow.svg (nur mit 'mflow')
|
||||
REM %SKEL_RESULTS%\<name>_track.svg (nur mit 'track')
|
||||
REM %SKEL_RESULTS%\<name>_tro_flow.svg (nur mit 'tro')
|
||||
REM ================================================================
|
||||
|
||||
setlocal
|
||||
@@ -58,20 +61,24 @@ for %%F in ("%CSV%") do (
|
||||
set "SVG=%SKEL_RESULTS%\%%~nF_bbs.svg"
|
||||
set "MF_SVG=%SKEL_RESULTS%\%%~nF_material_flow.svg"
|
||||
set "TRACK_SVG=%SKEL_RESULTS%\%%~nF_track.svg"
|
||||
set "TRO_SVG=%SKEL_RESULTS%\%%~nF_tro_flow.svg"
|
||||
)
|
||||
|
||||
REM Weitere Argumente (Reihenfolge beliebig):
|
||||
REM all (Default) / flow - Darstellungsmodus der Boundingbox-Ansicht
|
||||
REM mflow - zusaetzlich Materialfluss-SVG erzeugen und oeffnen
|
||||
REM track - zusaetzlich Bahnzusammenhang-SVG erzeugen und oeffnen
|
||||
REM tro - zusaetzlich TRO-Fluss-SVG (lagerichtig) erzeugen und oeffnen
|
||||
set "MODE=all"
|
||||
set "MFLOW="
|
||||
set "TRACK="
|
||||
for %%A in (%2 %3 %4) do (
|
||||
set "TRO="
|
||||
for %%A in (%2 %3 %4 %5) do (
|
||||
if /i "%%~A"=="all" set "MODE=all"
|
||||
if /i "%%~A"=="flow" set "MODE=flow"
|
||||
if /i "%%~A"=="mflow" set "MFLOW=1"
|
||||
if /i "%%~A"=="track" set "TRACK=1"
|
||||
if /i "%%~A"=="tro" set "TRO=1"
|
||||
)
|
||||
|
||||
REM Beide Graphen entstehen erst mit --tosvg (Graphviz 'dot')
|
||||
@@ -83,10 +90,15 @@ REM Alte SVGs entfernen, damit nie eine veraltete Ansicht geoeffnet wird
|
||||
if exist "%SVG%" del "%SVG%"
|
||||
if defined MFLOW if exist "%MF_SVG%" del "%MF_SVG%"
|
||||
if defined TRACK if exist "%TRACK_SVG%" del "%TRACK_SVG%"
|
||||
if defined TRO if exist "%TRO_SVG%" del "%TRO_SVG%"
|
||||
|
||||
call "%SPS_SKEL_HOME%\bin\material_flow.bat" --file "%CSV%" --show-bbs %MODE% --show-kx %OPTS%
|
||||
set "RC=%ERRORLEVEL%"
|
||||
|
||||
if defined TRO (
|
||||
call "%SPS_SKEL_HOME%\bin\tro_flow.bat" --file "%CSV%" --tosvg --use-cords
|
||||
)
|
||||
|
||||
if not exist "%SVG%" (
|
||||
echo FEHLER: SVG wurde nicht erzeugt ^(material_flow Exit-Code %RC%^).
|
||||
endlocal & exit /b 1
|
||||
@@ -115,6 +127,14 @@ if defined TRACK (
|
||||
echo WARNUNG: Bahnzusammenhang-SVG wurde nicht erzeugt ^(Graphviz 'dot' vorhanden?^).
|
||||
)
|
||||
)
|
||||
if defined TRO (
|
||||
if exist "%TRO_SVG%" (
|
||||
echo TRO-Fluss: %TRO_SVG%
|
||||
start "" "%TRO_SVG%"
|
||||
) else (
|
||||
echo WARNUNG: TRO-Fluss-SVG wurde nicht erzeugt ^(Graphviz 'neato' vorhanden?^).
|
||||
)
|
||||
)
|
||||
|
||||
endlocal & exit /b 0
|
||||
|
||||
|
||||
Reference in New Issue
Block a user