m.stangl/Walz
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neue Folder LAYOUT MENU und MODULE dazu

Browse Source
This commit is contained in:
Michael Stangl
2025-04-14 16:56:58 +02:00
parent e6e1705f0d
commit 35f7b2d75e
935 changed files with 803964 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
MENU/126911_PO-STERBFRITZ.txt
+296
View File
@@ -0,0 +1,296 @@
K0083 9999 WEICHE LI WEICHE LINKS., SCHRAEGF. UNTEN LINKS =A7+E1-K2o 88391 -8400 0
K0082 9999 WEICHE RE. WEICHE RECHTS, SCHRAEGF. UNTEN LINKS =A7+E1-K2o 88391 -8040 0
S0091 9999 LDT-BL-NO ABRUFEN VON LNKS+P0001 =A7+E1-K3i 93766 -8890 0ABRUFEN NACH LINKS
S0090 9999 LDT-GN-NO EINSCHLEUSEN VON LINKS +P0001 =A7+E1-K3i 93766 -8530 0EINSCHLEUSEN VON LINKS
P0091 9999 LM-BL-LED ABRUFEN VON LINKS +P0001 =A7+E1-K3o 94596 -8890 0
P0090 9999 LM-GN-LED EINSCHLEUSEN VON LINKS +P0001 =A7+E1-K3o 94596 -8530 0
K0097 9999 ZU SCHLEUSENSTOPPER HINTEN SCHLIESSEN (EO EINFAHRT LINKS) =A7+E1-K3o 91122 -11630 0
K0017 9999 KZW LI. KREUZUNGSWEICHE RECHTS =A7+E1-K2 91122 -8406 0
K0016 9999 KZW LI. KREUZUNGSWEICHE LINKS =A7+E1-K2 91122 -8046 0
B0094 9999 STAUKL 700 STAUKLAPPE UNTEN LINKS AUF DREIFACHWEICHE =A7+E1-K3i 89235 -6457 0STAUKLAPPE 700
B0095 9999 STAUKL 700 STAUKLAPPE UNTEN LINKS AUF DREIFACHWEICHE =A7+E1-K3i 89221 -9624 0STAUKLAPPE 700
B0092 9999 OPT-WTB4 LICHTTASTER IN SCHLEUSE UNTEN RECHTS =A7+E1-K3i 91122 -6123 0
B0093 9999 OPT-WTB4 LICHTTASTER IN SCHLEUSE UNTEN RECHTS =A7+E1-K3i 91124 -10715 0
K0092 9999 ZU SCHLEUSENSTOPPER HINTEN SCHLIESSEN (EO EINFAHRT RECHTS) =A7+E1-K3o 91124 -5207 0
K0093 9999 AUF SCHLEUSENSTOPPER HINTEN OEFFNEN (EO EINFAHRT RECHTS) =A7+E1-K3o 91124 -5567 0
K0094 9999 ZU SCHLEUSENSTOPPER VORNE SCHLIESSEN (EO EINFAHRT RECHTS) =A7+E1-K3o 91122 -6483 0
K0095 9999 AUF SCHLEUSENSTOPPER VORNE 1 OEFFNEN (EO EINFAHRT RECHTS) =A7+E1-K3o 91122 -6843 0
K0101 9999 ZU SCHLEUSENSTOPPER VORNE SCHLIESSEN (EO EINFAHRT LINKS) =A7+E1-K3o 91124 -10355 0
K0100 9999 AUF SCHLEUSENSTOPPER VORNE OEFFNEN (EO EINFAHRT LINKS) =A7+E1-K4o 91124 -9995 0
K0096 9999 AUF SCHLEUSENSTOPPER HINTEN OEFFNEN (EO EINFAHRT LINKS) =A7+E1-K3o 91122 -11270 0
K0045 9999 ZU SCHLEUSE 1 SCHLIESSEN E0 =A7+E1-K2o 87528 -8040 0
K0044 9999 AUF SCHLEUSE 1 OEFFNEN E0 =A7+E1-K2o 87528 -8400 0
K0081 9999 WEICHE ABZ. WEICHE ABZWEIG AUS-/EINFAHRT OBEN =A7+E1-K2o 75894 -7417 0
B0056 9999 OPT-WTB4 SENSOR 3 (WEICHE ZU STEUERUNG =A7) =A10+E1-K2i 76545 -7699 0
B0055 9999 OPT-WTB4 LICHTTASTER NACH WEICHE OBEN RECHTS=A7 =A7+E1-K2i 76545 -8850 0
B0057 9999 OPT-WTB4 LICHTTASTER NACH WEICHE OBEN LINKS=A7 =A7+E1-K2i 75080 -8048 0
S0051 9999 SS-NO REPARATURSCHALTER AUSGESCHALTET =A8+E1-K2 72671 -19570 0REPARATURSCHALTER AUSGESCHALTET
S0053 9999 SCHWENKSCH SCHWENKSCHIENE LINKS GESCHLOSSEN =A7+E1-K2i 78688 -10039 0SCHWENKSCHIENE GESCHLOSSEN
S0054 9999 SCHWENKSCH SCHWENKSCHIENE RECHTS GESCHLOSSEN =A7+E1-K2i 78680 -6162 0SCHWENKSCHIENE GESCHLOSSEN
K0076 9999 WEICHE LI WEICHE LINKS., SCHRAEGF. UNTEN LINKS =A7+E1-K2o 88391 -7182 0
S0065 9999 LDT-GE-NO NOT AUS +P0002 =A7+E1-K2i 72839 3019 702NOT AUS +P0002
P0077 9999 HORN-SW ANFAHRWARNUNG +N2 =A7+E1-K2o 73674 5537 702ANFAHRWARNUNG +N2
P0074 9999 LM-GE-LED STAR NACH NOT AUS +P0002 =A7+E1-K2o 73674 3377 702
S0063 9999 LDT-WS-NO HANDBETRIEB AB +P0002 =A7+E1-K2i 72844 3737 702HANDBETRIEB AB +P0002
S0064 9999 LDT-GE-NO START NACH NOT AUS +P0002 =A7+E1-K2i 72844 3377 702START NACH NOT AUS
S0062 9999 LDT-WS-NO HANDBETRIEB AUF +P0002 =A7+E1-K2i 72844 4097 702HANDBETRIEB AUF +P0002
S0061 9999 LDT-BL-NO ABRUFEN +P0002 =A7+E1-K2i 72844 4457 702ABRUFEN
S0060 9999 LDT-GN-NO EINSCHLEUSEN +P0002 =A7+E1-K2i 72844 4817 702EINSCHLEUSEN
P0073 9999 LM-BL-LED ABRUFEN +P0002 =A7+E1-K2o 73674 4457 702ABRUFEN
P0072 9999 LM-GN-LED EINSCHLEUSEN +P0002 =A7+E1-K2o 73674 4817 702
P0071 9999 LM-BL-LED BETRIEBSART HAND AKTIV +P0002 =A7+E1-K2o 73674 5177 702BETRIEBSART HAND AKTIV
P0070 9999 LM-GN-LED BETRIEBSBEREIT +P0002 =A7+E1-K2o 73674 5897 702BETRIEBSBEREIT
P0004 9999 LM-GE-LED UEBERSTROM/ AUTOMATENFALL =A7+E1-K2 73508 -17415 0UEBERSTROM/ AUTOMATENFALL
K0656 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.45 =A7+N4-K4o 123804 -12673 0
B0694 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.45 =A7+N4-K12i 123805 -13377 0
S0692 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.45 =A7+N4-K11i 125143 -12365 0
B0693 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.45 =A7+N4-K11i 125143 -12725 0
K0655 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.44 =A7+N4-K4o 123804 -10283 0
B0691 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.44 =A7+N4-K11i 123805 -10987 0
S0687 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.44 =A7+N4-K10i 125143 -9975 0
B0690 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.44 =A7+N4-K11i 125143 -10335 0
K0654 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.43 =A7+N4-K4o 123804 -8283 0
B0686 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.43 =A7+N4-K10i 123806 -8987 0
S0684 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.37 =A7+N4-K10i 125143 -7975 0
B0685 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.43 =A7+N4-K10i 125143 -8335 0
K0653 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.42 =A7+N4-K3o 123804 -5883 0
B0683 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.42 =A7+N4-K9i 123805 -6587 0
S0681 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.42 =A7+N4-K9i 125143 -5575 0
B0682 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.42 =A7+N4-K9i 125143 -5935 0
K0652 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.41 =A7+N4-K3o 123804 -3883 0
B0680 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.41 =A7+N4-K9i 123805 -4587 0
S0676 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.41 =A7+N4-K8i 125143 -3575 0
B0677 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.41 =A7+N4-K8i 125143 -3935 0
K0651 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.40 =A7+N4-K3o 123804 -1483 0
B0675 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.40 =A7+N4-K8i 123805 -2187 0
S0673 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.37 =A7+N4-K7i 125143 -1175 0
B0674 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.40 =A7+N4-K8i 125143 -1535 0
K0650 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.39 =A7+N4-K3o 123804 517 0
B0672 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.39 =A7+N4-K7i 123805 -187 0
S0670 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.39 =A7+N4-K7i 125143 825 0
B0671 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.39 =A7+N4-K7i 125143 465 0
K0647 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.38 =A7+N4-K2o 123804 2917 0
B0667 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.38 =A7+N4-K6i 123805 2213 0
S0665 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.38 =A7+N4-K6i 125143 3225 0
B0666 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.38 =A7+N4-K6i 125143 2865 0
K0646 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.37 =A7+N4-K2o 117504 -14683 0
B0664 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.37 =A7+N4-K6i 117505 -15387 0
S0662 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.37 =A7+N4-K5i 118843 -14375 0
B0663 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.37 =A7+N4-K5i 118843 -14735 0
K0645 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.36 =A7+N4-K2o 117504 -12683 0
B0661 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.36 =A7+N4-K5i 117506 -13387 0
S0657 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.36 =A7+N4-K4i 118843 -12375 0
B0660 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.36 =A7+N4-K5i 118843 -12735 0
K0644 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.35 =A7+N4-K2o 117504 -10283 0
B0656 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.35 =A7+N4-K4i 117505 -10987 0
S0654 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.30 =A7+N4-K4i 118843 -9975 0
B0655 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.35 =A7+N4-K4i 118843 -10335 0
K0643 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.34 =A7+N4-K1o 117504 -8283 0
B0653 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.34 =A7+N4-K3i 117506 -8987 0
S0651 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.34 =A7+N4-K3i 118843 -7975 0
B0652 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.34 =A7+N4-K3i 118843 -8335 0
K0642 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.33 =A7+N4-K1o 117504 -1483 0
B0650 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.33 =A7+N4-K3i 117505 -2187 0
S0646 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.33 =A7+N4-K2i 118843 -1175 0
B0647 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.33 =A7+N4-K2i 118843 -1535 0
K0641 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.32 =A7+N4-K1o 117504 517 0
B0645 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.32 =A7+N4-K2i 117505 -187 0
S0643 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.32 =A7+N4-K1i 118843 825 0
B0644 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.32 =A7+N4-K2i 118843 465 0
K0640 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.31 =A7+N4-K1o 117504 2917 0
B0642 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.31 =A7+N4-K1i 117505 2213 0
S0640 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.31 =A7+N4-K1i 118843 3225 0
B0641 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.31 =A7+N4-K1i 118843 2865 0
K0491 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.30 =A7+N3-K3o 111204 -17078 0
B0515 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.30 =A7+N3-K8i 111205 -17782 0
S0513 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.30 =A7+N3-K7i 112543 -16770 0
B0514 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.30 =A7+N3-K8i 112543 -17130 0
K0490 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.29 =A7+N3-K3o 111204 -14678 0
B0512 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.29 =A7+N3-K7i 111205 -15382 0
S0510 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.29 =A7+N3-K7i 112543 -14370 0
B0511 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.29 =A7+N3-K7i 112543 -14730 0
K0487 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.28 =A7+N3-K2o 111204 -12678 0
B0507 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.28 =A7+N3-K6i 111205 -13382 0
S0505 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.28 =A7+N3-K6i 112543 -12370 0
B0506 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.28 =A7+N3-K6i 112543 -12730 0
K0486 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.27 =A7+N3-K2o 111204 -10278 0
B0504 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.27 =A7+N3-K6i 111205 -10982 0
S0502 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.27 =A7+N3-K5i 112543 -9970 0
B0503 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.27 =A7+N3-K5i 112543 -10330 0
K0485 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.26 =A7+N3-K2o 111204 -8278 0
B0501 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.26 =A7+N3-K5i 111205 -8982 0
S0497 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.26 =A7+N3-K3i 112543 -7970 0
B0500 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.26 =A7+N3-K5i 112543 -8330 0
K0484 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.25 =A7+N3-K2o 111204 -5878 0
B0496 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.25 =A7+N3-K3i 111205 -6582 0
S0494 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.25 =A7+N3-K3i 112543 -5570 0
B0495 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.25 =A7+N3-K3i 112543 -5930 0
K0084 9999 AUF SCHLEUSE 1 OEFFNEN E2 =A7+E1-K3o 81239 -8101 0
K0085 9999 ZU SCHLEUSE 1 SCHLIESSEN E2 =A7+E1-K3o 81239 -8461 0
B0070 9999 OPT-WTB4 LICHTTASTER VOR WEICHE OBEN =A7+E1-K2i 78680 -8518 0
P0015 9999 LM-KL-LED STAR NACH NOT AUS +P0002 =A7+E1-K2 94596 -10330 0
S0016 9999 LDT-KL-NO START NACH NOT AUS +P0002 =A7+E1-K2 93766 -10330 0START NACH NOT AUS
S0017 9999 LDT-GN-NO NOT AUS +P0001 =A7+E1-K2 93766 -10690 0NOT AUS +P0001
P0011 9999 HORN-SW ANFAHRWARNUNG +P0001 =A7+E1-K2 94596 -7810 0ANFAHRWARNUNG
S0015 9999 LDT-WS-NO HANDBETRIEB AB +P0001 =A7+E1-K2 94596 -9970 0
S0014 9999 LDT-WS-NO HANDBETRIEB AUF +P0001 =A7+E1-K2 93766 -9970 0HANDBETRIEB 1>AUF-0-2>AB
S0013 9999 LDT-BL-NO ABRUFEN +P0001 =A7+E1-K2 93766 -9610 0ABRUFEN NACH RECHTS
S0012 9999 LDT-GN-NO EINSCHLEUSEN VON RECHTS +P0001 =A7+E1-K2 93766 -9250 0EINSCHLEUSEN VON RECHTS
P0013 9999 LM-BL-LED ABRUFEN +P0001 =A7+E1-K2 94596 -9610 0
P0012 9999 LM-GN-LED EINSCHLEUSEN +P0001 =A7+E1-K2 94596 -9250 0
P0014 9999 LM-BL-LED BETRIEBSART HAND AKTIV +P0001 =A7+E1-K2 94596 -8170 0BETRIEBSART HAND AKTIV
P0010 9999 LM-GN-LED BETRIEBSBEREIT +P0001 =A7+E1-K2 94596 -7450 0BETRIEBSBEREIT
P0006 9999 LM-GE-LED NOT AUS-RELAIS ABGEFALLEN =A7+E1-K2 73508 -18135 0NOT AUS-RELAIS ABGEFALLEN
K0007 9999 K-RELAIS NOT AUS-RELAIS QUITTIEREN =A7+E1-K2 73508 -19215 0NOT AUS-RELAIS QUITTIEREN
S0003 9999 PDT-RT-NC NOT-AUS =A7+E1-K2 72678 -16335 0NOT-AUS
S0005 9999 DT-WS-NO LAMPENTEST =A7+E1-K2 72678 -15975 0LAMPENTEST
S0002 9999 LDT-KL-NO START NACH STOERUNG =A7+E1-K2 72678 -15615 0START NACH STOERUNG
S0000 9999 LDT-SW-NC ANLAGE AUS =A7+E1-K2 72678 -14895 0ANLAGE AUS
S0001 9999 LDT-GN-NO ANLAGE EIN =A7+E1-K2 72678 -15255 0ANLAGE EIN
P0002 9999 LM-KL-LED START NACH STOERUNG =A7+E1-K2 73508 -15615 0
P0001 9999 LM-GN-LED ANLAGE EIN =A7+E1-K2 73508 -15255 0
E0007 9999 NO-ID NOT AUS-RELAIS EIN =A7+E1-K2 72678 -18495 0NOT AUS-RELAIS EIN
E0004 9999 NO-ID UEBERSTROM/ AUTOMATENFALL =A7+E1-K2 72678 -16695 0UEBERSTROM/ AUTOMATENFALL
B0010 9999 B-PNEUMATIK DRUCKLUFT VORHANDEN =A7+E1-K2 72678 -19935 0DRUCKLUFT VORHANDEN
S0006 9999 SS-NO SCHLUESSELSCHALTER HAND/AUTOMATIK =A7+E1-K2 72678 -18855 0SCHLUESSELSCHALTER HAND/AUTOMATIK
P0003 9999 LM-GE-LED UEBERSTROM/ STOERUNG FU =A7+E1-K2 73508 -17055 0UEBERSTROM/STOERUNG FU
P0005 9999 LM-GE-LED DRUCKLUFT FEHLT =A7+E1-K2 73508 -17775 0DRUCKLUFT FEHLT
K0483 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.24 =A7+N3-K1o 111204 -3878 0
B0493 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.24 =A7+N3-K3i 111205 -4582 0
S0491 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.24 =A7+N3-K3i 112543 -3570 0
B0492 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.24 =A7+N3-K3i 112543 -3930 0
K0482 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.23 =A7+N3-K1o 111204 -1478 0
B0490 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.23 =A7+N3-K3i 111205 -2182 0
S0486 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.23 =A7+N3-K2i 112543 -1170 0
B0487 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.23 =A7+N3-K2i 112543 -1530 0
K0481 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.22 =A7+N3-K1o 111204 522 0
B0485 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.22 =A7+N3-K2i 111205 -182 0
S0483 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.22 =A7+N3-K1i 112543 830 0
B0484 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.22 =A7+N3-K2i 112543 470 0
K0480 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.21 =A7+N3-K1o 111204 2922 0
B0482 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.21 =A7+N3-K1i 111205 2218 0
S0480 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.21 =A7+N3-K1i 112543 3230 0
B0481 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.21 =A7+N3-K1i 112543 2870 0
B0072 9999 OPT-WTB4 LICHTTASTER NACH WEICHE OBEN RECHTS =A7+E1-K2i 79220 -7905 0
B0071 9999 OPT-WTB4 LICHTTASTER NACH WEICHE OBEN LINKS =A7+E1-K2i 79236 -9207 0
B0077 9999 M18/8MM SENSOR INDUKTIV SCHLEPPSEGMENTABFRAGE AFS LINKS OBEN =A7+E1-K2i 80341 -9508 0Schleppsegm.abfr
B0074 9999 OPT-WTB4 LICHTTASTER IN SCHLEUSE OBEN LINKS =A7+E1-K2i 80341 -9148 0
Q0061 9999 NO-ID BUERSTENFOERDER SCHRAEG AB =A7+E1-K2o 83833 -9771 0
M0060 9999 0,55KW BUERSTENFOERDER SCHRAEG AUF =A7+E1-K2o 83833 -9411 0
Q0067 9999 NO-ID BUERSTENFOERDER SCHRAEG AB =A7+E1-K2o 83628 -7156 0
M0066 9999 0,55KW BUERSTENFOERDER SCHRAEG AUF =A7+E1-K2o 83628 -6796 0
Q0057 9999 NO-ID BUERSTENFOERDERER RECHTS E2 AB =A7+E1-K2o 82276 -7156 0
M0056 9999 0,55KW BUERSTENFOERDERER RECHTS E2 AUF =A7+E1-K2o 82276 -6796 0
Q0055 9999 NO-ID BUERSTENFOERDERER LINKS E2 AB =A7+E1-K2o 82173 -9771 0
M0054 9999 0,55KW BUERSTENFOERDERER LINKS E2 AUF =A7+E1-K2o 82173 -9411 0
B0075 9999 OPT-WTB4 LICHTTASTER IM SCHRAEGFOERDERER OBEN LINKS "TROLLEYABSTAND" =A7+E1-K2i 83003 -9411 0
B0076 9999 M18/8MM SENSOR INDUKTIV SCHLEPPSEGMENTABFRAGE AFS RECHTS =A7+E1-K2i 80352 -7155 0Schleppsegm.abfr
K0086 9999 AUF SCHLEUSE 2 OEFFNEN E2 =A7+E1-K3o 80163 -8083 0
K0087 9999 ZU SCHLEUSE 2 SCHLIESSEN E2 =A7+E1-K3o 80163 -8443 0
B0073 9999 OPT-WTB4 LICHTTASTER IN SCHLEUSE OBEN RECHTS =A7+E1-K2i 80352 -6795 0
K0080 9999 WEICHEN WEICHE ABZWEIG SCHRAEGF. OBEN =A7+E1-K3o 78680 -7153 0
K0334 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.20 =A7+N2-K4o 103904 -17073 0
B0366 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.20 =A7+N2-K10i 103905 -17777 0
S0364 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.20 =A7+N2-K10i 105243 -16765 0
B0365 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.20 =A7+N2-K10i 105243 -17125 0
K0333 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.19 =A7+N2-K3o 103904 -14673 0
B0363 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.19 =A7+N2-K9i 103905 -15377 0
S0361 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.19 =A7+N2-K9i 105243 -14365 0
B0362 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.19 =A7+N2-K9i 105243 -14725 0
K0332 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.18 =A7+N2-K3o 103904 -12673 0
B0360 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.18 =A7+N2-K9i 103905 -13377 0
S0356 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.18 =A7+N2-K8i 105243 -12365 0
B0357 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.18 =A7+N2-K8i 105243 -12725 0
K0331 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.17 =A7+N2-K3o 103904 -10283 0
B0355 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.17 =A7+N2-K8i 103905 -10987 0
S0353 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.17 =A7+N2-K7i 105243 -9975 0
B0354 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.17 =A7+N2-K8i 105243 -10335 0
K0330 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.16 =A7+N2-K3o 103904 -8283 0
B0352 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.16 =A7+N2-K7i 103905 -8987 0
S0350 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.16 =A7+N2-K7i 105243 -7975 0
B0351 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.16 =A7+N2-K7i 105243 -8335 0
K0327 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.15 =A7+N2-K2o 101822 -5934 0
B0347 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.15 =A7+N2-K6i 101822 -6608 0
S0345 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.15 =A7+N2-K6i 103165 -5505 0
B0346 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.15 =A7+N2-K6i 103165 -5865 0
K0326 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.14 =A7+N2-K2o 101411 -3934 0
B0344 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.14 =A7+N2-K6i 101411 -4608 0
S0342 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.14 =A7+N2-K5i 102753 -3826 0
B0343 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.14 =A7+N2-K5i 102753 -4186 0
K0325 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.13 =A7+N2-K2o 103901 -1534 0
B0341 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.13 =A7+N2-K5i 103901 -2208 0
K0324 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.12 =A7+N2-K2o 103904 517 0
B0336 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.12 =A7+N2-K4i 103905 -187 0
K0323 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.11 =A7+N2-K1o 103908 2941 0
B0333 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.11 =A7+N2-K3i 103908 2210 0
S0337 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.13 =A7+N2-K4i 105243 -1185 0
B0340 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.13 =A7+N2-K5i 105243 -1545 0
S0334 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.12 =A7+N2-K4i 105243 825 0
B0335 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.12 =A7+N2-K4i 105243 465 0
B0332 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.11 =A7+N2-K3i 105210 2867 0
S0331 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.11 =A7+N2-K3i 105210 3227 0
S0326 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.10 =A7+N2-K2i 98398 -945 0
B0327 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.10 =A7+N2-K2i 98398 -1305 0
K0322 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.10 =A7+N2-K1o 97056 -1534 0
B0330 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.10 =A7+N2-K3i 97056 -2208 0
S0323 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.09 =A7+N2-K1i 98398 1065 0
B0324 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.09 =A7+N2-K2i 98398 705 0
K0321 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.09 =A7+N2-K1o 97059 517 0
B0325 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.09 =A7+N2-K2i 97060 -187 0
B0321 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.08 =A7+N2-K1i 98365 3107 0
S0320 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.08 =A7+N2-K1i 98365 3467 0
K0320 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.08 =A7+N2-K1o 97063 2941 0
B0322 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.08 =A7+N2-K1i 97063 2210 0
K0161 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.02 =A7+N1-K1o 89697 -14416 0
B0165 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.02 =A7+N1-K3i 89697 -15442 0
S0163 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.02 =A7+N1-K1i 90929 -14134 0
B0164 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.02 =A7+N1-K2i 90929 -14494 0
B0161 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.01 =A7+N1-K1i 90931 -12757 0
K0160 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.01 =A7+N1-K1o 89699 -12398 0
S0160 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.01 =A7+N1-K1i 90969 -12397 0
B0162 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.01 =A7+N1-K1i 89697 -13416 0
S0182 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.07 =A7+N1-K5i 82890 -1899 0
K0166 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.07 =A7+N1-K2o 82004 -909 0
B0183 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.07 =A7+N1-K5i 82060 -1899 0
B0184 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.07 =A7+N1-K6i 80992 -560 0
S0177 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.06 =A7+N1-K4i 84858 -1901 0
K0165 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.06 =A7+N1-K2o 83994 -909 0
B0180 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.06 =A7+N1-K5i 84028 -1901 0
B0181 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.06 =A7+N1-K5i 82989 -553 0
S0174 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.05 =A7+N1-K4i 87185 -1905 0
K0164 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.05 =A7+N1-K2o 86283 -915 0
B0175 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.05 =A7+N1-K4i 86355 -1905 0
B0176 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.05 =A7+N1-K4i 85248 -553 0
S0171 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.04 =A7+N1-K3i 89178 -1907 0
K0163 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.04 =A7+N1-K1o 88299 -914 0
B0172 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.04 =A7+N1-K3i 88348 -1907 0
B0173 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.04 =A7+N1-K3i 87256 -556 0
S0166 9999 SEILZUGSCH SEILZUGSCH. EINFAHRT PARASTOCK. E1.03 =A7+N1-K2i 90918 -16542 0
K0162 9999 WEICHEN WEICHEN ABZWEIG PARASTOCKING E1.03 =A7+N1-K1o 89694 -16895 0
B0167 9999 OPT-WTB4 LICHTTASTER PARASTOCKING HAUTSTR. E1.03 =A7+N1-K2i 90918 -16902 0
B0170 9999 OPT-WTB4 LICHTTASTER PARASTOCKING EINFAHRT E1.03 =A7+N1-K3i 89694 -17818 0
A0064 9999 AB AB FEQUENZUMRICHTER M0062 =A7+E1-K2o 85658 -7182 0
A0063 9999 AUF AUF FREQUENZUMRICHTER M0062 =A7+E1-K2o 85658 -6822 0
A0062 9999 FREIGABE/RESET REGLERFREIGABE FREQUENZUMRICHTER M0062 =A7+E1-K2o 85658 -6462 0
E0050 9999 FEHLER FEHLER FREQUENZUMRICHTER M0062 =A7+E1-K2i 84828 -7182 0
M0062 9999 1,1KW SCHRAEGFOERDERER RECHTS AFS 1,1 KF 84828 -6822 0
A0042 9999 AB AB FEQUENZUMRICHTER M0040 =A7+E1-K2o 85664 -10756 0
A0041 9999 AUF AUF FREQUENZUMRICHTER M0040 =A7+E1-K2o 85664 -10396 0
A0040 9999 FREIGABE/RESET REGLERFREIGABE FREQUENZUMRICHTER M0040 =A7+E1-K2o 85664 -10036 0
E0011 9999 FEHLER FEHLER FREQUENZUMRICHTER M0040 =A7+E1-K2 85664 -9676 0
M0040 9999 1,1KW SCHRAEGFOERDERER LINKS AFS 1,1 KF 85664 -9316 0
B0046 9999 M18/8MM SENSOR INDUKTIV SCHLEPPSEGMENTABFRAGE AFS LINKS =A7+E1-K2i 87324 -9676 0Schleppsegm.abfr
B0045 9999 OPT-WTB4 LICHTTASTER IM SCHRAEGFOERDERER UNTEN LINKS "TROLLEYABSTAND"=A7+E1-K2i 86494 -9316 0
B0044 9999 OPT-WTB4 LICHTTASTER IN SCHLEUSE UNTEN LINKS =A7+E1-K2i 87324 -9316 0
K0075 9999 WEICHE RE. WEICHE RECHTS, SCHRAEGF. UNTEN RECHTS =A7+E1-K2o 88391 -6822 0
B0040 9999 OPT-WTB4 LICHTTASTER VOR WEICHE UNTEN =A7+E1-K2i 91138 -7351 0
B0041 9999 OPT-WTB4 LICHTTASTER NACH WEICHE UNTEN LINKS =A7+E1-K2i 89221 -9264 0
Q0051 9999 NO-ID BUERSTENFOERDERER LINKS E0 AB =A7+E1-K2o 88391 -9624 0
M0050 9999 0,55KW BUERSTENFOERDERER LINKS E0 AUF =A7+E1-K2o 88391 -9264 0
B0047 9999 M18/8MM SENSOR INDUKTIV SCHLEPPSEGMENTABFRAGE AFS RECHTS =A7+E1-K2i 86660 -7182 0Schleppsegm.abfr
B0042 9999 OPT-WTB4 LICHTTASTER NACH WEICHE UNTEN RECHTS =A7+E1-K2i 89221 -6822 0
Q0053 9999 NO-ID BUERSTENFOERDERER RECHTS E0 AB =A7+E1-K2o 87490 -7182 0
M0052 9999 0,55KW BUERSTENFOERDERER RECHTS E0 AUF =A7+E1-K2o 87490 -6822 0
B0043 9999 OPT-WTB4 LICHTTASTER IN SCHLEUSE UNTEN RECHTS =A7+E1-K2i 86660 -6822 0
K0047 9999 ZU SCHLEUSE 2 SCHLIESSEN E0 =A7+E1-K2o 86547 -8400 0
K0046 9999 AUF SCHLEUSE 2 OEFFNEN E0 =A7+E1-K2o 86547 -8040 0
MENU/30428_0.dwg
BIN
View File
Binary file not shown.
MENU/40325_1.txt
+2
View File
@@ -0,0 +1,2 @@
0 0 0 1 0821084051 8748180 STL
0 0 0 1 0825084001 7309280 DRT80
MENU/9584_14_Embroidery_Pyramid.dwt
BIN
View File
Binary file not shown.
MENU/A.DWG
BIN
View File
Binary file not shown.
MENU/A307460_1.txt
+426
View File
@@ -0,0 +1,426 @@
89746 13662 0821104033 1 0821104033 00 0 APB 110 R 650/90-800 2 213D60
88906 19828 -0824111004 1 0824111004 00 0 APBW 110 R 550/22,5 410X98,5 2 213D9D
88906 19662 -0824172022 1 0824172022 00 0 SW R550/90-R-700 [M+V] 2 213DA9
89746 16962 0824172022 1 0824172022 00 0 SW R550/90-R-700 [M+V] 2 213DB6
89746 15662 0824172022 1 0824172022 00 0 SW R550/90-R-700 [M+V] 2 213DC2
89746 17837 0824111004 1 0824111004 00 0 APBW 110 R 550/22,5 410X98,5 2 213DE6
88906 20962 -0824172022 1 0824172022 00 0 SW R550/90-R-700 [M+V] 2 213DF8
88906 23662 -0824172022 1 0824172022 00 0 SW R550/90-R-700 [M+V] 2 213E11
88906 28962 -0824172022 1 0824172022 00 0 SW R550/90-R-700 [M+V] 2 213E4D
88906 24962 -0824172022 1 0824172022 00 0 SW R550/90-R-700 [M+V] 2 213E66
88906 27662 -0824172022 1 0824172022 00 0 SW R550/90-R-700 [M+V] 2 213E7E
90406 31072 0824172079 1 0824172079 00 0 WB 2SW+APB R550/90-L-200, KPL. MIT M+V 2 213EC5
88906 31560 -0824172022 1 0824172022 00 0 SW R550/90-R-700 [M+V] 2 213ED2
88906 33562 -0824172022 1 0824172022 00 0 SW R550/90-R-700 [M+V] 2 213EEB
88906 45181 -0824172085 1 0824172085 00 0 WB 1SW+APB R550/90-R-200, KPL. MIT M+V 2 214002
88906 44781 -0824172089 1 0824172089 00 0 WB 2SW R550/90-R-200, KPL. MIT M+V 2 21400E
88906 34862 -0824172022 1 0824172022 00 0 SW R550/90-R-700 [M+V] 2 214046
88906 36265 -0824172022 1 0824172022 00 0 SW R550/90-R-700 [M+V] 2 214053
90406 36265 -0821104033 1 0821104033 00 0 APB 110 R 650/90-800 2 21405F
88906 43512 -0824172093 1 0824172093 00 0 WB 1SW R550/90-R-200, KPL. MIT M+V 2 21409C
88906 43912 -0824172089 1 0824172089 00 0 WB 2SW R550/90-R-200, KPL. MIT M+V 2 2140A8
94206 31072 094205310710010293924 1 0821106001 60000 9120531071010293474 AP110 L= 6000 3N215A48
99206 31072 099205310710010294660 1 0821106001 40000 9720531071010294492 AP110 L= 4000 3N215A70
103206 31072 0103205310710010295349 1 0821106001 40000 10120531071010295220 AP110 L= 4000 3N215A98
107456 31072 0107455310710010300317 1 0821106001 45000 10520531071010300227 AP110 L= 4500 3N215AC0
107506 31272 0107455310710010300317 1 0821106001 45000 10520531071010300227 AP110 L= 4500 3N215ACD
103256 31272 0103205310710010295349 1 0821106001 40000 10120531071010295220 AP110 L= 4000 3N215ADA
99256 31272 099205310710010294660 1 0821106001 40000 9720531071010294492 AP110 L= 4000 3N215AE7
94256 31272 094205310710010293924 1 0821106001 60000 9120531071010293474 AP110 L= 6000 3N215AF4
94256 31472 094205310710010293924 1 0821106001 60000 9120531071010293474 AP110 L= 6000 3N215B02
99256 31472 099205310710010294660 1 0821106001 40000 9720531071010294492 AP110 L= 4000 3N215B0F
103256 31472 0103205310710010295349 1 0821106001 40000 10120531071010295220 AP110 L= 4000 3N215B1C
107506 31472 0107455310710010300317 1 0821106001 45000 10520531071010300227 AP110 L= 4500 3N215B29
89326 18833 089325188320010355781 1 0821106001 16460 8964718075010355741 AP110 L= 1646 3N215BA6
88906 37925 -088905379250010375249 1 0821106001 40000 8890535925010375158 AP110 L= 4000 3N215D38
95256 43512 -095255435110010404440 1 0821106001 40000 9325543511010404320 AP110 L= 4000 3N215E01
99256 43512 -099255435110010405276 1 0821106001 40000 9725543511010405238 AP110 L= 4000 3N215E29
103256 43512 -0103255435110010405758 1 0821106001 40000 10125543511010405716 AP110 L= 4000 3N215E51
107506 43512 -0107505435110010410123 1 0821106001 45000 10525543511010410082 AP110 L= 4500 3N215E79
107506 43712 -0107505435110010410123 1 0821106001 45000 10525543511010410082 AP110 L= 4500 3N215E86
103256 43712 -0103255435110010405758 1 0821106001 40000 10125543511010405716 AP110 L= 4000 3N215E93
99256 43712 -099255435110010405276 1 0821106001 40000 9725543511010405238 AP110 L= 4000 3N215EA0
95256 43712 -095255435110010404440 1 0821106001 40000 9325543511010404320 AP110 L= 4000 3N215EAD
95256 43912 -095255435110010404440 1 0821106001 40000 9325543511010404320 AP110 L= 4000 3N215ED6
99256 43912 -099255435110010405276 1 0821106001 40000 9725543511010405238 AP110 L= 4000 3N215EE2
103256 43912 -0103255435110010405758 1 0821106001 40000 10125543511010405716 AP110 L= 4000 3N215EEF
107506 43912 -0107505435110010410123 1 0821106001 45000 10525543511010410082 AP110 L= 4500 3N215EFC
91506 44581 -091505435110010402501 1 0821106001 35000 8975543511010402399 AP110 L= 3500 3N215F09
95256 44581 -095255435110010404440 1 0821106001 40000 9325543511010404320 AP110 L= 4000 3N215F17
99256 44581 -099255435110010405276 1 0821106001 40000 9725543511010405238 AP110 L= 4000 3N215F23
103256 44581 -0103255435110010405758 1 0821106001 40000 10125543511010405716 AP110 L= 4000 3N215F30
107506 44581 -0107505435110010410123 1 0821106001 45000 10525543511010410082 AP110 L= 4500 3N215F3D
91506 44781 -091505435110010402501 1 0821106001 35000 8975543511010402399 AP110 L= 3500 3N215F4A
95256 44781 -095255435110010404440 1 0821106001 40000 9325543511010404320 AP110 L= 4000 3N215F58
99256 44781 -099255435110010405276 1 0821106001 40000 9725543511010405238 AP110 L= 4000 3N215F64
103256 44781 -0103255435110010405758 1 0821106001 40000 10125543511010405716 AP110 L= 4000 3N215F71
107506 44781 -0107505435110010410123 1 0821106001 45000 10525543511010410082 AP110 L= 4500 3N215F7E
91456 44981 -091505435110010402501 1 0821106001 35000 8975543511010402399 AP110 L= 3500 3N215F8B
95206 44981 -095255435110010404440 1 0821106001 40000 9325543511010404320 AP110 L= 4000 3N215F99
99206 44981 -099255435110010405276 1 0821106001 40000 9725543511010405238 AP110 L= 4000 3N215FA5
103206 44981 -0103255435110010405758 1 0821106001 40000 10125543511010405716 AP110 L= 4000 3N215FB2
107456 44981 -0107505435110010410123 1 0821106001 45000 10525543511010410082 AP110 L= 4500 3N215FBF
91456 45181 -091505435110010402501 1 0821106001 35000 8975543511010402399 AP110 L= 3500 3N215FCC
95206 45181 -095255435110010404440 1 0821106001 40000 9325543511010404320 AP110 L= 4000 3N215FDA
99206 45181 -099255435110010405276 1 0821106001 40000 9725543511010405238 AP110 L= 4000 3N215FE6
103206 45181 -0103255435110010405758 1 0821106001 40000 10125543511010405716 AP110 L= 4000 3N215FF3
107456 45181 -0107505435110010410123 1 0821106001 45000 10525543511010410082 AP110 L= 4500 3N216000
85206 34862 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N21604C
79206 34862 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N216059
73206 34862 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N216067
67206 34862 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N216073
61206 34862 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N216080
55206 34862 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N21608D
55206 33562 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N2160EA
61206 33562 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N2160F6
67206 33562 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N216103
73206 33562 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N21610F
79206 33562 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N21611C
85206 33562 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N216129
55206 31562 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N216151
61206 31562 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N21615D
67206 31562 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N21616A
73206 31562 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N216176
79206 31562 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N216183
85206 31562 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N216190
55206 28962 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N2161B8
61206 28962 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N2161C4
67206 28962 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N2161D1
73206 28962 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N2161DD
79206 28962 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N2161EA
85206 28962 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N2161F7
55206 27662 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N21621F
61206 27662 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N21622B
67206 27662 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N216238
73206 27662 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N216244
79206 27662 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N216251
85206 27662 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N21625E
55206 24962 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N216286
61206 24962 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N216292
67206 24962 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N21629F
73206 24962 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N2162AB
79206 24962 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N2162B8
85206 24962 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N2162C5
55206 23662 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N2162ED
61206 23662 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N2162F9
67206 23662 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N216306
73206 23662 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N216312
79206 23662 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N21631F
85206 23662 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N21632C
55206 20962 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N216354
61206 20962 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N216360
67206 20962 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N21636D
73206 20962 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N216379
79206 20962 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N216386
85206 20962 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N216393
49206 19662 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N2163A1
55206 19662 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N2163BB
61206 19662 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N2163C7
67206 19662 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N2163D4
73206 19662 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N2163E0
79206 19662 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N2163ED
85206 19662 -085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N2163FA
50046 16962 085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N216408
56046 16962 085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N216422
62046 16962 085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N21642E
68046 16962 085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N21643B
74046 16962 085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N216447
80046 16962 085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N216454
86046 16962 085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N216461
50046 15662 085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N21646F
56046 15662 085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N216489
62046 15662 085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N216495
68046 15662 085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N2164A2
74046 15662 085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N2164AE
80046 15662 085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N2164BB
86046 15662 085205348650011050079 1 0821096001 60000 8820534865011045426 AP 60 L= 6000 3N2164C8
85946 13662 085946136600011133254 1 0821096001 60000 8894613660011132935 AP 60 L= 6000 3N216556
79946 13662 085946136600011133254 1 0821096001 60000 8894613660011132935 AP 60 L= 6000 3N21657E
73946 13662 085946136600011133254 1 0821096001 60000 8894613660011132935 AP 60 L= 6000 3N21658B
67946 13662 085946136600011133254 1 0821096001 60000 8894613660011132935 AP 60 L= 6000 3N216598
61946 13662 085946136600011133254 1 0821096001 60000 8894613660011132935 AP 60 L= 6000 3N2165A5
55946 13662 085946136600011133254 1 0821096001 60000 8894613660011132935 AP 60 L= 6000 3N2165B2
49946 13662 085946136600011133254 1 0821096001 60000 8894613660011132935 AP 60 L= 6000 3N2165BF
105206 31072 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J01660B
105256 31272 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016617
105256 31472 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016623
101206 31072 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J01662F
101256 31272 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J01663B
101256 31472 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016647
97206 31072 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016653
97256 31272 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J01665F
97256 31472 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J01666B
93256 43512 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J01669B
93256 43912 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0166A7
93256 43712 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0166B3
91506 43512 -091505435110011444218 1 0821106001 35000 8975543511011444105 AP110 L= 3500 3N2166DA
91506 43712 -091505437110011452748 1 0821106001 35000 8975543711011452707 AP110 L= 3500 3N21672A
91506 43912 -091505439110011454263 1 0821106001 35000 9325543911011454143 AP110 L= 3500 3N216752
97260 43912 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J01675F
97260 43712 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J01676B
97260 43512 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016777
97210 45181 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016783
97210 44981 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J01678F
97260 44781 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J01679B
97260 44581 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0167A7
93260 44581 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0167B3
93260 44781 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0167BF
93210 44981 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0167CB
93210 45181 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0167D7
101260 43512 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0167E3
101260 43712 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0167EF
101260 43912 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0167FB
101260 44581 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016807
101260 44781 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016813
101210 44981 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J01681F
101210 45181 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J01682B
105260 43512 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016837
105260 43712 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016843
105260 43912 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J01684F
105260 44581 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J01685B
105260 44781 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016867
105210 44981 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016873
105210 45181 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J01687F
109756 43512 -0821114010 1 0821114010 00 0 ENDPLATTE F. ALU 2J1168A2
109756 43712 -0821114010 1 0821114010 00 0 ENDPLATTE F. ALU 2J1168AE
109756 43912 -0821114010 1 0821114010 00 0 ENDPLATTE F. ALU 2J1168BA
109756 44581 -0821114010 1 0821114010 00 0 ENDPLATTE F. ALU 2J1168C6
109756 44781 -0821114010 1 0821114010 00 0 ENDPLATTE F. ALU 2J1168D2
109706 44981 -0821114010 1 0821114010 00 0 ENDPLATTE F. ALU 2J1168DE
109706 45181 -0821114010 1 0821114010 00 0 ENDPLATTE F. ALU 2J1168EA
109706 31072 0821114010 1 0821114010 00 0 ENDPLATTE F. ALU 2J1168F6
109756 31272 0821114010 1 0821114010 00 0 ENDPLATTE F. ALU 2J116902
109756 31472 0821114010 1 0821114010 00 0 ENDPLATTE F. ALU 2J11690E
45446 31560 0821114010 1 0821114010 00 0 ENDPLATTE F. ALU 2J11691A
45446 13660 0821114010 1 0821114010 00 0 ENDPLATTE F. ALU 2J116926
88906 42462 -0821114039 2 3821114039 00 0 TV-SW I TRAPEZVERB.F.ANSCHL.SW-AP110 92J016945
88906 42822 -0821114039 2 3821114039 00 0 TV-SW I TRAPEZVERB.F.ANSCHL.SW-AP110 92J016979
88906 42872 -0821114039 2 3821114039 00 0 TV-SW I TRAPEZVERB.F.ANSCHL.SW-AP110 92J016985
88906 43260 -0821114039 2 3821114039 00 0 TV-SW I TRAPEZVERB.F.ANSCHL.SW-AP110 92J016991
88906 43731 -0821114039 2 3821114039 00 0 TV-SW I TRAPEZVERB.F.ANSCHL.SW-AP110 92J01699D
88906 35925 -0821114039 2 3821114039 00 0 TV-SW I TRAPEZVERB.F.ANSCHL.SW-AP110 92J0169B5
88906 35202 -0821114039 2 3821114039 00 0 TV-SW I TRAPEZVERB.F.ANSCHL.SW-AP110 92J0169CD
88906 34262 -0821114039 2 3821114039 00 0 TV-SW I TRAPEZVERB.F.ANSCHL.SW-AP110 92J0169D9
88906 33902 -0821114039 2 3821114039 00 0 TV-SW I TRAPEZVERB.F.ANSCHL.SW-AP110 92J0169E5
88906 32260 -0821114039 2 3821114039 00 0 TV-SW I TRAPEZVERB.F.ANSCHL.SW-AP110 92J0169F1
88906 31900 -0821114039 2 3821114039 00 0 TV-SW I TRAPEZVERB.F.ANSCHL.SW-AP110 92J0169FD
88906 29664 -0821114039 2 3821114039 00 0 TV-SW I TRAPEZVERB.F.ANSCHL.SW-AP110 92J016A09
88906 29302 -0821114039 2 3821114039 00 0 TV-SW I TRAPEZVERB.F.ANSCHL.SW-AP110 92J016A15
88906 28362 -0821114039 2 3821114039 00 0 TV-SW I TRAPEZVERB.F.ANSCHL.SW-AP110 92J016A21
88906 28002 -0821114039 2 3821114039 00 0 TV-SW I TRAPEZVERB.F.ANSCHL.SW-AP110 92J016A2D
88906 25662 -0821114039 2 3821114039 00 0 TV-SW I TRAPEZVERB.F.ANSCHL.SW-AP110 92J016A39
88906 25302 -0821114039 2 3821114039 00 0 TV-SW I TRAPEZVERB.F.ANSCHL.SW-AP110 92J016A45
88906 24362 -0821114039 2 3821114039 00 0 TV-SW I TRAPEZVERB.F.ANSCHL.SW-AP110 92J016A51
88906 24002 -0821114039 2 3821114039 00 0 TV-SW I TRAPEZVERB.F.ANSCHL.SW-AP110 92J016A5D
88906 21662 -0821114039 2 3821114039 00 0 TV-SW I TRAPEZVERB.F.ANSCHL.SW-AP110 92J016A69
88906 21302 -0821114039 2 3821114039 00 0 TV-SW I TRAPEZVERB.F.ANSCHL.SW-AP110 92J016A75
88906 20362 -0821114039 2 3821114039 00 0 TV-SW I TRAPEZVERB.F.ANSCHL.SW-AP110 92J016A81
88906 20002 -0821114039 2 3821114039 00 0 TV-SW I TRAPEZVERB.F.ANSCHL.SW-AP110 92J016A8D
89746 17662 0821114039 2 3821114039 00 0 TV-SW I TRAPEZVERB.F.ANSCHL.SW-AP110 92J016A99
89746 17302 0821114039 2 3821114039 00 0 TV-SW I TRAPEZVERB.F.ANSCHL.SW-AP110 92J016AA5
89746 16002 0821114039 2 3821114039 00 0 TV-SW I TRAPEZVERB.F.ANSCHL.SW-AP110 92J016AB1
89746 16362 0821114039 2 3821114039 00 0 TV-SW I TRAPEZVERB.F.ANSCHL.SW-AP110 92J016ABD
90406 32322 0821114039 2 3821114039 00 0 TV-SW I TRAPEZVERB.F.ANSCHL.SW-AP110 92J016AC9
89760 44581 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016AD6
89756 44781 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016AE2
89706 44981 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016AEE
89706 45181 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016AFA
89756 43912 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016B06
89756 43712 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016B12
89756 43512 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016B1E
89606 36265 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016B2A
90406 35465 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016B36
91256 31472 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016B42
91256 31272 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016B4E
91206 31072 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016B5A
89004 19590 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016B66
89648 18075 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016B72
89746 14462 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016B7E
88816 13660 0821114015 1 14821114015 00 0 TV AP110/AP60 92J016B9E
88816 15660 0821114015 1 14821114015 00 0 TV AP110/AP60 92J016BAA
88816 16965 -0821114015 1 14821114015 00 0 TV AP110/AP60 92J016BB6
88098 19660 -0821114015 1 14821114015 00 0 TV AP110/AP60 92J016BC2
88098 20965 -0821114015 1 14821114015 00 0 TV AP110/AP60 92J016BCF
88098 23660 -0821114015 1 14821114015 00 0 TV AP110/AP60 92J016BDB
88098 24965 -0821114015 1 14821114015 00 0 TV AP110/AP60 92J016BE7
88098 27660 -0821114015 1 14821114015 00 0 TV AP110/AP60 92J016BF3
88098 28965 -0821114015 1 14821114015 00 0 TV AP110/AP60 92J016BFF
88098 31560 -0821114015 1 14821114015 00 0 TV AP110/AP60 92J016C0B
88098 33560 -0821114015 1 14821114015 00 0 TV AP110/AP60 92J016C17
88098 34865 -0821114015 1 14821114015 00 0 TV AP110/AP60 92J016C23
82946 13662 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016C3C
76946 13662 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016C48
70946 13662 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016C54
64946 13662 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016C60
58946 13662 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016C6C
52946 13662 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016C78
46946 13662 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016C84
53046 15662 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016CA8
59046 15662 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016CB4
65046 15662 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016CC0
71046 15662 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016CCC
77046 15662 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016CD8
83046 15662 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016CE4
45106 24310 -200821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J016EDC
45756 33562 -200821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017092
45106 33562 -200821094040 1 0821094040 00 0 APB 60 R 515/90-650 2 21709E
45106 34210 -200821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0170AA
45106 34862 -200821094040 1 0821094040 00 0 APB 60 R 515/90-650 2 2170B7
45756 34862 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0170CF
83046 16962 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0170EB
77046 16962 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0170F7
71046 16962 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017103
65046 16962 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J01710F
59046 16962 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J01711B
53046 16962 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017127
82206 19662 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017133
76206 19662 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J01713F
70206 19662 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J01714B
64206 19662 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017157
58206 19662 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017163
52206 19662 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J01716F
82206 20962 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J01717B
76206 20962 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017187
70206 20962 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017193
64206 20962 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J01719F
58206 20962 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0171AB
52206 20962 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0171B7
82206 23662 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0171C3
76206 23662 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0171CF
70206 23662 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0171DB
64206 23662 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0171E7
58206 23662 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0171F3
52206 23662 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0171FF
82206 24962 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J01720B
76206 24962 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017217
70206 24962 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017223
64206 24962 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J01722F
58206 24962 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J01723B
52206 24962 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017247
82206 27662 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017253
76206 27662 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J01725F
70206 27662 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J01726B
64206 27662 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017277
58206 27662 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017283
52206 27662 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J01728F
82206 28962 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J01729B
76206 28962 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0172A7
70206 28962 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0172B3
64206 28962 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0172BF
58206 28962 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0172CB
52206 28962 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0172D7
88906 44131 -0821114037 2 4821114037 00 0 TV-SW II TRAPEZVERB.F.ANSCHL. SW-SW 92J017320
88906 39925 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J01732C
82206 34862 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0177AF
82206 33562 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0177BB
82206 31562 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0177C7
76206 34862 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0177D3
76206 33562 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0177DF
76206 31562 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0177EB
70206 34862 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0177F7
70206 33562 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017803
70206 31562 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J01780F
64206 34862 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J01781B
64206 33562 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017827
64206 31562 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017833
52206 34862 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J01783F
52206 33562 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J01784B
52206 31562 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017857
49706 34862 -049705348650009450733 1 0821096001 50000 5220534865009450562 AP 60 L= 5000 3N217B6E
47206 34862 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017B7B
46481 34862 -046480348650009460501 1 0821096001 14500 4720534865009460460 AP 60 L= 1450 3N217BA2
49706 33562 -049705348650009450733 1 0821096001 50000 5220534865009450562 AP 60 L= 5000 3N217BAF
47206 33562 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017BBC
46481 33562 -20046480348650009460501 1 0821096001 14500 4720534865009460460 AP 60 L= 1450 3N217BC8
49706 31562 -049705348650009450733 1 0821096001 50000 5220534865009450562 AP 60 L= 5000 3N217BD5
47206 31562 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017BE2
45756 27662 -200821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017BFB
45106 27662 -200821094040 1 0821094040 00 0 APB 60 R 515/90-650 2 217C07
45106 28312 -200821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017C13
45106 28962 -200821094040 1 0821094040 00 0 APB 60 R 515/90-650 2 217C1F
45756 28962 -200821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017C2B
49706 28962 -049705348650009450733 1 0821096001 50000 5220534865009450562 AP 60 L= 5000 3N217C37
47206 28962 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017C44
46481 28962 -046480348650009460501 1 0821096001 14500 4720534865009460460 AP 60 L= 1450 3N217C50
49706 27662 -049705348650009450733 1 0821096001 50000 5220534865009450562 AP 60 L= 5000 3N217C5D
47206 27662 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017C6A
46481 27662 -046480348650009460501 1 0821096001 14500 4720534865009460460 AP 60 L= 1450 3N217C76
45756 23662 -200821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017C83
45106 23662 -200821094040 1 0821094040 00 0 APB 60 R 515/90-650 2 217C8F
45106 24962 -200821094040 1 0821094040 00 0 APB 60 R 515/90-650 2 217CA7
45756 24962 -200821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017CB3
49706 24962 -049705348650009450733 1 0821096001 50000 5220534865009450562 AP 60 L= 5000 3N217CBF
47206 24962 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017CCC
46481 24962 -046480348650009460501 1 0821096001 14500 4720534865009460460 AP 60 L= 1450 3N217CD8
49706 23662 -049705348650009450733 1 0821096001 50000 5220534865009450562 AP 60 L= 5000 3N217CE5
47206 23662 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017CF2
46481 23662 -046480348650009460501 1 0821096001 14500 4720534865009460460 AP 60 L= 1450 3N217CFE
45756 19662 -200821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017D0B
45106 19662 -200821094040 1 0821094040 00 0 APB 60 R 515/90-650 2 217D17
45106 20310 -200821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017D23
45106 20962 -200821094040 1 0821094040 00 0 APB 60 R 515/90-650 2 217D2F
45756 20962 -200821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017D3B
49706 20962 -049705348650009450733 1 0821096001 50000 5220534865009450562 AP 60 L= 5000 3N217D47
47206 20962 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017D54
46481 20962 -046480348650009460501 1 0821096001 14500 4720534865009460460 AP 60 L= 1450 3N217D60
49706 19662 -049705348650009450733 1 0821096001 50000 5220534865009450562 AP 60 L= 5000 3N217D6D
47206 19662 -0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017D7A
46481 19662 -046480348650009460501 1 0821096001 14500 4720534865009460460 AP 60 L= 1450 3N217D86
45756 15662 -200821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017D93
45106 15662 -200821094040 1 0821094040 00 0 APB 60 R 515/90-650 2 217D9F
45106 16310 -200821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017DAB
45106 16962 -200821094040 1 0821094040 00 0 APB 60 R 515/90-650 2 217DB7
45756 16962 -200821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017DC3
46401 16962 046401169650009502457 1 0821096001 12900 4704616965009502362 AP 60 L= 1290 3N217DEA
47046 16962 -200821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017DF7
46401 15662 046401169650009502457 1 0821096001 12900 4704616965009502362 AP 60 L= 1290 3N217E03
47046 15662 -200821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J017E10
46196 13662 046196136600009511440 1 0821096001 15000 4694613660009511406 AP 60 L= 1500 3N217E37
46326 31562 -046325315600009514638 1 0821096001 17600 4720531560009514569 AP 60 L= 1760 3N217E5F
88906 43496 -088905434950011431419 1 0821106001 4700 8890543730011431399 AP110 L= 470 3N21830E
88906 40962 -088905409610011440395 1 0821106001 30000 8890542461011440257 AP110 L= 3000 3N218386
90406 33715 -090405337150011442767 1 0821106001 35000 9040535465011442740 AP110 L= 3500 3N2183AE
89746 15300 089746150000014262033 1 0821106001 20000 8974616000014261998 AP110 L= 2000 3N219572
88906 22600 -088905226000014273530 1 0821106001 28000 8890524000014273476 AP110 L= 2800 3N21959B
88906 26600 -088905226000014273530 1 0821106001 28000 8890524000014273476 AP110 L= 2800 3N2195A9
88906 35565 -0821114037 2 4821114037 00 0 TV-SW II TRAPEZVERB.F.ANSCHL. SW-SW 92J0195B7
88906 32900 -088905329000014295865 1 0821106001 20000 8890533900014295837 AP110 L= 2000 3N2195DE
88906 30500 -088905226000014273530 1 0821106001 28000 8890524000014273476 AP110 L= 2800 3N2195EC
104443 17586 0104443175860013345821 1 0821096001 60000 10144317586013345652 AP 60 L= 6000 3N211150B
104427 17095 0104522166290013350614 1 0821106001 60000 10152216629013350428 AP110 L= 6000 3N2111533
104427 16643 0104522166290013350614 1 0821106001 60000 10152216629013350428 AP110 L= 6000 3N2111540
101536 18294 0821114039 2 3821114039 00 0 TV-SW I TRAPEZVERB.F.ANSCHL.SW-AP110 92J01116D1
101736 18294 0821114039 2 3821114039 00 0 TV-SW I TRAPEZVERB.F.ANSCHL.SW-AP110 92J0111989
101936 18294 0821114039 2 3821114039 00 0 TV-SW I TRAPEZVERB.F.ANSCHL.SW-AP110 92J0111995
102136 18294 0821114039 2 3821114039 00 0 TV-SW I TRAPEZVERB.F.ANSCHL.SW-AP110 92J01119A1
102336 18294 0821114039 2 3821114039 00 0 TV-SW I TRAPEZVERB.F.ANSCHL.SW-AP110 92J01119AD
102536 18294 0821114039 2 3821114039 00 0 TV-SW I TRAPEZVERB.F.ANSCHL.SW-AP110 92J01119B9
102736 18294 0821114039 2 3821114039 00 0 TV-SW I TRAPEZVERB.F.ANSCHL.SW-AP110 92J01119C5
102936 18294 0821114039 2 3821114039 00 0 TV-SW I TRAPEZVERB.F.ANSCHL.SW-AP110 92J01119D1
103136 18294 0821114039 2 3821114039 00 0 TV-SW I TRAPEZVERB.F.ANSCHL.SW-AP110 92J01119DD
103336 18294 0821114039 2 3821114039 00 0 TV-SW I TRAPEZVERB.F.ANSCHL.SW-AP110 92J01119E9
101529 18542 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0111A6D
101729 18542 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0111A79
101929 18542 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0111A85
102129 18542 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0111A91
102329 18542 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0111A9D
102529 18542 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0111AA9
102729 18542 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0111AB5
102929 18542 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0111AC1
103129 18542 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0111ACD
103329 18542 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0111AD9
103529 18542 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0111AE5
103729 18542 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0111AF1
103929 18542 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0111AFD
104129 18542 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0111B09
104329 18542 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0111B15
104529 18542 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0111B21
104729 18542 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0111B2D
104929 18542 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0111B39
105129 18542 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0111B45
105329 18542 0821114001 2 2821114001 00 0 TV 80 TRAPEZVERBINDUNG 80 MM 92J0111B51
88906 28832 -088905288320013212720 1 0821106001 9400 8890529302013212548 AP110 L= 940 3N2112939
88906 24832 -088905288320013212720 1 0821106001 9400 8890529302013212548 AP110 L= 940 3N2112946
88906 20832 -088905288320013212720 1 0821106001 9400 8890529302013212548 AP110 L= 940 3N2112953
89746 16832 088905288320013212720 1 0821106001 9400 8890529302013212548 AP110 L= 940 3N2112960
88906 34732 -088905288320013212720 1 0821106001 9400 8890529302013212548 AP110 L= 940 3N21136C1
MENU/ACAD.CFG
BIN
View File
Binary file not shown.
MENU/ACAD.DWG
BIN
View File
Binary file not shown.
MENU/ACAD.ERR
+43
View File
@@ -0,0 +1,43 @@
GESAMT- FEHLER:
Softwareschutz spricht nicht an oder ist falsch installiert
6/13/1992 at 15:36:19.220 Zeichnung: C:\PROG\ACAD\MENU\
-------------
GESAMT- FEHLER: Kann Anzeigetreiber nicht starten.
9/21/1993 at 21:47:14.040 Drawing: C:\PROG\ACAD\MENU\UNNAMED
-------------
GESAMT- FEHLER: Kann Anzeigetreiber nicht starten.
9/21/1993 at 21:47:41.280 Drawing: C:\PROG\ACAD\MENU\
-------------
GESAMT- FEHLER: Kann Anzeigetreiber nicht starten.
9/21/1993 at 21:51:05.930 Drawing: C:\PROG\ACAD\MENU\
-------------
GESAMT- FEHLER: menu1 1
10/21/1993 at 9:41:30.260 Drawing: C:\DATEN\CAD\4068\3_4068
-------------
GESAMT- FEHLER: General protection exception
4/16/1994 at 9:06:28.870 Drawing: C:\ACADSST\MENU\UNNAMED
-------------
FATAL ERROR: Out of memory - shutting down
09/20/2005 at 22:45:29.921 Drawing: Drawing2.dwg
-------------
MENU/ACAD.LIN
+69
View File
@@ -0,0 +1,69 @@
;;
;; Ver. 1.1 - AutoCAD Linientyp-Datei
;;
;; Zwei Varianten von Linientypen wurden dieser Datei hinzugef�gt.
;; Eine ist die H„lfte des orginal Linientyps, die Andere das Doppelte
;; des orginal Linientyps.
;;
;;
;; 1/28/90 - Amy Berger
;;
*RAND,__ __ . __ __ . __ __ . __ __ . __ __ . __ __ . __ __ . __ __ .
A,.5,-.25,.5,-.25,0,-.25
*RAND2,__.__.__.__.__.__.__.__.__.__.__.__.__.__.__.__.__.__.__.__.__
A,.25,-.125,.25,-.125,0,-.125
*RANDX2,____ ____ . ____ ____ . ____ ____ . ____ ____ .
A,1.0,-.5,1.0,-.5,0,-.5
*MITTE,____ _ ____ _ ____ _ ____ _ ____ _ ____ _ ____ _ ____ _ ____ _
A,1.25,-.25,.25,-.25
*MITTE2,___ _ ___ _ ___ _ ___ _ ___ _ ___ _ ___ _ ___ _ ___ _ ___ _ _
A,.75,-.125,.125,-.125
*MITTEX2,________ __ ________ __ ________ __ ________ __ ____
A,2.5,-.5,.5,-.5
*STRICHPUNKT,__ . __ . __ . __ . __ . __ . __ . __ . __ . __ . __ . __ . _
A,500,-250,0,-250
*STRICHPUNKTIERT,__ . __ . __ . __ . __ . __ . __ . __ . __ . __ . __ . __ . _
A,500,-250,0,-250
*STRICHPUNKT2,_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._.
A,.25,-.125,0,-.125
*STRICHPUNKTX2,____ . ____ . ____ . ____ . ____ . ____ . ____
A,1.0,-.5,0,-.5
*GESTRICHELT,__ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __
A,250,-250
*GESTRICHELT2,_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
A,.25,-.125
*GESTRICHELTX2,____ ____ ____ ____ ____ ____ ____ ____ ____ ____
A,1.0,-.5
*GETRENNT,____ . . ____ . . ____ . . ____ . . ____ . . ____ . . ____ . .
A,.5,-.25,0,-.25,0,-.25
*GETRENNT2,__..__..__..__..__..__..__..__..__..__..__..__..__..__..__..__..
A,.25,-.125,0,-.125,0,-.125
*GETRENNTX2,________ . . ________ . . ________ . . ________ . .
A,1.0,-.5,0,-.5,0,-.5
*PUNKT,. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
A,0,-.25
*PUNKT2,................................................................
A,0,-.125
*PUNKTX2,. . . . . . . . . . . . . . . . . . . . .
A,0,-.5
*VERDECKT,__ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __
A,.25,-.125
*VERDECKT2,_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
A,.125,-.0625
*VERDECKTX2,____ ____ ____ ____ ____ ____ ____ ____ ____ ____ ____ ____
A,.5,-.25
*PHANTOM,______ __ __ ______ __ __ ______ __ __ ______ __ __
A,1.25,-.25,.25,-.25,.25,-.25
*PHANTOM2,___ _ _ ___ _ _ ___ _ _ ___ _ _ ___ _ _ ___ _ _ ___ _ _ ___ _ _
A,.625,-.125,.125,-.125,.125,-.125
*PHANTOMX2,____________ ____ ____ ____________ ____ ____
A,2.5,-.5,.5,-.5,.5,-.5

MENU/ACAD.LSP
+14
View File
@@ -0,0 +1,14 @@
(vmon)
(setq lw "m:")
;----------------------------------------------------------------------------
(setvar "cmdecho" 0)
(setq g_si2 (getvar "tdindwg"))
(load (strcat lw "/acadsst/menu/ssg.lsp"))
(prompt "\nSSG-Menu (ACAD.LSP).. (c) 2013 by SCHÖNENBERGER Systeme GmbH - All rights reserved")
(prompt " ")
(princ)
MENU/ACAD.LSP.Laufwerk_D
+15
View File
@@ -0,0 +1,15 @@
(vmon)
(setq lw "D:")
;----------------------------------------------------------------------------
(setvar "cmdecho" 0)
(setq g_si2 (getvar "tdindwg"))
(prompt "\nSSG-Menu.. (c) 2006 by SCHOENENBERGER Systeme GmbH - All rights reserved")
(prompt " ")
(load (strcat lw "/acadsst/menu/ssg.lsp"))
(princ)
MENU/ACAD.LSP_original_vom_29.08.2013
+14
View File
@@ -0,0 +1,14 @@
(vmon)
(setq lw "m:")
;----------------------------------------------------------------------------
(setvar "cmdecho" 0)
(setq g_si2 (getvar "tdindwg"))
(load (strcat lw "/acadsst/menu/ssg.lsp"))
(prompt "\nSSG-Menu (ACAD.LSP).. (c) 2013 by SCHÖNENBERGER Systeme GmbH - All rights reserved")
(prompt " ")
(princ)
MENU/ACAD.MNL
+338
View File
@@ -0,0 +1,338 @@
;;; ACAD.MNL
;;; Copyright (C) 1992 by Autodesk, Inc.
;;;
;;; Permission to use, copy, modify, and distribute this software
;;; for any purpose and without fee is hereby granted, provided
;;; that the above copyright notice appears in all copies and that
;;; both that copyright notice and this permission notice appear in
;;; all supporting documentation.
;;;
;;; THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED
;;; WARRANTY. ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR
;;; PURPOSE AND OF MERCHANTABILITY ARE HEREBY DISCLAIMED.
;;;
;;; AutoLISP routines used by the AutoCAD Release 12 Standard Menu.
(princ "\nAutoCAD Release 12 Men�-Dienstprogramme ")
;;;=== Icon Menu Functions ===
;;; View -> Layout -> Tiled Viewports...
(defun ai_tiledvp_chk ()
(setq m:err *error* *error* *merrmsg*)
(if (= (getvar "TILEMODE") 0)
(progn
(princ "\n** Befehl nur aufrufbar, wenn TILEMODE auf 1 (Ein) gesetzt ist **")
(princ)
)
(progn
(menucmd "I=VPORTI")
(menucmd "I=*")
)
)
(setq *error* m:err m:err nil)
(princ)
)
(defun ai_tiledvp (num ori / ai_tiles_g ai_tiles_cmde)
(setq m:err *error* *error* *merrmsg*
ai_tiles_cmde (getvar "CMDECHO")
ai_tiles_g (getvar "GRIDMODE")
)
(setvar "CMDECHO" 0)
(setvar "GRIDMODE" 0)
(cond ((= num 1)
(command "_.VPORTS" "_SI")
(setvar "GRIDMODE" ai_tiles_g)
)
((< num 4)
(command "_.VPORTS" "_SI")
(command "_.VPORTS" num ori)
(setvar "GRIDMODE" ai_tiles_g)
)
((= ori nil)
(command "_.VPORTS" "_SI")
(command "_.VPORTS" num)
(setvar "GRIDMODE" ai_tiles_g)
)
((= ori "L")
(command "_.UNDO" "_M")
(command "_.VPORTS" "_SI")
(command "_.VPORTS" "2" "")
(setvar "CVPORT" (car (cadr (vports))))
(command "_.VPORTS" "2" "")
(command "_.VPORTS" "_J" "" (car (cadr (vports))))
(setvar "CVPORT" (car (cadr (vports))))
(command "_.VPORTS" "3" "_H")
(setvar "GRIDMODE" ai_tiles_g)
(setvar "CVPORT" (car (cadddr (vports))))
(setvar "GRIDMODE" ai_tiles_g)
(setvar "CVPORT" (car (cadddr (vports))))
(setvar "GRIDMODE" ai_tiles_g)
(setvar "CVPORT" (car (cadddr (vports))))
(setvar "GRIDMODE" ai_tiles_g)
(command "_.UNDO" "_E")
)
(T
(command "_.UNDO" "_M")
(command "_.VPORTS" "_SI")
(command "_.VPORTS" "2" "")
(command "_.VPORTS" "2" "")
(setvar "CVPORT" (car (caddr (vports))))
(command "_.VPORTS" "_J" "" (car (caddr (vports))))
(setvar "CVPORT" (car (cadr (vports))))
(command "_.VPORTS" "3" "_H")
(setvar "GRIDMODE" ai_tiles_g)
(setvar "CVPORT" (car (cadddr (vports))))
(setvar "GRIDMODE" ai_tiles_g)
(setvar "CVPORT" (car (cadddr (vports))))
(setvar "GRIDMODE" ai_tiles_g)
(setvar "CVPORT" (car (cadddr (vports))))
(setvar "GRIDMODE" ai_tiles_g)
(command "_.UNDO" "_E")
)
)
(setq *error* m:err m:err nil)
(setvar "CMDECHO" ai_tiles_cmde)
(princ)
)
;;;=== Tablet Swap Functions ===
(defun ai_tab1 ()
(if (null T_MENU)
(setq T_MENU 0)
)
(if (= (logand 1 T_MENU) 1)
(progn (setq T_MENU (- T_MENU 1))
(if (< (getvar "EXPERT") 4)
(princ "\nAlternativer Tablettbereich 1 wurde desaktiviert.")
)
(menucmd "T1=TABLET1")
(if (< (getvar "EXPERT") 1)
(princ "\nW„hlen Sie eine Option des AutoCAD AME oder der AutoShade Tablettmen�s.\n")
)
)
(progn
(setq T_MENU (+ T_MENU 1))
(if (< (getvar "EXPERT") 4)
(princ "\nAlternativer Tablettbereich 1 geladen. ")
)
(menucmd "T1=TABLET1ALT")
(if (< (getvar "EXPERT") 1)
(princ "\nDieser Bereich steht Ihnen f�r Ihre eigenen Anwendungen und Men�-Optionen zur Verf�gung.\n")
)
)
)
(menucmd (strcat "s=HEADER" (itoa T_MENU)))
(princ)
)
(defun ai_tab2 ()
(if (null T_MENU) (setq T_MENU 0))
(if (= (logand 2 T_MENU) 2)
(progn
(setq T_MENU (- T_MENU 2))
(if (< (getvar "EXPERT") 4)
(princ "\nAlternativer Tablettbereich 2 wurde desaktiviert. ")
)
(menucmd "T2=TABLET2")
(if old_wv (setvar "WORLDVIEW" old_wv))
(if (< (getvar "EXPERT") 1)
(princ "\nBefehle transparent aufrufbar: APUNKT und DANSICHT im Weltansichtsmodus.\n")
)
)
(progn
(setq T_MENU (+ T_MENU 2))
(setq old_wv (getvar "WORLDVIEW"))
(setvar "WORLDVIEW" 0)
(if (< (getvar "EXPERT") 4)
(princ "\nAlternativer Tablettbereich 2 geladen. ")
)
(menucmd "T2=TABLET2ALT")
(if (< (getvar "EXPERT") 1)
(princ "\nZoom und andere Befehle geben CTRL-C Kombinationen aus: APUNKT und DANSICHT im aktuellen BKS-Modus.\n")
)
)
)
(menucmd (strcat "s=HEADER" (itoa T_MENU)))
(princ)
)
(defun ai_tab3 ()
(if (null T_MENU)
(setq T_MENU 0)
)
(if (= (logand 4 T_MENU) 4)
(progn
(setq T_MENU (- T_MENU 4))
(if (< (getvar "EXPERT") 4)
(princ "\nAlternativer Tablettbereich 3 wurde desaktiviert. ")
)
(menucmd "T3=TABLET3")
(if (< (getvar "EXPERT") 1)
(princ "\nW„hlen Sie metrische Einheiten aus dem Numerik-Men� aus.\n")
)
)
(progn
(setq T_MENU (+ T_MENU 4))
(if (< (getvar "EXPERT") 4)
(princ "\nAlternativer Tablettbereich 3 geladen. ")
)
(menucmd "T3=TABLET3ALT")
(if (< (getvar "EXPERT") 1)
(princ "\nW„hlen Sie amerikanische Einheiten aus dem Numerik-Men� aus.\n")
)
)
)
(menucmd (strcat "s=HEADER" (itoa T_MENU)))
(princ)
)
(defun ai_tab4 ()
(if (null T_MENU)
(setq T_MENU 0)
)
(if (= (logand 8 T_MENU) 8)
(progn
(setq T_MENU (- T_MENU 8))
(if (< (getvar "EXPERT") 4)
(princ "\nAlternativer Tablettbereich 4 wurde desaktiviert. ")
)
(menucmd "T4=TABLET4")
(if (< (getvar "EXPERT") 1)
(princ "\nObjektfangmodi geben Unterdr�ckungsanweisungen aus: Befehle werden NICHT wiederholt.\n")
)
)
(progn
(setq T_MENU (+ T_MENU 8))
(if (< (getvar "EXPERT") 4)
(princ "\nAlternativer Tablettbereich 4 geladen. ")
)
(menucmd "T4=TABLET4ALT")
(if (< (getvar "EXPERT") 1)
(princ "\nObjektfangmodi geben geben Anweisungen zum fortlaufenden Betrieb aus: Befehle werden wiederholt.\n")
)
)
)
(menucmd (strcat "s=HEADER" (itoa T_MENU)))
(princ)
)
;;;=== General Utility Functions ===
(defun *merr* (msg)
(setq *error* m:err m:err nil)
(princ)
)
(defun *merrmsg* (msg)
(princ msg)
(setq *error* m:err m:err nil)
(princ)
)
(defun c:rectang ( / cmde pt1 pt2)
(setq m:err *error* *error* *merr*
cmde (getvar "CMDECHO")
)
(setvar "CMDECHO" 0)
(setq pt1 (getpoint "\nErster Eckpunkt: ")
pt2 (getcorner pt1 "\nZweiter Eckpunkt: ")
)
(command "_.PLINE" pt1 (list (car pt1) (cadr pt2))
pt2 (list (car pt2) (cadr pt1))
"_C"
)
(setvar "CMDECHO" cmde)
(setq *error* m:err m:err nil)
(princ)
)
(defun c:rechteck() (c:rectang))
(defun c:ai_peditm (/ m:p0 m:p1)
(setq m:err *error* *error* *merr*)
(defun m:p0 (/ m:s1 m:e1 m:e2 m:e3)
(menucmd"S=X")
(menucmd"S=PSEL")
(while (not m:s1)
(if (setq m:s1 (ssget))
(progn
(setq m:e1 (ssname m:s1 0)
m:e2 (entget m:e1)
m:e3 (cdr (assoc 0 m:e2))
)
(if (= m:e3 "POLYLINE")
(m:p1)
(if (member m:e3 '("LINE" "ARC"))
(progn
(command "_.PEDIT" m:e1 pause)
(menucmd "S=X")
(menucmd "S=P0")
)
(progn
(terpri)
(princ "Das gew„hlte Objekt ist keine Polylinie.")
(terpri)
(setq m:s1 nil)
)
)
)
)
)
)
)
(defun m:p1 (/ m:a)
(menucmd"S=X")
(if (= (setq m:a (cdr (assoc 70 m:e2))) nil)
(menucmd"S=P0")
(progn
(setq m:a (/ m:a 2))
(if (>= m:a 8)
(menucmd"S=P16")
(if (< m:a 4)
(menucmd"S=P0")
(menucmd"S=P8")
)
)
)
)
(command "_.PEDIT" m:e1)
)
(m:p0)
(setq *error* m:err m:err nil)
(princ)
)
;;;=== Menu Functions ===
(defun ai_rootmenus ()
(setq T_MENU 0)
(menucmd "S=X")
(menucmd "S=S")
(menucmd "T2=TABLET2")
(menucmd "T3=TABLET3")
(menucmd "T4=TABLET4")
(princ)
)
(if (not (load "acadr12.lsp" nil))
(progn
(princ "Ladefehler.")
(princ "\nacadr12.lsp nicht gefunden. AutoLoader wurde desaktiviert. ")
(princ "Weitere Dienstprogramme ")
)
(progn
(ai_loadaverendr)
(ai_aloadame)
(ai_asegrey "~")
)
)
(setvar "MENUCTL" 1)
(princ "geladen.")
(princ)
MENU/ACAD.MNU
+6248
View File
File diff suppressed because it is too large Load Diff
MENU/ACAD.MNX
BIN
View File
Binary file not shown.
MENU/ACAD.PGP
+266
View File
@@ -0,0 +1,266 @@
; AutoCAD Program Parameters File For AutoCAD Release 14
; External Command and Command Alias Definitions
; Copyright (C) 1997 by Autodesk, Inc.
; Each time you open a new or existing drawing, AutoCAD searches
; the support path and reads the first acad.pgp file that it finds.
; While AutoCAD is running, you can invoke other programs or utilities,
; such Windows system commands, utilities, and applications.
; You define external commands by specifying a command name to be used
; from the AutoCAD command prompt and an executable command string
; that is passed to the operating system.
; You can abbreviate frequently used AutoCAD commands by defining
; aliases for them in the command alias section of acad.pgp.
; You can create a command alias for any AutoCAD command,
; device driver command, or external command.
; Recommendation: back up this file before editing it.
; There is a bonus application for editing command aliases as well as
; a sample acad.pgp file with many more command aliases.
; See the bonus\cadtools folder for more details.
; External command format:
; <Command name>,[<DOS request>],<Bit flag>,[*]<Prompt>,
; The bits of the bit flag have the following meanings:
; First bit (1): if set, don't wait for the application to finish
; Second bit (2): if set, run the application minimized
; Third bit (4): if set, run the application "hidden"
; Bits 2 and 4 are mutually exclusive; if both are specified only the 2 bit is used.
; The most useful values are likely to be 0 (start the application and wait
; for it to finish), 1 (start the application and don't wait), 3 (minimize and don't
; wait), and 5 (hide and don't wait). Values of 2 and 4 should normally be avoided,
; as they make AutoCAD unavailable until the application has completed.
; Examples of external commands for command windows
CATALOG, DIR /W, 0,File specification: ,
DEL, DEL, 0,File to delete: ,
DIR, DIR, 0,File specification: ,
EDIT, START EDIT, 1,File to edit: ,
SH, , 1,*OS Command: ,
SHELL, , 1,*OS Command: ,
START, START, 1,*Application to start: ,
TYPE, TYPE, 0,File to list: ,
; Examples of external commands for Windows
; See also the STARTAPP AutoLISP function for an alternative method.
EXPLORER, START EXPLORER, 1,,
NOTEPAD, START NOTEPAD, 1,*File to edit: ,
PBRUSH, START PBRUSH, 1,,
; Command alias format:
; <Alias>,*<Full command name>
; The following are guidelines for creating new command aliases.
; 1. Try the first character of the command, then try the first two,
; then the first three.
; 2. Ignore "DD" at the beginning of a command.
; 3. Abbreviate the following prefixes:
; Examples: 3 for 3D, A for ASE, D for Dim, I for Image, R for render.
; 4. Once an alias is defined, add suffixes for related aliases:
; Examples: R for Redraw, RA for Redrawall, L for Line, LT for Linetype.
; 5. An alias should reduce a command by at least two characters.
; 6. Commands with a control key equivalent, status bar button, or function key
; do not require a command alias.
; Examples: Use Control-N, -O, -P, and -S for New, Open, Print, and Save
; 7. Use a hyphen to differentiate between command line and dialog box commands.
; 8. Exceptions to the rules include AA for Area, T for Mtext, X for Explode.
; Sample aliases for AutoCAD commands
; These examples include most frequently used commands.
3A, *3DARRAY
3F, *3DFACE
3P, *3DPOLY
A, *ARC
AA, *AREA
AL, *ALIGN
AP, *APPLOAD
AR, *ARRAY
AAD, *ASEADMIN
AEX, *ASEEXPORT
ALI, *ASELINKS
ASQ, *ASESQLED
ARO, *ASEROWS
ASE, *ASESELECT
AT, *DDATTDEF
-AT, *ATTDEF
ATE, *DDATTE
-ATE, *ATTEDIT
B, *BMAKE
-B, *BLOCK
BH, *BHATCH
BO, *BOUNDARY
-BO, *-BOUNDARY
BR, *BREAK
C, *CIRCLE
CH, *DDCHPROP
-CH, *CHANGE
CHA, *CHAMFER
COL, *DDCOLOR
CO, *COPY
D, *DDIM
DAL, *DIMALIGNED
DAN, *DIMANGULAR
DBA, *DIMBASELINE
DCE, *DIMCENTER
DCO, *DIMCONTINUE
DDI, *DIMDIAMETER
DED, *DIMEDIT
DI, *DIST
DIV, *DIVIDE
DLI, *DIMLINEAR
DO, *DONUT
DOR, *DIMORDINATE
DOV, *DIMOVERRIDE
DR, *DRAWORDER
DRA, *DIMRADIUS
DST, *DIMSTYLE
DT, *DTEXT
DV, *DVIEW
E, *ERASE
ED, *DDEDIT
EL, *ELLIPSE
EX, *EXTEND
EXIT, *QUIT
EXP, *EXPORT
EXT, *EXTRUDE
F, *FILLET
FI, *FILTER
G, *GROUP
-G, *GROUP
GR, *DDGRIPS
H, *BHATCH
-H, *HATCH
HE, *HATCHEDIT
HI, *HIDE
I, *DDINSERT
-I, *INSERT
IAD, *IMAGEADJUST
IAT, *IMAGEATTACH
ICL, *IMAGECLIP
IM, *IMAGE
-IM, *-IMAGE
IMP, *IMPORT
IN, *INTERSECT
INF, *INTERFERE
IO, *INSERTOBJ
L, *LINE
LA, *LAYER
-LA, *-LAYER
LE, *LEADER
LEN, *LENGTHEN
LI, *LIST
LS, *LIST
LT, *LINETYPE
-LT, *-LINETYPE
LTS, *LTSCALE
M, *MOVE
MA, *MATCHPROP
ME, *MEASURE
MI, *MIRROR
ML, *MLINE
MO, *DDMODIFY
MS, *MSPACE
MT, *MTEXT
MV, *MVIEW
O, *OFFSET
OS, *DDOSNAP
-OS, *-OSNAP
P, *PAN
-P, *-PAN
PA, *PASTESPEC
PE, *PEDIT
PL, *PLINE
PO, *POINT
POL, *POLYGON
PR, *PREFERENCES
PRE, *PREVIEW
PRINT, *PLOT
PS, *PSPACE
PU, *PURGE
R, *REDRAW
RA, *REDRAWALL
RE, *REGEN
REA, *REGENALL
REC, *RECTANGLE
REG, *REGION
REN, *DDRENAME
-REN, *RENAME
REV, *REVOLVE
RM, *DDRMODES
RO, *ROTATE
RPR, *RPREF
RR, *RENDER
S, *STRETCH
SC, *SCALE
SCR, *SCRIPT
SE, *DDSELECT
SEC, *SECTION
SET, *SETVAR
SHA, *SHADE
SL, *SLICE
SN, *SNAP
SO, *SOLID
SP, *SPELL
SPL, *SPLINE
SPE, *SPLINEDIT
ST, *STYLE
SU, *SUBTRACT
T, *MTEXT
-T, *-MTEXT
TA, *TABLET
TH, *THICKNESS
TI, *TILEMODE
TO, *TOOLBAR
TOL, *TOLERANCE
TOR, *TORUS
TR, *TRIM
UC, *DDUCS
UCP, *DDUCSP
UN, *DDUNITS
-UN, *UNITS
UNI, *UNION
V, *DDVIEW
-V, *VIEW
VP, *DDVPOINT
-VP, *VPOINT
W, *WBLOCK
WE, *WEDGE
X, *EXPLODE
XA, *XATTACH
XB, *XBIND
-XB, *-XBIND
XC, *XCLIP
XL, *XLINE
XR, *XREF
-XR, *-XREF
Z, *ZOOM
; The following are alternative aliases and aliases as supplied in AutoCAD Release 13.
AV, *DSVIEWER
CP, *COPY
DIMALI, *DIMALIGNED
DIMANG, *DIMANGULAR
DIMBASE, *DIMBASELINE
DIMCONT, *DIMCONTINUE
DIMDIA, *DIMDIAMETER
DIMED, *DIMEDIT
DIMTED, *DIMTEDIT
DIMLIN, *DIMLINEAR
DIMORD, *DIMORDINATE
DIMRAD, *DIMRADIUS
DIMSTY, *DIMSTYLE
DIMOVER, *DIMOVERRIDE
LEAD, *LEADER
TM, *TILEMODE
MENU/ACADLIN.OLD
+67
View File
@@ -0,0 +1,67 @@
;;
;; Ver. 1.1 - AutoCAD Linientyp-Datei
;;
;; Zwei Varianten von Linientypen wurden dieser Datei hinzugef�gt.
;; Eine ist die H„lfte des orginal Linientyps, die Andere das Doppelte
;; des orginal Linientyps.
;;
;;
;; 1/28/90 - Amy Berger
;;
*RAND,__ __ . __ __ . __ __ . __ __ . __ __ . __ __ . __ __ . __ __ .
A,.5,-.25,.5,-.25,0,-.25
*RAND2,__.__.__.__.__.__.__.__.__.__.__.__.__.__.__.__.__.__.__.__.__
A,.25,-.125,.25,-.125,0,-.125
*RANDX2,____ ____ . ____ ____ . ____ ____ . ____ ____ .
A,1.0,-.5,1.0,-.5,0,-.5
*MITTE,____ _ ____ _ ____ _ ____ _ ____ _ ____ _ ____ _ ____ _ ____ _
A,1.25,-.25,.25,-.25
*MITTE2,___ _ ___ _ ___ _ ___ _ ___ _ ___ _ ___ _ ___ _ ___ _ ___ _ _
A,.75,-.125,.125,-.125
*MITTEX2,________ __ ________ __ ________ __ ________ __ ____
A,2.5,-.5,.5,-.5
*STRICHPUNKT,__ . __ . __ . __ . __ . __ . __ . __ . __ . __ . __ . __ . _
A,500,-250,0,-250
*STRICHPUNKT2,_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._.
A,.25,-.125,0,-.125
*STRICHPUNKTX2,____ . ____ . ____ . ____ . ____ . ____ . ____
A,1.0,-.5,0,-.5
*GESTRICHELT,__ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __
A,250,-250
*GESTRICHELT2,_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
A,.25,-.125
*GESTRICHELTX2,____ ____ ____ ____ ____ ____ ____ ____ ____ ____
A,1.0,-.5
*GETRENNT,____ . . ____ . . ____ . . ____ . . ____ . . ____ . . ____ . .
A,.5,-.25,0,-.25,0,-.25
*GETRENNT2,__..__..__..__..__..__..__..__..__..__..__..__..__..__..__..__..
A,.25,-.125,0,-.125,0,-.125
*GETRENNTX2,________ . . ________ . . ________ . . ________ . .
A,1.0,-.5,0,-.5,0,-.5
*PUNKT,. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
A,0,-.25
*PUNKT2,................................................................
A,0,-.125
*PUNKTX2,. . . . . . . . . . . . . . . . . . . . .
A,0,-.5
*VERDECKT,__ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __
A,.25,-.125
*VERDECKT2,_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
A,.125,-.0625
*VERDECKTX2,____ ____ ____ ____ ____ ____ ____ ____ ____ ____ ____ ____
A,.5,-.25
*PHANTOM,______ __ __ ______ __ __ ______ __ __ ______ __ __
A,1.25,-.25,.25,-.25,.25,-.25
*PHANTOM2,___ _ _ ___ _ _ ___ _ _ ___ _ _ ___ _ _ ___ _ _ ___ _ _ ___ _ _
A,.625,-.125,.125,-.125,.125,-.125
*PHANTOMX2,____________ ____ ____ ____________ ____ ____
A,2.5,-.5,.5,-.5,.5,-.5

MENU/ACADLSP.OLD
+45
View File
@@ -0,0 +1,45 @@
(vmon)
;(defun s::startup ()
(setq lw "g:")
(setq
;--------------------------------------- Vorbelegung der Layer
;der aufruf des layer erfolgt immer durch (nth nummer v-col)
;nummer liegt zwischen 1...10 kann aber beliebig erweitert werden
; belegung der layernamen
;in v-lay stehen die layernamen
v-lay (list "0" "1" "2" "3" "4" "5" "6" "7" "8" "9" "10")
; belegung der Farben
;in v-col stehen die farben
;die reihenfolge entspricht der layerliste
v-col (list "7" "1" "2" "3" "4" "5" "6" "7" "8" "9" "10")
; belegung der Stricharten
;in v-ltyp stehen die entsprechenden linientypen
v-ltyp (list "continuous" "continuous" "continuous" "continuous" "continuous" "continuous" "continuous" "continuous" "continuous" "continuous" "continuous" )
)
;----------------------------------------------------------------------------
(if (= g_l 0)(setq g_l 3))
(setvar "cmdecho" 0)
(setq g_si2 (getvar "tdindwg"))
(prompt "\nSST-Menu.......... (c) SCHOENENBERGER Systeme GmbH ")
(load "dingen")
;v-lay richtig belegen
(if (/= (setq du
(substr (getvar "clayer") 1 (searc "-" (getvar "clayer")))) nil)
(progn
(setq ct (- (length v-lay) 1))
(while (>= ct 0)
(setq v-lay (subst (strcat du (nth ct v-lay)) (nth ct v-lay) v-lay)
ct (- ct 1)))
))
; Status-Line Configuration
;(load "mode1")
; SST - Toolbox Einstellungen laden
(load "sstbase")
(princ)

MENU/ACAD_130829.LSP
+15
View File
@@ -0,0 +1,15 @@
(vmon)
(setq lw "M:")
;----------------------------------------------------------------------------
(setvar "cmdecho" 0)
(setq g_si2 (getvar "tdindwg"))
(prompt "\nSSG-Menu.. (c) 2006 by SCHOENENBERGER Systeme GmbH - All rights reserved")
(prompt " ")
(load (strcat lw "/acadsst/menu/ssg.lsp"))
(princ)
MENU/ACAD_DOS.MNC
BIN
View File
Binary file not shown.
MENU/ACAD_DOS.MNR
BIN
View File
Binary file not shown.
MENU/ACAD_DOS.MNS
+5975
View File
File diff suppressed because it is too large Load Diff
MENU/ACAD_DOS.MNU
+6248
View File
File diff suppressed because it is too large Load Diff
MENU/ACAD_DOS.MNX
BIN
View File
Binary file not shown.
MENU/ACI4FA81.ac$
+38
View File
@@ -0,0 +1,38 @@
106 37 1 0
body $1 $2 $-1 $-1 #
ref_vt-lwd-attrib $-1 $-1 $-1 $0 $3 $4 #
lump $5 $-1 $6 $0 #
refinement $-1 0 0 0 0 2.4304018020629883 30 0 4 0 0 #
vertex_template $-1 3 0 1 8 #
ref_vt-lwd-attrib $-1 $-1 $-1 $2 $3 $4 #
shell $7 $-1 $-1 $8 $2 #
ref_vt-lwd-attrib $-1 $-1 $-1 $6 $3 $4 #
face $9 $-1 $10 $6 $-1 $11 forward double out #
fmesh-lwd-attrib $-1 $12 $-1 $8 #
loop $-1 $-1 $13 $8 #
plane-surface $-1 1455 747.10775594598999 0 0 0 1 1 0 0 1 I I I I #
ref_vt-lwd-attrib $-1 $-1 $9 $8 $3 $4 #
coedge $-1 $14 $15 $-1 $16 0 $10 $-1 #
coedge $-1 $17 $13 $-1 $18 0 $10 $-1 #
coedge $-1 $13 $17 $-1 $19 0 $10 $-1 #
edge $20 $21 $22 $13 $23 0 #
coedge $-1 $15 $14 $-1 $24 0 $10 $-1 #
edge $25 $22 $26 $14 $27 0 #
edge $28 $29 $21 $15 $30 0 #
ptlist-lwd-attrib $-1 $-1 $-1 $16 #
vertex $-1 $16 $31 #
vertex $-1 $16 $32 #
straight-curve $-1 1482 745.60775594598999 0 0 1 0 I I #
edge $33 $26 $29 $17 $34 0 #
ptlist-lwd-attrib $-1 $-1 $-1 $18 #
vertex $-1 $18 $35 #
straight-curve $-1 1482 748.60775594598999 0 -1 0 0 I I #
ptlist-lwd-attrib $-1 $-1 $-1 $19 #
vertex $-1 $24 $36 #
straight-curve $-1 1428 745.60775594598999 0 1 0 0 I I #
point $-1 1482 745.60775594598999 0 #
point $-1 1482 748.60775594598999 0 #
ptlist-lwd-attrib $-1 $-1 $-1 $24 #
straight-curve $-1 1428 748.60775594598999 0 0 -1 0 I I #
point $-1 1428 748.60775594598999 0 #
point $-1 1428 745.60775594598999 0 #
MENU/ACI558AA.ac$
+38
View File
@@ -0,0 +1,38 @@
106 37 1 0
body $1 $2 $-1 $-1 #
ref_vt-lwd-attrib $-1 $-1 $-1 $0 $3 $4 #
lump $5 $-1 $6 $0 #
refinement $-1 0 0 0 0 2.4304018020629883 30 0 4 0 0 #
vertex_template $-1 3 0 1 8 #
ref_vt-lwd-attrib $-1 $-1 $-1 $2 $3 $4 #
shell $7 $-1 $-1 $8 $2 #
ref_vt-lwd-attrib $-1 $-1 $-1 $6 $3 $4 #
face $9 $-1 $10 $6 $-1 $11 forward double out #
fmesh-lwd-attrib $-1 $12 $-1 $8 #
loop $-1 $-1 $13 $8 #
plane-surface $-1 2643 414.10775594598999 0 0 0 1 1 0 0 1 I I I I #
ref_vt-lwd-attrib $-1 $-1 $9 $8 $3 $4 #
coedge $-1 $14 $15 $-1 $16 0 $10 $-1 #
coedge $-1 $17 $13 $-1 $18 0 $10 $-1 #
coedge $-1 $13 $17 $-1 $19 0 $10 $-1 #
edge $20 $21 $22 $13 $23 0 #
coedge $-1 $15 $14 $-1 $24 0 $10 $-1 #
edge $25 $22 $26 $14 $27 0 #
edge $28 $29 $21 $15 $30 0 #
ptlist-lwd-attrib $-1 $-1 $-1 $16 #
vertex $-1 $16 $31 #
vertex $-1 $16 $32 #
straight-curve $-1 2670 412.60775594598999 0 0 1 0 I I #
edge $33 $26 $29 $17 $34 0 #
ptlist-lwd-attrib $-1 $-1 $-1 $18 #
vertex $-1 $18 $35 #
straight-curve $-1 2670 415.60775594598999 0 -1 0 0 I I #
ptlist-lwd-attrib $-1 $-1 $-1 $19 #
vertex $-1 $24 $36 #
straight-curve $-1 2616 412.60775594598999 0 1 0 0 I I #
point $-1 2670 412.60775594598999 0 #
point $-1 2670 415.60775594598999 0 #
ptlist-lwd-attrib $-1 $-1 $-1 $24 #
straight-curve $-1 2616 415.60775594598999 0 0 -1 0 I I #
point $-1 2616 415.60775594598999 0 #
point $-1 2616 412.60775594598999 0 #
MENU/ACI588C8.ac$
View File
MENU/ACIB595A.ac$
+38
View File
@@ -0,0 +1,38 @@
106 37 1 0
body $1 $2 $-1 $-1 #
ref_vt-lwd-attrib $-1 $-1 $-1 $0 $3 $4 #
lump $5 $-1 $6 $0 #
refinement $-1 0 0 0 0 2.4304018020629883 30 0 4 0 0 #
vertex_template $-1 3 0 1 8 #
ref_vt-lwd-attrib $-1 $-1 $-1 $2 $3 $4 #
shell $7 $-1 $-1 $8 $2 #
ref_vt-lwd-attrib $-1 $-1 $-1 $6 $3 $4 #
face $9 $-1 $10 $6 $-1 $11 forward double out #
fmesh-lwd-attrib $-1 $12 $-1 $8 #
loop $-1 $-1 $13 $8 #
plane-surface $-1 137800.62629626726 18942.109944619384 0 0 0 1 25.41 0 0 1 I I I I #
ref_vt-lwd-attrib $-1 $-1 $9 $8 $3 $4 #
coedge $-1 $14 $15 $-1 $16 0 $10 $-1 #
coedge $-1 $17 $13 $-1 $18 0 $10 $-1 #
coedge $-1 $13 $17 $-1 $19 0 $10 $-1 #
edge $20 $21 $22 $13 $23 0 #
coedge $-1 $15 $14 $-1 $24 0 $10 $-1 #
edge $25 $22 $26 $14 $27 0 #
edge $28 $29 $21 $15 $30 0 #
ptlist-lwd-attrib $-1 $-1 $-1 $16 #
vertex $-1 $16 $31 #
vertex $-1 $16 $32 #
straight-curve $-1 137838.74129626731 17569.969944619384 0 0 25.41 0 I I #
edge $33 $26 $29 $17 $34 0 #
ptlist-lwd-attrib $-1 $-1 $-1 $18 #
vertex $-1 $18 $35 #
straight-curve $-1 137838.74129626731 20314.249944619383 0 -25.41 0 0 I I #
ptlist-lwd-attrib $-1 $-1 $-1 $19 #
vertex $-1 $24 $36 #
straight-curve $-1 137762.51129626727 17569.969944619384 0 25.41 0 0 I I #
point $-1 137838.74129626731 17569.969944619384 0 #
point $-1 137838.74129626731 20314.249944619383 0 #
ptlist-lwd-attrib $-1 $-1 $-1 $24 #
straight-curve $-1 137762.51129626727 20314.249944619383 0 0 -25.41 0 I I #
point $-1 137762.51129626727 20314.249944619383 0 #
point $-1 137762.51129626727 17569.969944619384 0 #
MENU/ACIS.ac$
+38
View File
@@ -0,0 +1,38 @@
106 37 1 0
body $1 $2 $-1 $-1 #
ref_vt-lwd-attrib $-1 $-1 $-1 $0 $3 $4 #
lump $5 $-1 $6 $0 #
refinement $-1 0 0 0 0 2.4304018020629883 30 0 4 0 0 #
vertex_template $-1 3 0 1 8 #
ref_vt-lwd-attrib $-1 $-1 $-1 $2 $3 $4 #
shell $7 $-1 $-1 $8 $2 #
ref_vt-lwd-attrib $-1 $-1 $-1 $6 $3 $4 #
face $9 $-1 $10 $6 $-1 $11 forward double out #
fmesh-lwd-attrib $-1 $12 $-1 $8 #
loop $-1 $-1 $13 $8 #
plane-surface $-1 151522.02629626729 21762.619944619386 0 0 0 1 25.41 0 0 1 I I I I #
ref_vt-lwd-attrib $-1 $-1 $9 $8 $3 $4 #
coedge $-1 $14 $15 $-1 $16 0 $10 $-1 #
coedge $-1 $17 $13 $-1 $18 0 $10 $-1 #
coedge $-1 $13 $17 $-1 $19 0 $10 $-1 #
edge $20 $21 $22 $13 $23 0 #
coedge $-1 $15 $14 $-1 $24 0 $10 $-1 #
edge $25 $22 $26 $14 $27 0 #
edge $28 $29 $21 $15 $30 0 #
ptlist-lwd-attrib $-1 $-1 $-1 $16 #
vertex $-1 $16 $31 #
vertex $-1 $16 $32 #
straight-curve $-1 151560.14129626728 20390.479944619387 0 0 25.41 0 I I #
edge $33 $26 $29 $17 $34 0 #
ptlist-lwd-attrib $-1 $-1 $-1 $18 #
vertex $-1 $18 $35 #
straight-curve $-1 151560.14129626728 23134.759944619385 0 -25.41 0 0 I I #
ptlist-lwd-attrib $-1 $-1 $-1 $19 #
vertex $-1 $24 $36 #
straight-curve $-1 151483.9112962673 20390.479944619387 0 25.41 0 0 I I #
point $-1 151560.14129626728 20390.479944619387 0 #
point $-1 151560.14129626728 23134.759944619385 0 #
ptlist-lwd-attrib $-1 $-1 $-1 $24 #
straight-curve $-1 151483.9112962673 23134.759944619385 0 0 -25.41 0 I I #
point $-1 151483.9112962673 23134.759944619385 0 #
point $-1 151483.9112962673 20390.479944619387 0 #
MENU/AKTLAYER.LSP
+13
View File
@@ -0,0 +1,13 @@
(Defun C:LSETZEN ()
(Setvar "Cmdecho" 0)
(Setq A (Entsel "\nPick Objekt on the desired Layer: "))
(If
A
(Progn
(Setq A (Cdr (Assoc 8 (Entget (Car A)))))
(Command "_Layer" "_SE" _A "")
)
)
(Princ)
)

MENU/ALTABST.LSP
+26
View File
@@ -0,0 +1,26 @@
;-------------------
; Text einpassen
; eingebaut in e3f2
;-------------------
(Defun C:Teinpass ()
(Setq S (Entsel "\nPick the text "))
(Setq S (Car S))
(Setq E (Entget S))
(Setvar "Orthomode" 1)
(Setq P1 (Cdr (Assoc 10 E)))
(Setq P3 (Getdist P1 "\nPick the end of the text: "))
(Setq P1 (Getpoint "\nNew first Point: "))
(Setq P2 (Getpoint P1 "\nNew second Point: "))
(Setq OLD (Assoc 41 E))
(Setq RATIO (* (/ (Distance P1 P2) P3) (Cdr OLD)))
(Setq RATIO (Cons 41 RATIO))
(Setq E (Subst Ratio OLD E))
(Setq P1 (Cons 10 P1))
(Setq P2 (Cons 11 P2))
(Setq OLD (Assoc 10 E))
(Setq E (Subst P1 OLD E))
(Setq OLD (Assoc 11 E))
(Entmod (Subst P2 OLD E))
(Print)
)

MENU/ALTHOEHE.LSP
+54
View File
@@ -0,0 +1,54 @@
;----------------------------
; Text H”he „ndern 30.6.91
; eingabut in e3f4
;---------------------------
(Defun C:Tsz (/ G A B C D E F)
(Setvar "Cmdecho" 0)
(Initget 1 "A H ")
(Setq G (Strcase (Substr (Getkword "Height/<Select>: ") 1 1)))
(Cond
((Or (= G "S") (= G ""))
(Setq A (Ssget))
(Setq B (Sslength A))
(Initget 7) (Setq C (Getdist "\nNew Text-Height: "))
(While
(> B 0)
(Setq B (1- B))
(Setq D (Ssname A B))
(Setq D (Entget D))
(If (= "TEXT" (Cdr (Assoc 0 D)))
(progn
(Setq E (Assoc 40 D))
(Setq F (Cons 40 C))
(Entmod (Setq D (Subst F E D)))))
)
(Setq A nil)
)
((= G "H")
(Initget 7) (Setq A (Getdist "\nOld Text-Height: "))
(Setq B (Fix (* 100 A)))
(Initget 7) (Setq C (Getdist "\nNew Text-Height: "))
(Setq D (Entnext))
(Setq E (Cons 40 C))
(While
D
(Princ ".")
(Setq F (Assoc 0 (Entget D)))
(If
(= "TEXT" (Cdr F))
(Progn
(Setq F (Assoc 40 (Entget D)))
(Setq G (Fix (* 100 (Cdr F))))
(If
(= B G)
(Entmod (Subst E F (Entget D)))
)
)
)
(Setq D (Entnext D))
)
)
)
(Princ)
)

MENU/ALTLAYER.LSP
+46
View File
@@ -0,0 +1,46 @@
(Defun C:O2LA ()
(Setvar "Cmdecho" 0)
(Setq A (SSget))
(If
A
(Progn
(Setq B (Getstring "\nName of the Target-Layer: "))
; (Setq farbe (Getstring "\nTarget-Color: "))
(If
(= nil (Tblsearch "Layer" B))
(Progn
(Princ (Strcat "\nLayer " B " do not exist!"))
(Initget 1 "J N")
(Setq C (Getkword "\nMake a new layer ? (Y/N): "))
(If
(= "Y" C)
(Command "_Layer" "_New" B "" "_change" A "" "_prop" "_LA" B "")
)
)
(Command "_change" A "" "_prop" "_LA" B "")
; (Command "_change" A "_prop" "_color" farbe "")
)
)
)
(Princ)
)
(Defun C:O2LB ()
(Setvar "Cmdecho" 0)
(Setq A (SSget))
(If
A
(Progn
(Setq B (Entsel "\nSelect object on the Target-Layer: "))
(If
B
(Progn
(Setq B (Cdr (Assoc 8 (Entget (Car B)))))
(Command "_change" A "" "_prop" "_LA" B "")
)
)
)
)
(Princ)
)

MENU/ALTLIN.LSP
+34
View File
@@ -0,0 +1,34 @@
;--------------------------------
; Change Linelength 30.6.91 AW
;-------------------------------
(Defun C:LAENAEND ()
(Setvar "Cmdecho" 0)
(Setq OM (Getvar "Orthomode"))
(Setvar "Orthomode" 0)
(Setq A (Entsel "\nSelect a line: "))
(If
A
(Progn
(Setq B (Entget (Car A)))
(If
(= "LINE" (Cdr (Assoc 0 B)))
(Progn
(Setq P1 (Osnap (Cadr A) "END"))
(Setq P2 (Osnap (Cadr A) "MIT"))
(Initget 1)
(Setq D1 (Distance (Cdr (Assoc 10 B)) (Cdr (Assoc 11 B))))
(Setq D1 (Rtos D1 (Getvar "Lunits") (Getvar "Luprec")))
(Princ (Strcat "\nActual Length: " D1))
(Setq D2 (Getdist "\nLength to add: "))
(Setq P3 (Polar P1 (Angle P2 P1) D2))
(Command "_change" (Car A) "" P3)
)
(Princ "\nThe picked object ist not a Line!")
)
)
(Princ "\nNo object found!")
)
(Setvar "Orthomode" OM)
(Princ)
)

MENU/ALTSTIL.LSP
+60
View File
@@ -0,0 +1,60 @@
;-----------------------------
; Change Text Stil 30.6.91 AW
;-----------------------------
(Defun C:Ts ()
(Setvar "Cmdecho" 0)
(Initget 1 "A S ")
(Setq G (Strcase (Substr (Getkword "Auswahl/<Style>: ") 1 1)))
(Cond
((= G "A")
(Setq A (Ssget))
(Setq B (Sslength A))
(Initget 1) (Setq C (Getstring "\nNew Textstyle: "))
(Extang C)
(While
(> B 0)
(Setq B (1- B))
(Setq D (Ssname A B))
(Setq D (Entget D))
(Setq E (Assoc 7 D))
(Setq F (Cons 7 C))
(Setq D (Subst F E D))
(Setq H (Assoc 51 D))
(Setq I (Cons 51 J))
(Entmod (Subst I H D))
)
(Setq A nil)
)
((Or (= G "S") (= G ""))
(Initget 1)
(Setq A (Strcase (Getstring "\nOld Textstyle: ")))
(Initget 1) (Setq C (Getstring "\nNew Textstil: "))
(Setq D (Entnext))
(Extang C)
(While
D
(Princ ".")
(Setq E (Entget D))
(If
(And (= "TEXT" (Cdr (Assoc 0 E))) (= A (Cdr (Assoc 7 E))))
(Progn
(Setq F (Assoc 7 E))
(Setq G (Cons 7 C))
(Setq E (Subst G F E))
(Setq H (Assoc 51 E))
(Setq I (Cons 51 J))
(Entmod (Subst I H E))
)
)
(Setq D (Entnext D))
)
)
)
(Princ)
)
(Defun Extang (A)
(Setq A (Tblsearch "STYLE" A))
(Setq J (Cdr (Assoc 50 A)))
)

MENU/ALTSTR.LSP
+97
View File
@@ -0,0 +1,97 @@
;-------------------------------
; Change Text String 30.6.91 AW
;-------------------------------
(Defun C:Ct ()
(Setvar "Cmdecho" 0)
(Setq B 0)
(Initget 1 "G P")
(Setq F (Getkword "Change text - Global/Part: "))
(Setq A (Ssget))
(If
A
(Cond
((= F "G")
(Repeat
(Sslength A)
(If
(/= "TEXT"
(Cdr (Assoc 0 (Setq E (Entget (Setq C (Ssname A B))))))
)
(Setq B (1+ B))
(Progn
(Command "WAHL" C)
(Setq G (Strlen (Setq D
(Getstring t "\nNew Text: ")))
)
(Setq H (Cdr (Assoc 1 E)))
(Cond
((And (/= D "") (= "<>" (Substr D 1 2)))
(Setq D (Strcat H (Substr D 3 (- G 2))))
)
((And (/= D "") (= "<>" (Substr D (- G 1) 2)))
(Setq D (Strcat (Substr D 1 (- G 2)) H))
)
)
(If
(/= D "")
(Progn
(Setq E (Subst (Cons 1 D) (Assoc 1 E) E))
(Entmod E)
)
)
(Setq B (1+ B))
(Command "")
)
)
)
)
((= F "P")
(Progn
(Setq D (Strlen (Setq C (Getstring t "\nOld String: "))))
(Setq G (Getstring t "\nNew String: "))
(Princ "\nWorking...")
(Repeat
(Sslength A)
(Princ ".")
(If
(= "TEXT" (Cdr (Assoc 0 (Setq E (Entget (Ssname A B))))))
(Progn
(Setq K (Cdr (Assoc 1 E)))
(Setq H 1)
(If
(= C (Substr G (- (Strlen G) (- (Strlen C) 1))))
(Setq I D)
(Setq I 0)
)
(While
(= D (Strlen (Setq J (Substr K H D))))
(Princ ".")
(If
(= J C)
(Progn
(Setq K (Strcat (Substr K 1 (1- H)) G
(Substr K (+ H D)))
)
(Setq H (+ (- (Strlen G) 1) H I))
)
(Setq H (1+ H))
)
)
(If
(/= K (Cdr (Assoc 1 E)))
(Progn
(Setq E (Subst (Cons 1 K) (Assoc 1 E) E))
(Entmod E)
)
)
)
)
(Setq B (1+ B))
)
)
)
)
)
(Princ)
)

MENU/ALU.SLB
BIN
View File
Binary file not shown.
MENU/ALU1.SLB
BIN
View File
Binary file not shown.
MENU/ALU2.SLB
BIN
View File
Binary file not shown.
MENU/ALU3.SLB
BIN
View File
Binary file not shown.
MENU/ALU4.SLB
BIN
View File
Binary file not shown.
MENU/ALU5.SLB
BIN
View File
Binary file not shown.
MENU/ALU5_140308.SLB
BIN
View File
Binary file not shown.
MENU/ARBPLZ.SLB
BIN
View File
Binary file not shown.
MENU/ARR.DWG
BIN
View File
Binary file not shown.
MENU/ART.DWG
BIN
View File
Binary file not shown.
MENU/ARTINR.DWG
BIN
View File
Binary file not shown.
MENU/ASCTEXT.LSP
+408
View File
@@ -0,0 +1,408 @@
;;; --------------------------------------------------------------------------;
;;; ASCTEXT.LSP
;;; Copyright (C) 1990 by Autodesk, Inc.
;;;
;;; DIESE SOFTWARE WIRD WIRD OHNE JEGLICHE AUSDRUECKLICHE ODER STILL-
;;; SCHWEIGENDE GEWAEHRLEISTUNG GELIEFERT.
;;; ALLE GEWAEHRLEISTUNGEN DER EIGNUNG FUER BESONDERE VERWENDUNG UND
;;; LAUFFAEHIGKEIT WERDEN HIERMIT ABGELEHNT.
;;;
;;; By Simon Jones Autodesk Ltd, London 4 July 1986
;;;
;;; Modified for use with AutoCAD 2.6 23 April 1987
;;; f�r Release 11 aktualisiert July 1990
;;; --------------------------------------------------------------------------;
;;; BESCHREIBUNG
;;;
;;; ASCTEXT.LSP wird verwendet, um ASCII-Textdateien in AutoCAD
;;; Zeichnungen einzuf�gen. Der Textblock kann im Links/Zentrum/
;;; Rechts oder Mitte-Modus eingef�gt werden.
;;; Der Dateiname muss mit Erweiterung angegeben werden. Die
;;; Eingabe Dateiprefix ist gestattet.z. B.: /acad/sample.txt oder
;;; \\acad\sample.txt
;;; Abgesehen von der H”he (ausser wenn fixiert) und dem Drehwinkel
;;; stehen folgende Optionen zur Verf�gung.
;;; Abstand zwischen den Zeilen.
;;; Erste zu lesende Zeile.
;;; Anzahl zu lesender Zeilen.
;;; Allgemeines �ber- oder unterstreichen.
;;; Allgemeine Gross/Kleinschreibung.
;;; & Kolonnendefinition.
;;;
;;; --------------------------------------------------------------------------;
;;;
;;; -------: Globale Variablen
;;; at_ang : Letzter Winkel (f�r Vorgabewert)
;;; at_fnm : Letzte Datei (f�r Vorgabewert)
;;; rtfile : Datei zu lesen
;;; ang :Drehwinkel
;;; c :Gesamte Zeilenanzahl
;;; cd :Kolonnenabstand
;;; d :Zeilenabstand
;;; eof :Zeilenendeflags
;;; l1 :Erste zu lesende Zeile
;;; h :Texth”he
;;; j :Textausrichtung
;;; lc :Nummer der Kolonnenzeile
;;; n :Anzahl zu lesender Zeilen
;;; nl :Anzahl der Zeilen pro Kolonne
;;; opt :Optionsliste
;;; pt :Texteinf�gepunkt
;;; pt1 :erster Texteinf�gepunkt
;;; rf :zu lesende Datei
;;; s :Textstring
;;; ts :Textstilliste
;;; ul :Gross-/Kleinschreibung
;;;
;;;---------------------------------------------------------------------------;
;;;
;;; Systemvariablen Sichern
;;;
(defun MODES (a)
(setq MLST '
())
(repeat (length a)
(setq MLST (append MLST (list (list (car a) (getvar (car a))))))
(setq a (cdr a))
)
)
;;;
;;; gesicherte Systemvariablen Wiederherstellen
;;;
(defun MODER ()
(repeat (length MLST)
(setvar (caar MLST) (cadar MLST))
(setq MLST (cdr MLST))
)
)
;;;
;;; ASCII Text Fehlerbehandlung
;;;
(defun at_err (st) ; Wenn ein Fehler (z.B. CTRL-C)
; w„hrend der Befehlsausf�hrung
; auftritt...
(if (/= st "Funktion abgebrochen")
(princ (strcat "\nFehler: " st))
)
(moder) ; Modi zur�cksetzen
(if (= (type rtfile) 'FILE)
(close rtfile)
)
(setq rtfile nil)
(setq *error* olderr) ; Fehlerbehandlung zur�cksetzen
(princ)
)
;;;
;;; Funktion f�r Texteinf�gung und Neuberechnung des Texteinf�gepunktes
;;;
(defun 1LTXT ()
(if (member '1 opt)
(setq s (strcat "%%u" s "%%u"))
)
(if (member '2 opt)
(setq s (strcat "%%o" s "%%o"))
)
(if (member '4 opt)
(setq s (strcase s))
)
(if (member '8 opt)
(setq s (strcase s T))
)
(if (and (= lc (1+ nl)) (/= nl 0))
(progn
(setq lc 1)
(setq pt (polar pt1 ang cd))
(setq pt1 pt)
)
)
;(grread)
(cond
((and (= j "Ausrichten") h) (command "TEXT" j pt pt2 s))
((and (= j "Ausrichten") (null h)) (command "TEXT" j pt pt2 s))
((and (= j "Einpassen") h) (command "TEXT" j pt pt2 h (rtd ang) s))
((and (= j "Einpassen") (null h)) (command "TEXT" j pt pt2 (rtd ang) s))
((and (= j "L") h) (command "TEXT" pt h (rtd ang) s))
((and (= j "L") (null h)) (command "TEXT" pt (rtd ang) s))
((and (/= j "L") h) (command "TEXT" j pt h (rtd ang) s))
((and (/= j "L") (null h)) (command "TEXT" j pt (rtd ang) s))
)
(if (/= d "Auto")
(if (= (cdr (assoc 70 ts)) 4)
(setq pt (polar pt (+ (dtr 90) ang) d))
(setq pt (polar pt (+ (dtr 270) ang) d))
)
)
(setq c (1+ c))
(if (= c n)
(setq eof T)
)
)
;;;
;;; Grad in Radiant umrechnen
;;;
(defun DTR (y)
(* pi (/ y 180.0))
)
;;;
;;; Radians to degrees conversion
;;;
(defun RTD (Y)
(* 180.0 (/ y pi))
)
;;;
;;; Liste der Optionen
;;;
(defun justpn ()
(if (getvar "DIMCLRD") (textpage))
(princ "\nAusrichtungsoptionen: ")
(princ "\n\t OLinks OZentriert ORechts ")
(princ "\n\t MLinks MZentriert MRechts ")
(princ "\n\t ULinks UZentriert URechts ")
(princ "\n\t Links Zentriert Rechts ")
(princ "\n\tAusrichten Mitte Einpassen ")
(if (not (getvar "DIMCLRD")) (textscr))
(princ "\n\nBeliebige Taste dr�cken, um zur Zeichnung zur�ckzukehren. ")
(grread)
(princ "\r ")
(graphscr)
)
;;;
;;; -------------------------- HAUPT PROGRAMM ----------------------------------
;;;
(defun asctxt (/ olderr ang c cd d eof rtfile rf rfa h j l1 opt pt pt1 ts n nl
lc s ul) ; at_ang = Vorgabewinkel
; at_fnm = Vorgabedatei
(setq olderr *error*
*error* at_err)
(modes '("BLIPMODE" "CMDECHO" "HIGHLIGHT")
)
(while (null rtfile) ; Anfrage nach einzuf�gender Datei
(if (null at_fnm)
(progn
(initget 1)
(princ "\nZu lesende Datei (mit Dateierweiterung): ")
)
(progn
(princ "\nZu lesende Datei (mit Dateierweiterung)/<")
(princ (strcat at_fnm ">: "))
)
)
(setq rf (getstring))
(if (and (= rf "") (/= nil at_fnm))
(setq rf at_fnm)
)
(setq rfa (findfile rf))
(if rfa
(progn
(setq at_fnm rfa)
(if (null (setq rtfile (open rfa "r")))
(princ (strcat
"\n\tDatei " at_fnm " gefunden, kann sie aber nicht zum Lesen ”ffnen. "))
)
)
(if (/= (substr rf (- (strlen rf) 3) 1) ".")
(princ "\nDatei nicht gefunden. Eventuell haben Sie die Erweiterung vergessen.")
(princ "\nDatei nicht gefunden. ")
)
)
)
(setq cont T)
;; Anfrage nach dem Startpunkt oder Ausrichtung
(while cont
(if (getvar "DIMCLRD")
(initget 1 (strcat "OLinks OZentriert ORechts "
"MLinks MZentriert MRechts "
"ULinks UZentriert URechts "
"Ausrichten Zentriert Einpassen Links Mitte Rechts ?"))
(initget 1 "Ausrichten Zentriert Einpassen Links Mitte Rechts ?")
)
(setq pt (getpoint
"\nStartpunkt oder Zentriert/Mitte/Rechts/?: "))
(if (/= (type pt) 'LIST)
(if (= pt "?")
(progn
(justpn)
(setq cont T)
)
(progn
(setq cont nil)
(setq j (substr pt 1 2))
;;(setq j pt)
(if (= j "Zentriert") (setq j "MZentriert"))
(initget 1)
(setq pt (getpoint (strcat "\n" pt " Punkt: ")))
(if (or (= j "Ausrichten") (= j "Einpassen"))
(progn
(initget 1)
(setq pt2 (getpoint pt (strcat "\nAnderer Punkt: ")))
(setq at_ang (* (/ 180 pi) (angle pt pt2)))
)
)
)
)
(setq j "L"
cont nil
)
)
)
(setq pt1 pt)
;; Frage nach der Texth”he
(setq ts (tblsearch "STYLE" (getvar "TEXTSTYLE"))
h nil)
(if (and (/= j "Ausrichten") (= (cdr (assoc 40 ts)) 0.0))
(progn
(initget 6)
(setq h (getdist pt (strcat "\nH”he <"
(rtos (getvar "TEXTSIZE")) ">: ")))
(if (null h)
(setq h (getvar "TEXTSIZE"))
)
)
) ;Frage nach dem Drehwinkel des Textes
(if (null at_ang)
(progn
(if (= (cdr (assoc 70 ts)) 4) ; vertikaler Textstil
(progn
(setq at_ang 270)
(princ "\nDrehwinkel <270>: ")
)
(progn
(setq at_ang 0)
(princ "\nDrehwinkel <0>: ")
)
)
)
(if (and (/= j "Ausrichten") (/= j "Einpassen"))
(progn
(princ "\nDrehwinkel <")
(princ (strcat (angtos at_ang) ">: "))
)
)
)
(setq ang (getangle pt))
(if (null ang)
(setq ang at_ang)
)
(setq at_ang ang)
(setq d "Auto"
l1 1
n "Alle"
opt nil
lc 0
nl 0
c 0)
(initget "Ja Nein")
(if (= "Ja" (getkword "\nTextoptionen „ndern <N>: "))
(progn ; Anfrage Zeilenabstand
(initget "Auto")
(setq d (getdist pt "\nAbstand zwischen den Zeilen/<Auto>: "))
(if (= d nil)
(setq d "Auto")
) ; Frage nach der ersten zu lesenden Zeile.
(initget (+ 2 4))
(setq l1 (getint "\nErste Zeile zum Lesen/<1>: "))
(if (null l1)
(setq l1 1)
) ; Frage nach der Zahl der folgenden Zeilen
(initget (+ 2 4) "Alle")
(setq n (getint "\nAnzahl der zu lesenden Zeilen/<Alle>: "))
(if (= n "Alle")
(setq n nil)
)
(initget "Ja Nein")
(if (= "Ja" (getkword "\nJede Zeile unterstreichen? <N>: "))
(setq opt (append opt '(1)))
)
(initget "Ja Nein")
(if (= "Ja" (getkword "\nJede Zeile �berstreichen? <N>: "))
(setq opt (append opt '(2)))
) ; Option f�r algemeine Neudefinition
; der Textdarstellung.
(initget "Gross Klein Nein")
(princ "\nGross-/Kleinschreibung „ndern? ")
(setq ul (getkword " Gross/Klein/<N>: "))
(cond ((= ul "Gross") (setq opt (append opt '(4))))
((= ul "Klein") (setq opt (append opt '(8))))
) ; Option, um Spalten zu setzen.
(initget "Ja Nein")
(if (= "Ja" (getkword "\nSpalten setzen? <N>: "))
(progn
(setq opt (append opt '(16)))
(initget (+ 1 2))
(setq cd (getdist pt "\nAbstand zwischen den Spalten: "))
(initget (+ 1 2 4))
(setq nl (getint "\nZeilenanzahl pro Spalte: "))
)
)
)
)
(setvar "BLIPMODE" 0)
(setvar "HIGHLIGHT" 0)
(setvar "CMDECHO" 0)
(setq eof nil)
(setq s (repeat l1
(read-line rtfile)
))
(setq lc (1+ lc))
(1ltxt)
(while (null eof)
(if (= d "Auto")
(progn
(setq s (read-line rtfile))
(setq lc (1+ lc))
(if s
(progn
(if (= lc (1+ nl))
(1ltxt)
(progn
(if (member '1 opt)
(setq s (strcat "%%u" s "%%u"))
)
(if (member '2 opt)
(setq s (strcat "%%o" s "%%o"))
)
(if (member '4 opt)
(setq s (strcase s))
)
(if (member '8 opt)
(setq s (strcase s T))
)
(command "TEXT" "" s)
(setq c (1+ c))
(if (= c n)
(setq eof T)
)
)
)
)
(setq eof T)
)
)
(progn
(setq s (read-line rtfile))
(setq lc (1+ lc))
(if s
(1ltxt)
(setq eof T)
)
)
)
)
(close rtfile)
(setq rtfile nil)
(moder) ; Systemvariablen zur�cksetzen
(setq *error* olderr) ; Fehlerroutine wiederherstellen
(princ)
)
(defun c:at () (vmon) (asctxt))
(defun c:asctext () (vmon) (asctxt))
(princ "\n\tc:AscTxt geladen. Befehlsaufruf mit AT oder ASCTEXT.")
(princ)

MENU/AUFLOESE.DWG
BIN
View File
Binary file not shown.
MENU/AUTO1.SLB
BIN
View File
Binary file not shown.
MENU/AUTO2.SLB
BIN
View File
Binary file not shown.
MENU/Acad.dwt
BIN
View File
Binary file not shown.
MENU/B.DWG
BIN
View File
Binary file not shown.
MENU/BAAN.TXT
+17
View File
@@ -0,0 +1,17 @@
BL:X N011000
BL:Y N011000
BL:Z N011000
BL:NAME C040000
MENGE N006000
POSITION N005000
ARTINR N009000
A N008000
B C008000
C C040000
BESCHR C060000
GRUPPE N002000
AUFLOESE C001000
ETIKETTE N001000
BL:LEVEL N001000
BL:HANDLE C030000

MENU/BALON.LSP
+24
View File
@@ -0,0 +1,24 @@
(Defun C:Balloon ()
(Setvar "Cmdecho" 0)
(Setvar "Osmode" 0)
(Setq DS (Getvar "Dimscale"))
(Setq TH (Getvar "Dimtxt"))
(Initget 1)
(Setq P1 (Getpoint "\nFrom Point: "))
(Initget 1)
(Setq P2 (Getpoint P1 "\nTo Point: "))
(If
(<= (Car P2) (Car P1))
(Setq B (* -2 TH DS))
(Setq B (* 2 TH DS))
)
(Setq P3 (List (+ (Car P2) B) (Cadr P2)))
(Setq P4 (List (+ (Car P3) (/ B 2)) (Cadr P3)))
(Command "_dim1" "_lead" P1 P2 P3 ^C ^C)
(Command "_circle" P4 (/ (Abs B) 2))
(Initget 1)
(Setq C (Getstring t "\nLabel: "))
(Command "_Text" "_M" P4 TH 0 C)
(Princ)
)

MENU/BEMPASS.LSP
+128
View File
@@ -0,0 +1,128 @@
(Defun C:BEMHPASS ()
(Setvar "Cmdecho" 0)
(Setq AN1 0 AN2 (* Pi 0.5) AN3 (* Pi 1.5)
BM (Getvar "Blipmode") DS (Getvar "Dimscale") DA (* DS (Getvar "Dimasz"))
DT (* DS (Getvar "Dimtxt")) DE (* DS (Getvar "Dimexe"))
DO (* DS (Getvar "Dimexo"))
)
(Setq P1 (Getpoint
"\nFirst Point of the first Construction-Line or RETURN to select: "))
(Cond
((= nil P1)
(Setq P2 (Entsel))
(While
(= nil P2)
(Princ "\nNo object found!")
(Setq P2 (Entsel))
)
(Setq P2 (Osnap (Cadr P2) "MIT"))
(Setq P1 (Osnap P2 "END"))
(Setq P2 (Polar P1 (Angle P1 P2) (* 2.0 (Distance P1 P2))))
)
((Boundp 'P1)
(Initget 1)
(Setq P2 (Getpoint "\nFirst Point of the second Construction-Line: "))
)
)
(Initget 1)
(Setq P3 (Getpoint "\nPlace Dimensioning-Line: "))
(Setvar "Blipmode" 0)
(Setq P4 (Inters P1 (Polar P1 AN2 1) P3 (Polar P3 AN1 1) Onseg))
(Setq P5 (Inters P2 (Polar P2 AN2 1) P3 (Polar P3 AN1 1) Onseg))
(Setq P3 (Polar P4 (Angle P4 P5) (/ (Distance P4 P5) 2)))
(If
(< (Cadr P4) (Cadr P1))
(Setq F -0.5)
(Setq F 0.5)
)
(Command "_LINE" (Polar P1 (Angle P1 P4) DO) (Polar P4 (Angle P1 P4) DE)
"" "_LINE" (Polar P2 (Angle P2 P5) DO) (Polar P5 (Angle P2 P5) DE)
"" "_LINE" P4 P5 ""
)
(Setq P3 (Polar P3 (Angle P1 P4) (* F DT)))
(Setq D1 (Rtos (Distance P4 P5) (Getvar "Lunits") (Getvar "Luprec")))
(Command "_Solid" P4 (Polar (Polar P4 (Angle P4 P5) DA) AN3
(* DA (/ 1.0 6.0))) (Polar (Polar P4 (Angle P4 P5) DA) AN2
(* DA (/ 1.0 6.0))) "" ""
)
(Command "_Solid" P5 (Polar (Polar P5 (Angle P5 P4) DA) AN3
(* DA (/ 1.0 6.0))) (Polar (Polar P5 (Angle P5 P4) DA) AN2
(* DA (/ 1.0 6.0))) "" ""
)
(Prompt "\nDimensioning-Text <")
(Prompt D1)
(Setq D2 (Getstring t ">: "))
(If
(= D2 "")
(Setq D D1)
(Setq D D2)
)
(Command "_Text" "Z" P3 DT 0 D)
(Setvar "Blipmode" BM)
(Princ)
)
(Defun C:BEMVPASS ()
(Setvar "Cmdecho" 0)
(Setq AN1 (* Pi 0.5) AN2 0 AN3 Pi
BM (Getvar "Blipmode") DS (Getvar "Dimscale") DA (* DS (Getvar "Dimasz"))
DT (* DS (Getvar "Dimtxt")) DE (* DS (Getvar "Dimexe"))
DO (* DS (Getvar "Dimexo"))
)
(Setq P1 (Getpoint
"\nFirst Point of the first Construction-Line or RETURN to select: "))
(Cond
((= nil P1)
(Setq P2 (Entsel))
(While
(= nil P2)
(Princ "\nNo object found!")
(Setq P2 (Entsel))
)
(Setq P2 (Osnap (Cadr P2) "MIT"))
(Setq P1 (Osnap P2 "END"))
(Setq P2 (Polar P1 (Angle P1 P2) (* 2.0 (Distance P1 P2))))
)
((Boundp 'P1)
(Initget 1)
(Setq P2 (Getpoint "\nFirst point of the second construction line: "))
)
)
(Initget 1)
(Setq P3 (Getpoint "\nPlace dimensioning line: "))
(Setvar "Blipmode" 0)
(Setq P4 (Inters P1 (Polar P1 AN2 1) P3 (Polar P3 AN1 1) Onseg))
(Setq P5 (Inters P2 (Polar P2 AN2 1) P3 (Polar P3 AN1 1) Onseg))
(Setq P3 (Polar P4 (Angle P4 P5) (/ (Distance P4 P5) 2)))
(If
(< (Car P4) (Car P1))
(Setq F -0.5)
(Setq F 0.5)
)
(Command "_LINE" (Polar P1 (Angle P1 P4) DO) (Polar P4 (Angle P1 P4) DE)
"" "_LINE" (Polar P2 (Angle P2 P5) DO) (Polar P5 (Angle P2 P5) DE)
"" "_LINE" P4 P5 ""
)
(Setq P3 (Polar P3 (Angle P1 P4) (* F DT)))
(Setq D1 (Rtos (Distance P4 P5) (Getvar "Lunits") (Getvar "Luprec")))
(Command "_Solid" P4 (Polar (Polar P4 (Angle P4 P5) DA) AN3
(* DA (/ 1.0 6.0))) (Polar (Polar P4 (Angle P4 P5) DA) AN2
(* DA (/ 1.0 6.0))) "" ""
)
(Command "_Solid" P5 (Polar (Polar P5 (Angle P5 P4) DA) AN3
(* DA (/ 1.0 6.0))) (Polar (Polar P5 (Angle P5 P4) DA) AN2
(* DA (/ 1.0 6.0))) "" ""
)
(Prompt "\nDimensioning text <")
(Prompt D1)
(Setq D2 (Getstring t ">: "))
(If
(= D2 "")
(Setq D D1)
(Setq D D2)
)
(Command "_Text" "Z" P3 DT 90 D)
(Setvar "Blipmode" BM)
(Princ)
)

MENU/BENENNG.DWG
BIN
View File
Binary file not shown.
MENU/BESCHR.DWG
BIN
View File
Binary file not shown.
MENU/BINAER.ERR
+2
View File
@@ -0,0 +1,2 @@
Linie 8: ORIGIN = 0.00,20.00
MENU/BINAER.PCP
+1291
View File
File diff suppressed because it is too large Load Diff
MENU/BLKLISTE.LSP
+18
View File
@@ -0,0 +1,18 @@
(defun BLOCKLISTE (/ datei block objekt)
(setq datei (open
(strcat (getvar "DWGNAME") ".BLK") "w")) ;Ausgabedatei ”ffnen
(setq block (tblnext "BLOCK" t)) ;ersten Block suchen
(while block ;f�r alle Bl”cke
(print block datei) ;Tabelleneintrag ausg.
(setq objekt (cdr (assoc -2 block))) ;erstes Objekt suchen
(while objekt ;f�r alle Objekte
(print (entget objekt) datei) ;Objektliste ausg.
(setq objekt (entnext objekt)) ;n„chstes Objekt
)
(setq block (tblnext "BLOCK")) ;n„chster Block
)
(close datei) ;Datei schlieáen
(princ)
)

MENU/BLKM.LSP
+131
View File
@@ -0,0 +1,131 @@
;............................................................
;: DATE : 92-01-01 Kunde: tewi :
;: Autor: Schmidt AutoCAD-Version 11 :
;: Version 2.0 ab Version 10 mit anpassen :
;: :
;: BLKM.LSP Block-Manager :
;:..........................................................:
(SPECIAL '(bsca))
(DEFUN blis (/ blst blt blkt)
(SETQ blst T)
(WHILE (SETQ blt (TBLNEXT "BLOCK" blst))
;solange noch Bl”cke vorhanden,
;speichern
(IF (/= (ASCII (SETQ blkt (CDR (ASSOC 2 blt)))) 42)
(SETQ blk (CONS blkt blk))
)
;neuer Block der Liste zuf�gen,
;speichern
(SETQ blst NIL)
)
)
(DEFUN bdis (/ run lauf blkl)
(SETQ run T
lauf 0
blkl (LENGTH blk)
;L„nge der Liste
)
(WHILE run
(WHILE (< lauf mlen)
(IF (< bpos blkl)
(GRTEXT lauf (NTH bpos blk))
(GRTEXT lauf " ")
) ;Menuanzeige
(SETQ lauf (1+ lauf)
bpos (1+ bpos)
)
;um 1 erh”hen
)
(IF (> bpos mlen)
(GRTEXT mlen "Previous")
(GRTEXT mlen " ")
) ;R�ckschalten
(IF (> (- blkl bpos) 0)
(GRTEXT (1+ mlen) "Next")
(GRTEXT (1+ mlen) " ")
) ;Vorw„rtsschalten
(IF (= (CAR (SETQ antw (GRREAD))) 4)
(IF (< (CADR antw) mlen)
;wenn g�ltige Antwort
(SETQ run NIL
antw (+ (CADR antw) (- bpos lauf))
bpos (- bpos mlen)
)
(COND
((AND (= (CADR antw) mlen)(> bpos mlen))
;Vorher
(SETQ bpos (- bpos mlen mlen)
lauf 0
)
)
((AND (= (CADR antw) (1+ mlen))(> blkl bpos))
;N„chst
(SETQ lauf 0)
)
(T (SETQ run NIL
antw blkl
bpos (- bpos mlen)
)
)
)
)
(SETQ antw NIL run NIL blk NIL)
)
)
)
(DEFUN C:blkm (/ blk); best bpos mlen antw)
;Bl”cke auflisten und Einf�gen
(SETQ lauf 0
;Laufvariable initialisieren,
bpos 0
;Blocklaufvariable initialisieren,
mlen 20
;Menul„nge
)
(blis)
(IF blk
(PROGN
(IF (NULL bsca)
(SETQ bsca 1.0)
)
(pstart "Block Manager" "" nil)
(SETQ blk (REVERSE blk)
;Liste kehren
bsca (IF (SETQ best (GETREAL
(STRCAT "\nGeneral scale <" (RTOS bsca) ">: "))
)
best
bsca
)
)
(GRREAD T)
(WHILE blk
(PRINC "\nSelect block from screen menu: ")
(bdis)
(IF antw ;wenn Antwort ok
(IF (NTH antw blk)
(PROGN
(PROMPT "\nInput insert point and angle: ")
(COMMAND "_insert" (NTH antw blk) PAUSE bsca bsca Pause)
;angepickter Block einf�gen
)
(emsg "Field false!")
)
)
)
(GRTEXT)
;wiederherstellen des Seitenmenus
(pend)
)
(emsg "No blocks in the drawing")
)
(PRINC)
)
(PRINC)
(PRINC "\nBlockmanager loaded")
(PRINC)

MENU/BYTE_BIT.DWG
BIN
View File
Binary file not shown.
MENU/Backup-ssg.cui
+20470
View File
File diff suppressed because it is too large Load Diff
MENU/C.DWG
BIN
View File
Binary file not shown.
MENU/CAD.MNU
+504
View File
@@ -0,0 +1,504 @@
[->Status / Info]
[$(eval," Zeit: "$(edtime,$(getvar,date),HH:MM))]
[$(eval," Datum: "$(edtime,$(getvar,date),D.M.YYYY))]
[$(eval,"Z-Name: "$(getvar,dwgname)".DWG")]
[--]
[$(eval,"Sicherung alle "$(getvar,savetime)" min")]^c^c_SAVETIME
[--]
[$(eval,"Konstruktionspkt: "$(if,$(=,$(getvar,blipmode),1),$(eval,"JA"),$(eval,"NEIN")))]'_setvar BLIPMODE ^p(- 1 (getvar "BLIPMODE"))
[$(eval,"Text mitspiegeln: "$(if,$(=,$(getvar,mirrtext),1),$(eval,"JA"),$(eval,"NEIN")))]'_setvar MIRRTEXT ^p(- 1 (getvar "MIRRTEXT"))
[$(eval,"Obj. ausleuchten: "$(if,$(=,$(getvar,highlight),1),$(eval,"JA"),$(eval,"NEIN")))]'_setvar HIGHLIGHT ^p(- 1 (getvar "HIGHLIGHT"))
[$(eval," Solids f�llen: "$(if,$(=,$(getvar,fillmode),1),$(eval,"JA"),$(eval,"NEIN")))]'_setvar FILLMODE ^p(- 1 (getvar "FILLMODE"))
[$(eval," 3D Kanten: "$(if,$(=,$(getvar,splframe),1),$(eval,"SICHTBAR"),$(eval,"UNSICHTB.")))]'_setvar SPLFRAME ^p(- 1 (getvar "SPLFRAME"))
[$(eval," Tilemode: "$(if,$(=,$(getvar,tilemode),1),$(eval,"EIN"),$(eval,"AUS")))]'_setvar tilemode ^p(- 1 (getvar "tilemode"))
[--]
[$(eval," Farbe: "$(getvar,cecolor))]^c^c_CECOLOR
[$(eval," Linientyp: "$(getvar,celtype))]^c^c_CELTYPE
[$(eval," Textstil: "$(getvar,textstyle))]^c^c_TEXTSTYLE
[$(eval," TextgrӇe: "$(getvar,textsize))]^c^c_TEXTSIZE
[$(eval," Schraffurmuster: "$(getvar,hpname))]^c^c_HPNAME
[$(eval,"Punktdarstellung: "$(getvar,pdmode))]^c^c_PDMODE
[$(eval," Punkt-GrӇe: "$(getvar,pdsize))]^c^c_PDSIZE
[$(eval," Abrundenradius: "$(getvar,filletrad))]^c^c_FILLETRAD
[$(eval," Fasenbreite: "$(getvar,chamferb))]^c^c_CHAMFERB
[$(eval," Limitenfaktor: "$(getvar,ltscale))]^c^c_LTSCALE
[--]
[$(eval," 3D-Netzdichte 1: "$(getvar,surftab1))]^c^c_SURFTAB1
[$(eval," 3D-Netzdichte 2: "$(getvar,surftab2))]^c^c_SURFTAB2
[$(eval," Erhebung: "$(getvar,elevation))]^c^c_ELEVATION
[$(eval," Objekth”he: "$(getvar,thickness))]^c^c_THICKNESS
[$(eval," Shade-Edge: "$(getvar,shadedge))]^c^c_SHADEDGE
[<-$(eval," Shade-Dif: "$(getvar,shadedif))]^c^c_SHADEDIF
[->Befehle]
***POP2
[HAASCAD]
[--]
[->Grundriá]
[->Darstellung]
[nur 2D ]^c^c^p(progn(setvar "USERI1" 2)(prin1))
[nur 3D ]^c^c^p(progn(setvar "USERI1" 3)(prin1))
[<-2D + 3D (default)]^c^c^P(progn(setvar "USERI1" 1)(prin1))
[--]
[->Mauerwerk]
[Auáenwand ]^C^C^P(progn (setq DO_ARGS '("wall" "c:wall" "Aussen" "Neu")) (prin1)) DO_FAME12
[Auáenwand anschlieáen]^C^C^P(progn (setq DO_ARGS '("wall" "c:wall" "Aussen" "Alt")) (prin1)) DO_FAME12
[Innenwand ]^C^C^P(progn (setq DO_ARGS '("wall" "c:wall" "Innen" "Neu")) (prin1)) DO_FAME12
[Innenwand anschlieáen]^C^C^P(progn (setq DO_ARGS '("wall" "c:wall" "Innen" "Alt")) (prin1)) DO_FAME12
[B�rowand/Rasterwand ]^C^C^P(progn (setq DO_ARGS '("cg6107_0" "c:mwb" "cg6107_0.vor")) (prin1)) DO_FAME12
[--]
[Aussparungen ]^C^C^P(progn (setq DO_ARGS '("cg6206_0" "c:asp" "cg6206.vor" "cg6206.vor")) (prin1)) DO_FAME12
[Wandausbruch ]^p^c^c(cond ((null c:ausb) (load (strcat hc_lsppath "HAAS822"))) ((prin1)));ausb
[St�tzen ]^C^C^P(progn (setq DO_ARGS '("cg6104_0" "c:stu" "cg6104.vor" "cg6104.vor")) (prin1)) DO_FAME12
[Pfeiler und S„ulen ]$i=grund_stuez $i=*
[--]
[Innenwand l”schen ]^C^C^P(progn (setq DO_ARGS '("cg6108_0" "c:cg6108" "dummy")) (prin1)) DO_FAME12
[Wand heilen ]^p^c^c(cond ((null c:heile) (load (strcat hc_lsppath "HAAS821"))) ((prin1)));heile
[--]
[Plinie --> Wand ]^C^C^P(progn (if (not c:gp) (progn (load (strcat Ppath "WPOLY"))+
(xload (strcat Ppath "cg6100_0")) )) (prin1)) gp
[<-Linie --> Fl„che ]^C^C^P(progn (setq DO_ARGS '("c:l2f" "cg6103_0" "dummy")) (prin1)) DO_FAME
[->Fenster]
[Konfigurieren ]^C^C^P(progn (setq DO_ARGS '("cg6214_0" "c:handle_cfg_cg6214" "cg6201.vor" "cg6205.vor" "cg6210.vor" "cg6211.vor")) (prin1)) DO_FAME12
[--]
[Standard ]^C^C^P(progn (setq DO_ARGS '("c:oms" "cg6201_0" "cg6201" "c:fen" "cg6205_0" "cg6205")) (prin1)) DO_FAME
[F�r runde W„nde ]^C^C^P(progn (setq DO_ARGS '("window" "c:window")) (prin1)) DO_FAME12
[™ffnung „ndern ]^C^C^P(progn (setq DO_ARGS '("cg6213_0" "c:cg6213" "dummy")) (prin1)) DO_FAME12
[<-™ffnung entfernen ]^C^C^P(progn (setq DO_ARGS '("cg6105_0" "c:obck" "dummy")) (prin1)) DO_FAME12
[->T�ren]
[Konfigurieren ]^C^C^P(progn (setq DO_ARGS '("cg6214_0" "c:handle_cfg_cg6214" "cg6201_t.vor" "cg6205.vor" "cg6210.vor" "cg6211.vor")) (prin1)) DO_FAME12
[--]
[Standard ]^C^C^P(progn (setq DO_ARGS '("c:oms" "cg6201_0" "cg6201_t" "c:tuer" "cg6210_0" "cg6210")) (prin1)) DO_FAME
[Schiebet�r ]^C^C^P(progn (setq DO_ARGS '("c:oms" "cg6201_0" "cg6201_t" "c:schtuer" "cg6211_0" "cg6211")) (prin1)) DO_FAME
[T�ranschlag „ndern ]^C^C^P(progn (setq DO_ARGS '("cg6212_0" "c:cg6212" "dummy")) (prin1)) DO_FAME12
[™ffnung „ndern ]^C^C^P(progn (setq DO_ARGS '("cg6213_0" "c:cg6213" "dummy")) (prin1)) DO_FAME12
[<-™ffnung entfernen ]^C^C^P(progn (setq DO_ARGS '("cg6105_0" "c:obck" "dummy")) (prin1)) DO_FAME12
[--]
[->Treppen]
[Konfigurieren ]^C^C^P(progn (setq DO_ARGS '("ck31_130" "c:handle_dbox_ck31_130" "ck31_130.dcl")) (prin1)) DO_FAME12
[--]
[Gerade ]^C^C^P(progn (setq DO_ARGS '("ck4000_0" "c:gpt" "ck4000_0.vor")) (prin1)) DO_FAME12
[1/4 gewendelt ]^C^C^P(progn (setq DO_ARGS '("ck4001_0" "c:vt" "ck4001_0.vor")) (prin1)) DO_FAME12
[1/2 gewendelt ]^C^C^P(progn (setq DO_ARGS '("ck4002_0" "c:ht" "ck4002_0.vor")) (prin1)) DO_FAME12
[Gewendelt ]^C^C^P(progn (setq DO_ARGS '("ck4003_0" "c:wt" "ck4003_0.vor")) (prin1)) DO_FAME12
[Podest 1/2 Richtungsw.]^C^C^P(progn (setq DO_ARGS '("ck4005_0" "c:ptv" "ck4005_0.vor")) (prin1)) DO_FAME12
[<-Podest mit Richtungsw.]^C^C^P(progn (setq DO_ARGS '("ck4004_0" "c:pth" "ck4004_0.vor")) (prin1)) DO_FAME12
[->D„cher]
[Konfigurieren ]^C^C^P(progn (setq DO_ARGS '("ck31_140" "c:handle_dbox_ck31_140")) (prin1)) DO_FAME12
[--]
[Flachdach ]^C^C^P(progn (setq DO_ARGS '("ck2001_0" "c:fd" "ck2001_0.vor")) (prin1)) DO_FAME12
[Satteldach ]^C^C^P(progn (setq DO_ARGS '("ck2000_0" "c:sd" "ck2000_0.vor")) (prin1)) DO_FAME12
[Walmdach ]^C^C^P(progn (setq DO_ARGS '("ck2002_0" "c:wd" "ck2002_0.vor")) (prin1)) DO_FAME12
[Krueppelwalmdach ]^C^C^P(progn (setq DO_ARGS '("ck2004_0" "c:kw" "ck2004_0.vor")) (prin1)) DO_FAME12
[<-Pyramidendach ]^C^C^P(progn (setq DO_ARGS '("ck2003_0" "c:pyra" "ck2003_0.vor")) (prin1)) DO_FAME12
[->Bemaáung]
[Konfiguration ]^C^C^P(progn (setq DO_ARGS '("ck31_80" "c:handle_cfg_mec")) (prin1)) DO_FAME12
[--]
[Eingabe ]^C^C^P(progn (setq DO_ARGS '("ck31_80" "c:input_mec")) (prin1)) DO_FAME12
[Update ]^C^C^P(progn (setq DO_ARGS '("ck31_80" "c:update_mec")) (prin1)) DO_FAME12
[Gesamtupdate ]^C^C^P(progn (setq DO_ARGS '("ck31_80" "c:update_all_mec")) (prin1)) DO_FAME12
[Masspunkte ]^C^C^P(progn (setq DO_ARGS '("ck31_80" "c:add_mecpoints_mec")) (prin1)) DO_FAME12
[Kreuzen ]^C^C^P(progn (setq DO_ARGS '("ck31_80" "c:crossing_mec")) (prin1)) DO_FAME12
[Skalieren ]^C^C^P(progn (setq DO_ARGS '("ck31_80" "c:scale_mec")) (prin1)) DO_FAME12
[Wand bemaáen ]^C^C^P(progn (setq DO_ARGS '("ck31_80" "c:auto_walls_mec")) (prin1)) DO_FAME12
[--]
[Fixieren ]^C^C^P(progn (setq DO_ARGS '("ck31_80" "c:fix_numbers_mec")) (prin1)) DO_FAME12
[L”sen ]^C^C^P(progn (setq DO_ARGS '("ck31_80" "c:unfix_numbers_mec")) (prin1)) DO_FAME12
[--]
[<-L”schen ]^C^C^P(progn (setq DO_ARGS '("ck31_80" "c:erase_mec")) (prin1)) DO_FAME12
[->Schnitte]
[H”henschnitt ]^C^C^P(progn (setq DO_ARGS '("ck3012_0" "c:ck3012_4" "ck3012_4.vor")) (prin1)) DO_FAME12
[Dachverschneidung]^C^C^P(progn (setq DO_ARGS '("ck3012_0" "c:ck3012_5" "ck3012_5.vor")) (prin1)) DO_FAME12
[Schnitt gerade ]^C^C^P(progn (setq DO_ARGS '("ck3012_0" "c:ck3012_3" "ck3012_3.vor")) (prin1)) DO_FAME12
[<-Schnitt versetzt ]^C^C^P(progn (setq DO_ARGS '("ck3012_0" "c:ck3012_6" "ck3012_6.vor")) (prin1)) DO_FAME12
[<-Schraffur ]^C^C^P(progn (setq DO_ARGS '("ck31_70" "c:hatch_update" "ck31_70.tab")) (prin1)) DO_FAME12
[->Innenarchitektur]
[Utensilien... ]$i=inn_ute1 $i=*
[EDV-Ger„te... ]$i=inn_pcmo $i=*
[Bilder... ]$i=inn_bild $i=*
[--]
[Wohnen/Schlafen... ]$i=famea_1 $i=*
[K�che/Bad/WC... ]$i=famea_2 $i=*
[--]
[Heizk”rper... ]$i=inn_heiz $i=*
[B”den, Decken... ]$i=inn_bode $i=*
[--]
[Jalousien ]^p^c^c(progn (load (strcat hc_lsppath "haas300")) (c:haas300))
[Lamellen ]^p^c^c(progn (load (strcat hc_lsppath "haas301")) (c:haas301))
[--]
[Personen... ]$i=famea_3 $i=*
[Fahrzeuge... ]$i=famea_5 $i=*
[<-B„ume... ]$i=famea_4 $i=*
[->Anzeige (Layerkontrolle)]
[->Artikelnummern 03]
[aus ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 10 "ARTNR")
[ein ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 11 "ARTNR")
[--]
[sperren ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 14 "ARTNR")
[<-entsperren]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 15 "ARTNR")
[->Symbole 02]
[aus ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 10 "SYMBOL")
[ein ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 11 "SYMBOL")
[--]
[sperren ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 14 "SYMBOL")
[<-entsperren]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 15 "SYMBOL")
[->Fangpunkte 07]
[aus ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 10 "FANGPUNKT")
[ein ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 11 "FANGPUNKT")
[--]
[sperren ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 14 "FANGPUNKT")
[<-entsperren]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 15 "FANGPUNKT")
[->Bewegungs-/Arbeitsfl„chen 04]
[aus ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 10 "BEWEGFL")
[ein ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 11 "BEWEGFL")
[--]
[sperren ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 14 "BEWEGFL")
[<-entsperren]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 15 "BEWEGFL")
[--]
[->Innenarchitektur]
[aus ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 12 "INNENARCH")
[ein ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 13 "INNENARCH")
[--]
[sperren ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 14 "INNENARCH")
[<-entsperren]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 15 "INNENARCH")
[->Bemaáung]
[aus ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 12 "BEMASSUNG")
[ein ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 13 "BEMASSUNG")
[--]
[sperren ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 14 "BEMASSUNG")
[<-entsperren]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 15 "BEMASSUNG")
[->Raumbuch]
[aus ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 12 "RAUMBUCH")
[ein ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 13 "RAUMBUCH")
[--]
[sperren ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 14 "RAUMBUCH")
[<-entsperren]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 15 "RAUMBUCH")
[->Positionsnummern]
[aus ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 12 "POSNR")
[ein ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 13 "POSNR")
[--]
[sperren ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 14 "POSNR")
[<-entsperren]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 15 "POSNR")
[--]
[->2D-Darstellung]
[aus ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 12 "2D")
[ein ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 13 "2D")
[--]
[sperren ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 14 "2D")
[<-entsperren]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 15 "2D")
[->3D-Darstellung]
[aus ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 12 "3D")
[ein ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 13 "3D")
[--]
[sperren ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 14 "3D")
[<-entsperren]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 15 "3D")
[2D ein <=> 3D aus]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 12 "3D");(hcly_main 13 "2D")
[3D ein <=> 2D aus]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 12 "2D");(hcly_main 13 "3D")
[--]
[<-*** ALLES EIN *** ]^c^c._layer _th *;_on *;_fr FRZ_AME*;;
[->Auswertung]
[St�ckliste generieren]^p^c^c(cond ((null c:ca_mo_02) (load"/garb_sys/prg/ca_mo_02")) ((prin1)));(c:ca_mo_02 "PF");
[--]
[HPOS-UPOS bilden ]^p^c^c(cond ((null c:ca_mo_01) (load"/garb_sys/prg/ca_mo_01")) ((prin1)));ca_mo_01;
[--]
[Austausch Systeme ]^p^C^C(progn (princ) (princ "*** HERSTELLER-Programm - Bitte Men�punkt bei jeweiligem Hersteller aufrufen ***") (princ))
[Globales Nachtragen der Varianten]^p^C^C(progn (princ) (princ "*** HERSTELLER-Programm - Bitte Men�punkt bei jeweiligem Hersteller aufrufen ***") (princ))
[--]
[->Auswertung mit Parameter]
[Raumbegrenzung einzeichnen ]^c^c._pline \_wi 0.02 0.02;
[Raumkennung einf�gen ]^p^c^c(cond ((null c:ca_mo_04) (load"/garb_sys/prg/ca_mo_04")) ((prin1)));ca_mo_04;
[<-Auswertung ]^p^c^c(cond ((null c:ca_mo_02) (load"/garb_sys/prg/ca_mo_02")) ((prin1)));(c:ca_mo_02in "PF");
[--]
[<-St�ckliste -> WWS kopieren ]^p^c^c(cond ((null c:stcopy) (load (strcat hc_lsppath "haas818"))) ((prin1)));stcopy
[->3D-Darstellung]
[M”bel austauschen (2D => 3D) ]^p^c^c(cond ((null c:ca_mo_03) (load"/garb_sys/prg/ca_mo_03")) ((prin1)));ca_mo_03;
[--]
[3D-M”bel l”schen ]^p^c^c(cond ((null c:haas819) (load (strcat hc_lsppath "haas819"))) ((prin1)));haas819;
[3D-Optimierung ]^p^c^c(cond ((null c:pre_hide) (load (strcat hc_lsppath "pre_hide"))) ((prin1)));pre_hide;
[--]
[->Perspektive]
[Perspektivblock einsetzen]^p^c^c(cond ((null c:pers_a) (load (strcat hc_lsppath "haas310"))) ((prin1)));pers_a;
[--]
[Perspektive]$i=dar_pers $i=*
[Perspektive f�r Draufsicht ]^p^c^c(load (strcat hc_lsppath "haas310"));(c:pers nil);
[--]
[<-Perspektive via Dialog]^c^cfm_pers
[->Bildschirmfoto]
[erstellen ]^p^c^c(cond ((null c:sld2dxf) (load (strcat hc_lsppath "haas815"))) ((prin1)));sld2dxf;
[einlesen ]^p^c^c(cond ((null c:ladedxf) (load (strcat hc_lsppath "haas815"))) ((prin1)));ladedxf;
[--]
[ausschalten ]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 12 "DIA_ANSICHT")
[<-einschalten]^p^c^c(cond ((null c:hcly) (load (strcat hc_lsppath "haas820"))) ((prin1)));(hcly_main 13 "DIA_ANSICHT")
[--]
[->3D-W„nde einzeichnen]
[unsichtbar]^p^c^c(cond ((null c:haas813_u) (load (strcat hc_lsppath "haas813"))) ((prin1)));haas813_u;
[<-sichtbar]^p^c^c(cond ((null c:haas813_s) (load (strcat hc_lsppath "haas813"))) ((prin1)));haas813_s;
[--]
[->Farbgebung]
[nach Varianten ]^p^c^c(cond ((null c:ca_mo_05 ) (load"/garb_sys/prg/ca_mo_05")) ((prin1)));ca_mo_05;
[durch Vorgabedatei ]^p^c^c(cond ((null c:haas809 ) (load (strcat hc_lsppath "haas809"))) ((prin1)));(c:haas809 "hc_cstan.dat")
[<-durch Anpicken (Pickbox)]^p^c^c(cond ((null c:haas809 ) (load (strcat hc_lsppath "haas809"))) ((prin1)));(c:haas809 "")
[->HAASCAD-AutoShade]
[Stehlampe ]^p^c^c(cond ((null shade ) (load (strcat hc_lsppath "shade" ))) ((prin1)));LICHT \S;
[Deckenlampe ]^p^c^c(cond ((null shade ) (load (strcat hc_lsppath "shade" ))) ((prin1)));LICHT \D;
[~--]
[Kamera setzen ]^p^c^c(cond ((null shade ) (load (strcat hc_lsppath "shade" ))) ((prin1)));KAMERA;
[Szene einsetzen]^p^c^c(cond ((null shade ) (load (strcat hc_lsppath "shade" ))) ((prin1)));SZENE;
[~--]
[Kamerasicht ]^p^c^c(cond ((null shade ) (load (strcat hc_lsppath "shade" ))) ((prin1)));KAMSICHT;
[~--]
[Filmrolle erstellen ]^p^c^c(cond ((null shade ) (load (strcat hc_lsppath "shade" ))) ((prin1)));FILMROLL;
[<-AutoShade]^p^c^c(command "SHELL" "SHADE");
[<-RenderStar-šbergabe]^p^c^c(cond ((null c:haas814 ) (load (strcat hc_lsppath "haas814"))) ((prin1)));haas814;
[->HAASCAD-Tools]
[Drehen/Schieben/Kopieren DS]^p^c^c(cond ((null c:ds) (load (strcat hc_lsppath "haas801"))) ((prin1)));DS;
[Elemente um Basispunkt drehen DB]^p^c^c(cond ((null c:db) (load (strcat hc_lsppath "haas806"))) ((prin1)));DB;
[Text global „ndern TG]^p^c^c(cond ((null c:tg) (load (strcat hc_lsppath "haas805"))) ((prin1)));TG;
[Element spiegeln mit Bst.-Nr. ]^p^c^c(cond ((null c:ca_mo_06) (load"/garb_sys/prg/ca_mo_06"))) ((prin1)));ca_mo_06;
[->Stanzen]
[Stanzlinie einzeichnen]^c^cplinie \b 0.02 0.02;
[--]
[Stanzen -> l”schen ]^p^C^C(cond ((null c:stanz) (load (strcat hc_lsppath "haas203"))) ((princ)));stanz;
[<-Stanzen -> schieben]^p^C^C(cond ((null c:mschieb)(load (strcat hc_lsppath "haas203"))) ((princ)));mschieb;
[--]
[->Elementlayer]
[aus EA ]^p^c^c(cond ((null c:ea) (load (strcat hc_lsppath "haas804"))) ((prin1)));EA;
[frieren ELF]^p^c^c(cond ((null c:ea) (load (strcat hc_lsppath "haas804"))) ((prin1)));EA;
[durch Element setz. ELS]^p^c^c(cond ((null c:els)(load (strcat hc_lsppath "haas804"))) ((prin1)));ELS;
[<-auf akt. Layer setz. ELA]^p^c^c(cond ((null c:ela)(load (strcat hc_lsppath "haas804"))) ((prin1)));ELA;
[->Werte setzen durch Anpicken]
[Layer EL]^p^c^c(cond ((null c:el) (load (strcat hc_lsppath "haas804"))) ((prin1)));EL;
[Linientyp ET]^p^c^c(cond ((null c:et) (load (strcat hc_lsppath "haas804"))) ((prin1)));ET;
[Farbe EF]^p^c^c(cond ((null c:ef) (load (strcat hc_lsppath "haas804"))) ((prin1)));EF;
[Textstil und Gr”sse ES]^p^c^c(cond ((null c:es) (load (strcat hc_lsppath "haas804"))) ((prin1)));ES;
[--]
[<-<-Alle Werte EP]^p^c^c(cond ((null c:ep) (load (strcat hc_lsppath "haas804"))) ((prin1)));EP;
[->HAASCAD-Vorgaben]
[Zeichnungsrahmen einf�gen ]^p^c^c(cond ((null c:haas800) (load (strcat hc_lsppath "haas800"))) ((prin1)));haas800;
[->Benutzermakros]
[definieren ]^p^c^c(cond ((null c:bmdef) (load (strcat hc_lsppath "haas811"))) ((prin1)));bmdef;
[<-einf�gen ]^p^c^c(cond ((null c:bmcall) (load (strcat hc_lsppath "haas811"))) ((prin1)));bmcall;
[HAASCAD-Zeichens„tze... ]$i=div_stil $i=*
[--]
[->Bibliothek-Verwaltung]
[Bibliothek ausw„hlen ]^p^c^c(if (null c:XX_ma_01) (progn(load"/garb/XX/prg/XX_ma_01")(prin1)) (prin1)) XX_ma_01
[Makro definieren ]^p^c^c(if (null c:XX_ma_02) (progn(load"/garb/XX/prg/XX_ma_01")(prin1)) (prin1)) XX_ma_02
[--]
[Makro plazieren ]^p^c^c(if (null c:XX_ma_03) (progn(load"/garb/XX/prg/XX_ma_01")(prin1)) (prin1)) XX_ma_03
[Makro plazieren MATCH ]^p^c^c(if (null c:XX_ma_04) (progn(load"/garb/XX/prg/XX_ma_01")(prin1)) (prin1)) XX_ma_04
[--]
[Makrodaten „ndern ]^p^c^c(if (null c:XX_ma_05) (progn(load"/garb/XX/prg/XX_ma_01")(prin1)) (prin1)) XX_ma_05
[<-Makro l”schen ]^p^c^c(if (null c:XX_ma_06) (progn(load"/garb/XX/prg/XX_ma_01")(prin1)) (prin1)) XX_ma_06
[--]
[->Initialisieren/Konfigurieren]
[Herstellertablettmen�s anpassen ]^p^c^c(cond ((null c:haas816) (load (strcat hc_lsppath "haas816"))) ((prin1)));haas816;
[Tablett/Maus-Tasten konfigurieren]^p^c^c(cond ((null c:haas817) (load (strcat hc_lsppath "haas817"))) ((prin1)));haas817;
[--]
[Vorgabewerte einstellen]^p^c^c(cond ((null haas850) (load (strcat hc_lsppath "haas850"))) ((prin1)));xunload_all;(HAAS850 0);
[*** GRUNDEINSTELLUNG ***]^p^c^c(cond ((null haas850) (load (strcat hc_lsppath "haas850"))) ((prin1)));xunload_all;(HAAS850 1);
[--]
[->Tablett konfigurieren]
[--]
[Neukonfigurieren ]^p^c^c(progn (princ "Tablettbereiche 1-4 anpicken (linke-obere, linke-untere, rechte-untere Ecke).") (prin1));_TABLET;_CFG;4;\\\36;9;\\\11;9;\\\14;9;\\\36;7;_Y
[Rekonfigurieren ]^p^c^c(progn (princ "Tablettbereiche 1-4 anpicken (linke-obere, linke-untere, rechte-untere Ecke).") (prin1));_TABLET;_CFG;4;_Y;\\\36;9;\\\11;9;\\\14;9;\\\36;7;_Y
[Kalibrieren ]^c^cTABLETT KAL
[<-<-<---]
[->Status / Info]
[$(eval," Zeit: "$(edtime,$(getvar,date),HH:MM))]
[$(eval," Datum: "$(edtime,$(getvar,date),D.M.YYYY))]
[$(eval,"Z-Name: "$(getvar,dwgname)".DWG")]
[--]
[$(eval,"Sicherung alle "$(getvar,savetime)" min")]^c^c_SAVETIME
[--]
[$(eval,"Konstruktionspkt: "$(if,$(=,$(getvar,blipmode),1),$(eval,"JA"),$(eval,"NEIN")))]'_setvar BLIPMODE ^p(- 1 (getvar "BLIPMODE"))
[$(eval,"Text mitspiegeln: "$(if,$(=,$(getvar,mirrtext),1),$(eval,"JA"),$(eval,"NEIN")))]'_setvar MIRRTEXT ^p(- 1 (getvar "MIRRTEXT"))
[$(eval,"Obj. ausleuchten: "$(if,$(=,$(getvar,highlight),1),$(eval,"JA"),$(eval,"NEIN")))]'_setvar HIGHLIGHT ^p(- 1 (getvar "HIGHLIGHT"))
[$(eval," Solids f�llen: "$(if,$(=,$(getvar,fillmode),1),$(eval,"JA"),$(eval,"NEIN")))]'_setvar FILLMODE ^p(- 1 (getvar "FILLMODE"))
[$(eval," 3D Kanten: "$(if,$(=,$(getvar,splframe),1),$(eval,"SICHTBAR"),$(eval,"UNSICHTB.")))]'_setvar SPLFRAME ^p(- 1 (getvar "SPLFRAME"))
[$(eval," Tilemode: "$(if,$(=,$(getvar,tilemode),1),$(eval,"EIN"),$(eval,"AUS")))]'_setvar tilemode ^p(- 1 (getvar "tilemode"))
[--]
[$(eval," Farbe: "$(getvar,cecolor))]^c^c_CECOLOR
[$(eval," Linientyp: "$(getvar,celtype))]^c^c_CELTYPE
[$(eval," Textstil: "$(getvar,textstyle))]^c^c_TEXTSTYLE
[$(eval," TextgrӇe: "$(getvar,textsize))]^c^c_TEXTSIZE
[$(eval," Schraffurmuster: "$(getvar,hpname))]^c^c_HPNAME
[$(eval,"Punktdarstellung: "$(getvar,pdmode))]^c^c_PDMODE
[$(eval," Punkt-GrӇe: "$(getvar,pdsize))]^c^c_PDSIZE
[$(eval," Abrundenradius: "$(getvar,filletrad))]^c^c_FILLETRAD
[$(eval," Fasenbreite: "$(getvar,chamferb))]^c^c_CHAMFERB
[$(eval," Limitenfaktor: "$(getvar,ltscale))]^c^c_LTSCALE
[--]
[$(eval," 3D-Netzdichte 1: "$(getvar,surftab1))]^c^c_SURFTAB1
[$(eval," 3D-Netzdichte 2: "$(getvar,surftab2))]^c^c_SURFTAB2
[$(eval," Erhebung: "$(getvar,elevation))]^c^c_ELEVATION
[$(eval," Objekth”he: "$(getvar,thickness))]^c^c_THICKNESS
[$(eval," Shade-Edge: "$(getvar,shadedge))]^c^c_SHADEDGE
[<-$(eval," Shade-Dif: "$(getvar,shadedif))]^c^c_SHADEDIF
***icon
**grund_stuez
[Pfeiler, S„ulen]
[haascad(hcstu01,Pfeiler 1)]^p^C^C(cond ((null haas808) (load (strcat hc_lsppath "haas808"))) (princ));(c:haas808 1);
[haascad(hcstu02,Pfeiler 2)]^p^C^C(cond ((null haas808) (load (strcat hc_lsppath "haas808"))) (princ));(c:haas808 2);
[haascad(hcstu03,S„ule 1)]^p^C^C(cond ((null haas808) (load (strcat hc_lsppath "haas808"))) (princ));(c:haas808 4);
[haascad(hcstu04,S„ule 2)]^p^C^C(cond ((null haas808) (load (strcat hc_lsppath "haas808"))) (princ));(c:haas808 3);
**inn_bild
[Bilder]
[haascad(hcbild1,Linien )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2BILD1__" )
[haascad(hcbild3,Dreieck )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2BILD3__" )
[haascad(hcbild2,Umsatz )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2BILD2__" )
[haascad(hcbild4,Bl„tter )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2BILD4__" )
**div_stil
[Zeichens„tze]
[HAASCAD(HCSTILN,Normschrift )]^C^CSTIL norm haas-n 0.00;;;;;
[HAASCAD(HCSTILB,Blockschrift )]^C^CSTIL block haas-b 0.00;;;;;
[HAASCAD(HCSTILD,Doppelschrift )]^C^CSTIL doppel haas-d 0.00;;;;;
**inn_pcmo
[PC, Monitore, Drucker]
[haascad(hcpc07,Workstation #1 )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2PCWORK1" )
[haascad(hcpc01,PC-Geh„use )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2PCTISCH" )
[haascad(hcpc02,PC-Geh„use klein)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2PCTISC2" )
[haascad(hcpc03,Towergeh„use )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2PCTOWER" )
[haascad(hcpc04,Laptop )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2PCLAPTP" )
[haascad(hcpc09,Tastatur )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2PCTAST_" )
[haascad(hcpc05,Monitor 12" )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2PCMON12" )
[haascad(hcpc06,Monitor 20" )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2PCMON20" )
[haascad(hcpc14,Laserdrucker )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2PCLASER" )
[haascad(hcpc13,Matrixrucker )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2PCDRUCK" )
[haascad(hcpc15,A3-Plotter )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2PCPLOT3" )
[haascad(hcpc16,A0-Plotter )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2PCPLOT0" )
[haascad(hcpc10,Digitizer )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2PCTABLT" )
[haascad(hcpc11,Streamer )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2PCSTREA" )
**inn_ute1
[Utensilien]
[haascad(hcut01,Ordner )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2ORDNER1" )
[haascad(hcut05,x-Ordner )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2ORDNERX" )
[haascad(hcut06,Lampe )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2LAMPE1_" )
[haascad(hcut13,Globus )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2GLOBUS_" )
[haascad(hcut02,Telefon )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2TELEFON" )
[haascad(hcut14,Tablett )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2TTABLET" )
[haascad(hcut15,Tassen/Teller )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2TTABLTT" )
[haascad(hcut03,Blume )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2BLUME1_" )
[haascad(hcut07,M�lleimer )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2MUELL1_" )
[haascad(hcut08,Aktenkoffer )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2KOFFER_" )
[haascad(hcut12,Schreibmaschine )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2SMASCH_" )
[haascad(hcut04,Projektor )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2PROJEKT" )
[haascad(hcut09,Kopierer )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2KOPIER_" )
[haascad(hcut10,Ventilator kl. )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2VENTILA" )
[haascad(hcut11,Ventilator gr. )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2VENTIL2" )
[haascad(hcut16,Wanduhr )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2WANDUHR" )
[haascad(hcut17,Nordenpfeil 1 )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2NORD1__" )
[haascad(hcut18,Nordenpfeil 2 )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2NORD2__" )
[haascad(hcut19,Nordenpfeil 3 )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2NORD3__" )
**inn_bode
[Fussboden, Decken]
[haascad(hcbode01,FB kariert )]^p^c^c(cond ((null haas302) (load (strcat hc_lsppath "haas302"))) (princ));haas302;
[haascad(hcbode04,DE kariert )]^p^c^c(cond ((null haas307) (load (strcat hc_lsppath "haas307"))) (princ));haas307;
[haascad(hcbode02,FB L„ngsmuster)]^p^c^c(cond ((null haas303) (load (strcat hc_lsppath "haas303"))) (princ));haas303;
[haascad(hcbode05,DE L„ngsmuster)]^p^c^c(cond ((null haas306) (load (strcat hc_lsppath "haas306"))) (princ));haas306;
[haascad(hcbode07,DE mit Lampen )]^p^c^c(cond ((null haas308) (load (strcat hc_lsppath "haas308"))) (princ));haas308;
[haascad(hcbode08,DE mit Lampen )]^p^c^c(cond ((null haas309) (load (strcat hc_lsppath "haas309"))) (princ));haas309;
[haascad(hcbode03,Fuáboden var. )]^p^c^c(cond ((null haas304) (load (strcat hc_lsppath "haas304"))) (princ));haas304;
[haascad(hcbode06,Decke var. )]^p^c^c(cond ((null haas305) (load (strcat hc_lsppath "haas304"))) (princ));haas305;
**inn_heiz
[Heizk”rper]
[haascad(hchei08,Breite 800 mm)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) )(haas802 "2heiz08_" )
[haascad(hchei13,Breite 1300 mm)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) )(haas802 "2heiz13_" )
[haascad(hchei15,Breite 1500 mm)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) )(haas802 "2heiz15_" )
[haascad(hchei18,Breite 1800 mm)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) )(haas802 "2heiz18_" )
**dar_pers
[Ansichtsh”he w„hlen]
[haascad(hcpers1,Augenh”he ca. 2 m )]^p^c^c(load (strcat hc_lsppath "haas310"));(c:pers "1");
[haascad(hcpers2,Augenh”he ca. 3 m )]^p^c^c(load (strcat hc_lsppath "haas310"));(c:pers "2");
[haascad(hcpers3,Augenh”he ca. 6 m )]^p^c^c(load (strcat hc_lsppath "haas310"));(c:pers "3");
[haascad( Augenh”he variabel )]^p^c^c(load (strcat hc_lsppath "haas310"));(c:pers "D");
**famea_1
[Wohnen/Schlafen]
[famea(ach001a,Einzelbett )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH001A" )
[famea(ach002a,Doppelbett )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH002A" )
[famea(ach003a,Tisch )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH003A" )
[famea(ach004a,Schreibtisch )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH004A" )
[famea(ach005a,Wohnzimmertisch )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH005A" )
[famea(ach006a,Rundtisch )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH006A" )
[famea(ach010a,Sitzgruppe )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH010A" )
[famea(ach009a,2er Sofa )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH009A" )
[famea(ach008a,3er Sofa )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH008A" )
[famea(ach007a,Sessel #1 )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH007A" )
[famea(ach012a,Sessel #2 )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH012A" )
[famea(ach016a,Garderobe )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH016A" )
[famea(ach011a,Eátisch 8 Personen)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH011A" )
[famea(ach013a,Eátisch 4 Personen)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH013A" )
[famea(ach014a,Eátisch 3 Personen)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH014A" )
[famea(ach022a,Fernseher )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH022A" )
**famea_2
[K�che/Bad/WC]
[famea(ach015a,Eckbank )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH015A" )
[famea(ach017a,Sp�le klein )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH017A" )
[famea(ach018a,Sp�le groá )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH018A" )
[famea(ach019a,E-Herd )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH019A" )
[fameb(ach023a,Schrank 1 )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH023A" )
[fameb(ach024a,Schrank 2 )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH024A" )
[fameb(ach020a,Schrank 3 )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH020A" )
[fameb(ach021a,Schrank 4 )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH021A" )
[famea(ach026a,Badewanne )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH026A" )
[famea(ach027a,Duschwanne )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH027A" )
[famea(ach028a,Waschbecken #1 )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH028A" )
[famea(ach029a,Waschbecken #2 )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH029A" )
[famea(ach030a,Waschbecken #3 )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH030A" )
[famea(ach035a,Doppelwaschbecken)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH035A" )
[famea(ach031a,WC #1 )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH031A" )
[famea(ach032a,WC #2 )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH032A" )
[famea(ach033a,WC #3 )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH033A" )
[famea(ach034a,WC #4 )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH034A" )
**famea_3
[Personen]
[famea(ach031c,Mann mit Koffer )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH031C" )
[famea(ach029c,Mann mit Mantel )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH029C" )
[famea(ach033c,Mann mit Tasche )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH033C" )
[famea(ach032c,Frau mit Tasche )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH032C" )
[famea(ach028c,Mann mit Junge )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH028C" )
[famea(ach030c,Frau mit M„dchen )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH030C" )
[famea(ach034c,Kinder )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH034C" )
[famea(ach035c,Ehepaar )]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH035C" )
**famea_4
[B„ume]
[famea(ach040a,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH040A" )
[famea(ach040c,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH040C" )
[famea(ach041a,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH041A" )
[famea(ach041c,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH041C" )
[famea(ach042a,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH042A" )
[famea(ach042c,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH042C" )
[famea(ach043a,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH043A" )
[famea(ach043c,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH043C" )
[famea(ach044a,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH044A" )
[famea(ach044c,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH044C" )
[famea(ach045a,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH045A" )
[famea(ach045c,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH045C" )
**famea_5
[Fahrzeuge]
[famea(ach050a,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH050A" )
[famea(ach050c,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH050C" )
[famea(ach050f,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH050F" )
[famea(ach050r,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH050R" )
[famea(ach052a,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH052A" )
[famea(ach052c,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH052C" )
[famea(ach052f,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH052F" )
[famea(ach052r,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH052R" )
[famea(ach055a,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH055A" )
[famea(ach055c,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH055C" )
[famea(ach055f,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH055F" )
[famea(ach055r,)]^p^c^c(if (null haas802) (progn(load (strcat hc_lsppath "haas802"))(prin1)) (prin1) ) (haas802 "2CH055R" )

MENU/CHGTEXT.LSP
+66
View File
@@ -0,0 +1,66 @@
; **********************************************************************
; CHGTEXT.LSP
; Dieses Programm ersetzt jeden vorkommenden "alten String" durch den
; "neuen String". Zuerst waehlen Sie den zu aendernden Text. Dann
; werden Sie nach dem "alten String" und nach dem "neuen String"
; gefragt. Nachdem die Aenderung vollzogen wurde, wird die Anzahl
; der geaenderten Zeilen angezeigt.
; **********************************************************************
(defun chgterr (s)
(if (/= s "Function cancelled") ; Wenn ein Fehler (z.B.CTRL-C)
(princ (strcat "\nError: " s)) ; auftritt, waehrend der Befehl
; aktiv ist
)
(setq p nil) ; Auswahlsatz loeschen
(setq *error* olderr) ; alte Fehlerroutine holen
(princ)
)
(defun C:CHGTEXT (/ p l n e os as ns st s nsl osl sl si chf chm olderr)
(setq olderr *error* ; Initialisieren der Variablen
*error* chgterr
chm 0)
(setq p (ssget)) ; Objekte waehlen
(if p (progn ; Wenn Objekte gewaehlt...
(while (= 0 (setq osl (strlen (setq os (getstring t "\nOld text: ")))))
(princ "No invalid Entry")
)
(setq nsl (strlen (setq ns (getstring t "\nNew text: "))))
(setq l 0 n (sslength p))
(while (< l n) ; Fuer jedes Objekt ...
(if (= "TEXT" ; Suchen nach TEXT Elementen(Gruppe 0)
(cdr (assoc 0 (setq e (entget (ssname p l))))))
(progn
(setq chf nil si 1)
(setq s (cdr (setq as (assoc 1 e))))
(while (= osl (setq sl (strlen
(setq st (substr s si osl)))))
(if (= st os)
(progn
(setq s (strcat (substr s 1 (1- si)) ns
(substr s (+ si osl))))
(setq chf t) ; Alten String finden
(setq si (+ si nsl))
)
(setq si (1+ si))
)
)
(if chf (progn ; Alten durch neuen String ersetzen
(setq e (subst (cons 1 s) as e))
(entmod e) ; TEXT Element modifizieren
(setq chm (1+ chm))
))
)
)
(setq l (1+ l))
)
))
(princ chm)
(princ " Text-String(s) changed ") ; Anzahl der geaenderten Zeilen
(terpri)
(setq *error* olderr) ; alte Fehlerfunktion holen
(princ)
)

MENU/CHTEXT.LSP
+731
View File
@@ -0,0 +1,731 @@
;;; CHTEXT.lsp
;;; Copyright (C) 1990 by Autodesk, Inc.
;;;
;;; von Jan S. Yoder 09. M„rz 1990
;;;
;;; Version 0.8
;;;
;;;----------------------------------------------------------------------------;
;;; BESCHREIBUNG
;;; Das ist ein "Textprozessor", welcher einzeln oder global
;;; die Eigenschaften H”he, Ausrichtung, Position, Drehwinkel,
;;; Textstil, Text und Textweite gew„hlter Texte „ndern kann.
;;;
;;; Der Befehl wird mit CHT aufgerufen und der Nutzer wird aufge-
;;; gefordert, das zu „ndernde Objekt zu w„hlen:
;;;
;;; Zu „ndernden Text waehlen.
;;; Objekt w„hlen:
;;;
;;; Wenn nichts gew„hlt wurde wird die Meldung: "FEHLER: Nichts gew„hlt."
;;; angezeigt und der Befehl beendet. Wenn mehr als 25 Texte gew„hlt wurden,
;;; wird die folgende Meldung angezeigt, w„hrend die Texte von den "Nicht-
;;; Textbestandteilen der Zeichnung aussortiert werden.
;;; Ein Z„hler zeigt die Anzahl bereits gefundener Texte an.
;;;
;;; Best„tigen der gewaehlten Elemente -- Bitte warten.
;;; nnn Textelemente gefunden.
;;; CHText: H”he/Ausrichtung/Position/Drehwinkel/Stil/Text/Zur�ck/Weite:
;;;
;;; Ein typisches Beispiel f�r die Anfragen sehen Sie im folgenden:
;;;
;;; Sie haben einen einzelnen Text zum Žndern der Texth”he gew„hlt und
;;; die Anfragen sehen so aus:
;;;
;;; CHText: H”he/Ausrichtung/Position/Drehwinkel/Stil/Text/Zur�ck/Weite:
;;; Neue Texth”he <0.0875>:
;;;
;;; Wenn Sie mehrere Texte zum Žndern der Texth”he gew„hlt haben, sieht
;;; der Befehlsdialog wie folgt aus:
;;;
;;; CHText: H”he/Ausrichtung/Position/Drehwinkel/Stil/Text/Zur�ck/Weite:
;;; Neu Texth”he fuer alle Texte oder Liste/Einzeln:
;;;
;;; "L" als Antwort f�hrt zur Anzeige der im Text genutzten Werte.
;;;
;;; H”he -- Min: 0.05000000 Max: 0.10000000 Mittel: 0.08392857
;;;
;;; "E" f�hrt Sie in eine Schleife, welche schrittweise alle gew„hlten
;;; Texte mit der Abfrage wie bei einer einzelnen Textwahl zum Žndern
;;; Ihnen anbietet.
;;;
;;; Die Eingabe von RETURN f�hrt Sie zum "Command:"-Prompt zur�ck.
;;; Bei Wahl einer der Optionen, k”nnen Sie die entsprechenden Eigen-
;;; schaften „ndern.
;;;
;;; Alle Textausrichtungsoptionen der Release 11 werden unterst�tzt.
;;; Dazu muss die Systemvariable "DIMCLRD" gesetzt sein.
;;; Ist das nicht der Fall, werden die Optionen der Release 10 unter-
;;; st�tzt.
;;;
; Hauptprogramm -- Keine Argumente
(defun chtxt (/ sset opt ssl nsset temp unctr ; lokale Variablen
sslen style hgt rot txt ent cht_oc
loc loc1 justp justq orthom )
(setq pt_ver "1.00") ; Versionsanzeige, bei Programm„nderungen
;; ; bitte anpassen
;; Interne Fehlerroutine
;;
(defun cht_er (s) ; Wenn ein Fehler (z.B. CTRL-C) w„hrend
; der Befehlausf�hrung auftritt...
(if (/= s "Funktion abgebrochen")
(if (= s "quit / exit abort")
(princ)
(princ (strcat "\nFehler: " s))
)
)
(command)
(eval(read U:E))
(if cht_oe ; Falls eine alte Fehlerroutine existiert
(setq *error* cht_oe) ; wird diese wiederhergestellt
)
(if cht_oc (setvar "cmdecho" cht_oc)) ; Echobefehl wieder herstellen
(if cht_ot (setvar "texteval" cht_ot))
(if cht_oh (setvar "highlight" cht_oh))
(princ)
)
;;
;; Kern der Funktion
;;
(if *error* ; Neue Fehlerroutine setzen
(setq cht_oe *error* *error* cht_er)
(setq *error* cht_er)
)
;; Setzen der ZURšCK Gruppen mittels (eval(read U:G)) oder (eval(read U:E))
(setq U:G "(command \"ZURšCK\" \"gruppe\")"
U:E "(command \"ZURšCK\" \"ende\")"
)
(setq cht_oc (getvar "cmdecho"))
(setq cht_oh (getvar "highlight"))
(setvar "cmdecho" 0)
(eval(read U:G))
(princ (strcat "\nText Žndern, Version " pt_ver
", (c) 1990 by Autodesk, Inc. "))
(prompt "\nZu „ndernden Text w„hlen. ")
(setq sset (ssget))
(if (null sset)
(progn
(princ "\nFEHLER: Nichts gew„hlt.")
(exit)
)
)
;; šberpr�fen der Elemente
(cht_ve)
;; Das ist die Hauptschleife.
(cht_ol)
(if cht_oe (setq *error* cht_oe)) ; Bei Fehlern alte Fehlerroutine
(eval(read U:E)) ; wieder herstellen
(if cht_ot (setvar "texteval" cht_ot))
(if cht_oh (setvar "highlight" cht_oh))
(if cht_oc (setvar "cmdecho" cht_oc)) ; Reset command echoing
(princ)
)
;;;
;;; Pr�fen und Aussortieren der Nichttextelemente
;;;
(defun cht_ve ()
(setq ssl (sslength sset)
nsset (ssadd))
(if (> ssl 25)
(princ "\nBest„tigen der gew„hlten Elemente -- Bitte warten. ")
)
(while (> ssl 0)
(setq temp (ssname sset (setq ssl (1- ssl))))
(if (= (cdr(assoc 0 (entget temp))) "TEXT")
(ssadd temp nsset)
)
)
(setq ssl (sslength nsset)
sset nsset
unctr 0
)
(print ssl)
(princ "Textelemente gefunden. ")
)
;;;
;;; Die Optionsschleife.
;;;
(defun cht_ol ()
(setq opt T)
(while (and opt (> ssl 0))
(setq unctr (1+ unctr))
(command "ZURšCK" "gruppe")
(initget "Position Ausrichtung Stil H”he Drehwinkel Weite Text Zur�ck")
(setq opt (getkword
"\nH”he/Ausrichtung/Position/Drehwinkel/Stil/Text/Zur�ck/Weite: "))
(if opt
(cond
((= opt "Zur�ck")
(cht_ue) ; Zur�cknehemen des vorherigen Befehls
)
((= opt "Position")
(cht_le) ; Žndern der Position
)
((= opt "Ausrichtung")
(cht_je) ; Žndern der Ausrichtung
)
((= opt "Stil") (cht_pe "Stil" "Stilnamen" 7) )
((= opt "H”he") (cht_pe "H”he" "H”henfaktor" 40) )
((= opt "Drehwinkel") (cht_pe "Drehwinkel" "Drehwinkel" 50) )
((= opt "Weite") (cht_pe "Weite" "Weitenfaktor" 41) )
((= opt "Text")
(cht_te) ; Žndern des Textes.
)
)
(setq opt nil)
)
(command "Zur�ck" "ende")
)
)
;;;
;;; Einen Eintrag zuruecknehmen
;;;
(defun cht_ue ()
(if (> unctr 1)
(progn
(command "Zur�ck" "ende")
(command "Zur�ck" "2")
(setq unctr (- unctr 2))
)
(progn
(princ "\nNichts zur�ckgenommen. ")
(setq unctr (- unctr 1))
)
)
)
;;;
;;; Žndern der Position eines Eintrages.
;;;
(defun cht_le ()
(setq sslen (sslength sset)
style ""
hgt ""
rot ""
txt ""
)
(command "Žndern" sset "" "")
(while (> sslen 0)
(setq ent (entget(ssname sset (setq sslen (1- sslen))))
opt (list (cadr (assoc 11 ent))
(caddr (assoc 11 ent))
(cadddr (assoc 11 ent)))
)
(prompt "\nGeben Sie den neuen Textstandort ein: ")
(command pause)
(if (null loc)
(setq loc opt)
)
(command style hgt rot txt)
)
(command)
)
;;;
;;; Die Ausrichtung „ndern.
;;;
(defun cht_je ()
(if (getvar "DIMCLRD")
(initget (strcat "OLinks OZentriert ORechts "
"MLinks MZentriert MRechts "
"ULinks UZentriert URechts "
"Ausrichten Zentriert Einpassen Links Mitte Rechts ?"))
(initget "Ausrichten Zentriert Einpassen Links Mitte Rechts ?")
)
(setq sslen (sslength sset))
(setq justp (getkword (strcat "\nAusrichtungspunkt(e) - "
"Ausrichten/Zentriert/Einpassen/Links/Mitte/Rechts/<?>: ")))
(cond
((= justp "Links") (setq justp 0 justq 0) )
((= justp "Zentriert") (setq justp 1 justq 0) )
((= justp "Rechts") (setq justp 2 justq 0) )
((= justp "Ausrichten") (setq justp 3 justq 0) )
((= justp "Einpassen") (setq justp 5 justq 0) )
((= justp "OLinks") (setq justp 0 justq 3) )
((= justp "OZentriert") (setq justp 1 justq 3) )
((= justp "ORechts") (setq justp 2 justq 3) )
((= justp "MLinks") (setq justp 0 justq 2) )
((= justp "Mitte") (setq justp 1 justq 2) )
((= justp "MZentriert") (setq justp 1 justq 2) )
((= justp "MRechts") (setq justp 2 justq 2) )
((= justp "ULinks") (setq justp 0 justq 1) )
((= justp "UZentriert") (setq justp 1 justq 1) )
((= justp "URechts") (setq justp 2 justq 1) )
((= justp "?") (setq justp nil) )
(T (setq justp nil) )
)
(if justp
(justpt) ; Ausf�hrung...
(justpn) ; Optionen auflisten
)
(command)
)
;;;
;;; Ausrichtungspunkte f�r "Ausrichten" und "Einpassen"
;;;
(defun justpt ()
(while (> sslen 0)
(setq ent (entget(ssname sset (setq sslen (1- sslen))))
ent (subst (cons 72 justp) (assoc 72 ent) ent)
opt (trans (list (cadr (assoc 11 ent))
(caddr (assoc 11 ent))
(cadddr (assoc 11 ent)))
(cdr(assoc -1 ent)) ; from ECS
1) ; to current UCS
)
(if (getvar "DIMCLRD")
(setq ent (subst (cons 73 justq) (assoc 73 ent) ent))
)
(cond
((or (= justp 3) (= justp 5))
(prompt "\nGeben Sie die neuen Textausrichtungspunkte ein: ")
(if (= (setq orthom (getvar "orthomode")) 1)
(setvar "orthomode" 0)
)
(redraw (cdr(assoc -1 ent)) 3)
(initget 1)
(setq loc (getpoint))
(initget 1)
(setq loc1 (getpoint loc))
(redraw (cdr(assoc -1 ent)) 1)
(setvar "orthomode" orthom)
(setq ent (subst (cons 10 loc) (assoc 10 ent) ent))
(setq ent (subst (cons 11 loc1) (assoc 11 ent) ent))
)
((/= justp 0)
(redraw (cdr(assoc -1 ent)) 3)
(prompt "\nGeben Sie den neuen Textstandort ein: ")
(if (= (setq orthom (getvar "orthomode")) 1)
(setvar "orthomode" 0)
)
(setq loc (getpoint opt))
(setvar "orthomode" orthom)
(redraw (cdr(assoc -1 ent)) 1)
(if (null loc)
(setq loc opt)
(setq loc (trans loc 1 (cdr(assoc -1 ent))))
)
(setq ent (subst (cons 11 loc) (assoc 11 ent) ent))
)
)
(entmod ent)
)
)
;;;
;;; Optionen listen
;;;
(defun justpn ()
(if (getvar "DIMCLRD") (textpage))
(princ "\nAusrichtungsoptionen: ")
(princ "\n\t OLinks OZentriert ORechts ")
(princ "\n\t MLinks MZentriert MRechts ")
(princ "\n\t ULinks UZentriert URechts ")
(princ "\n\t Links Zentriert Rechts ")
(princ "\n\tAusrichten Mitte Einpassen ")
(if (not (getvar "DIMCLRD")) (textscr))
(princ "\n\nBeliebige Taste dr�cken, um zum Zeichnungseditor zur�ckzukehren. ")
(grread)
(princ "\r ")
(graphscr)
)
;;;
;;; Text „ndern
;;;
(defun cht_te ()
(setq sslen (sslength sset))
(initget "Global Einzeln Austauschen")
(setq ans (getkword "\nText editieren. Einzeln/Austauschen/<Global>:"))
(setvar "texteval" 1)
(cond
((= ans "Einzeln")
(if (= (getvar "popups") 1)
(progn
(initget "Ja Nein")
(setq ans (getkword "\nText im Dialog editieren? <Ja>:"))
)
(setq ans "Nein")
)
(while (> sslen 0)
(redraw (setq ss (ssname sset (setq sslen (1- sslen)))) 3)
(setq ss (ssadd))
(ssadd (ssname sset sslen) ss)
(if (= ans "Nein")
(chgtext ss)
(command "ddedit" ss "")
)
(redraw ss 1)
)
)
((= ans "Austauschen")
(while (> sslen 0)
(setq ent (entget(ssname sset (setq sslen (1- sslen)))))
(redraw (cdr(assoc -1 ent)) 3)
(prompt (strcat "\nAlter Text: " (cdr(assoc 1 ent))))
(setq nt (getstring T "\nNeuer Text: "))
(redraw (cdr(assoc -1 ent)) 1)
(if (> (strlen nt) 0)
(entmod (subst (cons 1 nt) (assoc 1 ent) ent))
)
)
)
(T
(chgtext sset) ; Alle aendern
)
)
(setvar "texteval" cht_ot)
)
;;;
;;; Der alte CHGTEXT Befehl - das Rudiment eines Texteditors
;;;
;;;
(defun C:CHGTEXT () (chgtext nil))
(defun chgtext (objs / last_o tot_o ent o_str n_str st s_temp
n_slen o_slen si chf chm cont ans)
(if (null objs)
(setq objs (ssget)) ; Objektwahl falls das Programm allein
) ; genutzt wird
(setq chm 0)
(if objs
(progn ; Falls etwas gewaehlt wurde
(if (= (type objs) 'ENAME)
(progn
(setq ent (entget objs))
(princ (strcat "\nExistierender String: " (cdr (assoc 1 ent))))
)
(if (= (sslength objs) 1)
(progn
(setq ent (entget (ssname objs 0)))
(princ (strcat "\nExistierender String : " (cdr (assoc 1 ent))))
)
)
)
(setq o_str (getstring "\nZu ersetzender String: " t))
(setq o_slen (strlen o_str))
(if (/= o_slen 0)
(progn
(setq n_str (getstring "\nNeuer String : " t))
(setq n_slen (strlen n_str))
(setq last_o 0
tot_o (if (= (type objs) 'ENAME)
1
(sslength objs)
)
)
(while (< last_o tot_o) ; F�r jedes gew„hlte Objekt
(if (= "TEXT" ; Suche nach Textelementen (group 0)
(cdr (assoc 0 (setq ent (entget (ssname objs last_o))))))
(progn
(setq chf nil si 1)
(setq s_temp (cdr (assoc 1 ent)))
(while (= o_slen (strlen (setq st (substr s_temp si o_slen))))
(if (= st o_str)
(progn
(setq s_temp (strcat
(if (> si 1)
(substr s_temp 1 (1- si))
""
)
n_str
(substr s_temp (+ si o_slen))
)
)
(setq chf t) ; Alten String gefunden
(setq si (+ si n_slen))
)
(setq si (1+ si))
)
)
(if chf
(progn ; Alten mit neuen String ersetzen
; Textelement modifizieren
(entmod (subst (cons 1 s_temp) (assoc 1 ent) ent))
(setq chm (1+ chm))
)
)
)
)
(setq last_o (1+ last_o))
)
)
;; dann in die n„chste Zeile gehen
)
)
)
(if (/= (type objs) 'ENAME)
(if (/= (sslength objs) 1) ; g„nderte Zeile anzeigen
(princ (strcat "Ge„nderte "
(rtos chm 2 0)
" Textzeilen"
)
)
)
)
(terpri)
)
;;;
;;; Huptprozedur f�r Textmanipulation
;;; ARGUMENTE:
;;; typ -- Typ der durchzuf�hrenden Operation
;;; prmpt -- Teilstring der Standardanfrage
;;; fld -- Assoziationslistennummer, welche ge„ndert wird
;;; GLOBALE VARIABLEN:
;;; sset -- Auswahlsatz der Textelemente
;;;
(defun cht_pe (typ prmpt fld / temp ow nw ent tw sty w hw lw
sslen n sn ssl)
(if (= (sslength sset) 1) ; Spezialfall - nur ein Element
; wurde gew„hlt
;; Ein-Element-Prozess
(cht_p1)
;; sonst
(progn
;; Anzeige
(cht_sp)
(if (= nw "Liste")
;; Liste gew�nscht
(cht_pl)
(if (= nw "Einzeln")
;; Einzeldurchfuehrung erw�nscht
(cht_pi)
(if (= nw "Wahl")
;; Wahlweise Durchf�hrung erw�nscht
(cht_ps)
;; sonst
(progn
(if (= typ "Drehwinkel")
(setq nw (* (/ nw 180.0) pi))
)
(if (= (type nw) 'STR)
(if (not (tblsearch "style" nw))
(progn
(princ (strcat "\nStil " nw " nicht gefunden. "))
)
(cht_pa)
)
(cht_pa)
)
)
)
)
)
)
)
)
;;;
;;; Change all of the entities in the selection set.
;;;
(defun cht_pa ()
(setq sslen (sslength sset))
(setq cht_oh (getvar "texteval"))
(setvar "highlight" 0)
(while (> sslen 0)
(setq temp (ssname sset (setq sslen (1- sslen))))
(entmod (subst (cons fld nw)
(assoc fld (setq ent (entget temp)))
ent
)
)
)
(setvar "highlight" cht_oh)
)
;;;
;;; Ein Texteintrag „ndern
;;;
(defun cht_p1 ()
(setq temp (ssname sset 0))
(setq ow (cdr(assoc fld (entget temp))))
(if (= opt "Drehwinkel")
(setq ow (/ (* ow 180.0) pi))
)
(redraw (cdr(assoc -1 (entget temp))) 3)
(initget 0)
(if (= opt "Stil")
(setq nw (getstring (strcat "\nDen neuen " prmpt " f�r den Text eingeben. <"
ow ">: ")))
(setq nw (getreal (strcat "\nDen neuen " prmpt "f�r den Text eingeben. <"
(rtos ow 2) ">: ")))
)
(if (or (= nw "") (= nw nil))
(setq nw ow)
)
(redraw (cdr(assoc -1 (entget temp))) 1)
(if (= opt "Drehwinkel")
(setq nw (* (/ nw 180.0) pi))
)
(if (= opt "Stil")
(if (null (tblsearch "style" nw))
(princ (strcat "\nStil " nw " nicht gefunden. "))
(entmod (subst (cons fld nw)
(assoc fld (setq ent (entget temp)))
ent
)
)
)
(entmod (subst (cons fld nw)
(assoc fld (setq ent (entget temp)))
ent
)
)
)
)
;;;
;;; Anfrage
;;;
(defun cht_sp ()
(if (= typ "Stil")
(progn
(initget "Einzeln Liste Wahl Enter ")
(setq nw (getkword (strcat "\n<Enter>, wenn "
prmpt
" f�r alle Texte oder Einzeln/Liste/Wahl: ")))
(if (or (= nw "") (= nw nil) (= nw "Enter"))
(setq nw (getstring (strcat "\nNeuen "
prmpt
" f�r alle Texte eingeben: ")))
)
)
(progn
(initget "Liste Einzeln" 1)
(setq nw (getreal (strcat "\nNeuen "
prmpt
" f�r alle Texte oder Liste/Einzeln: ")))
)
)
)
;;;
;;; Liste ist erw�nscht
;;;
(defun cht_pl ()
(setq unctr (1- unctr))
(setq sslen (sslength sset))
(setq tw 0)
(while (> sslen 0)
(setq temp (ssname sset (setq sslen (1- sslen))))
(if (= typ "Stil")
(progn
(if (= tw 0)
(setq tw (list (cdr(assoc fld (entget temp)))))
(progn
(setq sty (cdr(assoc fld (entget temp))))
(if (not (member sty tw))
(setq tw (append tw (list sty)))
)
)
)
)
(progn
(setq tw (+ tw (setq w (cdr(assoc fld (entget temp))))))
(if (= (sslength sset) (1+ sslen)) (setq lw w hw w))
(if (< hw w) (setq hw w))
(if (> lw w) (setq lw w))
)
)
)
(if (= typ "Drehwinkel")
(setq tw (* (/ tw pi) 180.0)
lw (* (/ lw pi) 180.0)
hw (* (/ hw pi) 180.0))
)
(if (= typ "Stil")
(progn
(princ (strcat "\n"
typ
"(e) -- "))
(princ tw)
)
(princ (strcat "\n"
typ
" -- Min: "
(rtos lw 2)
"\t Max: "
(rtos hw 2)
"\t Mittel: "
(rtos (/ tw (sslength sset)) 2) ))
)
)
;;;
;;; Einzeln ist der Wunsch
;;;
(defun cht_pi ()
(setq sslen (sslength sset))
(while (> sslen 0)
(setq temp (ssname sset (setq sslen (1- sslen))))
(setq ow (cdr(assoc fld (entget temp))))
(if (= typ "Drehwinkel")
(setq ow (/ (* ow 180.0) pi))
)
(initget 0)
(redraw (cdr(assoc -1 (entget temp))) 3)
(if (= typ "Stil")
(progn
(setq nw (getstring (strcat "\nNeuen "
prmpt
" f�r Text eingeben. <"
ow ">: ")))
)
(progn
(setq nw (getreal (strcat "\nNeuen "
prmpt
" f�r Text eingeben. <"
(rtos ow 2) ">: ")))
)
)
(if (or (= nw "") (= nw nil))
(setq nw ow)
)
(if (= typ "Drehwinkel")
(setq nw (* (/ nw 180.0) pi))
)
(entmod (subst (cons fld nw)
(assoc fld (setq ent (entget temp)))
ent
)
)
(redraw (cdr(assoc -1 (entget temp))) 1)
)
)
;;;
;;; Wahloption
;;;
(defun cht_ps ()
(princ "\nWelcher Textstilname wird gesucht? <*>: ")
(setq sn (strcase (getstring))
n -1
sset nsset
nsset (ssadd)
ssl (1- (sslength sset))
)
(if (or (= sn "*") (null sn) (= sn ""))
(setq nsset sset sn "*")
(while (and sn (< n ssl))
(setq temp (ssname sset (setq n (1+ n))))
(if (= (cdr(assoc 7 (entget temp))) sn)
(ssadd temp nsset)
)
)
)
(setq ssl (sslength nsset))
(princ ssl)
(princ " Texteintragungen im Stil ")
(princ sn)
(princ "\ngefunden. ")
(setq sset nsset)
)
;;;
;;; Die C: Funktionsdefinition.
;;;
(defun c:cht () (chtxt))
(princ "\n\tc:CHText geladen. Starten mit CHT.")
(princ)

MENU/CP2100.SLB
BIN
View File
Binary file not shown.
MENU/CW_ACAD.PCP
+1291
View File
File diff suppressed because it is too large Load Diff
MENU/CW_CADV.PCP
+1291
View File
File diff suppressed because it is too large Load Diff
MENU/DELLAYER.LSP
+24
View File
@@ -0,0 +1,24 @@
;--------------------------
; Layerloeschen AW 30.6.91
;--------------------------
(Defun C:DellayA ()
(Setvar "Cmdecho" 0)
(Setq A (Getstring "\nLayer to delete - Name: "))
(Command "_erase" (Ssget "X" (Cons (Cons 8 (Eval A)) TEMPWORD)) "")
(Princ)
)
(Defun C:DellayB ()
(Setvar "Cmdecho" 0)
(Setq A (Entsel "\nLayer to delete - select object: "))
(If
A
(Progn
(Setq A (Cdr (Assoc 8 (Entget (Car A)))))
(Command "_erase" (Ssget "X" (Cons (Cons 8 (Eval A)) TEMPWORD)) "")
)
)
(Princ)
)

MENU/DIM_ISO.LSP
+83
View File
@@ -0,0 +1,83 @@
(Defun C:DIMISO ()
(Setvar "Cmdecho" 0)
(Setq DS (Getvar "Dimscale"))
(Setq DA (Getvar "Dimasz"))
(Setq DT (Getvar "Dimtxt"))
(Setq DE (Getvar "Dimexe"))
(Setq DO (Getvar "Dimexo"))
(Setq A1 (/ Pi 180.0))
(Setq A2 (/ 180 Pi))
(Initget 1 "L R")
(Setq A (Getkword "\nLeft/Right: "))
(Setq P1
(Getpoint
"\nFirst point of the first Construction-Line or RETURN to select: "))
(Cond
((= nil P1)
(Setq P2 (Entsel))
(While
(= nil P2)
(Princ "\nNo object found!")
(Setq P2 (Entsel))
)
(Setq P2 (Osnap (Cadr P2) "_MID"))
(Setq P1 (Osnap P2 "_END"))
(Setq P2 (Polar P1 (Angle P1 P2) (* 2.0 (Distance P1 P2))))
)
((Boundp 'P1)
(Initget 1)
(Setq P2 (Getpoint "\nFirst point of the second Construction-Line: "))
)
)
(Initget 1)
(Setq P3 (Getpoint "\nPlace dimensioning line: "))
(Cond
((= A "L")
(Setq B 150 C 30 G "ISOAROW2" H "ISOTEXT2" I 30)
(Setpt)
(If
(< (Cadr P6) (Cadr P7))
(Setq F -1)
(Setq F 1)
)
(Dimit)
)
((= A "R")
(Setq B 30 C 150 G "ISOAROW1" H "ISOTEXT1" I 330)
(Setpt)
(If
(< (Cadr P6) (Cadr P7))
(Setq F -1)
(Setq F 1)
)
(Dimit)
)
)
)
(Defun Setpt ()
(Setq P4 (Inters P1 (Polar P1 (* A1 B) 1) P3 (Polar P3 (* A1 C) 1) Onseg))
(Setq P5 (Inters P2 (Polar P2 (* A1 B) 1) P3 (Polar P3 (* A1 C) 1) Onseg))
(Setq P6 (Polar P4 (Angle P4 P5) (/ (Distance P4 P5) 2)))
(Setq P7 (Polar P1 (Angle P1 P2) (/ (Distance P1 P2) 2)))
)
(Defun Dimit ()
(Command "_LINE" (Polar P1 (Angle P1 P4) (* DO DS)) (Polar P4 (Angle P1 P4)
(* DE DS)) "" "_LINE" (Polar P2 (Angle P2 P5) (* DO DS)) (Polar P5
(Angle P2 P5) (* DE DS)) "" "_LINE" P4 P5 "")
(Setq P6 (Polar P6 (Angle P1 P4) (* F (* DT DS))))
(Setq D1 (Rtos (Distance P4 P5) (Getvar "Lunits") (Getvar "Luprec")))
(Command "_insert" G P4 (* DS DA) "" (* A2 (Angle P4 P5)))
(Command "_insert" G P5 (* DS DA) "" (* A2 (Angle P5 P4)))
(Prompt "\nDimensioning text <")
(Prompt D1)
(Setq D2 (Getstring t ">: "))
(If
(= D2 "")
(Setq D D1)
(Setq D D2)
)
(Command "_Text" "_S" H "_C" P6 (* DS DT) I D)
)

MENU/DINA.LSP
+41
View File
@@ -0,0 +1,41 @@
(prompt "\nFunktionen DINA laden ........... ")(setvar "cmdecho" 0)(prompt ".")(defun sym (p0 p1 d1 fa sy / ag ce d2 e1)
(if (= sy t)(setq g-sym (strcase(g_in g-sym "\nMittellinie zeichnen ? (Ja=J/nein=N):" "J")))(setq g-sym "J"))(if (= g-sym "J")(progn
(setq ag (angle p0 p1) ce (getvar "clayer"))(if (< (distance p0 p1) (* 20 g_f))(setq la (nth 10 v-lay))(setq la (nth 7 v-lay)))(cond((= fa "A")(progn
(command "_LINE" (polar p0 (+ ag pi) d1) (polar p1 ag d1) "")(setq e1 (entget (entlast)))(entmod (subst (cons 8 la)(assoc 8 e1) e1))))
((= fa "B")(progn(setq d2 (* d1 1.2))(command "_LINE" (polar p0 0 d2) (polar p0 pi d2) "")(setq e1 (entget (entlast)))
(entmod (subst (cons 8 la)(assoc 8 e1) e1))(command "_LINE" (polar p0 (* pi 0.5) d2) (polar p0 (* pi 1.5) d2) "")(setq e1 (entget (entlast)))
(entmod (subst (cons 8 la)(assoc 8 e1) e1))))))))(prompt ".")(defun les (vz zi dt fa gr / ls fs )(setvar "cmdecho" 0)(gc)(setq ls nil fs fa)(cond
((= fa "A")(progn (if (= (type soll) 'str)(if (/= (substr soll 1 1) "M")(setq soll "M10")))
(setq soll (g_in soll "\nDurchmesser (M1.6 .. M30) ?" "M10") )))((= fa "C")(setq fs "A"))((= fa "D")(setq fs "B")))
(setq du (strcat pfad "dinsuche " fs " " pfad dt " " (rtos vz 2 0) " " (rtos zi 2 0) " " soll " "))(command "SH" du)(if (= gr t)(command "_GRAPHBLD"))
(if (/= fa "D")(progn(setq datnr (open "temp.$$$" "r"))(if (/= datnr nil)(progn(if (= vz 6)(progn (setq tex nil)
(repeat 6 (setq tex (cons (read-line datnr) tex))) (setq tex (reverse tex) txx (nth 0 tex)))(setq txx (read-line datnr)))(if (/= txx "nil")(progn
(setq a (read-line datnr)) (while (/= a nil) (setq ls (cons a ls)) (setq a (read-line datnr)) ) (setq ls (reverse ls))(close datnr)(setq datnr nil))
(setq ls nil datnr nil))) (if (/= fa "b")(prompt "\nError: keine DIN-Vorgabe !")) )))(setq ls ls))(prompt ".")
(defun g-b2 (pp fe le e0 / s1 du ct el pm r p3 ez la)(setq s1 nil du nil s1 (ssget "K" (polar pp (* pi 0.25) le)(polar pp (* pi 1.25) le)))
(if (= s1 nil)(prompt "\nError: kein Objekt gefunden")(progn(if (/= e0 nil)(setq s1 (ssdel e0 s1)))(setq ct 0)(while (/= nil (ssname s1 ct))
(setq el (ssname s1 ct) ct (1+ ct))(cond ((= (cdr (assoc 0 (entget el))) "INSERT")(prompt "Error: Block nicht brechbar "))
((= (cdr (assoc 0 (entget el))) "CIRCLE") (progn (setq pm (trans (cdr (assoc 10 (entget el))) 0 1) r (cdr (assoc 40 (entget el)))
p3 (polar pm (angle pp pm) (* r 2))) (command "_BREAK" el pp p3 "_MIRROR" el "" pp p3 "N")
(if (and (= fe nil)(= du nil))(progn(prompt "\nKontur gebrochen !")(setq du t)))))((= (cdr (assoc 0 (entget el))) "POLYLINE") (progn
(if (< (distance (trans (cdr (assoc 10 (entget (entnext el)))) 0 1) pp) 1.0e-10)() (progn (setq ez el)
(while (= (cdr (assoc 0 (entget (entnext ez)))) "VERTEX") (setq ez (entnext ez)) ) (if (< (distance (trans (cdr (assoc 10 (entget ez))) 0 1) pp)
1.0e-10)() (progn (command "_BREAK" el pp pp) (if (and (= fe nil)(= du nil))(progn (prompt "\nKontur gebrochen !")(setq du t))) )) ))))(progn
(command "_BREAK" el pp pp) (if (and (= fe nil)(= du nil))(progn(prompt "\nKontur gebrochen !")(setq du t)))))
(if (= fe t) (prompt (strcat " " (itoa ct) " ")))) )) (setq s1 nil))(prompt ".")(defun ZIEH (to en / tx p0 p1 ps e2 cx he br h2 b2)
(setq tx to cx "TEXT")(setvar "cmdecho" 0)(if (= en T)(g_sv))(cond ((and (= en 0)(= g_if 0))(setq en 0)) ((and (= en 0)(= g_if 1))(setq en 1))
((and (= en 0)(= g_if 2))(setq en 2)))(if (/= g_if 2)(progn (setq e2 3) (if (= tx "")(setq tx "0"))
(setq he (* 5.0 g_f) br he b2 (* 2 br) h2 (* he 0.5))(while (or(= e2 3)(= e2 4))(progn(if (= en 0)(progn (setvar "attdia" 0)
(setq p1 (getpoint "\nPosition Infopunkt:")) (if (/= p1 nil)(command "_insert" "dininfo" p1 g_f g_f 0 (nth 0 tx) (nth 1 tx) (nth 2 tx) (nth 3 tx)
(nth 4 tx) (nth 5 tx) ))(setvar "attdia" 1)) (progn (setq p1 (getpoint "\n<Startpunkt>,(Return=Ende):") p2 nil)
(if (/= p1 nil)(setq p2 (getpoint p1 "\nLinienendpunkt:"))) (if (and (or (= en 3)(= en 4))(= p2 nil)) (quit)) (if (/= p2 nil)
(command "_PLINE" (polar p1 (angle p1 p2) (* 0.5 g_f)) "K" "RA" (* 0.5 g_f) "W" "359" (* 57.32 (- (angle p1 p2) (* pi 0.5))) "L" p2 "" (terpri)
"_change" "_L" "" "_LA" (nth 5 v-lay)) ))) (if (= en 1)(setq tx (strcat (nth 0 to) " " (nth 2 to))))(if (= en 4) (progn
(setq he (* 5.0 g_f) br he b2 (* 2 br) h2 (* he 0.5) cx "DTEXT" tx nil) (prompt "\nDText (Return=neue Zeile):")))(if (or (= en 1)(= en 4)) (progn
(setq ag (angle p1 p2)) (g-zi1 cx p2 ag he tx)))(setq e2 en)))))(princ))(defun g-zi1 (cx p2 ag he tx / la h2 br p4)
(setq p4 (* pi 0.25) la (getvar "clayer") h2 (* he 0.5) br he) (command "_LAYER" "_SET" (nth 4 v-lay) "") (cond
((or (>= ag (* p4 7)) (< ag p4))(command cx (list (+ (car p2) br)(- (cadr p2) h2)) he 0 tx))
((and (>= ag p4) (< ag (* p4 3)))(command cx "M" (list (car p2)(+ (cadr p2) he)) he 0 tx))
((and (>= ag (* p4 3)) (< ag (* p4 5)))(command cx "R" (list (- (car p2) br)(- (cadr p2) h2)) he 0 tx))
((and (>= ag (* p4 5)) (< ag (* p4 7)))(command cx "M" (list (car p2)(- (cadr p2) (* h2 2.5))) he 0 tx)) ) (command "_LAYER" "_SET" la ""))(princ)

MENU/DINFORM.D
+60
View File
@@ -0,0 +1,60 @@
// Dialogbox f�r DINFORM.LSP = Zeichnungs-Rahmen einf�gen
//
// Datum: 05.12.93
//
DINFORM : dialog
{
label = "Insert Drawing Border";
spacer;
: popup_list
{
label = "Border-Size";
key = "DIN";
mnemonic = "P";
value = 0;
list = "A0\nA1\nA2\nA3\nA4";
}
spacer;
: boxed_radio_column
{
label = "Alignment (only for A4)";
value = "0";
: row
{
: radio_button
{
label = "Landscape";
key = "QUER";
mnemonic = "Q";
value = "1";
}
: radio_button
{
label = "Portrait";
key = "HOCH";
mnemonic = "H";
}
}
}
spacer;
: popup_list
{
label = "Scale";
key = "MS";
mnemonic = "M";
value = 6;
list = "1:1\n1:10\n1:20\n1:25\n1:50\n1:75\n1:100\n1:200\n1:500\n1:1000";
}
spacer;
: toggle
{
label = "Header";
key = "SF";
mnemonic = "S";
value = "1";
}
spacer;
ok_cancel;
}

MENU/DINFORM.DCL
+80
View File
@@ -0,0 +1,80 @@
// Dialogbox fuer DINFORM.LSP = Zeichnungs-Rahmen einfügen
//
// Datum: 05.12.93 / 5.7.97 / 12.6.98
//
DINFORM : dialog {
label = "ZEICHNUNGSFORMAT";
spacer;
: popup_list {
label = "Rahmen";
key = "DIN";
mnemonic = "P";
value = 0;
list = "A0\nA1\nA2\nA3\nA4";
}
spacer;
: row {
: boxed_radio_column {
label = "Ausrichtung (nur für A4)";
value = "0";
: column {
: radio_button {
label = "Quer";
key = "QUER";
mnemonic = "Q";
value = "1";
}
: radio_button {
label = "Hoch";
key = "HOCH";
mnemonic = "H";
}
}
}
: boxed_radio_column {
label = "Sprache";
value = "0";
: column {
: radio_button {
label = "Deutsch";
key = "L_GERMAN";
mnemonic = "Q";
value = "1";
}
: radio_button {
label = "Englisch";
key = "L_ENGLISH";
mnemonic = "H";
}
: radio_button {
label = "Französisch";
key = "L_FRENCH";
mnemonic = "H";
}
: radio_button {
label = "Italienisch";
key = "L_ITALIAN";
mnemonic = "H";
}
}
}
}
spacer;
: popup_list {
label = "Maßstab";
key = "MS";
mnemonic = "M";
value = 6;
list = "1:1\n1:10\n1:20\n1:25\n1:50\n1:75\n1:100\n1:200\n1:500\n1:1000";
}
spacer;
: toggle {
label = "Kopf";
key = "SF";
mnemonic = "S";
value = "1";
}
spacer;
ok_cancel;
}
MENU/DINFORM.L
+131
View File
@@ -0,0 +1,131 @@
;------------------------------------------------------------------------;
; DIN-Blatt einf�gen ;
;------------------------------------------------------------------------;
; AW 05.12.93 ;
;------------------------------------------------------------------------;
(defun Dbox (/ Dat)
(setq Dat (load_dialog (strcat lw "/acadsst/menu/DINFORM.DCL")))
(if (not (new_dialog "DINFORM" Dat)) (exit))
(action_tile "accept" "(SetPara) (done_dialog)")
(action_tile "cancel" "(exit) (done_dialog)")
(start_dialog)
(unload_dialog Dat)
)
(defun SetPara ()
(setq DD_DIN (get_tile "DIN"))
(setq DD_MS (get_tile "MS"))
(setq DD_SF (get_tile "SF"))
(setq DD_QUER (get_tile "QUER"))
;------ Format definieren-----------
(if (= DD_DIN "0")
(setq BL-NAME "A0")
)
(if (= DD_DIN "1")
(setq BL-NAME "A1")
)
(if (= DD_DIN "2")
(setq BL-NAME "A2")
)
(if (= DD_DIN "3")
(setq BL-NAME "A3")
)
(if (= DD_DIN "4")
(progn
(if (= DD_QUER "1")
(setq BL-NAME "A4Q")
(setq BL-NAME "A4H")
)
)
)
(setq BL-NAME (strcat lw "/acadsst/koepfe/" BL-NAME))
;------------------------------------------------------
; Maástab definieren
(if (= DD_MS "0")
(progn
(setq FAKTOR "1")
(setq FAKTOR1 "0.01")
)
)
(if (= DD_MS "1") ; 1:10
(progn
(setq FAKTOR "10")
(setq FAKTOR1 "0.1")
)
)
(if (= DD_MS "2") ; 1:20
(progn
(setq FAKTOR "20")
(setq FAKTOR1 "0,2")
)
)
(if (= DD_MS "3") ; 1:25
(progn
(setq FAKTOR "25")
(setq FAKTOR1 "0.25")
)
)
(if (= DD_MS "4") ; 1:50
(progn
(setq FAKTOR "50")
(setq FAKTOR1 "0.5")
)
)
(if (= DD_MS "5") ; 1:75
(progn
(setq FAKTOR "75")
(setq FAKTOR1 "0.75")
)
)
(if (= DD_MS "6") ; 1:100
(progn
(setq FAKTOR "100")
(setq FAKTOR1 "1")
)
)
(if (= DD_MS "7") ; 1:200
(progn
(setq FAKTOR "200")
(setq FAKTOR1 "2")
)
)
(if (= DD_MS "8") ; 1:500
(progn
(setq FAKTOR "500")
(setq FAKTOR1 "5")
)
)
(if (= DD_MS "9") ; 1:1000
(progn
(setq FAKTOR "1000")
(setq FAKTOR1 "10")
)
)
)
(defun datain ()
(setq AUSWAHL-SATZ nil)
)
(defun geometrie()
(command "_layer" "_m" "RAHMEN" "_c" "7" "" "")
(setq P0 (getpoint "\nPick BORDER Insertion-Point (LOWER-LEFT): "))
(command "_insert" BL-NAME P0 FAKTOR "" "0")
(if (= DD_SF "1")
(progn
(setq P1 (getpoint "\nPick HEADER Insertion-Point (LOWER-RIGHT): "))
(command "_insert" (strcat lw "/acadsst/koepfe/" "kopf11") P1 FAKTOR1 "" "0")
)
)
)
;------------------------------------------------------------------------------
(defun c:DINFORM(/ DIN QUER HOCH MS SF FAKTOR BL-NAME)
(setvar "limcheck" 0)
(setvar "CMDECHO" 0)
(setvar "BLIPMODE" 0)
(prompt "**** INSERT DRAWING BORDER & HEADER *******")
(Dbox)
(prompt "")
(datain)
(geometrie)
)

MENU/DINFORM.LSP
+146
View File
@@ -0,0 +1,146 @@
;------------------------------------------------------------------------;
; DIN-Blatt einfuegen ;
;------------------------------------------------------------------------;
; AW 05.12.93 / 5.7.97 ;
;------------------------------------------------------------------------;
(defun Dbox (/ Dat)
(setq Dat (load_dialog (strcat lw "/acadsst/menu/DINFORM.DCL")))
(if (not (new_dialog "DINFORM" Dat)) (exit))
(action_tile "accept" "(SetPara) (done_dialog)")
(action_tile "cancel" "(exit) (done_dialog)")
(start_dialog)
(unload_dialog Dat)
)
(defun SetPara ()
(setq DD_DIN (get_tile "DIN"))
(setq DD_MS (get_tile "MS"))
(setq DD_SF (get_tile "SF"))
(setq DD_QUER (get_tile "QUER"))
(setq DD_GERMAN (get_tile "L_GERMAN"))
(setq DD_ENGLISH (get_tile "L_ENGLISH"))
(setq DD_FRENCH (get_tile "L_FRENCH"))
(setq DD_ITALIAN (get_tile "L_ITALIAN"))
;------ Format definieren-----------
(if (= DD_DIN "0")
(setq BL-NAME "A0")
)
(if (= DD_DIN "1")
(setq BL-NAME "A1")
)
(if (= DD_DIN "2")
(setq BL-NAME "A2")
)
(if (= DD_DIN "3")
(setq BL-NAME "A3")
)
(if (= DD_DIN "4")
(progn
(if (= DD_QUER "1")
(setq BL-NAME "A4Q")
(setq BL-NAME "A4H")
)
)
)
(setq BL-NAME (strcat lw "/acadsst/koepfe/" BL-NAME))
;------------------------------------------------------
; Maástab definieren
(if (= DD_MS "0")
(progn
(setq FAKTOR "1")
(setq FAKTOR1 "0.01")
)
)
(if (= DD_MS "1") ; 1:10
(progn
(setq FAKTOR "10")
(setq FAKTOR1 "0.1")
)
)
(if (= DD_MS "2") ; 1:20
(progn
(setq FAKTOR "20")
(setq FAKTOR1 "0,2")
)
)
(if (= DD_MS "3") ; 1:25
(progn
(setq FAKTOR "25")
(setq FAKTOR1 "0.25")
)
)
(if (= DD_MS "4") ; 1:50
(progn
(setq FAKTOR "50")
(setq FAKTOR1 "0.5")
)
)
(if (= DD_MS "5") ; 1:75
(progn
(setq FAKTOR "75")
(setq FAKTOR1 "0.75")
)
)
(if (= DD_MS "6") ; 1:100
(progn
(setq FAKTOR "100")
(setq FAKTOR1 "1")
)
)
(if (= DD_MS "7") ; 1:200
(progn
(setq FAKTOR "200")
(setq FAKTOR1 "2")
)
)
(if (= DD_MS "8") ; 1:500
(progn
(setq FAKTOR "500")
(setq FAKTOR1 "5")
)
)
(if (= DD_MS "9") ; 1:1000
(progn
(setq FAKTOR "1000")
(setq FAKTOR1 "10")
)
)
)
(defun datain ()
(setq AUSWAHL-SATZ nil)
)
(defun geometrie()
(command "_layer" "_m" "RAHMEN" "_c" "7" "" "")
(setq P0 (getpoint "\nPick BORDER Insertion-Point (LOWER-LEFT): "))
(command "_insert" BL-NAME P0 FAKTOR "" "0")
(if (= DD_SF "1") ; wenn KOPF erforderlich
(progn
(setq P1 (getpoint "\nPick HEADER Insertion-Point (LOWER-RIGHT): "))
(if (= DD_GERMAN "1")
(command "_insert" (strcat lw "/acadsst/koepfe/" "kopf11") P1 FAKTOR1 "" "0")
)
(if (= DD_ENGLISH "1")
(command "_insert" (strcat lw "/acadsst/koepfe/" "kopf11E") P1 FAKTOR1 "" "0")
)
(if (= DD_FRENCH "1")
(command "_insert" (strcat lw "/acadsst/koepfe/" "kopf11F") P1 FAKTOR1 "" "0")
)
(if (= DD_ITALIAN "1")
(command "_insert" (strcat lw "/acadsst/koepfe/" "kopf11I") P1 FAKTOR1 "" "0")
)
)
)
)
;------------------------------------------------------------------------------
(defun c:DINFORM(/ DIN QUER HOCH MS SF FAKTOR BL-NAME)
(setvar "limcheck" 0)
(setvar "CMDECHO" 0)
(setvar "BLIPMODE" 0)
(prompt "**** INSERT DRAWING BORDER & HEADER *******")
(Dbox)
(prompt "")
(datain)
(geometrie)
)

MENU/DINFORM.OLD
+145
View File
@@ -0,0 +1,145 @@
(DEFUN C:DINFORM(/ FORMAT MASST OLDERR DCL_ID QH DD_QUER DD_HOCH DD_DIN DD_MS DD_SF DD_AF AUSGANG HOLEVARS ATTDIA_SAVE ATTREQ_SAVE ORTHOMODE_SAVE DINR)
(DEFUN INS_BLOCK(NAME /)
(IF (OR (TBLSEARCH"BLOCK"NAME) (FINDFILE(STRCAT PROGPATH NAME".DWG")))
(PROGN
(SETVAR"ATTREQ"1)
(SETVAR"ATTDIA"1)
(SETVAR"ORTHOMODE"0)
(COMMAND"._insert"(STRCAT PROGPATH NAME)(GETVAR"LASTPOINT"))
(COMMAND(CADR(ASSOC DD_MS MASSTI))(CADR(ASSOC DD_MS MASSTI))"0")
(IF (= DINR 0)
(PROGN
(PROMPT"\nInsertpoint: ")
(COMMAND"._move""_last"""(GETVAR"LASTPOINT")PAUSE)
)
)
(SETVAR"ORTHOMODE"ORTHOMODE_SAVE)
(SETVAR"ATTREQ"ATTREQ_SAVE)
(SETVAR"ATTDIA"ATTDIA_SAVE)
)
(PRINC(STRCAT"\nKann Schriftfeld <"NAME"> nicht finden!"))
)
)
(DEFUN HIDE_DINR(/)
(IF ( = "0" (GET_TILE"DINR"))
(PROGN
(MODE_TILE"DIN"1)
(MODE_TILE"HOCH"1)
(MODE_TILE"QUER"1)
(MODE_TILE"MS"1)
(SETQ DINR 0)
)
(PROGN
(MODE_TILE"DIN"0)
(MODE_TILE"HOCH"0)
(MODE_TILE"QUER"0)
(MODE_TILE"MS"0)
(SETQ DINR 1)
)
)
DINR
)
(DEFUN HOLEVARS(/)
(SETQ DD_DIN (ATOI (GET_TILE"DIN"))
DD_HOCH (GET_TILE"HOCH")
DD_QUER (GET_TILE"QUER")
DD_MS(ATOI (GET_TILE"MS"))
DD_SF (GET_TILE"SF")
DD_AF (GET_TILE"AF")
)
(PRIN1)
)
(SETQ OLDERR *ERROR* *ERROR* HAAS-ERR)
(GLOB_VARS 0"\n Einf�gen von DIN-Rahmen")
(IF DEBUG (SETVAR "CMDECHO" 1))
(SETQ ATTDIA_SAVE (GETVAR"ATTDIA")
ATTREQ_SAVE (GETVAR"ATTREQ")
ORTHOMODE_SAVE (GETVAR"ORTHOMODE")
)
(SETQ FORMAT (LIST (QUOTE(0"A4"))(QUOTE(1"A3"))(QUOTE(2"A2"))(QUOTE(3"A1"))(QUOTE(4"A0")))
MASST (LIST (QUOTE(0"1:50"))(QUOTE(1"1:100"))(QUOTE(2"1:20"))(QUOTE(3"1:25"))(QUOTE(4"1:10"))(QUOTE(5"1:75"))(QUOTE(6"1:200"))(QUOTE(7"1:500"))(QUOTE(8"1:1000")))
MASSTI (LIST (QUOTE(0 0.50))(QUOTE(1 1.00))(QUOTE(2 0.20))(QUOTE(3 0.25))(QUOTE(4 0.10))(QUOTE(5 0.75))(QUOTE(6 2.00))(QUOTE(7 5.00))(QUOTE(8 10.00)))
)
(SETQ DCL_ID(LOAD_DIALOG(STRCAT HC_LSPPATH"DINFORM.DCL")))
(IF (NOT (NEW_DIALOG"DINFORM"DCL_ID))
(EXIT)
)
(SETQ DINR 1)
(ACTION_TILE"DINR""
(setq dinr (hide_dinr))"
)
(ACTION_TILE"cancel""
(done_dialog 0)"
)
(ACTION_TILE"accept""
(holevars)(done_dialog 1)"
)
(SETQ AUSGANG(START_DIALOG))
(IF(> AUSGANG 0)
(PROGN
(IF (= DINR 1)
(PROGN
(PROMPT"\n DIN-Format: ")
(PRINC (CADR (ASSOC DD_DIN FORMAT)))
(PROMPT"\n Format: ")
(IF(="1"DD_QUER)
(PRINC"Querformat")
(PRINC"Hochformat")
)
(PROMPT"\n Maástab: ")
(PRINC (CADR (ASSOC DD_MS MASST)))
(PROMPT"\nSchriftkopf: ")
(IF(="1"DD_SF)
(PRINC"JA")
(PRINC"NEIN")
)
(PROMPT"\nŽnderungsk.: ")
(IF(="1"DD_AF)
(PRINC"JA")
(PRINC"NEIN")
)
(IF(="1"DD_QUER)
(SETQ QH"Q")
(SETQ QH"H")
)
(SETQ NAME (STRCAT "HAAS" (CADR(ASSOC DD_DIN FORMAT))QH))
(PRINC(STRCAT"\n Blockname: "NAME))
(IF ( OR (TBLSEARCH"BLOCK"NAME) (FINDFILE(STRCAT PROGPATH NAME".dwg")))
(PROGN
(SETVAR"ORTHOMODE"0)
(COMMAND"_insert"(STRCAT PROGPATH NAME)"0,0")
(COMMAND(CADR(ASSOC DD_MS MASSTI))(CADR(ASSOC DD_MS MASSTI))"0")
(SETQ LEAW(SSADD))
(SETQ LEAW(SSADD(ENTLAST)))
(PROMPT"\nEinf�gepunkt: ")
(COMMAND"_move"LEAW"""0,0"PAUSE)
(SETVAR"ORTHOMODE"ORTHOMODE_SAVE)
(PROMPT"\n\nBitte Plotbereich beachten => evtl. kleiner als eingef�gter Rahmen!"))
(PRINC(STRCAT"\nKein DIN-Rahmen <"NAME"> gefunden.")
)
)
)
)
(IF(="1"DD_SF)
(INS_BLOCK"HAASSCHF")
)
(IF(="1"DD_AF)
(INS_BLOCK"HAASAEND")
)
)
(PROMPT"\nDialog abgebrochen")
)
(MENUCMD"S=S")
(MENUCMD"S=*")
(PRINC)
(GLOB_VARS 1"")
(SETQ *ERROR* OLDERR)
(PRINC)
)
(PRIN1)

MENU/DINFORM.TXT
+10
View File
@@ -0,0 +1,10 @@
POSITION C005000
BLATT C008000
MENGE C005000
BENENN C025000
BENENN2 C025000
NORM C030000
NORM2 C030000
WERKSTOFF C025000
WERKSTOFF2 C025000

MENU/DING.LSP
+64
View File
@@ -0,0 +1,64 @@
(prompt "\nFunktionen DING laden .........")(DEFUN C:g_LA ( / p1 ss e1 e0 b2 p2 b b1 ag)(g_sv)
(setq P1 (g_in nil "\nLinie w„hlen:" '(0 0 0 512 "NAE")) )(if (= p1 nil)(progn (prompt "\nError: kein Objekt gefunden !")(quit)))
(setq ss (ssget p1) e1 (entget (ssname ss 0)) ss nil)(setq e0 (cdr (assoc 0 e1)))
(if (/= e0 "LINE")(progn (prompt "\nError: Objekt keine Linie !")(quit)))(g_se)(setq b1 (trans (cdr (assoc 10 e1)) 0 1)
b2 (trans (cdr (assoc 11 e1)) 0 1))(if (< (distance b1 p1)(distance b2 p1))(setq b b1 b1 b2 b2 b))(setq b (osnap p1 "END")
p2 (getpoint b "\nZielpunkt:") ag (- (angle b1 b2) (angle p2 b)))(if (< ag 0)(setq ag (+ ag pi pi)))(if (and (> ag (* 0.5 pi))(< ag (* 1.5 pi)))
(setq b2 (polar b (angle b1 b2) (distance b p2))) (setq b2 (polar b (angle b2 b1) (distance b p2))))
(setq e1 (subst (cons 10 (trans b1 1 0))(assoc 10 e1) e1))(entmod (subst (cons 11 (trans b2 1 0))(assoc 11 e1) e1))(g_un)(princ))
(defun C:BRECH ( / le pp)(g_sv)(setq le (/ (* (getvar "aperture")(getvar "viewsize")) (car (getvar "screensize")) ))(while (/= le 0)
(setq pp (g_in nil "\nSchnittpunkt/(return=Ende):<sch>" (list 0 0 0 32 "SCH")))(if (= pp nil)(quit))(g_se)(g-b2 pp T le nil))(g_un)(princ))
(defun C:g_qu ( / in q p1 q1 q2 h b p2)(g_sv)(setq in "B H Z")(initget 8 in)(setq q (g_in nil "\n<1.Ecke>/(B)reitenmitte/(H)”henmitte/(Z)entrum:"
(list 0 0 0)))(cond((= (type q) 'LIST)(setq p1 q))((= q "B")(setq p1 (g_in nil "\nMittelpunkt der Breitenseite:" (list 0 0 0))))
((= q "H")(setq p1 (g_in nil "\nMittelpunkt der H”he:" (list 0 0 0))))((= q "Z")(setq p1 (g_in nil "\nZentrum:" (list 0 0 0 32 "SCH")))))
(cond((= p1 nil)(quit)))(setvar "orthomode" 0)(setq in "G H")(initget 8 in)(setq q1 (getcorner p1 "\n<2.Ecke>/(G)anze breite/(H)albe breite:")
h nil b nil)(cond((= (TYPE q1) 'LIST)(setq p2 q1 b (- (nth 0 p2)(nth 0 p1)) h (- (nth 1 p2)(nth 1 p1)) ))
((= q1 "G")(setq b (getdist p1 "\nGanze Breite:")))((= q1 "H")(setq b (* 2.0 (getdist p1 "\nHalbe Breite:"))))((= b nil)(quit)))
(if (and (= (type q1) 'LIST)(= q "B"))(setq b (* 2.0 b)))(if (= h nil)(progn(setq q2 (strcase
(g_in q2 "\n(G)anze h”he/(H)albe h”he/(B)reite gleich h”he:" "G")))(cond ((= q2 "G")(setq h (getdist p1 "\nGanze H”he:")))
((= q2 "H")(setq h (* 2.0 (getdist p1 "\nHalbe H”he"))))((= q2 "B")(setq h (* b 1.0))))))(cond((= h nil)(quit)))(cond
((= q "B")(setq p1 (polar p1 pi (* b 0.5))))((= q "H")(setq p1 (polar p1 (* 1.5 pi) (* h 0.5))))
((= q "Z")(setq p1 (polar (polar p1 pi (* b 0.5)) (* 1.5 pi) (* h 0.5)))))(g_se)(command "PLINIE" p1 (polar p1 0 b)
(polar (getvar "lastpoint") (* 0.5 pi) h) (polar (getvar "lastpoint") pi b) "S")(g_un)(princ))(DEFUN C:g_ly ( / q1 q2 q3 q4 q5 )(g_sv)
(SETQ q1 (ssget) q2 nil)(WHILE (= q2 nil) (PROMPT "\nNeuer Layer: Objekt antippen/Layerfelder antippen/Tastatureingabe: ")(SETQ q3 (GRREAD))
(if (= (CAR q3) 12)(SETQ q3 (GRREAD)))(cond((= (CAR q3) 3)(progn (SETQ q4 (ssget (nth 1 q3))) (if (/= q4 nil)(PROGN (SETQ q5 (ENTGET (SSNAME q4 0))
q2 (CDR (ASSOC 8 q5)) ) ))))((= (CAR q3) 2)(progn (SETQ q4 (nth 1 q3) q5 (GETSTRING (CHR q4)) q2 (STRCAT (CHR q4) q5) )))((= (CAR q3) 8)(cond
((OR (= (NTH 1 q3) 180)(= (NTH 1 q3) 195))(SETQ q2 (nth 0 v-lay))) ((OR (= (NTH 1 q3) 181)(= (NTH 1 q3) 196))(SETQ q2 (nth 1 v-lay)))
((= (NTH 1 q3) 182)(SETQ q2 (nth 11 v-lay))) ((= (NTH 1 q3) 197)(SETQ q2 (nth 2 v-lay))) ((= (NTH 1 q3) 183)(SETQ q2 (nth 9 v-lay)))
((= (NTH 1 q3) 198)(SETQ q2 (nth 3 v-lay))) ((OR (= (NTH 1 q3) 184)(= (NTH 1 q3) 199))(SETQ q2 (nth 4 v-lay)))
((OR (= (NTH 1 q3) 185)(= (NTH 1 q3) 200))(SETQ q2 (nth 5 v-lay))) ((OR (= (NTH 1 q3) 186)(= (NTH 1 q3) 201))(SETQ q2 (nth 6 v-lay)))
((= (NTH 1 q3) 187)(SETQ q2 (nth 10 v-lay))) ((= (NTH 1 q3) 202)(SETQ q2 (nth 7 v-lay)))
((OR (= (NTH 1 q3) 188)(= (NTH 1 q3) 203))(SETQ q2 (nth 8 v-lay)))))(prompt "\nError falsche Eingabe !" ))(prompt (strcat "\nNeues Layer:" q2))
(COMMAND "ŽNDERN" q1 "" "LA" q2))(g_un)(princ))(defun c:g-zoo ( / p1 p2 p3 p4 px py pm m2 fk fs z1 zt ps es el e0 ss ct s0 la e5)(g_sv)
(command "LIMITEN" "AUS")(setq p1 (getpoint "\n1.Ecke:") p2 (getcorner p1 "\n2.Ecke:") p3 (list (car p1) (nth 1 p2)) p4 (list (car p2) (nth 1 p1))
px (- (car p2)(car p1)) py (- (nth 1 p2)(nth 1 p1)) pm (list (+ (/ px 2.0) (car p1)) (+ (/ py 2.0) (nth 1 p1))) fs (g_in fs "\nVergr”sserung:" "2")
fk (atof fs) m2 (getpoint "\nNeuer Mittelpunkt:"))(g_se)(command "ZURšCK" "G" "ZURšCK" "A" "AUS")(setq z1 T)(while (/= z1 nil)
(setq ss nil ss (ssget "K" p1 p2))(setq ct 0 z1 nil)(while (/= nil (ssname ss ct))
(if (= (cdr (assoc 0 (setq es (entget (ssname ss ct))))) "INSERT")(progn (setq e0 (entlast) la (cdr (assoc 8 es))) (setq e5 (entget (ssname ss ct)))
(if (= T (equal (cdr (assoc 41 e5))(cdr (assoc 42 e5)) 0.00001) (equal (cdr (assoc 43 e5))(cdr (assoc 42 e5)) 0.00001)) (progn
(command "URSPRUNG" (ssname ss ct)) (setq s0 (ssadd)) (while (setq e0 (entnext e0)) (if (= (cdr (assoc 8 (entget e0))) "0") (ssadd e0 s0)))
(command "EIGŽNDR" s0 "" "LA" la "LT" "VONLAYER" "FA" "VONLAYER" "") (setq z1 T) ) (prompt "\nBlock brechbar (x,y,z ungleich)"))))(setq ct (+ ct 1))
))(if (/= (findfile "temp.dwg") nil) (command "WBLOCK" "temp" "J" "" pm ss "" ) (command "WBLOCK" "temp" "" pm ss "" ))
(command "ZURšCK" "E" "ZURšCK" "1" "ZURšCK" "A" "EIN" "KREIS" (polar p1 (angle p1 p2) (* (distance p1 p2) 0.5)) (* (distance p1 p2) 0.5)
"EIGŽNDR" "L" "" "LA" (nth 4 v-lay) "" "EINFšGE" "*temp" m2 fk "0")(setq p1 (list (- (car m2) (* fk px 0.5)) (- (nth 1 m2) (* fk py 0.5)))
p2 (list (+ (car m2) (* fk px 0.5)) (+ (nth 1 m2) (* fk py 0.5))) p3 (list (car p1) (nth 1 p2)) p4 (list (car p2) (nth 1 p1)))
(command "PLINIE" p1 p3 p2 p4 "S")(setq ps (entlast))(gc)(g-zo1 p1 p3 p4 ps m2)(gc)(g-zo1 p3 p2 p1 ps m2)(gc)(g-zo1 p2 p4 p3 ps m2)
(gc)(g-zo1 p4 p1 p2 ps m2)(command "L™SCHEN" ps "")(setq p (g_in nil "\nEinf�gepunkt f�r Text:" '(0 0)))
(setq zt (g_in zt "\nText:" (strcat "Einzelheit " fs ":1")))(command "TEXT" p (* g_f 5.0) 0 zt)(setq ss nil s0 nil )(g_un)(princ))
(defun g-zo1 (pu po pl ps m2 / du el b sx p1 ag di s1 s2 ct)(setq ag (angle pl pu) di (distance pu po)
s1 (polar (polar pu (+ ag (* pi 0.5)) (* di 0.2)) ag 2) s2 (polar (polar po (+ ag (* pi 1.5)) (* di 0.2)) ag 0.1) sx (ssget "K" s1 s2)
p1 (polar m2 (angle pl pu) (* 15.0 (distance pl pu))) ct 0) (if (/= nil sx)(progn(if (/= nil (setq du (ssdel ps sx)))(setq sx du))
(command "STUTZEN" ps "")(while (< ct (sslength sx))(setq el (ssname sx ct) b (list el p1) ct (+ 1 ct))(command b))(command "")))(princ))
(defun g-rund (com / r a pp le du s s1 s2 e1 e2 z1)(g_sv)(if (= com "ABRUNDEN")(progn(command "ABRUNDEN")(setvar "cmdecho" 1)(command "R")
(setvar "cmdecho" 0)(setq r (getdist))(if (= r nil)(setq r ""))(command r ))(progn(terpri)(command "ABRUNDEN")(setvar "cmdecho" 1)(command "A")
(setvar "cmdecho" 0)(terpri)(setq a (getdist))(if (= a nil)(setq a "")(setq a (rtos a 2 (+ (getvar "luprec") 2))))(setvar "cmdecho" 1)(command a )
(setvar "cmdecho" 0)(setq a (getdist))(if (= a nil)(setq a ""))(command a )))(setq pp (g_in nil "\nW„hle Schnittpunkt/Objekt:" '(0 0 0 32 "sch")))
(setq le (/ (* (getvar "aperture")(getvar "viewsize")) (car (getvar "screensize")) )
du nil s (ssget "K" (polar pp (* pi 0.5) le)(polar pp (* pi 1.5) le)))(cond( (= s nil)(progn (prompt "\nError: kein Objekt gefunden")(quit)))
( (= (sslength s) 2) (setq s1 (list (ssname s 0) pp) s2 (list (ssname s 1) pp)))( (= (sslength s) 1) (setq s1 (list (ssname s 0) pp)
s2 (entsel "\nW„hle zweites Objekt:")))( (> (sslength s) 2) (prompt "\nError: mehr als 2 Objekte gew„hlt" )
(setq s1 (entsel "\nW„hle erstes Objekt:") s2 (entsel "\nW„hle zweites Objekt:"))))(setq e1 (entget (car s1)) e2 (entget (car s2)))
(command com s1 s2)(setq z1 (entsel "\nW„hle Objekt zur�ck zu„ndern (Return=Ende):"))(cond( (= z1 nil)(quit))( (equal (car z1)(car s1))(entmod e1))
( (equal (car z1)(car s2))(entmod e2)))(setq z1 (entsel "\nW„hle Objekt zur�ck zu„ndern (Return=Ende):"))(cond( (= z1 nil)(quit))
( (equal (car z1)(car s1))(entmod e1))( (equal (car z1)(car s2))(entmod e2)))(princ)) (princ)

MENU/DINGEN.LSP
+44
View File
@@ -0,0 +1,44 @@
(DEFUN C:GTEXT ()
(COMMAND "_TEXT")
)
(defun searc (S t / l g i o)(SETQ l (STRLEN t) g (STRLEN S) i 1 o nil)
(WHILE (<= i l)
(IF (= (SUBSTR t i g) S)(SETQ l (- i 1) o T)(SETQ i (+ i 1))))
(IF (= o nil)(SETQ i 0))(FIX i))
(defun C:SICH ( / )
(if (NOT (equal g_si 0.0 0.001))
(if (> (- (getvar "tdindwg") g_si2) (/ g_si 1440.0) )
(progn
(setq g_si2 (getvar "tdindwg"))
(prompt " Saving drawing !")
(command "_SAVE" "")
)
)
)
(princ)
)
(defun g_in (d pr st / S d0 p0 p o2 ot)
(setq d0 d d (cond ((= d nil) st)
((AND (= (type d) 'REAL)(= (type st) 'INT))(fix d)) ((AND (= (type st) 'REAL)(= (type d) 'INT))(float d)) ((/= (type st)(type d)) st) (d)))(setq S
(cond ((= (type d) 'REAL) (getreal (strcat pr "<" (rtos d 2 3) "> "))) ((= (type d) 'INT) (getint (strcat pr "<" (itoa d) "> "))) ((= (type d) 'STR)
(getstring T (strcat pr "<" d "> "))) ((= (type d) 'LIST) (progn (setq o2 (getvar "osmode")) (if (/= (nth 3 st) nil)(progn (setq ot (nth 4 st))
(setvar "osmode" (nth 3 st)))(setq ot "")) (setq p (if (= d0 nil) (getpoint (strcat pr " (Return=Ref.punkt)" "<" ot "> "))
(getpoint d (strcat pr " (Return=Ref.punkt)" "<" ot "> ")) )) (if (= p nil) (setq p0 (getpoint (strcat "\n" "Referenzpunkt:" " "))
p (getpoint p0 (strcat "\n" "Relativpunkt:" " ")))) (if (= p nil)(quit)) (setvar "osmode" o2) (setq p p) ))))(cond ((or (null S)(= S ""))(setq s d))
(S S) ))(defun g_ky (d pr st key / S p0 p)(initget key)(if (= d nil)(setq d st))(setq S (getkword (strcat pr " <" d "> ")))(cond
((or (null S)(= S ""))(setq s d)) (S S) ))(defun g_se ()(setvar "cmdecho" 0)(setvar "blipmode" 0)(SETVAR "OSMODE" 0)(setvar "orthomode" 0)
(setvar "snapmode" 0)(setvar "limcheck" 0)(setq *error* g_er))(defun g_sv ()(setvar "cmdecho" 0)(setq blip (getvar "blipmode"))
(SETQ OSMO (GETVAR "OSMODE"))(setq orth (getvar "orthomode"))(setq snap (getvar "snapmode"))(setq olay (getvar "clayer"))
(setq g_lim (getvar "limcheck"))(setq *error* g_er))(defun g_un ()(setvar "blipmode" blip)(SETVAR "OSMODE" osmo)(setvar "snapmode" snap)
(setvar "orthomode" orth)(setvar "limcheck" g_lim)(command "LAYER" "SETZ" olay ""))(defun g_ru ()(setvar "blipmode" blip)(SETVAR "OSMODE" osmo)
(setvar "snapmode" snap)(setvar "orthomode" orth)(setvar "limcheck" g_lim))(defun C:g-krz ( / p1 r c )(g_sv)
(setq p1 (g_in nil "\nMittelpunkt:" (list 0 0 0 4 "ZEN")) r (getdist p1 "\nRadius:" ) c (getvar "clayer"))
(if (< r (* 20. g_f))(command "LAYER" "SETZ" (nth 10 v-lay) "") (command "LAYER" "SETZ" (nth 7 v-lay) ""))(command "LINIE" p1 (polar p1 0 r) ""
"LINIE" p1 (polar p1 (* pi 0.5) r) "" "LINIE" p1 (polar p1 pi r) "" "LINIE" p1 (polar p1 (* pi 1.5) r) "" "LAYER" "SETZ" c "")(princ))
(defun C:g-sax ( / p1 p2 c r )(g_sv)
(setq p1 (g_in nil "\nStartpoint of Middleline:" (list 0 0 ))
p2 (g_in p1 "\nEndpoint of Middleline:" (list 0 0 )) c (getvar "clayer") r (distance p1 p2))
(if (< r (* 40 g_f))(command "_LAYER" "_SET" (nth 10 v-lay) "") (command "_LAYER" "_SET" (nth 7 v-lay) ""))
(command "_LINE" (polar p1 (angle p2 p1) 5.) (polar p2 (angle p1 p2) 5.) "" "_LAYER" "_SET" c ""))(defun g_er (st)(if (and (/= st "")
(/= st "quit / exit abort")) (prompt (strcat "\nError : " st)) (prompt "!!"))(g_un)(if (/= datnr nil)(progn(close datnr)(setq datnr nil)))
(setq *error* ())(princ))(setq stopit g_er)(princ)
MENU/DINGEN2.LSP
+33
View File
@@ -0,0 +1,33 @@
(defun C:g-wl ()(g_sv)(setq p2 (g_in nil "\nEndpunkt der Umfangslinie:" (list 0 0 0 1 "END"))
p1 (g_in p2 "\nPunkt auf Mittellinie:" (list 0 0 0 512 "NAE")))(command "LINIE" p2 "LOT" p1 (setq p1 (getvar "lastpoint")) "Z" "Z" "")
(setq dis (distance p1 p2) rang (angtos (angle p1 p2) 0 0) )(command "EINFšGE" "din370" p1 dis dis rang))(defun C:g-kop ( / ss)(g_sv)
(prompt "\nG-Kopieren ")(setq ss (ssget))(setvar "cmdecho" 1)(command "WAHL" ss "" "KOPIEREN" ss "" "M" pause pause)(setvar "cmdecho" 0)(princ))
(defun g-rei ( a / ss)(prompt "\nG-Reihe ")(g_sv)(setq ss (ssget))(setvar "cmdecho" 1)(command "WAHL" ss "" "REIHE" ss "" a pause pause pause)
(setvar "cmdecho" 0)(princ))(defun g-sra ( ansi a w / ss)(prompt "\nG-Schraffur ")(g_sv)(setq ss (ssget))(command "WAHL" ss ""
"SCHRAFF" ansi a w ss "" "EIGŽNDR" "L" "" "LA" (nth 8 v-lay) "" "WAHL" ss "")(princ))(defun c:g-dre ( / ss)(prompt "\nG-Kopieren + Drehen ")(g_sv)
(setq ss (ssget))(command "KOPIEREN" ss "" "0,0" "0,0")(setvar "cmdecho" 1)(command "DREHEN" ss "" pause pause)(setvar "cmdecho" 0)
(command "WAHL" (entlast) "")(princ))(defun c:g-dmo ( / ss)(prompt "\nG-Drehen + Schieben ")(g_sv)(setq ss (ssget))(while (= T T)(setvar "cmdecho" 1)
(command "SCHIEBEN" ss "" pause pause "DREHEN" ss "" pause pause)(setvar "cmdecho" 0))(princ))(defun C:g-bem ()(if (= g-bema nil)
(progn(setq g-bema T)(prompt "\nAutoCAD-Bemassung:"))(progn (setq g-bema nil)(prompt "\nGenius-Bemassung:")))(princ))
(defun g-dma ( com / ) (princ "\nGenius-Bemassung:")(Prompt " ")(princ a) (com))(defun g-bem2 ( a /)(g_sv)(cond
((= g-bema T)(progn(princ "\nAutoCAD-Bemassung:")(command "BEM" a)))((= a "VERT")(if (not c:MASSY)(load (strcat pfad "dinmass")))(g-dma C:MASSY))
((= a "HOR")(if (not c:MASSY)(load (strcat pfad "dinmass")))(g-dma C:MASSX))
((= a "AUSRICHTEN")(if (not c:MASSY)(load (strcat pfad "dinmass")))(g-dma C:MASSA))
((= a "DURCHMESSER")(if (not c:MASSY)(load (strcat pfad "dinmass")))(g-dma C:MASC))
((= a "RADIUS")(if (not c:g-masr)(load (strcat pfad "dinmas2")))(g-dma C:g-masr))((= a "WINKEL")(command "BEM" a))
((= a "BEMASSO")(if (not c:g-asso)(load (strcat pfad "dinmako")))(g-dma C:g-asso))
((= a "FšHRUNG")(progn(if (not les)(load (strcat pfad "dina")))(ZIEH "" 4)))))(defun g-pick ()(prompt "+/-/Objekt w„hlen:" )(g-size "pickbox"))
(defun g-aper ()(prompt "+/-/Punkt antippen:")(g-size "aperture"))(defun g-size (p / k)(while (if (member (setq k (cadr (grread))) '(43 45))
(setvar p (+ (getvar p)(cadr (assoc k '((43 1)(45 -1)))))) ))(cond (( listp k) K) ((prin1))))(defun g-bli ( / l i o o2 n2)(g_sv)
(setq g-nam (strcase (g_in g-nam "\nAnfangszeichen des Blocks:" "")) l (strlen g-nam))(setq i (tblnext "BLOCK" T) o nil o2 nil)(while (/= i nil)
(setq n2 (cdr (assoc 2 i)))(if (>= (strlen n2) l)(progn(if (= g-nam (substr n2 1 l))(progn
(setq o2 (g_in o2 (strcat "\n Block (N=Weitersuchen):" n2 ": ") "J"))(if (= (strcase o2) "J")(setq i nil o T))))))
(if (/= nil i)(setq i (tblnext "BLOCK"))))(if (/= o T)(prompt "\nKein Block vorhanden !"))(setq n2 n2))(defun c:G-ZF ( / p1 p2 p3 )(g_sv)
(if (> (length (vports)) 1)(progn (setq p1 (getpoint "\n1.Ecke:") p2 (getcorner p1 "\n2.Ecke:") p3 (getpoint "\nZoomfenster 2x antippen:"))
(command "ZOOM" "F" p1 p2))(prompt "\nError: nur 1 Afenster"))(princ))(defun C:FAKTOR ()(g_sv)(terpri)
(setq g_si (g_in g_si "In welchen Abst„nden soll gesichert werden in Minuten (0=ohne):" 15))(setvar "useri3" g_si)
(setq g_f (g_in g_f "Schriftgr”ssenfaktor f�r SST-Texte:" 1.0))(command "BEM" "BEMFKTR" g_f "EXIT" "LTFAKTOR" g_f)
(setq g_l (g_in g_l "Maximale Stellenzahl nach dem Komma bei Vermassung:" 3))(setvar "useri2" g_l)
(setq g_g (g_in g_g "Globaler Massfaktor f�r SST-Masse:" 1.0))(command "BEM" "BEMGFLA" g_g "EXIT")
(setq g_if (g_in g_if "Normteilinformation mit Infopunkt(0)/Klartext(1)/ohne(2):" 0))(setvar "useri1" g_if)(princ))(princ)

MENU/DINKLIN.LSP
+69
View File
@@ -0,0 +1,69 @@
(prompt "\nLaden von Hilfslinien ........... ")(setq KPUL (trans (getvar "limmin") 0 1) KPOR (trans (getvar "limmax") 0 1))
(prompt ".")(defun C:g-GZ (/ E X A Z FRAG H)(g_sv)(g_se) (setq FRAG (getstring "\n(N)eue Grenzen/(S)creengrenzen ?")) (if (= (strcase FRAG) "N")
(progn (setq FP1 (trans (getpoint "\nGeben Sie Limitpunkt an: ") 1 0)) (setvar "limmin" (list (car FP1) (cadr FP1)) )
(setq FP2 (trans (getcorner FP1 "\nGeben Sie Limitpunkt an: ") 1 0)) (setvar "limmax" (list (car FP2) (cadr FP2)) ) ) ) (if (= (strcase FRAG) "S")
(progn (setvar "limmin" (trans (list (car (getvar "vsmin")) (cadr (getvar "vsmin"))) 0 1))
(setvar "limmax" (trans (list (car (getvar "vsmax")) (cadr (getvar "vsmax"))) 0 1)) ) ) (if (/= H 1) (progn
(setq A (ssget "X" (list (cons 8 "KLIN"))) X (sslength A) Z 0 ) (prompt "\n Hilfslinien werden neuen Grenzen angepasst ") (repeat X
(setq E (ssname A Z) Z (+ Z 1) ) (if (= "LINE" (cdr (assoc 0 (entget E)))) (progn (setq P1 (trans (cdr (assoc 10 (entget E))) 0 1)
P2 (trans (cdr (assoc 11 (entget E))) 0 1) ) (command "L™SCHEN" E "") (KIMV) (KIML P1 P2) (g_un) ) ) ) ) ) (g_un)(prin1))(prompt ".")
(defun C:g-HDA (/ A) (setq A (ssget "X" (list (cons 8 "KLIN")))) (command "L™SCHEN" A "") (redraw)(prin1))(prompt ".")
(defun C:g-HDW (/ A B D Z X V E)(g_sv)(g_se) (setq B (ssget "K" (setq D (getpoint "\nErster Eckpunkt Fangfenster: "))
(getcorner D "\nZweiter Eckpunkt Fangfenster: ")) A (ssget "X" (list (cons 8 "KLIN"))) Z 0 X (sslength B) V (ssadd) ) (if (/= X NIL) (progn (repeat X
(setq E (ssname B Z) Z (+ Z 1) ) (if (and (ssmemb E A) (ssmemb E B)) (ssadd E V)) ) (command "L™SCHEN" V "") ) )(g_un)(prin1)) (prompt ".")
(prompt ".")(defun KIML (P1 P2 / PUL PUR POL POR G L P1L P2L S S1) (g_se) (setq PUL (getvar "limmin") POR (getvar "limmax")
PUR (list (car POR) (cadr PUL)) POL (list (car PUL) (cadr POR)) PUL (trans pul 0 1) POR (trans por 0 1) PUR (trans pur 0 1) POL (trans pol 0 1)
G (list (list PUL PUR) (list PUR POR) (list POR POL) (list POL PUL)) L (* (distance PUL POR) 100) P1L (polar P1 (angle P1 P2) L)
P2L (polar P2 (+ (angle P1 P2) PI) L) S NIL ) (while G (setq S1 (inters P1L P2L (car (car G)) (cadr (car G)))) (if (/= S1 NIL) (setq S (cons S1 S))
) (setq G (cdr G)) ) (command "LINIE" (car S) (cadr S) ""))(defun KIMV () (g_sv) (command "LAYER" "SETZ" "KLIN" ""))(defun C:g-HB ()(KIMV)
(setq P1 (getpoint "\nErster Punkt angeben: ") P2 (getpoint P1 "\nZweiter Punkt angeben: ") ) (KIML P1 P2 )(g_un)(prin1))(DEFUN C:g-HH ()(KIMV)
(setq P1 (getpoint "\nPunkt (durch den Linie gehen soll) w„hlen: ") P2 (polar P1 PI 5) ) (KIML P1 P2)(g_un)(prin1))(DEFUN C:g-hk ()(KIMV)
(setq P1 (getpoint "\nPunkt (durch den Linie gehen soll) w„hlen: ") P2 (polar P1 PI 5)) (KIML P1 P2) (setq P2 (polar P1 (/ PI 2) 5)) (KIML P1 P2)
(g_un)(prin1))(DEFUN C:g-HV ()(KIMV) (setq P1 (getpoint "\nPunkt (durch den Linie gehen soll) w„hlen: ") P2 (polar P1 (/ PI 2) 5) ) (KIML P1 P2)
(g_un)(prin1))(prompt ".")(defun C:g-HP (/ E LP1 LP2) (KIMV) (setq P1 (getpoint "\nPunkt (durch den Linie gehen soll) w„hlen: ")
E (entsel "\nLinie w„hlen: ") LP1 (osnap (cadr E) "END") LP2 (osnap (cadr E) "NAE") P2 (polar P1 (angle LP1 LP2) 10) ) (KIML P1 P2)(g_un)(prin1))
(defun C:g-HW (/ RAD1 RAD2 RAD3 E U)(KIMV) (setq E (entsel "\nLinie w„hlen: ") LP1 (osnap (cadr E) "END") LP2 (osnap (cadr E) "NAE")
P1 (getpoint "\nPunkt (durch den Linie gehen soll) w„hlen: ") U (- (car LP1) (car LP2)) ) (if (= U 0) (setq RAD3 (/ PI 2)) (progn
(setq RAD1 (atan (/ (- (cadr LP1) (cadr LP2)) U)) RAD3 (abs RAD1) ) (if (< RAD1 0) (setq RAD3 (- PI RAD3))) ) )
(setq RAD2 (getangle "\nWinkel angeben: ") P2 (polar P1 (+ RAD3 RAD2) 10) ) (KIML P1 P2)(g_un)(prin1))(defun C:g-HS ( / E)(KIMV)
(setq P1 (getpoint "\nPunkt (durch den Linie gehen soll) w„hlen: ") E (entsel "\nLinie w„hlen: ") LP1 (osnap (cadr E) "END")
LP2 (osnap (cadr E) "NAE") P2 (polar P1 (+ (angle LP1 LP2) (/ PI 2)) 10) ) (KIML P1 P2)(g_un)(prin1))(defun C:g-HA (/ W)(KIMV)
(setq P1 (getpoint "\nPunkt (durch den Linie gehen soll) w„hlen: ") W (getangle P1 "\nWinkel angeben: ") P2 (polar P1 W 100) ) (KIML P1 P2 )(g_un)
(prin1))(prompt ".")(defun C:g-HD (/ E A1 W WE WX W1)(KIMV) (if (= ab nil)(setq ab 1)) (setq A1 (getdist (strcat "\nAbstand eingeben <"
(rtos ab 2 3) ">: "))) (if (/= A1 NIL) (setq AB A1)) (setq E (entsel "\nLinie w„hlen: ") LP1 (osnap (cadr E) "END") LP2 (osnap (cadr E) "NAE")
W (angle LP1 LP2) WE (getangle LP1 "\nAuf welche Seite: ") ) (if (> W PI) (progn (setq WX (- W PI) W1 (/ PI -2)) (if (< WE WX) (setq W1 (/ PI 2)) )
(if (> WE W) (setq W1 (/ PI 2)) ) ) (progn (setq WX (+ W PI) W1 (/ PI 2)) (if (< WE W) (setq W1 (/ PI -2)) ) (if (> WE WX) (setq W1 (/ PI -2)) ) ) )
(setq P1 (polar LP1 (+ W W1) AB) P2 (polar LP2 (+ W W1) AB) ) (KIML P1 P2)(g_un)(prin1))(defun C:g-HM (/ B3 B4 E W)(KIMV)
(setq E (entsel "\nErste Linie w„hlen: ") B4 (osnap (cadr E) "NAE") B3 (osnap (cadr E) "END") E (entsel "\nZweite Linie w„hlen: ")
LP2 (osnap (cadr E) "NAE") LP1 (osnap (cadr E) "END") P1 (inters LP1 LP2 B3 B4 NIL) ) (if (= P1 NIL) (progn
(setq P1 (list (/ (+ (car LP1) (car B3)) 2) (/ (+ (cadr LP1) (cadr B3)) 2)) P2 (polar P1 (angle LP1 LP2) 10) ) ) (progn
(setq W (/ (+ (angle P1 B4) (angle P1 LP2)) 2.0) P2 (polar P1 W 100) ) ) ) (KIML P1 P2)(g_un)(prin1))(defun C:g-HL (/ OS E W)(KIMV)
(setq E (entsel "\nLinie w„hlen: ") LP1 (osnap (cadr E) "END") LP2 (osnap (cadr E) "MIT") P1 LP2 P2 (polar P1 (+ (angle LP1 LP2) (/ PI 2)) 2.0) )
(KIML P1 P2)(g_un)(prin1))(defun C:g-HT (/ E W)(KIMV) (setq E (entsel "\nKreis oder Bogen w„hlen: ") LP1 (osnap (cadr E) "ZEN")
LP2 (osnap (cadr E) "NAE") LP2 (distance LP1 LP2) W (getangle "\nWinkel angeben: ") ) (setq P1 LP1 P2 (polar P1 W 10) ) (KIML P1 P2)
(setq P1 (polar LP1 (+ (/ PI 2) W) LP2) P2 (polar P1 W 10) ) (KIML P1 P2) (setq P1 (polar LP1 (+ (/ PI -2) W) LP2) P2 (polar P1 W 10) )
(KIML P1 P2)(g_un)(prin1))(defun C:g-HST (/ E M R W)(KIMV) (setq E (entsel "\nKreis oder Bogen w„hlen: ") M (osnap (cadr E) "ZEN")
LP2 (osnap (cadr E) "NAE") R (distance M LP2) E (entsel "\nLinie w„hlen: ") LP1 (osnap (cadr E) "END") LP2 (osnap (cadr E) "NAE")
W (angle LP1 LP2) ) (setq P1 M P2 (polar M (+ (/ PI 2) W) 10) ) (KIML P1 P2) (setq P1 (polar M W R) P2 (polar P1 (+ W (/ PI 2)) 10) ) (KIML P1 P2)
(setq P1 (polar M (+ W PI) R) P2 (polar P1 (+ W (/ PI 2)) 10) ) (KIML P1 P2)(g_un)(prin1))(prompt ".")(defun C:g-KT (/ P1 P2 P3)(KIMV)
(setq P1 (getpoint "\nKreisumfangspunkt w„hlen: ") P2 (getpoint "\nKreisumfangspunkt w„hlen: ") ) (setvar "osmode" 256)
(setq P3 (getpoint "\nTangentenpunkt w„hlen: ")) (command "KREIS" "3P" P1 P2 P3)(g_un)(prin1))(defun C:g-K1 (/ P1 R)(KIMV)
(setq P1 (getpoint "\nMittelpunkt angeben: ")) (setvar "osmode" 128) (setq R (getdist P1 "\nTangentenpunkt w„hlen: ")) (command "KREIS" P1 R)(g_un)
(prin1))(defun C:g-HN (/ E D L WZ W1 PA PB)(KIMV) (setq P1 (getpoint "\nPunkt (durch den Linie gehen soll) w„hlen: ")
E (entsel "\nKreis oder Bogen w„hlen: ") LP1 (osnap (cadr E) "ZEN") F (osnap (cadr E) "NAE") LP2 (distance LP1 F) D (distance LP1 P1)
L (sqrt (- (expt D 2) (expt LP2 2))) WZ (atan (/ LP2 L)) W1 (angle P1 LP1) PA (polar P1 (+ W1 WZ) L) PB (polar P1 (- W1 WZ) L) )
(if (< (distance PA F) (distance PB F)) (setq P2 PA) (setq P2 PB) ) (KIML P1 P2)(g_un)(prin1))(defun C:g-H2 (/ E P1 P2)(KIMV)
(prompt "\nKreis oder Bogen w„hlen: ") (setvar "cmdecho" 1) (setvar "osmode" 256) (command "LINIE" pause pause "") (setvar "cmdecho" 0)
(setq e (entlast) P1 (trans (cdr (assoc 10 (entget e))) 0 1) P2 (trans (cdr (assoc 11 (entget e))) 0 1) ) (entdel e) (KIML P1 P2)(g_un)(prin1))
(defun C:g-K2 (/ P1 P2 P3)(KIMV) (setq P1 (getpoint "\nKreisumfangspunkt w„hlen: ")) (setvar "osmode" 512)
(setq P2 (getpoint "\nTangentenpunkt w„hlen: ") P3 (getpoint "\nTangentenpunkt w„hlen: ")) (command "KREIS" "3P" P1 "TAN" P2 "TAN" P3)(g_un)(prin1)
)(defun C:g-KR (/ P1 P2 R)(KIMV) (setvar "Osmode" 256) (setq P1 (getpoint "\nTangentenpunkt w„hlen: ") P2 (getpoint "\nTangentenpunkt w„hlen: "))
(setvar "OSMODE" 0) (setq R (getdist "\nRadius angeben: ")) (command "KREIS" "TTR" P1 P2 R)(g_un)(prin1))(defun C:g-K3 (/ P1 P2 P3)(KIMV)
(setq P1 (getpoint "\nKreisumfangspunkt w„hlen: ") P2 (getpoint "\nKreisumfangspunkt w„hlen: ") P3 (getpoint "\nKreisumfangspunkt w„hlen: "))
(command "KREIS" "3P" P1 P2 P3)(g_un)(prin1))(prompt ".")(defun C:g-KC (/ P1 R)(KIMV) (setq P1 (getpoint "\nMittelpunkt angeben: ")
R (getdist P1 "\nRadius angeben: ") ) (command "KREIS" P1 R)(g_un)(prin1))(defun C:g-KK (/ E)(KIMV) (setq E (entsel "\nKreis oder Bogen w„hlen: ")
LP1 (osnap (cadr E) "ZEN") F (osnap (cadr E) "NAE") LP2 (getdist LP1 "\nRadius angeben: ") ) (command "KREIS" LP1 LP2)(g_un)(prin1))
(defun C:g-KP (/ P1 P2)(KIMV) (setq P1 (getpoint "\nKreisumfangspunkt w„hlen: ") P2 (getpoint P1 "\nKreisumfangspunkt w„hlen: "))
(command "KREIS" "2P" P1 P2)(g_un)(prin1))(defun C:g-K3T (/ P1 P2 P3)(KIMV) (setvar "osmode" 256) (setq P1 (getpoint "\nTangentenpunkt w„hlen: ")
P2 (getpoint "\nTangentenpunkt w„hlen: ") P3 (getpoint "\nTangentenpunkt w„hlen: ")) (command "KREIS" "3P" P1 P2 P3)(g_un)(prin1))(princ)

MENU/DINLAY.LSP
+117
View File
@@ -0,0 +1,117 @@
(prompt "\nLade Layergruppen ")
(setvar "cmdecho" 0)
(prompt ".")
(defun gy2 (ln ly / du d2)(if (/= ln "")
(setq ln (strcat ln "-")))(setq du (searc "-" ly) len (strlen ly))(if (= du 0)
(setq du (strcat ln ly)) (setq d2 (- len du) du (strcat ln (substr ly (+ 1 du) d2) )))
(setq du du))
(prompt ".")
(defun gs2 ( ly / ct la du le l2)(if (/= ly "")
(setq ly (strcat ly "-")))
(setq ct (- (length v-lay) 1))(while (>= ct 0)(setq la (nth ct v-lay) du (searc "-" la) le (strlen la))(if (= du 0)
(setq l2 (cons (strcat ly la) l2))
(setq du2 (- le du) l2 (cons (strcat ly (substr la (+ 1 du) du2)) l2) ))(setq ct (- ct 1)))(setq v-lay l2 l2 nil))
(prompt ".")
(defun layles ( tx / ly)
(setq ly nil *error* g_er)(while (= ly nil)
(setq ly (strcase (getstring tx)))
(if (> (strlen ly) 8)
(progn
(prompt "\nError: Max. 5 Zeichen erlaubt !")
(setq ly nil))
)
(if (> (searc "-" ly) 0)
(progn
(prompt "\nError: Nicht erlaubt!")(setq ly nil))))
(setq ly ly))
(prompt ".")
(defun gyd ( tx / ly l1 l4 l5)
(setq ly nil *error* g_er)(while (= ly nil)
(PROMPT tx)(SETQ l1 (GRREAD))(if (= (CAR l1) 12)
(SETQ l1 (GRREAD)))
(cond
((= (CAR l1) 3)(progn (SETQ l4 (ssget (nth 1 l1))) (if (/= l4 nil)
(PROGN
(SETQ l5 (ENTGET (SSNAME l4 0)) ly (CDR (ASSOC 8 l5)))
(if (= (searc "-" ly) 0) (progn (prompt "\nBasis Layergruppe")(setq ly "")) (setq ly (substr ly 1 (- (searc "-" ly) 1))) ) ))))
((equal l1 '(2 13))(progn (prompt "\nBasis Layergruppe")(setq ly "")))((= (CAR l1) 2)(progn (SETQ l4 (nth 1 l1) l5 (GETSTRING (CHR l4)) ly (STRCAT (CHR l4) l5) )))((equal l1 '(6 0))(progn (prompt "\nGrundlayergruppe")(setq ly ""))))
(if (> (strlen ly) 8)(progn (prompt "\nError: Max. 5 Zeichen erlaubt !")(setq ly nil)))
(if (> (searc "-" ly) 0)(progn (prompt "\nError: No - allowed !")(setq ly nil))))
(prompt (strcat "\nNeue Layergruppe: " ly))
(setq ly ly))(prompt ".")
(defun c:layset ( / ly )
(g_sv)
(setq ly (gyd "\nSetzen der Layergruppe: (Tastatur/Objekt) "))
(gs2 ly)
(command "_LAYER" "_SET" (nth 0 v-lay) "")
(princ)
)
(prompt ".")
(Defun C:layaus ( / ly vr du la dy)
(g_sv)
(setq ly (gyd "\nWelche Layergruppe frieren ? (Tastatur/Objekt) ") vr (getvar "regenmode") la (getvar "clayer") du (searc "-" la))(cond((and (= ly "")(/= du 0))
(progn
(setq ct (- (length v-lay) 1) dy "")
(while (>= ct 0)
(setq dy (strcat dy "," (substr (nth ct v-lay) (+ du 1))) ct (- ct 1)))
(command "_REGENAUTO" "_on" "_LAYER" "_FR" (substr dy 2) "")))((and (/= ly "")(/= (strcat ly "-") (substr la 1 du)))
(command "_REGENAUTO" "_on" "_LAYER" "_FR" (strcat ly "-*") "_off" (strcat ly "-*") ""))
((prompt "\nError: Can not freeze active Layer !")))(setvar "regenmode" vr)(princ))(prompt ".")
(Defun C:layein ( / ly vr ct la)
(setvar "cmdecho" 0)(setq *error* g_er)(setq ly (layles "\nTauen Layergruppe:") vr (getvar "regenmode") la (getvar "clayer") du (searc "-" la))
(cond((= ly "")
(progn
(setq ct (- (length v-lay) 1) dy "")
(while (>= ct 0)
(setq dy (strcat dy "," (substr (nth ct v-lay) (+ du 1))))
(setq ct (- ct 1)) )
(command "_REGENAUTO" "_on" "_LAYER" "_T" (substr dy 2) "")))
((command "_REGENAUTO" "_on" "_LAYER" "_T" (strcat ly "-*") "_on" (strcat ly "-*") "")))(setvar "regenmode" vr)(princ))
(prompt ".")
(defun C:laymach ( / ly vr ct)(g_sv)
(setq ly (layles "\nAktivieren der Layergruppe:")
vr (getvar "regenmode")
)
(gs2 ly)
(setq ct (- (length v-lay) 1))
(command "_REGENAUTO" "_off" "_LAYER")
(while (>= ct 0)
(command "_M" (nth ct v-lay) "_co" (nth ct v-col) "" "_LT" (nth ct v-ltyp) "")
(setq ct (- ct 1)))
(command "")
(setvar "regenmode" vr)
(princ))
(prompt ".")
(defun C:laywe ( / du la ct s1 ly ln el)
(g_sv)
(setq s1 nil)(gc)
(setq s1 (ssget))
(if (= s1 nil)
(prompt "\nError: keine Objekte gefunden !")
(progn
(setq la (gyd "\nSchiebe auf die Layergruppe: (Tastatur/Object) "))
(setq ct -1)
(prompt "\nObject:")
(repeat (sslength S1) (setq el (entget (ssname S1 (setq ct (1+ ct))))) (setq ly (cdr (assoc 8 el)) ln (gy2 la ly)
du (cdr (assoc 0 el)) )(if (or (= du "POLYLINE") (= du "INSERT")) (command "_change" (cdr (assoc -1 el)) "" "_LA" ln ) (entmod
(subst (cons 8 ln)(assoc 8 el) el) )) (prompt (strcat " " (itoa ct) " ")))(princ))))
(defun C:laylist ( / lis ly lg du ad)(g_sv)
(prompt "\nLayergroups:")
(setq lis nil lis (cons "0" lis))
(setq ly (cdr (assoc 2 (tblnext "LAYER" T))))
(while (/= ly nil) (setq i (searc "-" ly))
(if (> i 0)
(progn
(setq lg (substr ly 1 (- i 1)))
(setq ad T)(foreach du lis (progn (if (= lg du)(setq ad nil) )))
(if (= ad T)
(progn(prompt (strcat "\n" lg))(setq lis (cons lg lis))))))
(setq ly (cdr (assoc 2 (tblnext "LAYER")))))(princ))(princ)
MENU/DINMAKO.LSP
+92
View File
@@ -0,0 +1,92 @@
(setvar "cmdecho" 0)(prompt "\nHauptmen� .. DIN-Koord.Bemassung ")(DEFUN C:G-ASSO ( / s1 s2 ct e1 el e0 a1 p1 e2
a2 et ta i tx ea)(g_sv)(if (/= (getvar "handles") 1) (progn (prompt "\nReferenzen nicht aktiviert Abbruch")(quit)))(setq s1 (ssget) ct 0
g-as (g_in g-as "Masstext automatisch vorgeben (Ja=0/Nein=1):" "0"))(if (= s1 nil)(prompt "\nkein Objekt gefunden")(progn(setq e1 (ssname S1 0))
(prompt "\nObjekte:")(while (/= e1 nil) (setq el (entget e1))(cond((or (/= (cdr (assoc 0 el)) "INSERT") (and (/= (cdr (assoc 2 el)) "DIN358")
(/= (cdr (assoc 2 el)) "DIN357"))) ())((= nil (handent (setq a1 (cdr (assoc 1 (entget (setq e0 (entnext e1))))))
))(prompt "\nReferenz Masspfeil fehlt!"))((= (setq ea (entget (handent a1))) nil)(prompt "\nReferenz Masspfeil fehlt!"))
((/= "INSERT" (cdr (assoc 0 ea)))(prompt "\n Error: Referenz ist kein Pfeil"))((and (/= (setq blonam (cdr (assoc 2 ea)))
"DIN356")(/= blonam "DIN357")(/= blonam "DIN358")) (prompt "\n Error: Referenz ist kein Pfeil"))((= nil (handent
(setq a2 (cdr (assoc 1 (entget (entnext e0))))) ))(prompt "\n Referenz Masstext fehlt!"))((= (setq et (entget (handent a2)))
nil)(prompt "\n Referenz Masstext fehlt!"))((/= "TEXT" (cdr (assoc 0 et)))(prompt "\n Error: Referenz ist kein Text"))(progn
(setq p1 (trans (cdr (assoc 10 ea)) 0 1) p2 (trans (cdr (assoc 10 el)) 0 1) ta (cdr (assoc 1 et))
ab (* (distance p1 p2)(cos (- (angle p1 p2)(cdr (assoc 50 el))))))(setq tex (g-teko ab))
(if (= (chr 237) (substr ta 1 1))(setq tex (strcat (chr 237) tex)))(setq tx tex)(if (/= g-as "0")(progn (command "WAHL" (handent a2))
(setq tx (g_in tx (strcat "\nBemassungs-Text [Alt " ta "]:") "") I (SEARC "<>" tx)) (if (> i 1)(setq i (- i 1)))
(if (> i 0)(setq tex (strcat (substr tx 1 i) tex))(setq tex tx)) (command ""))) (entmod (subst (cons 1 tx)(assoc 1 et) et))
(setq s2 (ssdel (cdr (assoc -1 ea)) s1 )) (if (/= s2 nil)(setq s1 s2))))(prompt (strcat " " (itoa ct)))(setq e1 (ssname S1 (setq ct (1+ ct)))))))
(setq s1 nil s2 nil)(princ))(prompt ".")(DEFUN C:g-mcz ( / s1 th tp ct el )(g_sv)(setq s1 nil s1 (ssget))
(if (= s1 nil)(prompt "\nkein Objekt gefunden")(progn(setq massan-1 (g_in massan-1 "\nVer„nderungsfaktor:" 1.0))(setq ct -1)(prompt "\nObjekte:")
(repeat (sslength S1) (setq el (entget (ssname S1 (setq ct (1+ ct))))) (cond ((= (cdr (assoc 0 el)) "TEXT") (progn
(setq th (* massan-1 (cdr (assoc 40 el)))) (entmod (subst (cons 40 TH)(assoc 40 el) el))) ) ( (and (= (cdr (assoc 0 el)) "INSERT")
(OR (= (cdr (assoc 2 el)) "DIN359")(= (cdr (assoc 2 el)) "DIN358") (= (cdr (assoc 2 el)) "DIN357")(= (cdr (assoc 2 el)) "DIN356"))) (progn
(setq el (subst (cons 41 (* (cdr (assoc 41 el)) massan-1))(assoc 41 el) el))
(entmod (subst (cons 42 (* (cdr (assoc 42 el)) massan-1))(assoc 42 el) el)) )))(prompt (strcat " " (itoa ct))))))(princ))(prompt ".")
(DEFUN g-TEKO ( ab / tex du df fa) (setq du (atoi (rtos g_l 2 0)) df 0)(while (and (< df 0.05)(>= du (getvar "LUPREC")))
(setq fa (* (abs ab) g_g (expt 10.0 (- du 1))) df (abs (- fa (fix (+ fa 0.5)))) du (- du 1)))
(setq tex (rtos (abs (* ab g_g)) (getvar "LUNITS") (+ du 1) )))(prompt ".")(DEFUN c:SCHNIT ( / p0 p1)(g_sv)
(setq p0 (getpoint "\nStartpunkt der Schnittlinie / (Ende=Return):") p1 T)
(if (/= p0 nil)(setq p1 (getpoint p0 "\nN„chster Punkt der Schnittlinie / (Ende=Return):")))(while (/= p1 nil)(command "LINIE" p0 p1 ""
"ŽNDERN" "L" "" "LA" (nth 11 v-lay))(setq p0 p1)(setq p1 (getpoint p0 "\nN„chster Punkt der Schnittlinie / (Ende=Return):"))))(prompt ".")
(DEFUN c:PFEIL ( / ot ho br ce p1 p2 p0 tf ag)(g_sv) (setq ho (* 5. g_f) br (* 2.0 g_f) ce (getvar "clayer")) (setvar "orthomode" 1)
(setq p1 (getpoint "\nEinf�gepunkt des Pfeils / (Ende=Return)")) (if (= p1 nil) (quit))
(setq p2 (getpoint p1 "\nEndpunkt des Pfeils / (Ende=Return)")) (if (= p2 nil) (quit))
(setq p0 (getpoint p1 "\nLage der Schnittangabe / (Ende=Return)")) (if (= p0 nil) (quit))
(setq tf (strcase (g_in tf "\nBuchstabe des Schnittverlaufs:" "A")) ag (angle p1 p2) ) (command "LAYER" "SETZ" (nth 11 v-lay) ""
"EINFšGE" (strcat pfad "DIN359") p1 br br (angtos ag 0 2) "LINIE" p1 (polar p1 ag (* br 5)) "") (command "TEXT" "M" p0 ho 0 tf)
(command "LAYER" "SETZ" ce "")(g_un))(DEFUN g-m2 (p0 tx ag sc / p pp e1)(setq *error* g_er p (polar p0 ag (* 2.5 sc)) p (g-m3 p p0 ag sc))
(while (> ag pi)(setq ag (- ag pi pi)))(while (< ag (- 0 pi))(setq ag (+ ag pi pi)))(setq pp (POLAR P (+ ag (/ PI 4)) (/ sc 1.4142))
p (POLAR P (- ag (/ PI 4)) (/ sc 1.4142)))(cond((AND (>= ag 0) (<= ag (/ PI 2.))) (COMMAND "TEXT" p sc (ANGTOS ag 0 8) tx))
((< ag (* (- 0 1)(/ PI 2.))) (COMMAND "TEXT" p sc (ANGTOS ag 0 8) tx))((and (< ag 0) (>= ag (* pi 0.5 (- 0 1))))(COMMAND "TEXT" "R" pp sc
(ANGTOS (- ag PI) 0 8) tx))((> ag (/ PI 2.)) (COMMAND "TEXT" "R" Pp sc (ANGTOS (- ag PI) 0 8) tx)))(setq e1 (entget (entlast)))
(entmod (subst (cons 8 (nth 6 v-lay))(assoc 8 e1) e1)))(prompt ".")(defun g-m3 ( p pl ag sc / p1 p0 ot)
(setq ss (ssget "K" (polar p (+ ag (* pi 0.25)) (* sc)) (polar p (+ ag (* pi 1.25)) (* sc))) p0 p)(if (/= nil ss)(progn
(setq p (POLAR Pl ag (* g_f (getvar "dimexo")))) (prompt "\nKein Platz f�r Text ! Neue Masslinie: (Return=Weiter)")
(setq ot (getvar "orthomode"))(setvar "orthomode" 1) (setq p (trans (cdr (assoc 11 (entget (entlast)))) 0 1)) (command "L™SCHEN" "L" "")
(command "PLINIE" p) (while (/= p nil) (setq p1 p p (getpoint p1 "")) (if (/= p nil)(command p)) ) (command "") (setvar "orthomode" ot)
(setq p (polar p1 ag (* 1.5 sc)))))(setq p p))(prompt ".")(defun g-m4 (h0 ph pu ag sc ei / p4 p1 dx dy ab a1 i tex tx a4 ht)(if (/= ph nil)(progn
(setvar "blipmode" 0)(SETVAR "OSMODE" 0) (setq p1 (mapcar '- ph pu) dx (car p1) dy (cadr p1) ab dx a1 dy) (cond ((= 0 ag) (setq ab dy a1 dx))
((= (rtos pi 2 8) (rtos ag 2 8)) (setq ab dy a1 (- 0 dx))) ((= (rtos ag 2 8)(rtos (- 0 (/ pi 2.)) 2 8)) (setq ab dx a1 (- 0 dy)))
((= (rtos ag 2 8)(rtos (* pi 1.5) 2 8)) (setq ab dx a1 (- 0 dy))) ) (setq p1 (polar ph ag (+ (* -1 a1) sc )))
(command "LINIE" p1 (polar ph ag (* g_f (getvar "dimexo"))) "") (SETQ p4 (POLAR P1 (- ag PI) sc))(setq tex (g-teko ab))(if (/= g-m-2 0)(progn
(setq tx (getstring T (strcat "\nBemassungs-Text:" "<" tex ">"))) (if (= tx "")(setq tx tex)) (setq i (searc "<>" tx)) (if (> i 1)(setq i (- i 1)))
(if (> i 0)(setq tex (strcat (substr tx 1 i) tex))(setq tex tx)))) (g-m2 p4 tex ag sc)(setq ht (cdr (assoc 5 (entget (entlast)))))
(setq a4 (angle p4 pu))(if (= (getvar "handles") 0) (COMMAND "EINFšGE" (strcat pfad "din359") p4 g_f g_f (angtos a4))
(progn (SETVAR "attdia" 0)(command "EINFšGE" (strcat pfad "din357") p4 g_f g_f (angtos a4) h0 ht) (SETVAR "attdia" 1))) (if (= g-m 0)(progn
(if (= ei nil) (progn(COMMAND "LINIE" p4 pu "") (setq ei (entlast))) (progn (setq pe (trans (cdr (assoc 11 (entget ei))) 0 1)
pa (trans (cdr (assoc 10 (entget ei))) 0 1)) (cond ((and (equal (angle pa pe) (angle pa p4) 0.00001) (> (distance pa p4)(distance pa pe)))
(entmod (subst (cons 11 (trans p4 1 0)) (assoc 11 (entget ei))(entget ei)))) ((> (distance pe p4)(distance pa pe))
(entmod (subst (cons 10 (trans p4 1 0)) (assoc 10 (entget ei))(entget ei)))) )))))))(setq ei ei))(prompt ".")
(defun g-m5 ( sc tr / pu p ph h1 s1 ee ag ct)(setq pu (GETPOINT tr) )(setvar "ORTHOMODE" 1)(if (= pu nil)(progn(setq ee nil)(while (= ee nil)
(setq p (getpoint "\nAntippen Nullpunkt:") ee nil s1 (ssget "K" (polar p (* 0.25 pi) (* g_f)) (polar p (* 1.25 pi) (* g_f))) ct 0)
(if (= s1 nil)(prompt "\nError: Falscher Nullpunkt:")(progn(while (and (/= nil (setq ee (ssname s1 ct))) (or (/= "INSERT" (cdr (assoc 0 (entget ee))))
(/= (cdr (assoc 2 (entget ee))) "DIN356")))(setq ct (+ ct 1)))(if (= ee nil)(prompt "\nError: Falscher Nullpunkt:")))))
(setq h1 (cdr (assoc 5 (entget ee))))(g_se))(progn(setq ph (getpoint pu "\nBeginn der Masshilfslinie:"))(g_se)(SETQ ag (ANGLE pu ph)
l (distance pu ph))(command "EINFšGE" "din356" ph g_f g_f (* (/ ag pi) 180.0))(setq h1 (cdr (assoc 5 (entget (entlast)))))
(command "LINIE" (polar ph ag sc) (polar pu ag (* g_f (getvar "dimexo"))) "")(g-m2 ph "0" ag sc)))(setq h1 h1))(prompt ".")
(DEFUN C:MASS ( / p1 p2 p3 p4 ce ag a2 l sc p5 a1)(g_sv)(graphscr)(if (= 0 (getvar "handles"))(progn
(setq ce (g_in ce "\nAssoziativit„t nicht m”glich : (0=ein/1=ohne/2=Abbruch)" "0"))(cond((= ce "0")(command "REFERENZ" "EIN"))((= ce "1")())((quit))
)))(setq ce (getvar "clayer") sc (* 3.5 g_f) g-m (g_in g-m "\nMit Masslinie (Ja=0/Nein=1)?" 0)
g-m-1 (g_in g-m-1 "2-achsige-Bemassung (Ja=0/Nein=1):" 0) g-m-2 (g_in g-m-2 "Masstext automatisch vorgeben (Ja=0/Nein=1):" 0))
(command "LAYER" "SETZ" (nth 5 v-lay) "")(setq h1 (g-m5 sc "\n1.Nullpunkt setzen/Return=1.Nullpunkt vorhanden:") e1 (entget (handent h1))
a1 (cdr (assoc 50 e1)) p1 (trans (cdr (assoc 10 e1)) 0 1) )(if (= g-m-1 0)(progn(g_ru)
(setq ha2 (g-m5 sc "\n2.Nullpunkt setzen/Return=2.Nullpunkt vorhanden:") e2 (entget (handent ha2)) a2 (cdr (assoc 50 e2))
p2 (trans (cdr (assoc 10 e2)) 0 1) )))(g_se)(setq pl (g-m6))(if (/= nil pl)(progn(setq px (g-m7 p1 pl a1))(setq ei nil)
(foreach p px (setq ei (g-m4 h1 p p1 a1 sc ei)))(if (= g-m-1 0)(progn (setq py (g-m7 p2 pl a2) ei nil)
(foreach p py (setq ei (g-m4 ha2 p p2 a2 sc ei)))))))(setq p3 T ei nil ei2 nil)(while (/= p3 nil) (g_ru)
(SETQ p3 (GETPOINT "\nAusgangspunkt der n„chsten Hilfslinie (Ende=Return):"))(g_se)(setq ei (g-m4 h1 p3 p1 a1 sc ei))
(if (= g-m-1 0)(setq ei2 (g-m4 ha2 p3 p2 a2 sc ei2))))(command "LAYER" "SETZ" ce "") (princ))(prompt ".")(defun g-m6 ( / ss pl ct el ez la)
(prompt "\nBemassungsobjekte w„hlen/Return=Einzelauswahl")(prompt "\nNur Layer 0,1,2 werden vermasst")(setq ss (ssget) pl nil)(if (/= nil ss)(progn
(prompt "\nDoppelte Masspunkte l”schen .....")(setq ct (- (sslength ss) 1))(while (>= ct 0) (setq el (entget (ssname ss ct))
la (substr (cdr (assoc 8 el)) (strlen (cdr (assoc 8 el))) 1))(cond((and (/= la "0")(/= la "1")(/= la "2")) ())((= (cdr (assoc 0 el)) "LINE")(progn
(setq pl (g-m6-1 (trans (cdr (assoc 10 el)) 0 1) pl) pl (g-m6-1 (trans (cdr (assoc 11 el)) 0 1) pl))))((= (cdr (assoc 0 el)) "POLYLINE")(progn
(setq ez (entnext (cdr (assoc -1 el)))) (while (= (cdr (assoc 0 (entget ez))) "VERTEX") (setq pl (g-m6-1 (trans (cdr (assoc 10 (entget ez))) 0 1) pl)
ez (entnext ez)) )))((= (cdr (assoc 0 el)) "CIRCLE") (setq pl (g-m6-1 (trans (cdr (assoc 10 el)) 0 1) pl))))(setq ct (- ct 1)))))(setq pl pl))
(defun g-m6-1 (p pl / c2 )(if (/= (type pl) 'LIST)(setq pl nil pl (cons p pl))(progn(setq c2 0)(while (and (<= c2 (- (length pl) 1))
(= nil (equal (nth c2 pl) p 0.000001)))(progn(setq c2 (+ 1 c2))))(if (>= c2 (length pl))(setq pl (cons p pl)))))(setq pl pl))
(defun g-m7 (pt pl ag / pm pa i7 ps ok p7 io)(prompt "\nMasspunkt sortieren ....")
(if (or (equal ag pi 0.000001)(equal ag 0 0.00001))(setq io 1)(setq io 0))(setq ok nil ps nil)
(setq pa (list -100000.0 -100000.0) pm (list 100000.0 10000.0))(repeat (length pl)(setq i7 -1)(repeat (length pl)(setq i7 (+ i7 1) p7 (nth i7 pl))
(cond((equal (distance pm p7) 0 0.00001)())((equal (nth io pt) (nth io p7) 0.00001)())((equal (nth io p7) (nth io pa) 0.00001)())
((equal (nth io pm) (nth io p7) 0.0001) (if (> (distance pt pm) (distance pt p7))(progn (setq pm p7 ok T))))((and (< (nth io pa) (nth io p7))
(> (nth io pm) (nth io p7))) (setq pm p7 ok T))))(if (= ok T)(setq ps (cons pm ps) pa pm pm (list 100000.0 100000.0) ok nil)))(setq ps ps))(princ)

MENU/DINMAS2.LSP
+18
View File
@@ -0,0 +1,18 @@
(setvar "cmdecho" 0)(prompt "\nDIN-Bemassung 2 ...... ")(DEFUN g-txk3 (ab / du df fk tx)
(setq du (atoi (rtos g_l 2 0)) df 0)(while (and (< df 0.05)(>= du (getvar "LUPREC")))(setq fk (* (abs ab) g_g (expt 10.0 (- du 1)))
df (abs (- fk (fix (+ fk 0.5)))) du (- du 1)))(setq tx (rtos (abs (* ab g_g)) (getvar "LUNITS") (+ du 1) )))(prompt ".")(DEFUN C:g-MASr ( / p0 p1 pm)
(g_sv) (setq p0 (g_in nil "\nBogenpunkt f�r Masspfeil :" (list 0 0 0 512 "NAE")) pm (osnap p0 "ZEN")
p1 (g_in p0 "\nRichtung f�r Text :" (list 0 0 0))) (g_se) (if (and (/= p0 nil)(/= pm nil))(g-mar p0 p1 pm)) (g_un) (princ))(prompt ".")
(DEFUN g-mar ( pr p1 pm / y d ag a9 a18 a27 ab ho br rg t1 i tl y d tx)(command "LAYER" "SETZ" (nth 5 v-lay) "")(g_se)
(setq ag (angle pm pr) rg (* (/ ag pi) 180.) a9 (+ ag (* pi 0.5)) a18 (+ ag pi) a27 (+ a9 pi) ab (distance pm pr) ho (* g_f 3.5) br (* ho 0.8)
tx (strcat "R" (g-txk3 ab)) t1 (g_in tx "\nBemassungs-Text:" "") I (SEARC "<>" t1))(if (> i 1)(setq i (- i 1)))
(if (> i 0)(setq tx (strcat (substr t1 1 i) tx))(setq tx t1))(setq tl (strlen tx) ) (IF (< (distance p1 pm) ab)(progn(SETQ Y 0 d ab)
(if (> d (* 25.0 g_f))(setq d (* g_f 25.0)))(if (< d (* tl br))(setq d (+ (* tl br) br br)))(COMMAND "LINIE" pr (polar pr (angle pr pm) d) "")
(if (and (< ag 4.72)(> ag 1.58)) (COMMAND "TEXT" (polar (polar pr a27 g_f) a18 (* 2. br)) ho (+ rg 180) tx)
(COMMAND "TEXT" "R" (polar (polar pr a9 g_f) a18 (* 2.0 br)) ho rg tx))
(entmod (subst (cons 8 (nth 6 v-lay))(assoc 8 (entget (entlast)))(entget (entlast)))))(progn(SETQ Y 180)
(if (> ab (* 5.0 g_f))(COMMAND "LINIE" pr)(command "LINIE" pm))(command (polar pr ag (* tl br)) "" )(if (and (< ag 4.72)(> ag 1.58))
(COMMAND "TEXT" "R" (polar (polar pr ag br) a27 g_f) ho (+ rg 180) tx) (COMMAND "TEXT" (polar (polar pr ag br) a9 g_f) ho rg tx))
(entmod (subst (cons 8 (nth 6 v-lay))(assoc 8 (entget (entlast)))(entget (entlast))))))
(COMMAND "EINF�GE" (strcat pfad "din359") pr g_f g_f (+ rg 180 y)))(prompt ".")(princ)

MENU/DINMASS.LSP
+46
View File
@@ -0,0 +1,46 @@
(setvar "cmdecho" 0)(prompt "\nDIN-Bemassung ....... ")(DEFUN g-TXK2 ( ab / tl du df fk)
(setq du (atoi (rtos g_l 2 0)) df 0)(while (and (< df 0.05)(>= du (getvar "LUPREC")))(setq fk (* (abs ab) g_g (expt 10.0 (- du 1)))
df (abs (- fk (fix (+ fk 0.5)))) du (- du 1)))(setq tx (rtos (abs (* ab g_g)) (getvar "LUNITS") (+ du 1) )))(prompt ".")(DEFUN C:MASSY ()(g_sv)
(g-maxy 0 ))(prompt ".")(DEFUN C:MASSX ()(g_sv)(g-maxy (* pi 0.5) ))(prompt ".")(DEFUN C:MASSA ()(g_sv)(g-maxy T ))(prompt ".")
(DEFUN g-win ( p0 p1 sg / df)(setq ang1 (angle p0 p1))(setq df (- ang1 sg))(if (and (> df (* pi 0.5))(< df (* 1.5 pi)))(setq df (+ sg pi))
(setq df sg )) )(DEFUN g-laen (p0 e0 / p1 p2) (setq p1 (trans (cdr (assoc 10 e0)) 0 1) p2 (trans (cdr (assoc 11 e0)) 0 1))
(if (> (distance p0 p1)(distance p1 p2))(command "„NDERN" (cdr (assoc -1 e0)) "" p0)
(if (> (distance p0 p2)(distance p1 p2))(command "„NDERN" (cdr (assoc -1 e0)) "" p0)) ))(DEFUN g-maxy ( g-ma / ce sg pa p0 p1 ue
ab s0 n0 n1 s1 e0 e1 fx fm pm pa)(if (= 0 (getvar "handles"))(progn
(setq ce (g_in ce "\nAssoziativit„t nicht m”glich : (0=ein/1=ohne/2=Abbruch)" "0"))(cond((= ce "0")(command "REFERENZ" "EIN"))((= ce "1")())((quit))
))) (setq ce (getvar "clayer") sg g-ma pa nil p0 T p1 T ue (* 2.0 g_f) ab (* 7.0 g_f))(command "LAYER" "SETZ" (nth 5 v-lay) "")
(setq g-f2 (g_in g-f2 "\nEinzelvermassung(=0)/Basislinien(=1)/Kettenbemassung(=2):" "0") fx "0") (if (= "0" g-f2)(setq fm "\nEinzelvermassung:")
(if (= "1" g-f2)(setq fm "\nBasislinie-") (setq fm "\nMasskette-") ) )(g_se)(while (and (/= p0 nil)(/= p1 nil)) (g_ru)
(if (= fx "0")(setq p0 (getpoint "\n<Anfangspunkt 1.Masshilfslinie>/(Ende=Return):")))
(if (/= p0 nil)(SETQ P1 (GETPOINT (strcat fm "<Anfangspunkt 2. Masshilfslinie>/(Ende=Return) :"))))
(if (and (/= p0 nil)(/= p1 nil))(setq pm (getpoint "\nStandort Masslinie:"))) (if (and (/= pa nil)(= pm nil))(setq pm (polar pa s0 ab))) (setq pa pm)
(g_se) (if (and (/= p0 nil)(/= p1 nil)(/= pm nil)) (progn (if (= g-ma T)(setq sg (+ (angle p0 p1) (* pi 0.5))) ) (setq s0 (g-win p0 pm sg)
n0 (polar p0 s0 (* (distance p0 pm)(cos (- s0 (angle p0 pm))))) s1 (g-win p1 pm sg) n1 (polar p1 s1 (* (distance p1 pm)(cos (- s1 (angle p1 pm))))))
(if (= fx "0")(progn (command "LINIE" (polar p0 (angle p0 n0) (* g_f (getvar "dimexo"))) (polar n0 (angle p0 n0) ue) "")(setq e0 (entget (entlast)))))
(command "LINIE" (polar p1 (angle p1 n1) (* g_f (getvar "dimexo"))) (polar n1 (angle p1 n1) ue) "")(setq e1 (entget (entlast)))
(if (> fx "0")(g-laen (polar n0 s0 ue) e0))(g-mali n0 n1 T T)(setq fx g-f2)(if (= fx "2")(setq p0 p1 e0 e1 ) (if (= fx "0")(setq pa nil))))))
(command "LAYER" "SETZ" ce "")(g_un)(princ))(prompt ".")(DEFUN C:MASC ( / ce p0 pm ag ab p1)(g_sv)(if (= 0 (getvar "handles"))(progn
(setq ce (g_in ce "\nAssoziativit„t nicht m”glich : (0=ein/1=ohne/2=Abbruch)" "0"))(cond((= ce "0")(command "REFERENZ" "EIN"))((= ce "1")())((quit))
))) (setq p0 (g_in nil "\nKreispunkt f�r Masspfeil :" (list 0 0 0 512 "NAE")) pm (osnap p0 "ZEN")) (g_se)(command "LAYER" "SETZ" (nth 5 v-lay) "")
(if (and (/= p0 nil)(/= pm nil)) (progn (setq ag (angle p0 pm) ab (distance p0 pm) p1 (polar pm ag ab)) (g-mali p0 p1 nil T) )) (g_un) (princ))
(prompt ".")(DEFUN g-mali ( p1 p0 mi tf / h1 h2 ag a9 a18 a27 ab br ho rg fi t1 i df tl a y b c dt tx e0)(command "LAYER" "SETZ" (nth 5 v-lay) "")
(g_se) (setq ag (angle p0 p1) rg (* (/ ag pi) 180.) a9 (+ ag (* pi 0.5)) a18 (+ ag pi) a27 (+ a9 pi) ab (distance p0 p1) pm (polar p0 ag (* ab 0.5))
ho (* g_f 3.5) br (* ho 0.8) )(if (or (= tf nil)(= tf T))(progn(setq tx (g-txk2 ab))(if (= tf T)(progn
(setq t1 (getstring T (strcat "\nBemassungs-Text:" "<" tx ">")))(if (= t1 "")(setq t1 tx))(setq I (SEARC "<>" t1)) (if (> i 1)(setq i (- i 1)))
(if (> i 0)(setq tx (strcat (substr t1 1 i) tx))(setq tx t1))))) (setq tx tf))(setq tl (strlen tx) ) (setq df (- ab (* 2. br) (* tl br)))
(IF (> df 0)(progn(SETQ A T Y 0 B nil C nil)(COMMAND "LINIE" p0 p1 "")(if (= mi nil) (progn (setq dt (* df 0.25 g_f))
(if (< dt (* 2 br g_f))(setq dt (* 2 br g_f))) (setq dt (- (* ab 0.5) dt (* tl br 0.5))) ) (setq dt 0.))(if (and (< ag 4.72)(> ag 1.58))
(COMMAND "TEXT" "Z" (polar (polar pm a27 g_f) ag dt) ho (+ rg 180) tx) (COMMAND "TEXT" "Z" (polar (polar pm a9 g_f) ag dt) ho rg tx))
(entmod (subst (cons 8 (nth 6 v-lay))(assoc 8 (entget (entlast)))(entget (entlast))))(setq h2 (cdr (assoc 5 (entget (entlast))))))
(IF (< (* tl br) (- ab br))(progn(SETQ B T Y 180 A nil C nil)(COMMAND "LINIE" (polar p0 a18 (* 1.5 br)) (polar p1 ag (* 1.5 br)) "")
(if (and (< ag 4.72)(> ag 1.58)) (COMMAND "TEXT" "Z" (polar pm a27 g_f) ho (+ rg 180) tx) (COMMAND "TEXT" "Z" (polar pm a9 g_f) ho rg tx))
(entmod (subst (cons 8 (nth 6 v-lay))(assoc 8 (entget (entlast)))(entget (entlast))))(setq h2 (cdr (assoc 5 (entget (entlast))))))(progn
(SETQ C T Y 180 A nil B nil)(if (= tl 1)(setq dum 1)(setq dum 0))(COMMAND "LINIE" (polar p1 ag (* 1.5 br)) (polar p0 a18 (* (+ tl dum) br)) "" )
(if (and (< ag 4.72)(> ag 1.58)) (COMMAND "TEXT" (polar (polar p0 a18 br) a27 g_f) ho (+ rg 180) tx)
(COMMAND "TEXT" "R" (polar (polar p0 a18 br) a9 g_f) ho rg tx))(entmod (subst (cons 8 (nth 6 v-lay))(assoc 8 (entget (entlast)))(entget (entlast))))
(setq h2 (cdr (assoc 5 (entget (entlast))))))))(if (= (getvar "handles") 0) (COMMAND "EINF�GE" (strcat pfad "din359") p0 g_f g_f (+ rg y)
"EINF�GE" (strcat pfad "din359") p1 g_f g_f (+ rg 180 y)) (progn (setvar "attdia" 0) (COMMAND
"EINF�GE" (strcat pfad "din358") p0 g_f g_f (+ rg y) h2 h2) (setq fi (entlast) h1 (cdr (assoc 5 (entget (entlast)))))
(command "EINF�GE" (strcat pfad "din358") p1 g_f g_f (+ rg 180 y) h1 h2) (setq h1 (cdr (assoc 5 (entget (entlast)))))
(setq e0 (entget (entnext fi))) (entmod (subst (cons 1 h1)(assoc 1 e0) e0)) (SETVAR "attdia" 1))))(prompt ".")(princ)

MENU/DINSETUP.LSP
+37
View File
@@ -0,0 +1,37 @@
;-----------------------------------grundeinstellung
(defun dinsetup ()
(prompt "\nSST-Menu-Grundeinstellung")
;layer anlegen
(s::startup)
(setq cnt (- (length v-lay) 1))
(command "REGENAUTO" "AUS"
;problem linientyp continuous und ausgezogen
"EINFšGE" (strcat pfad "acad") "0,0" "" "" ""
"LAYER")
(while (>= cnt 0)
(command
"MACH" (nth cnt v-lay) "FARBE" (nth cnt v-col) ""
"LTYP" (nth cnt v-ltyp) "")
(setq cnt (- cnt 1))
); while klammer
(command "MACH" "klin" "FARBE" "1" ""
"MACH" "info" "FARBE" "2" ""
"MACH" "rahm2" "FARBE" "1" ""
"MACH" "rahm3" "FARBE" "2" ""
"MACH" "rahm5" "FARBE" "7" ""
"SETZ" (nth 0 v-lay) "" "REFERENZ" "EIN")
;variablen belegen
(setvar "flatland" 0)
(setvar "mirrtext" 0)
(setvar "osmode" 0)
(setvar "attdia" 1)
(setq g_si 15.0)
;genius definitionen
(setq g_f 1.0 g_g 1.0 g_l 3)
(command "MENš" (strcat pfad "haupt"))
(setvar "dimscale" 1.0)
(setvar "dimlfac" 1.0)
(princ)
)
(princ)

MENU/DINSTAB.LSP
+143
View File
@@ -0,0 +1,143 @@
;----------------------------------
;ko - Schriftfeld einf�gen
;ko2 - Masstab festlegen
;-------------------------------Genius-interne Funktionen:
;stab2 - Rahmengr”sse festlegen
;stab1 - Masstabkontrollieren auf richtiges format
;-----------------------------------verwendete Funktionen:
;--------------------------------------------Verkn�pfung:
;ko >stab1
; >stab2
;------------------------------------------Globalvariable:
;g_f,g_g
;g_st - vorschlag f�r Firmenlogo (acad)
;--------------------------------------verwendete Bl”cke:
;din999 - Schriftfeld
;dina0 ... dina4 - Blattrahmen
;-------------------------------------Unterfunktionen
;g_ky (dingen)
;g_in (dingen)
;-------------------------------------Version: 26.3.89
;-------------------------------------------------stab2
(prompt "\nLaden des Schriftfeldes.......... (c) Sch”nenberger Systeme GmbH ")
;-------------------------------------------------stab1
(defun g-stab1 (sb-1 / )
(setvar "userr2" g_f)
(command "BEM" "BEMFKTR" g_f "EXIT"
"LTFAKTOR" g_f
))
;-----------------------------stab2 rahmen berehcnen
(defun g-stab2 (sb-2 / )
;umrechnen des einf�gepunkts f�r schriftfeld
(cond
;voll sollmass wird 10 abgezogen
;dina4 ausnahme wegen laserdrucker einfacher Rahmen
((= sb-2 "A4")(setq p (list (* g_f 190)(* g_f 0))
pp (list (* g_f 210)(* g_f 297))))
((= sb-2 "A3")(setq p (list (* g_f 410)(* g_f 10))
pp (list (* g_f 420)(* g_f 297))))
((= sb-2 "A2")(setq p (list (* g_f 584)(* g_f 10))
pp (list (* g_f 594)(* g_f 420))))
((= sb-2 "A1")(setq p (list (* g_f 830)(* g_f 10))
pp (list (* g_f 840)(* g_f 594))))
((= sb-2 "A0")(setq p (list (* g_f 1178)(* g_f 10))
pp (list (* g_f 1188)(* g_f 840))))
)
)
;---------------------------------------festlegen der ausschnitte
(defun g-stab3 (p2o / p1o p2u pm pm1 pm2)
;bereich vierteln
(setq p1o (list 0 (nth 1 p2o))
p2u (list (nth 0 p2o) 0)
pm (list (* 0.5 (nth 0 p2o)) (* 0.5 (nth 1 p2o)))
pm1 (list (* 0.25 (nth 0 p2o)) (* 0.25 (nth 1 p2o)))
pm2 (list (* 0.75 (nth 0 p2o)) (* 0.75 (nth 1 p2o)))
)
(command "AUSSCHNT" "F" "1" p1o pm
"AUSSCHNT" "F" "2" pm p2o
"AUSSCHNT" "F" "3" '(0 0) pm
"AUSSCHNT" "F" "4" pm p2u
"AUSSCHNT" "F" "5" pm1 pm2)
)
;-------------------------------------------------C:ko2
(DEFUN C:g-ko2( / sb-6 sb-7 sb-1)
;einlesen des masstabs
; g_f : �bergeordnerter Masstab f�r Genius-vermassung
; sb-1 : masstab (zb 1:1)
(setvar "cmdecho" 0)
(setq *error* g_er)
(prompt "\nMasstab f�r Einzelheit (Masstabsfaktor angepasst, Schriftgr”sse const.)")
(setq sb-6 '(50.0 20.0 10.0 5.0 2.0 1.0 0.5 0.2 0.1 0.05 0.02 0.01 0.005 0.002 0.001 0.0005 0.0002 0.0001 0.00005 0.00002 0.00001)
sb-7 '("50:1" "20:1" "10:1" "5:1" "2:1" "1:1" "1:2" "1:5" "1:10" "1:20" "1:50" "1:100" "1:200" "1:500" "1:1000" "1:2000" "1:5000" "1:10000")
sb-1 (g_ky sb-1 "\nMasstab f�r Einzelheit:" "5:1"
"50:1 20:1 10:1 5:1 2:1 1:1 1:2 1:5 1:10 1:20 1:50 1:100 1:200 1:500 1:1000 1:2000 1:5000 1:10000"
))
(setq g_g (/ 1.0 (nth (- (length sb-7) (length (member sb-1 sb-7))) sb-6)))
(command "BEM" "BEMGFLA" g_g "EXIT")
)
;-------------------------------------------------ko
(DEFUN g-ko (sb-1 sb-2 sb-9 / sb-3 sb-4 sb-5 sb-6 sb-7 sb-8)
; g_f : �bergeordnerter Masstab f�r Genius-vermassung
; sb-1 : masstab (zb 1:1)
; sb-2 : format (zb A1)
; sb-3 : vorgabe f�r logozeichnung, wird in acad.lsp definiert g_st
(setvar "cmdecho" 0)(setvar "regenmode" 0)
(setq *error* g_er
sb-3 (g_in g_st "\nFirmensymbol " g_st) sb-8 nil)
;auswahl des formats
(while (/= sb-8 "J")
(setq sb-2 (g_ky sb-2 "Zeichenformat (A0 A1 A2 A3 A4):" "A3" "A4 A3 A2 A1 A0")
g_f 1)
(g-stab2 sb-2); pp enthŽlt gr”ssen
(setq sb-6 '(50.0 20.0 10.0 5.0 2.0 1.0 0.5 0.2 0.1 0.05 0.02 0.01 0.005 0.002 0.001 0.0005 0.0002 0.0001 0.00005 0.00002 0.00001)
sb-7 '("50:1" "20:1" "10:1" "5:1" "2:1" "1:1" "1:2" "1:5" "1:10" "1:20" "1:50" "1:100" "1:200" "1:500" "1:1000" "1:2000" "1:5000" "1:10000")
sb-1 (g_ky sb-1 "Masstab Plot:Zeicheneinheiten (?/x:x)" "?"
"? 50:1 20:1 10:1 5:1 2:1 1:1 1:2 1:5 1:10 1:20 1:50 1:100 1:200 1:500 1:1000 1:2000 1:5000 1:10000"
))
(if (= sb-1 "?")(progn
;bei fragezeichen ausrechnen format bekannt
(setq sb-4 (getdist "Max. Breite:")
sb-5 (getdist "\nMax. H”he:")
fak1 (min (/ (car pp) sb-4 ) (/ (nth 1 pp) sb-5)) cnt 0)
(while (and (/= (nth cnt sb-6) nil)(> (nth cnt sb-6) fak1))(setq cnt (+ cnt 1)))
(setq g_f (/ 1.0 (nth cnt sb-6))
sb-1 (nth cnt sb-7)
)))
(prompt (strcat "\nFormat: " sb-2 " Masstab: " sb-1))
(setq sb-8 (g_ky sb-8 "\nEingabe ok (J/N)" "J" "J N"))
)
;belegen von g_f suchen des elements
(setq g_f (/ 1.0 (nth (- (length sb-7) (length (member sb-1 sb-7))) sb-6)))
(g-stab1 sb-1)
(g-stab2 sb-2)
(g-stab3 pp)
(setvar "attdia" 1)
(command "LIMITEN" "0,0" pp
"EINF�GE" sb-3 p g_f g_f 0
"EINF�GE" (strcat "din" sb-2) "0,0" g_f g_f 0)
(if (/= nil sb-9)(command "EINF�GE" "din999" p g_f g_f 0))
;rest nach funktion abfrage durch attribute des blocks din999 definiert
(princ)
)
;----------------------------einlesend der schriftfeldes
(defun c:g-dabase ( / tx1 tx2 tx )
(g_sv)
;einf�gen von datein temp.$$K mit schriftfeld
(setq datnr (open "temp.$$K" "r"))
(if (= datnr nil)(progn(prompt "Error: Datei nicht gefunden !")(quit)))
;erstes datei feld masstab, zweites din-Gr”sse
(setq tx1 (read-line datnr) tx2 (read-line datnr))
(g-ko tx1 tx2 nil)
;1.attribut suchen
(setvar "attdia" 0)
(command "EINF�GE" "din999" p g_f g_f 0)
(setvar "attdia" 1)
(while (/= nil (setq tx (read-line datnr)))(command tx))
(close datnr)(setq datnr nil)
(princ)
)
(princ)

MENU/DINTEXT.LSP
+43
View File
@@ -0,0 +1,43 @@
(prompt "\nLaden Textfunktionen ..... ")(defun c:g-texpos ( / fa el e p p1 p2)(g_sv)(while (= T T)
(setq el (entsel "\nText w„hlen:") e (car el))(if (or (= e nil) (and (/= (setq enam (cdr (assoc 0 (setq e (entget e))))) "TEXT") (/= enam "ATTDEF")
(/= enam "INSERT"))) (progn (prompt "\nError: Objekt ist kein Text")(quit)))(if (= (cdr (assoc 0 e)) "INSERT")(setq e (gte-2 el)))
(setq g-t1 (list "L" "Z" "R" "E" "M" "A") g-t (nth (cdr (assoc 72 e)) g-t1) fa 6)(while (or (< fa 0)(> fa 5))(initget "L Z R E M A")
(setq g-t (g_in g-t "\nNeuer Textmodi (Links/Zentrum/Rechts/Einpassen/Mitte/Ausrichten):" "L") g-t (strcase g-t) fa (- 6 (length (member g-t g-t1)))))
(cond((= fa 0) (setq p (cdr (assoc 10 e)) p1 (g_in (trans p 0 1) "\nLinker Punkt w„hlen:" '(0 0)) e (subst (cons 10 (trans p1 1 0))(assoc 10 e) e)
e (subst (cons 41 0.8)(assoc 41 e) e)))((or (= fa 1)(= fa 4)) (setq p (cdr (assoc 11 e)) p1 (g_in (trans p 0 1) "\nZentrum w„hlen:" '(0 0))
e (subst (cons 11 (trans p1 1 0))(assoc 11 e) e) e (subst (cons 41 0.8)(assoc 41 e) e)))((= fa 2) (setq p (cdr (assoc 11 e))
p1 (g_in (trans p 0 1) "\nRechter Punkt anw„hlen:" '(0 0)) e (subst (cons 11 (trans p1 1 0))(assoc 11 e) e) e (subst (cons 41 0.8)(assoc 41 e) e)))
((or (= fa 5)(= fa 3)) (setq p (cdr (assoc 10 e)) p1 (g_in (trans p 0 1) "\nLinker Punkt w„hlen:" '(0 0))
p2 (g_in p1 "\nRechter Punkt anw„hlen:" '(0 0)) e (subst (cons 10 (trans p1 1 0))(assoc 10 e) (subst (cons 11 (trans p2 1 0))(assoc 11 e) e)))))
(setq e (subst (cons 72 fa)(assoc 72 e) e)) (entmod e)(if (= (cdr (assoc 0 e)) "ATTRIB")(entupd (cdr (assoc -1 e))))))
(defun gte-1 (pe p10 ts tl ag tx / l le tn )(setq l (distance pe p10) le (* (cos (- ag (angle p10 pe))) l))(cond((<= le 0)(setq i% 1))
((> (/ le ts) tl)(setq i% tl))((setq i% (+ (fix (/ le ts)) 1))))(setq tn (strcat (substr tx 1 (- i% 1)) "%%U" (substr tx i% 1)
"%%U" (substr tx (+ i% 1)))))(defun gte-2 ( a / el la oa)(setq el (entget (car a)) oa (cdr (assoc 8 (entget (entnext (car a))))))
(if (= oa "1")(setq la "0")(setq la "1"))(setvar "cmdecho" 0)(command "ATTEDIT" "" "" "" "" (cadr a) "" "LA" la)(setq el (entget (entnext (car a))))
(while (and (= (cdr (assoc 0 el)) "ATTRIB")(/= (cdr (assoc 8 el)) la))(progn (setq el (entget (entnext (cdr (assoc -1 el)))))))(command "N")
(setq el (entget (cdr (assoc -1 el))) el (subst (cons 8 oa)(assoc 8 el) el)))(defun stop(st)(setq e (subst (cons 1 tx)(assoc 1 e) e))(entmod e)
(if (= (cdr (assoc 0 e)) "ATTRIB")(entupd (cdr (assoc -1 e))))(g_er(st))(setq *error* ()))(defun c:g-texedi ( / el e tx ts p10 ag tl pe tn tas en)
(g_sv)(while (= T T)(setq el (entsel "\nText w„hlen:") e (car el))(if (or (= e nil) (and (/= (setq en (cdr (assoc 0 (setq e (entget e))))) "TEXT")
(/= en "INSERT"))) (progn (prompt "\nError: Objekt ist kein Text")(quit)))(if (= en "INSERT")(setq e (gte-2 el)))(setq tx (cdr (assoc 1 e))
ts (* (cdr (assoc 41 e))(cdr (assoc 40 e)) 0.7) p10 (trans (cdr (assoc 10 e)) 0 1) ag (cdr (assoc 50 e)) tl (strlen tx) pe (nth 1 el))
(setq tn (gte-1 pe p10 ts tl ag tx))(setq *error* stop)(setq e (subst (cons 1 tn)(assoc 1 e) e))(entmod e)
(if (= (cdr (assoc 0 e)) "ATTRIB")(entupd (cdr (assoc -1 e))))(setq tas '(0 0))(prompt "\nText editieren (+/-/Backspace/Del oder Einf�gen:")
(while (/= (nth 1 tas) 13)(while (and (/= (car (setq tas (grread))) 2) (/= (car tas) 3)))(setq fa (nth 1 tas))(cond
((= (car tas) 3)(setq pe (nth 1 tas) tn (gte-1 pe p10 ts tl ag tx)))((= fa 43)(progn (if (= i% tl)(setq tx (strcat tx " ") tl (+ tl 1)))
(if (< i% tl)(setq i% (+ 1 i%))) (setq tn (strcat (substr tx 1 (- i% 1)) "%%U" (substr tx i% 1) "%%U" (substr tx (+ i% 1)))))) ((= fa 45)(progn
(if (> i% 1)(setq i% (- i% 1))) (setq tn (strcat (substr tx 1 (- i% 1)) "%%U" (substr tx i% 1) "%%U" (substr tx (+ i% 1)))))) ((= fa 211)(progn (cond
( (< i% tl)(progn (setq tn (strcat (substr tx 1 (- i% 1)) "%%U" (substr tx (+ i% 1) 1) "%%U" (substr tx (+ i% 2)))
tx (strcat (substr tx 1 (- i% 1)) (substr tx (+ i% 1))) tl (- tl 1)) )) ((and (> i% 1) (= i% tl))(progn
(setq tn (strcat (substr tx 1 (- i% 2)) "%%U" (substr tx (- i% 1) 1) "%%U") tx (substr tx 1 (- i% 1)) tl (- tl 1) i% (- i% 1)) )) )))((= fa 8)(progn
(if (> i% 1)(progn (setq tn (strcat (substr tx 1 (- i% 2)) "%%U" (substr tx i% 1) "%%U" (substr tx (+ i% 1)))
tx (strcat (substr tx 1 (- i% 2)) (substr tx i%)) tl (- tl 1) i% (- i% 1)) (if (> i% tl)(setq i% tl)) ))))((progn (if (> fa 28)(progn
(if (= fa 31)(setq fa 45)) (if (= fa 29)(setq fa 43)) (setq tn (strcat (substr tx 1 (- i% 1)) (chr fa) "%%U" (substr tx i% 1)
"%%U" (substr tx (+ i% 1))) tx (strcat (substr tx 1 (- i% 1)) (chr fa)(substr tx i%)) tl (+ tl 1) i% (+ i% 1) ))))))
(setq e (subst (cons 1 tn)(assoc 1 e) e))(entmod e) (if (= (cdr (assoc 0 e)) "ATTRIB")(entupd (cdr (assoc -1 e)))))
(setq e (subst (cons 1 tx)(assoc 1 e) e))(entmod e)(if (= (cdr (assoc 0 e)) "ATTRIB")(entupd (cdr (assoc -1 e))))) (setq *error* g_er))
(DEFUN C:g-texsiz ( / s1 th tp ct el )(g_sv)(setq s1 (ssget))(if (= s1 nil)(progn (prompt "\nkein Objekt gefunden")(quit)))
(setq g-tsz-1 (g_in g-tsz-1 "\nNeue Textgr”sse (absolut zb. 3.5/relativ zb. X2.0):" "X1.0"))(setq ct -1)(prompt "\nObjekte:")(repeat (sslength S1)
(setq el (entget (ssname S1 (setq ct (1+ ct))))) ( if (= (cdr (assoc 0 el)) "TEXT") (progn (if (= (strcase (substr g-tsz-1 1 1)) "X")
(setq th (* (atof (substr g-tsz-1 2)) (cdr (assoc 40 el)))) (setq th (atof g-tsz-1)) ) (entmod (subst (cons 40 TH)(assoc 40 el) el))) )
(prompt (strcat " " (itoa ct))))(setq *error* () s1 nil)(princ))(prompt ".")(princ)

MENU/DIS-KAB.DWG
BIN
View File
Binary file not shown.
MENU/DJ500C.PCP
+1801
View File
File diff suppressed because it is too large Load Diff
MENU/Datenauszug aus Dokument 'on_start_lsp...'.shs
BIN
View File
Binary file not shown.
MENU/Drawing1_recover001.dwg
BIN
View File
Binary file not shown.
MENU/Drawing2_recover.dwg
BIN
View File
Binary file not shown.
MENU/Dürr.txt
+599
View File
@@ -0,0 +1,599 @@
S0014 9999 F =A01+UH01-K0i -28259 218738 0VORSICHERUNG UNTERVERTEILER +UC03
B0330 9999 Sensor WTB12 SENSOR WTB12 "FR50" =A01+UH01-K330i -50257 229499 -374NAEHRUNG approach l`approximation
B0331 9999 ST9-M8-closed IND. SENSOR BREMSE STRECKE 5 GESCHLOSSEN "FR50" =A01+UH01-K0330i -48462 229499 -383
K0261 9999 open brake BREMSE STRECKE 5 STOPPER GEOEFFNET "FR70" =A01+UH01-K0260o -47840 229769 -383
B0332 9999 ST9-M8-opened IND. SENSOR BREMSE STRECKE 5 GEOEFFNET "FR50" =A01+UH01-K0330i -47840 229499 -383
B0334 9999 Sensor WTB12 SENSOR WTB12 "FR70" =A01+UH01-K330i -50257 230287 -337NAEHRUNG approach l`approximation
B0335 9999 ST9-M8-closed IND. SENSOR BREMSE STRECKE 5 GESCHLOSSEN "FR70" =A01+UH01-K0330i -48462 230287 -346
K0262 9999 open brake BREMSE STRECKE 5 STOPPER GEOEFFNET "FR70" =A01+UH01-K0260o -47840 230557 -346
B0336 9999 ST9-M8-opened IND. SENSOR BREMSE STRECKE 5 GEOEFFNET "FR70" =A01+UH01-K0330i -47840 230287 -346
P1011 9999 8WD-GN-LED SIGNALLEUCHTE GRUEN SCHALTSCHRANK =A01+UC03-K1000o -131760 232210 0SIGNALLEUCHTE GRUEN
P1012 9999 LDT-RD-LED SIGNALLEUCHTE ROT SCHALTSCHRANK =A01+UC03-K1000o -131760 232570 0SIGNALLEUCHTE ROT
P1013 9999 8WD-HUPE ANFAHRWARNUNG SCHALTSCHRANK =A01+UC03-K1000o -131760 232930 0ANFAHRWARNUNG
P0010 9999 8WD-GN-LED SIGNALLEUCHTE GRUEN SCHALTSCHRANK =A01+UH01-K0o -22224 225200 0SIGNALLEUCHTE GRUEN
P0011 9999 LDT-RD-LED SIGNALLEUCHTE ROT SCHALTSCHRANK =A01+UH01-K0o -22224 225560 0SIGNALLEUCHTE ROT
P0012 9999 8WD-HUPE ANFAHRWARNUNG SCHALTSCHRANK =A01+UH01-K0o -22224 225920 0ANFAHRWARNUNG
K0206 9999 switch straight WEICHE GERADE "AG26" =A01+UH01-K0200o -22167 236423 0
K0205 9999 switch branch WEICHE ABZWEIG "AG26" =A01+UH01-K0200o -22167 236694 0
K0391 9999 Stopper close 1 STOPPER GESCHLOSSEN "BU134" =A01+UH01-K0390o -45975 236991 0
K0390 9999 Stopper open 1 STOPPER GEOEFFNET "BU134" =A01+UH01-K0390o -45975 237261 0
S0013 9999 F NETZTEIL 24V OK =A01+UH01-K0i -28259 219098 0NETZTEIL 24V OK failure fuse 24V power supply ok cas dèrreur le fusible HYPERLINK "/franz
S0012 9999 F FEHLER SICHERUNG 24V PROFINET =A01+UH01-K0i -28259 219458 0FEHLER SICHERUNG 24V PROFINET failure fuse 24V profinet cas dèrreur le fusible 24V profinet
P0005 9999 LM-GE-LED FEHLER NOT-HALT =A01+UH01-K0o -27429 221618 0FEHLER NOT-HALT failure emergency cas d`erreur arret d`urgence
P0004 9999 LM-GE-LED STOERUNG ALLGEMEIN+E1 =A01+UH01-K0o -27429 222338 0STOERUNG ALLGEMEIN error le derangement
P0007 9999 LM-GE-LED FEHLER SICHERUNGSAUTOMAT/ MOTORSCHUTZ =A01+UH01-K0o -27429 220178 0FEHLER SICHERUNGSAUTOMAT/ MOTORSCHUTZ failure automatic circuit breaker/motor cas dèrreur coupe-circuit automatique
S0011 9999 F FEHLER SICHERUNG 24V SPS, DI =A01+UH01-K0i -28259 219818 0FEHLER SICHERUNG 24V SPS, DI failure fuse 24V SPS,DI cas dèrreur le fusible 24V CPL, DI
B0007 9999 B-PNEUMATIK DRUCKLUFT IN ORDNUNG =A01+UH01-K1i -28259 221258 0DRUCKLUFT IN ORDNUNG COMPRESSED AIR READY air comprime OK
E0006 9999 F NOT - HALT RELAIS EIN =A01+UH01-K0i -28259 221978 0NOT - HALT RELAIS EIN EMERGENCY STOP RELAIS ACTIVE arret d`urgence relais activer
S0010 9999 F VORSICHERUNGS ANTRIEBE HAT AUSGELOEST =A01+UH01-K0i -28259 220538 0VORSICHERUNGS ANTRIEBE HAT AUSGELOEST
K0003 9999 IF-RELAIS RESET NOT-HALT-RELAIS =A01+UH01-K0o -27429 223058 0RESET NOT-HALT-RELAIS EMERGENCY STOP RELAY le reset de arret d`urgence
P0006 9999 LM-GE-LED FEHLER DRUCKLUFT =A01+UH01-K0o -27429 220898 0FEHLER DRUCKLUFT failure air presure cas d`erreur air comprime
S0004 9999 DT-WS-NO LAMPENTEST SCHALTSCHRANK =A01+UH01-K0i -28259 222698 0LAMPENTEST SCHALTSCHRANK LAMP TEST test des lampes
S0003 9999 PDT-RT-NC NOT HALT SCHALTSCHRANK =A01+UH01-K0i -28259 223598 0NOT HALT SCHALTSCHRANK EMERGENCY STOP arret d`urgence
P0001 9999 LDT-GN-LED ANLAGE EIN =A01+UH01-K0o -27429 224498 0
S0001 9999 LDT-GN-NO LDT-ANLAGE EIN =A01+UH01-K0i -28259 224498 0ANLAGE EIN SYSTEM ON l`unite mettre
S0000 9999 DT-SW-NC LDT-ANLAGE AUS =A01+UH01-K0i -28245 225220 0ANLAGE AUS SYSTEM OFF l`unite declencher
P0002 9999 LDT-KL-LED START NACH STOERUNG =A01+UH01-K0o -27429 224138 0
S0002 9999 LDT-KL-NO LDT-START NACH STOERUNG =A01+UH01-K0i -28259 224138 0START NACH STOERUNG RESTART AFTER TROUBLE le demarrage apres arret d`urgence
B0792 9999 IND. M12 ST. SENSOR WARTUNGSPOSITION =A01+UC03-K0790i -129609 230430 0SENSOR WARTUNGSPOSITION approach l`APPROXIMATION
B0795 9999 limitswitch - M12 SICHERHEITSENDSCHALTER UNTEN =A01+UC03-K0790i -129608 229129 0SICHERHEITSENDSCHALTER limitswitch INTERRUPTEUR DE FIN DE COURSE
B0796 9999 limitswitch - M12 SICHERHEITSENDSCHALTER OBEN =A01+UC03-K0790i -129614 231684 0SICHERHEITSENDSCHALTER limitswitch INTERRUPTEUR DE FIN DE COURSE
B0794 9999 IND. M12 ST. SENSOR UNTEN IN POSITION =A01+UC03-K0790i -129609 229550 0SENSOR UNTEN IN POSITION position la position
B0793 9999 IND. M12 ST. IND. M12 ST. =A01+UC03-K0790i -129609 229996 0SENSOR UNTEN LANGSAMFAHREN approach l`APPROXIMATION
B0790 9999 IND. M12 ST. SENSOR OBEN IN POSITION =A01+UC03-K0790i -129614 231263 0SENSOR OBEN IN POSITION position la position
B0791 9999 IND. M12 ST. SENSOR OBEN LANGSAMFAHREN =A01+UC03-K7090i -129614 230832 0SENSOR OBEN LANGSAMFAHREN approach l`APPROXIMATION
B0784 9999 Stau-Reflex-M12 STAU =A01+UH01-K0780i -44375 235571 104
B0783 9999 Stau-Reflex-M12 STAU =A01+UH01-K0780i -44501 234972 0
B0782 9999 Stau-Reflex-M12 STAU =A01+UH01-K0780i -44813 234213 266
B0781 9999 Stau-Reflex-M12 STAU =A01+UH01-K0780i -45802 233432 69
B0664 9999 Sensor WTB12 SENSOR WTB12 "FR136" =A01+UH01-K660i -43222 234888 -105NAEHRUNG approach l`approximation
B0660 9999 Sensor WTB12 SENSOR WTB12 "FR126" =A01+UH01-K660i -43217 234130 243NAEHRUNG approach l`approximation
B0654 9999 Sensor WTB12 SENSOR WTB12 "FR116" =A01+UH01-K650i -43222 233347 -82NAEHRUNG approach l`approximation
B0650 9999 Sensor WTB12 SENSOR WTB12 "FR106" =A01+UH01-K650i -43222 232547 -77NAEHRUNG approach l`approximation
B0651 9999 ST9-M8-closed IND. SENSOR BREMSE STRECKE 5 GESCHLOSSEN "FR106" =A01+UH01-K0650i -41427 232547 -86
K0400 9999 open brake BREMSE STRECKE 5 STOPPER GEOEFFNET "FR106" =A01+UH01-K0400o -40805 232817 -86
B0652 9999 ST9-M8-opened IND. SENSOR BREMSE STRECKE 5 GEOEFFNET "FR106" =A01+UH01-K0530i -40805 232547 -86
B0655 9999 ST9-M8-closed IND. SENSOR BREMSE STRECKE 4 GESCHLOSSEN "FR116" =A01+UH01-K0650i -41427 233347 -91
K0401 9999 open brake BREMSE STRECKE 4 STOPPER GEOEFFNET "FR116" =A01+UH01-K0400o -40805 233617 -91
B0656 9999 ST9-M8-opened IND. SENSOR BREMSE STRECKE 4 GEOEFFNET "FR116" =A01+UH01-K0650i -40805 233347 -91
B0661 9999 ST9-M8-closed IND. SENSOR BREMSE STRECKE 3 GESCHLOSSEN "FR126" =A01+UH01-K0660i -41425 234143 -45
K0402 9999 open brake BREMSE STRECKE 3 STOPPER GEOEFFNET "FR126" =A01+UH01-K0400o -40802 234413 -45
B0662 9999 ST9-M8-opened IND. SENSOR BREMSE STRECKE 3 GEOEFFNET "FR126" =A01+UH01-K0660i -40802 234143 -45
B0665 9999 ST9-M8-closed IND. SENSOR BREMSE STRECKE 2 GESCHLOSSEN "FR136" =A01+UH01-K0660i -41428 234888 -105
K0403 9999 open brake BREMSE STRECKE 2 STOPPER GEOEFFNET "FR136" =A01+UH01-K0400o -40805 235158 -105
B0666 9999 ST9-M8-opened IND. SENSOR BREMSE STRECKE 2 GEOEFFNET "FR136" =A01+UH01-K0660i -40805 234888 -105
B0670 9999 Sensor WTB12 SENSOR WTB12 "FR146" =A01+UH01-K670i -43221 235488 100NAEHRUNG approach l`approximation
B0671 9999 ST9-M8-closed IND. SENSOR BREMSE STRECKE 1 GESCHLOSSEN "FR146" =A01+UH01-K0670i -41427 235488 -73
K0404 9999 open brake BREMSE STRECKE 1 STOPPER GEOEFFNET "FR146" =A01+UH01-K0400o -40805 235758 -73
B0672 9999 ST9-M8-opened IND. SENSOR BREMSE STRECKE 1 GEOEFFNET "FR136" =A01+UH01-K0670i -40805 235488 -73
B0710 9999 Stau-Reflex-M12 STAU =A01+UH01-K0710i -38281 232631 -208
B0711 9999 Stau-Reflex-M12 STAU =A01+UH01-K0710i -38281 233432 -215
B0714 9999 Stau-Reflex-M12 STAU =A01+UH01-K0710i -37694 235583 -207
B0713 9999 Stau-Reflex-M12 STAU =A01+UH01-K0710i -38012 234972 -208
B0712 9999 Stau-Reflex-M12 STAU =A01+UH01-K0710i -38280 234227 -91
B0631 9999 Stau-Reflex-M12 STAU =A01+UH01-K0630i -53462 231808 103
B0780 9999 Stau-Reflex-M12 STAU =A01+UH01-K0610i -47333 232631 85
B0184 9999 IND-M12-STR WEICHE ABZWEIG "AG20" =A01+UH01-K0180i -23517 236963 0
K0185 9999 switch straight WEICHE GERADE "AG20" =A01+UH01-K0180o -23517 236423 0
K0184 9999 switch branch WEICHE ABZWEIG "AG20" =A01+UH01-K0180o -23517 236693 0
B0185 9999 IND-M12-STR WEICHE GERADE "AG20" =A01+UH01-K0180i -23517 236153 0
B0182 9999 IND-M12-STR WEICHE ABZWEIG "AG19" =A01+UH01-K0180i -22848 236963 0
K0183 9999 switch straight WEICHE GERADE "AG19" =A01+UH01-K0180o -22848 236423 0
K0182 9999 switch branch WEICHE ABZWEIG "AG19" =A01+UH01-K0180o -22848 236693 0
B0183 9999 IND-M12-STR WEICHE ABZWEIG "AG19" =A01+UH01-K0180i -22848 236153 0
B0186 9999 IND-M12-STR WEICHE ABZWEIG "AG21" =A01+UH01-K0180i -24185 236963 0
K0187 9999 switch straight WEICHE GERADE "AG21" =A01+UH01-K0180o -24185 236423 0
K0186 9999 switch branch WEICHE ABZWEIG "AG21" =A01+UH01-K0180o -24185 236693 0
B0187 9999 IND-M12-STR WEICHE GERADE "AG21" =A01+UH01-K0180i -24185 236153 0
B0170 9999 IND-M12-STR WEICHE ABZWEIG "AG14" =A01+UH01-K0170i -24244 229519 0
K0171 9999 switch straight WEICHE GERADE "AG14" =A01+UH01-K0170o -24244 228979 0
K0170 9999 switch branch WEICHE ABZWEIG "AG14" =A01+UH01-K0170o -24244 229249 0
B0171 9999 IND-M12-STR WEICHE GERADE "AG14" =A01+UH01-K0170i -24244 228709 0
B0176 9999 IND-M12-STR WEICHE ABZWEIG "AG17" =A01+UH01-K0170i -22875 229519 0
K0177 9999 switch straight WEICHE GERADE "AG17" =A01+UH01-K0170o -22875 228979 0
K0176 9999 switch branch WEICHE ABZWEIG "AG17" =A01+UH01-K0170o -22875 229249 0
B0177 9999 IND-M12-STR WEICHE GERADE "AG17" =A01+UH01-K0170i -22875 228709 0
B0180 9999 IND-M12-STR WEICHE ABZWEIG "AG18" =A01+UH01-K0180i -23556 229519 0
K0181 9999 switch straight WEICHE GERADE "AG18" =A01+UH01-K0180o -23556 228979 0
K0180 9999 switch branch WEICHE ABZWEIG "AG18" =A01+UH01-K0180o -23556 229249 0
B0181 9999 IND-M12-STR WEICHE GERADE "AG18" =A01+UH01-K0180i -23556 228709 0
B0174 9999 IND-M12-STR WEICHE ABZWEIG "AG16" =A01+UH01-K0170i -22183 229518 0
K0175 9999 switch straight WEICHE GERADE "AG16" =A01+UH01-K0170o -22183 228978 0
K0174 9999 switch branch WEICHE ABZWEIG "AG16" =A01+UH01-K0170o -22183 229248 0
B0175 9999 IND-M12-STR WEICHE ABZWEIG "AG16" =A01+UH01-K0170i -22183 228708 0
B0200 9999 IND-M12-STR WEICHE ABZWEIG "AG26" =A01+UH01-K0200i -22167 236964 0
B0201 9999 IND-M12-STR WEICHE GERADE "AG26" =A01+UH01-K0200i -22167 236154 0
B0192 9999 IND-M12-STR WEICHE ABZWEIG "AG23" =A01+UH01-K0190i -21934 234507 0
K0193 9999 switch straight WEICHE GERADE "AG23" =A01+UH01-K0190o -21934 233967 0
K0192 9999 switch branch WEICHE ABZWEIG "AG23" =A01+UH01-K0190o -21934 234237 0
B0193 9999 IND-M12-STR WEICHE GERADE "AG23" =A01+UH01-K0190i -21934 233697 0
B0166 9999 IND-M12-STR WEICHE ABZWEIG "AG13" =A01+UH01-K0160i -21502 229518 0
K0167 9999 switch straight WEICHE GERADE "AG13" =A01+UH01-K0160o -21502 228978 0
K0166 9999 switch branch WEICHE ABZWEIG "AG13" =A01+UH01-K0160o -21502 229248 0
B0167 9999 IND-M12-STR WEICHE GERADE "AG13" =A01+UH01-K0160i -21502 228708 0
B0164 9999 IND-M12-STR WEICHE ABZWEIG "AG12" =A01+UH01-K0160i -20819 229528 0
K0165 9999 switch straight WEICHE GERADE "AG12" =A01+UH01-K0160o -20819 228988 0
K0164 9999 switch branch WEICHE ABZWEIG "AG12" =A01+UH01-K0160o -20819 229258 0
B0165 9999 IND-M12-STR WEICHE GERADE "AG12" =A01+UH01-K0160i -20819 228718 0
B0162 9999 IND-M12-STR WEICHE ABZWEIG "AG11" =A01+UH01-K0160i -20137 229528 0
K0163 9999 switch straight WEICHE GERADE "AG11" =A01+UH01-K0160o -20137 228988 0
K0162 9999 switch branch WEICHE ABZWEIG "AG11" =A01+UH01-K0160o -20137 229258 0
B0163 9999 IND-M12-STR WEICHE GERADE "AG11" =A01+UH01-K0160i -20137 228718 0
B0196 9999 IND-M12-STR WEICHE ABZWEIG "AG25" =A01+UH01-K0190i -21262 234495 0
K0197 9999 switch straight WEICHE GERADE "AG25" =A01+UH01-K0190o -21262 233955 0
K0196 9999 switch branch WEICHE ABZWEIG "AG25" =A01+UH01-K0190o -21262 234225 0
B0197 9999 IND-M12-STR WEICHE GERADE "AG25" =A01+UH01-K0190i -21262 233685 0
B0194 9999 IND-M12-STR WEICHE ABZWEIG "AG24" =A01+UH01-K0190i -20584 234495 0
K0195 9999 switch straight WEICHE GERADE "AG24" =A01+UH01-K0190o -20584 233955 0
K0194 9999 switch branch WEICHE ABZWEIG "AG24" =A01+UH01-K0190o -20584 234225 0
B0195 9999 IND-M12-STR WEICHE GERADE "AG24" =A01+UH01-K0190i -20584 233685 0
B0160 9999 IND-M12-STR WEICHE ABZWEIG "AG10" =A01+UH01-K0160i -19450 229528 -27
K0161 9999 switch straight WEICHE GERADE "AG10" =A01+UH01-K0160o -19450 228988 -27
K0160 9999 switch branch WEICHE ABZWEIG "AG10" =A01+UH01-K0160o -19450 229258 -27
B0161 9999 IND-M12-STR WEICHE GERADE "AG10" =A01+UH01-K0160i -19450 228718 -27
B0172 9999 IND-M12-STR WEICHE ABZWEIG "AG15" =A01+UH01-K0170i -19918 234495 0
K0173 9999 switch straight WEICHE GERADE "AG15" =A01+UH01-K0170o -19918 233955 0
K0172 9999 switch branch WEICHE ABZWEIG "AG15" =A01+UH01-K0170o -19918 234225 0
B0173 9999 IND-M12-STR WEICHE GERADE "AG15" =A01+UH01-K0160i -19918 233685 0
B0190 9999 IND-M12-STR WEICHE ABZWEIG "AG22" =A01+UH01-K0190i -19252 234495 0
K0191 9999 switch straight WEICHE GERADE "AG22" =A01+UH01-K0190o -19252 233955 0
K0190 9999 switch branch WEICHE ABZWEIG "AG22" =A01+UH01-K0190o -19252 234225 0
B0191 9999 IND-M12-STR WEICHE GERADE "AG22" =A01+UH01-K0190i -19252 233685 0
K0140 9999 Stopper open STOPPER OEFFNEN "BU04"LKW BE/ENTLADE STRECKE D =A01+UH01-K0140o -16611 231086 0
K0143 9999 Stopper close STOPPER SCHLIESSEN "BU05" LKW BE/ENTLADE STRECKE E =A01+UH01-K0140o -15990 230586 0
B0143 9999 Stopper close STOPPER GESCHLOSSEN "BU05" LKW BE-/ENTLADESTRECKE E =A01+UH01-K0140i -14745 230586 0
K0142 9999 Stopper open STOPPER OEFFNEN "BU05" LKW BE/ENTLADE STRECKE E =A01+UH01-K0140o -16612 230586 0
B0142 Stopper open STOPPER GEOEFFNET "BU05" LKW BE-/ENTLADESTRECKE E =A01+UH01-K0140i -15367 230586 0
K0141 9999 Stopper close STOPPER SCHLIESSEN "BU0"LKW BE/ENTLADE STRECKE D =A01+UH01-K0140o -15988 231086 0
B0141 9999 Stopper close STOPPER GESCHLOSSEN "BU04" LKW BE-/ENTLADESTRECKE D =A01+UH01-K0140i -14743 231086 0
B0140 Stopper open STOPPER GEOEFFNET "BU03" LKW BE-/ENTLADESTRECKE D =A01+UH01-K0140i -15366 231086 0
K0135 9999 Stopper close STOPPER SCHLIESSEN "BU03"LKW BE/ENTLADE STRECKE C =A01+UH01-K0130o -15990 231588 0
B0135 9999 Stopper close STOPPER GESCHLOSSEN "BU03" LKW BE-/ENTLADESTRECKE C =A01+UH01-K0130i -14745 231588 0
K0134 9999 Stopper open STOPPER OEFFNEN "BU03"LKW BE/ENTLADE STRECKE C =A01+UH01-K0130o -16612 231588 0
B0134 Stopper open STOPPER GEOEFFNET "BU03" LKW BE-/ENTLADESTRECKE C =A01+UH01-K0130i -15367 231588 0
K0133 9999 Stopper close STOPPER SCHLIESSEN "BU02"LKW BE/ENTLADE STRECKE B =A01+UH01-K0130o -15990 232096 0
B0133 9999 Stopper close STOPPER GESCHLOSSEN "BU02" LKW BE-/ENTLADESTRECKE B =A01+UH01-K0130i -14745 232096 0
K0132 9999 Stopper open STOPPER OEFFNEN "BU02" LKW BE/ENTLADE STRECKE B =A01+UH01-K0130o -16612 232096 0
B0132 Stopper open STOPPER GEOEFFNET "BU02" LKW BE-/ENTLADESTRECKE B =A01+UH01-K0130i -15367 232096 0
K0131 9999 Stopper close STOPPER SCHLIESSEN "BU01" LKW BE-/ENTLADE STRECKE A =A01+UH01-K0130o -15990 232550 0
B0131 9999 Stopper close STOPPER GESCHLOSSEN "BU01" LKW BE-/ENTLADESTRECKE A =A01+UH01-K0130i -14745 232550 0
K0130 9999 Stopper open STOPPER OEFFNEN "BU01" LKW BE-/ENTLADE STRECKE A =A01+UH01-K0130o -16612 232550 0
B0130 Stopper open STOPPER GEOEFFNET "BU01" LKW BE-/ENTLADESTRECKE A =A01+UH01-K0130i -15367 232550 0
A1032 9999 AB AB FEQUENZUMRICHTER =A01+UC03-K1020o -126611 232818 622
A1033 9999 slow ANTREIB LANGSAM (f1/f2) =A01+UC03-K1020o -126611 232548 622
A1031 9999 AUF AUF FREQUENZUMRICHTER =A01+UC03-K1020o -126617 233088 622
A1030 9999 FREIGABE/RESET REGLERFREIGABE FREQUENZUMRICHTER =A01+UC03-K1020o -126611 233358 622
E1030 9999 FEHLER FEHLER FREQUENZUMRICHTER =A01+UC03-K1020i -126611 233628 622
S1013 9999 F FEHLER SICHERUNG 24V Profinet =A01+UC03-K1000i -136782 225507 0FEHLER SICHERUNG 24V Profinet failure fuse 24V profinet cas dèrreur le fusible 24V
S1014 9999 F NETZTEIL 24V OK =A01+UC03-K1000i -136782 225149 0NETZTEIL 24V OK power supply 24V OK alimentation electrique
S1015 9999 F VORSICHERUNG RESERVE HAT AUSGELOEST =A01+UC03-K1000i -136782 224791 0VORSICHERUNG RESERVE HAT AUSGELOEST power failure
S1006 9999 F FEHLER MOTORSCHUTZ MOVIMOT M0100 =A01+UC03-K1000i -136782 227307 0FEHLER MOTORSCHUTZ MOVIMOT M0100 failure motor circuit switch M0120 cas dèrreur
S1012 9999 F FEHLER SICHERUNG 24V DO,HMI,SCANNER =A01+UC03-K1000i -136782 225867 0FEHLER SICHERUNG 24V DO,HMI,SCANNER failure fuse 24V DO,HMI,scanner cas dèrreur le fusible 24V DO,
P1006 9999 LM-GE-LED FEHLER NOT-HALT =A01+UC03-K1000o -135952 228387 0FEHLER NOT-HALT failure emergency cas d`erreur arret d`urgence
P1005 9999 LM-GE-LED STOERUNG ALLGEMEIN+E1 =A01+UC03-K1000o -135952 228747 0STOERUNG ALLGEMEIN error le derangement
P1010 9999 LM-GE-LED FEHLER SICHERUNGSAUTOMAT/ MOTORSCHUTZ =A01+UC03-K1000o -135952 227667 0FEHLER SICHERUNGSAUTOMAT/ MOTORSCHUTZ failure automatic circuit breaker/motor cas dèrreur coupe-circuit automatique
S1011 9999 F FEHLER SICHERUNG 24V SPS, DI =A01+UC03-K1000i -136782 226227 0FEHLER SICHERUNG 24V SPS, DI failure fuse 24V SPS,DI cas dèrreur le fusible 24V CPL, DI
B1007 9999 B-PNEUMATIK DRUCKLUFT IN ORDNUNG =A01+UC03-K1000i -136782 226947 0DRUCKLUFT IN ORDNUNG COMPRESSED AIR READY air comprime OK
S1010 9999 F VORSICHERUNG ANTRIEBE HAT AUSGELOEST =A01+UC03-K1000i -136782 226587 0VORSICHERUNG ANTRIEBE HAT AUSGELOEST
P1007 9999 LM-GE-LED FEHLER DRUCKLUFT =A01+UC03-K1000o -135952 228027 0FEHLER DRUCKLUFT failure air presure cas d`erreur air comprime
S1003 9999 PDT-RT-NC NOT HALT SCHALTSCHRANK +UH02 =A01+UC03-K1000i -136782 229287 0NOT HALT SCHALTSCHRANK EMERGENCY STOP arret d`urgence
P1002 9999 LDT-KL-LED START NACH STOERUNG =A01+UC03-K1000o -135952 229827 0
S1002 9999 LDT-KL-NO LDT-START NACH STOERUNG =A01+UC03-K1000i -136782 229827 0START NACH STOERUNG RESTART AFTER TROUBLE le demarrage apres arret d`urgence
K0281 9999 Stopper close STOPPER GESCHLOSSEN "BU72" =A01+UC03-K0280o -68396 228174 0
B0365 9999 Stopper close STOPPER GESCHLOSSEN "BU72" =A01+UC03-K0360i -68396 227634 0
K0280 9999 Stopper open STOPPER GEOEFFNET "BU72" =A01+UC03-K0280o -68396 228444 0
B0364 stopper open STOPPER GEOEFFNET "BU72" =A01+UC03-K0360i -68396 227904 0
B0210 9999 Reflexion-M12 St. ZAEHLER =A01+UH01-K0210i -25971 228824 2
B0211 9999 Stau-Reflex-M12 STAU-REFLEX-M12 LICHTTASTER =A01+UH01-K0210i -27029 228824 2
B0212 9999 Reflexion-M12 St. ZAEHLER =A01+UH01-K0210i -26686 229625 0
B0213 9999 Stau-Reflex-M12 STAU-REFLEX-M12 LICHTTASTER =A01+UH01-K0210i -27839 229625 0
B0214 9999 Reflexion-M12 St. ZAEHLER =A01+UH01-K0240i -25560 230443 5
B0215 9999 Stau-Reflex-M12 STAU-REFLEX-M12 LICHTTASTER =A01+UH01-K0210i -26713 230443 5
B0216 9999 Reflexion-M12 St. ZAEHLER =A01+UH01-K0210i -25493 231253 -110
B0217 9999 Stau-Reflex-M12 STAU-REFLEX-M12 LICHTTASTER =A01+UH01-K0210i -26647 231253 -110
B0220 9999 Reflexion-M12 St. ZAEHLER =A01+UH01-K0220i -25268 231874 -59
B0221 9999 Stau-Reflex-M12 STAU-REFLEX-M12 LICHTTASTER =A01+UH01-K0210i -26422 231874 -59
B0574 9999 Sensor WTB12 SENSOR WTB12 "FR92" =A01+UC03-K0570i -119269 231202 0NAEHRUNG approach L`APPROXIMATION
B0544 9999 limitswitch M12 ST. TRAVERSENABFRAGE "BU81" =A01+UC03-K0530i -118508 227341 0
K0325 9999 Stopper close STOPPER GESCHLOSSEN "BU81" =A01+UC03-K0320o -118508 228151 0
B0543 9999 Stopper close STOPPER GESCHLOSSEN "BU81" =A01+UC03-K0530i -118508 227611 0
K0324 9999 Stopper open STOPPER GEOEFFNET "BU81" =A01+UC03-K0320o -118508 228421 0
B0542 Stopper open STOPPER GEOEFFNET "BU81" =A01+UC03-K0530i -118508 227881 0
Q1021 9999 MOT 0,55 KW ANTRIEB LINKSLAUF "GM74" =A01+UC03-K1020o -77375 227906 0
M1020 9999 MOT 0,55 KW ANTRIEB RECHTSLAUF "GM74" =A01+UC03-K1020o -77371 228176 0SA57-DRS71-M4BE1/ASB8
F1020 9999 F_MOT_1,62A MOTORSCHUTZ "GM74" =A01+UC03-K1020i -77377 228446 0
Q0025 9999 MOT 0,55 KW ANTRIEB LINKSLAUF "GM51" =A01+UH01-K0o -50673 226756 0
M0024 9999 MOT 1,1 KW ANTRIEB RECHTSLAUF "GM51" =A01+UH01-K0o -50656 227036 0SA57-DRS80-M4BE2/ASB8
F0024 9999 F_MOT_2,5A MOTORSCHUTZ "GM51" =A01+UH01-K0i -50673 227296 0
B0326 9999 IND-M12-STR WEICHE ABZWEIG "AG48" =A01+UH01-K0310i -45865 232262 0
K0255 9999 switch straight WEICHE GERADE "AG48" =A01+UH01-K0250o -45865 231722 0
K0254 9999 switch branch WEICHE ABZWEIG "AG48" =A01+UH01-K0250o -45865 231992 0
B0327 9999 IND-M12-STR WEICHE GERADE "AG48" =A01+UH01-K0310i -45865 231452 0
K0243 9999 Stopper close 2 STOPPER GESCHLOSSEN STRECKE 6 "BU48" =A01+UH01-K0240o -40326 227004 0
B0321 9999 Stopper close 2 STOPPER GESCHLOSSEN STRECKE 6 "BU48" =A01+UH01-K0310i -40307 226467 1
K0242 9999 Stopper open 2 STOPPER GEOEFFNET STRECKE 6 "BU48" =A01+UH01-K0240o -40326 227274 0
B0320 stopper open 2 STOPPER GEOEFNET STRECKE 6 "BU48" =A01+UH01-K0310i -40307 226737 1
B0302 9999 limitswitch M12ST. TRAVERSENABFRAGE STRECKE 8 "BU40" =A01+UH01-K0290i -45491 226196 0
K0231 9999 Stopper close 1 STOPPER GESCHLOSSEN STRECKE 8 "BU40" =A01+UH01-K0230o -45491 227006 0
B0301 9999 Stopper close 1 STOPPER GESCHLOSSEN STRECKE 8 "BU40" =A01+UH01-K0290i -45491 226466 0
K0230 9999 Stopper open 1 STOPPER GEOEFFNET STRECKE 8 "BU40" =A01+UH01-K0230o -45491 227276 0
B0300 stopper open 1 STOPPER GESCHLOSSEN STRECKE 8 "BU40" =A01+UH01-K0290i -45491 226736 0
B0752 9999 Lichttaster M12 St. TRAVERSENABFRAGE STRECKE 5 "BU108" =A01+UH01-K0750i -28173 236153 0
K0441 9999 Stopper close STOPPER GESCHLOSSEN STRECKE 5 "BU108" =A01+UH01-K0440o -28173 236963 0
B0751 9999 Stopper close STOPPER GESCHLOSSEN STRECKE 5 "BU108" =A01+UH01-K0750i -28173 236423 0
K0440 9999 Stopper open STOPPER GEOEFFNET STRECKE 5 "BU108" =A01+UH01-K0440o -28173 237233 0
B0750 stopper open STOPPER GEOEFFNET STRECKE 5 "BU108" =A01+UH01-K0750i -28173 236693 0
B0755 9999 Lichttaster M12 St. TRAVERSENABFRAGE STRECKE 4 "BU118" =A01+UH01-K0750i -27501 236153 0
K0443 9999 Stopper close STOPPER GESCHLOSSEN STRECKE 4 "BU118" =A01+UH01-K0440o -27501 236963 0
B0754 9999 Stopper close STOPPER GESCHLOSSEN STRECKE 4 "BU118" =A01+UH01-K0750i -27501 236423 0
K0442 9999 Stopper open STOPPER GEOEFFNET STRECKE 4 "BU118" =A01+UH01-K0440o -27501 237233 0
B0753 stopper open STOPPER GEOEFFNET STRECKE 4 "BU118" =A01+UH01-K0750i -27501 236693 0
B0772 9999 Lichttaster M12 St. TRAVERSENABFRAGE STRECKE2 "BU138" =A01+UH01-K0760i -26016 236153 0
K0447 9999 Stopper close STOPPER GESCHLOSSEN STRECKE 2 "BU145" =A01+UH01-K0440o -26016 236963 0
B0771 9999 Stopper close STOPPER GESCHLOSSEN STRECKE2 "BU138" =A01+UH01-K0760i -26016 236423 0
K0446 9999 Stopper open STOPPER GEOEFFNET STRECKE 2 "BU145" =A01+UH01-K0440o -26016 237233 0
B0770 stopper open STOPPER GEOEFFNET STRECKE2 "BU138" =A01+UH01-K0760i -26016 236693 0
B0776 9999 Lichttaster M12 St. TRAVERSENABFRAGE STRECKE1 "BU148" =A01+UH01-K0770i -25343 236152 0
K0451 9999 Stopper close STOPPER GESCHLOSSEN STRECKE 1 "BU148" =A01+UH01-K0450o -25343 236962 0
B0775 9999 Stopper close STOPPER GESCHLOSSEN STRECKE1 "BU148" =A01+UH01-K0760i -25343 236422 0
K0450 9999 Stopper open STOPPER GEOEFFNET STRECKE 1 "BU148" =A01+UH01-K0450o -25343 237232 0
B0774 stopper open STOPPER OFFEN STRECKE1 "BU148" =A01+UH01-K0770i -25343 236692 0
B0766 9999 Lichttaster M12 St. TRAVERSENABFRAGE STRECKE 3 "BU128" =A01+UH01-K0760i -26833 236153 0
K0445 9999 Stopper close STOPPER GESCHLOSSEN STRECKE 3 "BU128" =A01+UH01-K0440o -26833 236963 0
B0761 9999 Stopper close STOPPER GESCHLOSSEN STRECKE 3 "BU128" =A01+UH01-K0760i -26833 236423 0
K0444 9999 Stopper open STOPPER GEOEFFNET STRECKE 3 "BU128" =A01+UH01-K0440o -26833 237233 0
B0760 stopper open STOPPER GEOEFFNET STRECKE 3 "BU128" =A01+UH01-K0760i -26833 236693 0
P0080 9999 LM-GE-LED STOERUNG ALLGEMEIN + P0080 =A01+UC02-K0080 -8516 238216 0STOERUNG ALLGEMEIN ERROR general l`erreur
P0095 9999 LDT-KL-LED START NACH STOERUNG P0087 =A01+UC02-K0080 -8519 235336 0
S0094 9999 LDT-KL-NO LDT-START NACH STOERUNG - S0087 =A01+UC02-K0080 -9349 235336 0START NACH STOERUNG RESTART AFTER TROUBLE ARRANQUE DESPUÉS DE AVERÍA depart au bout de lèrreur
S0093 9999 PDT-RT-NC NOT HALT SCHALTSCHRANK =A01+UC02-K0080 -9346 235876 0NOT HALT SCHALTSCHRANK EMERGENCY STOP arret d`urgence
K0341 9999 close brake BREMSE GESCHLOSSEN "FR92" =A01+UC03-K0340o -117346 231506 0 brake close
B0801 9999 REFLEX. M12 ST. REFLEX. M12 ST. =A01+UC03-K800i -128156 229614 0SCHNITTSTELLENUEBERWACHUNG cuttingline control LE CONTROLLE ARETE DE COUPE
B0800 9999 REFLEX. M12 ST. REFLEX. M12 ST. =A01+UC03-K800i -128156 230868 0SCHNITTSTELLENUEBERWACHUNG cuttingline control LE CONTROLLE ARETE DE COUPE
P0290 9999 LDT-CL-LED START NACH NOT-HALT +P0290 =A01+UC03-K0290o -81265 225245 0
S0480 9999 LDT-CL-NO START NACH NOT-HALT +P0480 =A01+UC03-K0480i -82095 225227 0START NACH NOT-HALT RESTART AFTER EMERGENCY STOP le demarrage apres arret d`urgence
S0481 9999 NOT - HALT NOT-HALT - S0481 =A01+UC03-K0480i -82095 224685 0NOT-HALT EMERGENCY STOP arret d`urgence
P0270 9999 LDT-CL-LED START NACH NOT-HALT +P0260 =A01+UC03-K0270o -65929 225283 0
S0350 9999 LDT-CL-NO START NACH NOT-HALT +P0350 =A01+UC03-K0350i -66759 225266 0START NACH NOT-HALT RESTART AFTER EMERGENCY STOP le demarrage apres arret d`urgence
S0351 9999 NOT HALT NOT HALT =A01+UC03-K0350i -66759 224723 0NOT - HALT EMERGENCY STOP arret d`urgence
P0260 9999 LDT-CL-LED START NACH NOT-HALT +P0260 =A01+UH01-K0260o -50871 225267 0
S0340 9999 LDT-CL-NO START NACH NOT- HALT +P0340 =A01+UH01-K0340i -51701 225249 0START NACH NOT- HALT RESTART AFTER EMERGENCY STOP le demarrage apres arret d`urgence
S0341 9999 NOT - HALT NOT - HALT - S0341 =A01+UH01-K0340i -51701 224707 0NOT- HALT EMERGENCY STOP arret d`urgence
P0340 9999 LDT-CL-LED START NACH NOT - HALT +P0446 =A01+UC03-K0340o -122492 234745 0
S0570 9999 LDT-CL-NO START NACH NOT - HALT +P0570 =A01+UC03-K0560i -123322 234728 0START NACH NOT- HALT RESTART AFTER EMERGENCY STOP LE DEMARRAGE APRES ARRET D`URGENCE
S0571 9999 NOT HALT NOT HALT - S0571 =A01+UC03-K0560i -123322 234186 0NOT - HALT EMERGENCY STOP ARRET D` URGENCE
S0100 9999 LDT-BL-NO Entladen +S0100 =A01+UC02-K0100 -9349 234616 0ENTLADEN UNLOAD debarquer
S0096 9999 LDT-BL-NO BELADEN +S0090 =A01+UC02-K0080 -9349 234976 0BEDADEN LOAD embarquer
S0101 9999 LDT-KL-NO End of operation +S0092 =A01+UC02-K0100 -9349 234256 0FERTIG END OF OPERATION fini
S0091 9999 LDT-GN-NO TRACK LINE E +S0085 =A01+UC02-K0080 -9346 236416 0TRACK LINE E TRACK LINE E Voie E
S0085 9999 LDT-GN-NO TRACK LINE C +S0083 =A01+UC02-K0080 -9346 237136 0TRACK LINE C TRACK LINE C Voie C
S0087 9999 LDT-GN-NO TRACK LINE B +S0082 =A01+UC02-K0080 -9346 236776 0TRACK LINE D TRACK LINE D Voie D
S0081 9999 LDT-GN-NO TRACK LINE A +S0081 =A01+UC02-K0080 -9346 237856 0TRACK LINE A TRACK LINE A Voie A
S0083 9999 LDT-GN-NO TRACK LINE B +S0082 =A01+UC02-K0080 -9346 237496 0TRACK LINE B TRACK LINE B Voie B
P0102 9999 LDT-KL-LED START NACH STOERUNG P0092 =A01+UC02-K0100 -8519 234256 0
P0101 9999 LDT-BL-LED START NACH STOERUNG P0091 =A01+UC02-K0100 -8519 234616 0
P0097 9999 LDT-BL-LED START NACH STOERUNG P0090 =A01+UC02-K0080 -8519 234976 0
P0092 9999 LDT-KL-LED TRACK LINE E +P0085 =A01+UC02-K0080 -8516 236416 0
P0086 9999 LDT-GN-LED TRACK LINE C +P0083 =A01+UC02-K0080 -8516 237136 0
P0090 9999 LDT-KL-LED TRACK LINE D +P0084 =A01+UC02-K0080 -8516 236776 0
P0082 9999 LDT-GN-LED TRACK LINE A +P0081 =A01+UC02-K0080 -8516 237856 0
P0084 9999 LDT-KL-LED TRACK LINE B +P0082 =A01+UC02-K0080 -8516 237496 0
Q1035 9999 MOT 0,55 KW ANTRIEB LINKSLAUF "GM91" =A01+UC03-K1020o -125325 232599 -262
M1034 9999 MOT 0,55 KW ANTRIEB RECHTSLAUF "GM91" =A01+UC03-K1020o -125319 232869 -262SA57-DRS71-M4/ASB1
F1034 9999 F_MOT_1,62A MOTORSCHUTZ "GM91" =A01+UC03-K1020i -125325 233139 -262
Q1027 9999 MOT 0,55 KW ANTRIEB LINKSLAUF- Q1027 =A01+UC03-K1020o -128921 227613 0
M1026 9999 MOT 0,55 KW ANTRIEB RECHTSLAUF- M1026 =A01+UC03-K1020o -128915 227883 0SA57-DRS71-M4/ASB1
F1026 9999 F_MOT_1,62A MOTORSCHUTZ - F1026 =A01+UC03-K1020i -128921 228153 0
B0526 9999 Sensor WTB12 SENSOR WTB12 "FR59" =A01+UC03-K520i -110980 229487 154NAEHRUNG approach L`APPROXIMATION
B0532 9999 Sensor WTB12 SENSOR WTB12 "FR79" =A01+UC03-K520i -110980 230287 0NAEHRUNG approach L`APPROXIMATION
B0580 9999 Sensor WTB12 SENSOR WTB12 "FR93" =A01+UC03-K580i -112155 231202 0NAEHRUNG approach L`APPROXIMATION
B0590 9999 Sensor WTB12 SENSOR WTB12 "FR95" =A01+UC03-K590i -97691 231202 0NAEHRUNG approach L´APPROXIMATION
B0512 9999 Sensor WTB12 SENSOR WTB12 "FR77" =A01+UC03-K510i -97895 230287 0NAEHRUNG approach L´APPROXIMATION
B0506 9999 Sensor WTB12 SENSOR WTB12 "FR57" =A01+UC03-K500i -97895 229487 86NAEHRUNG approach L´APPROXIMATION
B0584 9999 Sensor WTB12 SENSOR WTB12 "FR94" =A01+UC03-K580i -105015 231202 0NAEHRUNG approach L´APPROXIMATION
B0522 9999 Sensor WTB12 SENSOR WTB12 "FR78" =A01+UC03-K510i -104482 230287 0NAEHRUNG approach L´APPROXIMATION
B0516 9999 Sensor WTB12 SENSOR WTB12 "FR58" =A01+UC03-K510i -104482 229487 120NAEHRUNG approach L´APPROXIMATION
B0496 9999 Sensor WTB12 SENSOR WTB12 "FR56" =A01+UC03-K490i -90893 229602 0NAEHRUNG approach L´APPROXIMATION
B0502 9999 Sensor WTB12 SENSOR WTB12 "FR76" =A01+UC03-K500i -90894 230287 0NAEHRUNG approach L´APPROXIMATION
B0492 9999 Sensor WTB12 SENSOR WTB12 "FR75" =A01+UC03-K490i -84042 230287 0NAEHRUNG APPROACH L´APPROXIMATION
B0484 9999 Sensor WTB12 SENSOR WTB12 "FR55" =A01+UC03-K0480i -84042 229487 16NAEHRUNG APPROACH L´APPROXIMATION
B0276 9999 Sensor WTB12 SENSOR WTB12 "FR47" =A01+UH01-K260i -35440 231707 -305NAEHRUNG approach l`approximation
B0272 9999 Sensor WTB12 SENSOR WTB12 "FR42" =A01+UH01-K260i -35440 231087 -305NAEHRUNG approach l`approximation
B0266 9999 Sensor WTB12 SENSOR WTB12 "FR38" =A01+UH01-K260i -35440 230282 -305NAEHRUNG approach l`approximation
B0256 9999 Sensor WTB12 SENSOR WTB12 "FR28" =A01+UH01-K250i -35441 228686 -242NAEHRUNG approach l`approximation
B0262 9999 Sensor WTB12 SENSOR WTB12 "FR32" =A01+UH01-K250i -35440 229487 -305NAEHRUNG approach l`approximation
B0740 9999 Sensor WTB12 SENSOR WTB12 "FR148" =A01+UH01-K0740i -32690 235491 -133NAEHRUNG approach l`approximation
B0734 9999 Sensor WTB12 SENSOR WTB12 "FR138" =A01+UH01-K730i -32690 234888 0NAEHRUNG approach l`approximation
B0730 9999 Sensor WTB12 SENSOR WTB12 "FR128" =A01+UH01-K720i -32688 234140 93NAEHRUNG approach l`approximation
B0724 9999 Sensor WTB12 SENSOR WTB12 "FR118" =A01+UH01-K720i -32690 233347 22NAEHRUNG approach l`approximation
B0720 9999 Sensor WTB12 SENSOR WTB12 "FR108" =A01+UH01-K720i -32690 232547 27NAEHRUNG approach l`approximation
B0252 9999 Sensor WTB12 SENSOR WTB12 "FR46" =A01+UH01-K240i -29355 231707 -167NAEHRUNG approach l`approximation
B0246 9999 SENSOR WTB12 SENSOR WTB12 "FR41" =A01+UH01-K240i -29358 231087 -51NAEHRUNG approach l`approximation
B0242 9999 Sensor WTB12 NAEHRUNGSSENSOR "FR37" =A01+UH01-K240i -29358 230279 -60NAEHRUNG approach l`approximation
B0232 9999 Sensor WTB12 SENSOR WTB12 "FR27" =A01+UH01-K230i -29356 228686 -91NAEHRUNG approach l`approximation
B0236 9999 Sensor WTB12 SENSOR WTB12 "FR31" =A01+UH01-K230i -29358 229487 0NAEHRUNG approach l`approximation
B0566 9999 request traverse M12TRAVERSENABFRAGE "BU66" =A01+UC03-K0550i -125914 227073 0 light switch M12
K0337 9999 Stopper close STOPPER GESCHLOSSEN "FR66" =A01+UC03-K0330o -125914 227883 0 Stopper close
B0565 9999 Stopper close STOPPER GESCHLOSSEN "BU66" =A01+UC03-K0550i -125914 227343 0 Stopper close
K0336 9999 Stopper open STOPPER GEOEFFNET "FR66" =A01+UC03-K0330o -125914 228153 0 Stopper open
B0564 Stopper open STOPPER GEOEFFNET "BU66" =A01+UC03-K0550i -125914 227613 0 Stopper open
B0575 9999 ST9-M8-open IND. SENSOR BREMSE 1 STRECKE OUT GESCHLOSSEN - K0643 =A01+UC03-K0570i -117346 231236 0 ST9-M8-open brake
K0342 9999 open brake BREMSE GEOEFFNET "FR92" =A01+UC03-K0340o -116724 231506 0 brake open
B0576 9999 ST9-M8-open IND. SENSOR BREMSE GEOEFFNET "FR92" =A01+UC03-K0570i -116721 231236 0 ST9 - M8 - open
K0345 9999 close brake BREMSE GESCHLOSSEN =A01+UC03-K0340o -103126 231506 0 close brake
B0585 9999 ST9-M8-close IND. SENSOR GESCHLOSSEN "FR94" =A01+UC03-K0580i -103126 231236 0 close brake
K0346 9999 open brake BREMSE GEOEFFNET =A01+UC03-K0340o -102504 231506 0 open brake
B0586 9999 ST9-M8-open IND. SENSOR GEOEFFNET "FR94" =A01+UC03-K0580i -102504 231236 0 open brake
B0524 9999 ST9-M8-close IND. SENSOR GESCHLOSSEN "FR59" =A01+UC03-K0520i -113497 229526 0 ST9-M8-close
K0312 9999 open brake BREMSE GEOEFFNET "FR59" =A01+UC03-K0310o -112875 229796 0 open brake
B0525 9999 ST9-M8-open IND. SENSOR GEOEFFNET "FR59" =A01+UC03-K0520i -112875 229526 0 ST9-M8-OPEN
B0530 9999 ST9-M8-close IND. SENSOR GESCHLOSSEN "FR79" =A01+UC03-K0520i -113497 230335 0 ST9-M8-close
K0313 9999 open brake BREMSE GEOEFFNET "FR79" =A01+UC03-K0310o -112875 230605 0 open brake
B0531 9999 ST9-M8-open IND. SENSOR GEOEFFNET "FR79" =A01+UC03-K0520i -112875 230335 0 ST9-M8-open
B0514 9999 ST9-M8-close IND. SENSOR GESCHLOSSEN "FR58" =A01+UC03-K0510i -107020 229538 0 ST9-M8-close
K0310 9999 open brake BREMSE GEOEFFNET "FR58" =A01+UC03-K0310o -106397 229808 0 open brake
B0515 9999 ST9-M8-open IND. SENSOR GEOEFFNET "FR58" =A01+UC03-K0510i -106397 229538 0 ST9-M8-open
B0520 9999 ST9-M8-close IND. SENSOR GESCHLOSSEN "FR78" =A01+UC03-K0510i -107020 230331 0 ST9-M8-close
K0311 9999 open brake BREMSE GEOEFFNET "FR78" =A01+UC03-K0310o -106397 230601 0 open brake
B0521 9999 ST9-M8-open IND. SENSOR GEOEFFNET "FR78" =A01+UC03-K0620i -106397 230331 0 ST9-M8-open
B0504 9999 ST9-M8-close IND. SENSOR BREMSE 3 GESCHLOSSEN "FR57" =A01+UC03-K0500i -100383 229521 0 ST9-M8-close
K0305 9999 open brake BREMSE GEOEFFNET "FR57" =A01+UC03-K0300o -99760 229791 0 open brake
B0505 9999 ST9-M8-open IND. SENSOR BREMSE 3 GEOEFFNET "FR57" =A01+UC03-K0500i -99760 229521 0 ST9-M8-open
B0510 9999 ST9-M8-close IND. SENSOR BREMSE 3 GESCHLOSSEN "FR77" =A01+UC03-K0500i -100383 230323 0 ST9-M8-close
K0306 9999 open brake BREMSE GEOEFFNET "FR77" =A01+UC03-K0300o -99760 230593 0 open brake
B0511 9999 ST9-M8-open IND. SENSOR BREMSE GEOEFFNET "FR77" =A01+UC03-K0500i -99760 230323 0 ST9-M8-open
B0494 9999 ST9-M8-close IND. SENSOR BREMSE STRECKE 2 GESCHLOSSEN "FR56" =A01+UC03-K0490i -93478 229521 0 ST9-M8-close
K0303 9999 open brake BREMSE GEOEFFNET "FR56" =A01+UC03-K0300o -92856 229791 0 open brake
B0495 9999 ST9-M8-open IND. SENSOR BREMSE 2 GEOEFFNET "FR56" =A01+UC03-K0490i -92856 229521 0 ST9-M8-open
B0500 9999 ST9-M8-close IND. SENSOR BREMSE 2 GESCHLOSSEN "FR76" =A01+UC03-K0500i -93476 230328 0 ST9-M8-close
K0304 9999 open brake BREMSE GEOEFFNET "FR76" =A01+UC03-K0300o -92853 230603 0 open brake
B0501 9999 ST9-M8-open IND. SENSOR BREMSE STRECKE 2 GEOEFFNET "FR76" =A01+UC03-K0500i -92853 230333 0
B0482 9999 ST9-M8-close IND. SENSOR BREMSE 1 GESCHLOSSEN "FR55" =A01+UC03-K0480i -86568 229531 0 close brake
K0301 9999 open brake BREMSE 1 GEOEFFNET "FR55" =A01+UC03-K0500o -85945 229801 0 open brake
B0483 9999 ST9-M8-open IND. SENSOR BREMSE 1 GEOEFFNET "FR55" =A01+UC03-K0480i -85945 229531 0 open brake
B0490 9999 ST9-M8-close IND. SENSOR BREMSE 1 GESCHLOSSEN "FR75" =A01+UC03-K0490i -86568 230329 0 ST9-M8-close
K0302 9999 open brake BREMSE 1 GEOEFFNET "FR75" =A01+UC03-K0300o -85946 230604 0 open brake
B0491 9999 ST9-M8-open IND. SENSOR BREMSE 1 GEOEFFNET "FR75" =A01+UC03-K0490i -85946 230334 0 ST9-M8-open
B0230 9999 ST9-M8-closed IND. SENSOR BREMSE 1 STRECKE 10 GESCHLOSSEN "FR27" =A01+UH01-K0230i -32043 228686 -153
K0200 9999 open brake BREMSE 1 STRECKE 10 STOPPER GEOEFFNET "FR27" =A01+UH01-K0200o -31420 228956 -153
B0231 9999 ST9-M8-opened IND. SENSOR BREMSE 1 STRECKE 10 GEOEFFNET "FR27" =A01+UH01-K0230i -31420 228686 -153
B0234 9999 ST9-M8-closed IND. SENSOR BREMSE 1 STRECKE 9 GESCHLOSSEN "FR31" =A01+UH01-K0230i -32034 229487 0
K0201 9999 open brake BREMSE 1 STRECKE 9 STOPPER GEOEFFNET "FR31" =A01+UH01-K0200o -31412 229765 0
B0235 9999 ST9-M8-opened IND. SENSOR BREMSE 1 STRECKE 9 GEOEFFNET "FR31" =A01+UH01-K0230i -31412 229487 0
B0240 9999 ST9-M8-closed IND. SENSOR BREMSE 1 STRECKE 8 GESCHLOSSEN "FR37" =A01+UH01-K0230i -32039 230280 -86
K0202 9999 open brake BREMSE 1 STRECKE 8 STOPPER GEOEFFNET "FR37" =A01+UH01-K0200o -31417 230550 -86
B0241 9999 ST9-M8-opened IND. SENSOR BREMSE 1 STRECKE 8 GEOEFFNET "FR37" =A01+UH01-K0230i -31417 230280 -86
B0244 9999 ST9-M8-closed IND. SENSOR BREMSE 1 STRECKE 7 GESCHLOSSEN "FR41" =A01+UH01-K0240i -32039 231089 -80
K0203 9999 open brake BREMSE 1 STRECKE 7 STOPPER GEOEFFNET "FR41" =A01+UH01-K0200o -31417 231357 -78
B0245 9999 ST9-M8-opened IND. SENSOR BREMSE 1 STRECKE 7 GEOEFFNET "FR41" =A01+UH01-K0240i -31417 231087 -78
B0250 9999 ST9-M8-closed IND. SENSOR BREMSE 1 STRECKE 6 GESCHLOSSEN "FR46" =A01+UH01-K0240i -32040 231707 -223
K0204 9999 open brake BREMSE 1 STRECKE 6 STOPPER GEOEFFNET "FR46" =A01+UH01-K0200o -31418 231977 -223
B0251 9999 ST9-M8-opened IND. SENSOR BREMSE 1 STRECKE 6 GEOEFFNET "FR46" =A01+UH01-K0240i -31418 231707 -223
B0254 9999 ST9-M8-closed IND. SENSOR BREMSE 2 STRECKE 10 GESCHLOSSEN "FR28" =A01+UH01-K0250i -38039 228686 -293
K0210 9999 open brake BREMSE 2 STRECKE 10 STOPPER GEOEFFNET "FR28" =A01+UH01-K0210o -37417 228956 -293
B0255 9999 ST9-M8-opened IND. SENSOR BREMSE 2 STRECKE 10 GEOEFFNET "FR28" =A01+UH01-K0250i -37417 228686 -293
B0260 9999 ST9-M8-closed IND. SENSOR BREMSE 2 STRECKE 9 GESCHLOSSEN "FR32" =A01+UH01-K0250i -38034 229487 0
K0211 9999 open brake BREMSE 2 STRECKE 9 STOPPER GEOEFFNET "FR32" =A01+UH01-K0210o -37412 229757 0
B0261 9999 ST9-M8-opened IND. SENSOR BREMSE 2 STRECKE 9 GEOEFFNET "FR32" =A01+UH01-K0250i -37412 229487 0
B0264 9999 ST9-M8-closed IND. SENSOR BREMSE 2 STRECKE 8 GESCHLOSSEN "FR38" =A01+UH01-K0250i -38038 230283 -157
K0212 9999 open brake BREMSE 2 STRECKE 8 STOPPER GEOEFFNET "FR38" =A01+UH01-K0210o -37416 230553 -157
B0265 9999 ST9-M8-opened IND. SENSOR BREMSE 2 STRECKE 8 GEOEFFNET "FR38" =A01+UH01-K0250i -37416 230283 -157
B0270 9999 ST9-M8-closed IND. SENSOR BREMSE 2 STRECKE 7 GESCHLOSSEN "FR42" =A01+UH01-K0260i -38024 231091 -150
K0213 9999 open brake BREMSE 2 STRECKE 7 STOPPER GEOEFFNET "FR42" =A01+UH01-K0210o -37408 231357 -150
B0271 9999 ST9-M8-opened IND. SENSOR BREMSE 2 STRECKE 7 GEOEFFNET "FR42" =A01+UH01-K0260i -37408 231087 -150
B0274 9999 ST9-M8-closed IND. SENSOR BREMSE 2 STRECKE 6 GESCHLOSSEN "FR47" =A01+UH01-K0260i -38037 231707 -358
K0214 9999 open brake BREMSE 2 STRECKE 6 STOPPER GEOEFFNET "FR47" =A01+UH01-K0210o -37415 231977 -358
B0275 9999 ST9-M8-opened IND. SENSOR BREMSE 2 STRECKE 6 GEOEFFNET "FR47" =A01+UH01-K0260i -37415 231707 -358
K0343 9999 close brake BEMSE GESCHLOSSEN "FR93" =A01+UC03-K0340o -110253 231505 0 close brake
B0581 9999 ST9-M8-close IND SENSOR BREMSE GESCHLOSSEN "FR93" =A01+UC03-K0630i -110253 231235 0 ST9-M8-close brake
K0344 9999 open brake BREMSE GEOEFFNET "FR93" =A01+UC03-K0320o -109630 231505 0 open brake
B0582 9999 ST9-M8-open IND. SENSOR GEOEFFNET "FR93" =A01+UC03-K580i -109630 231235 0 ST9-M8-open
K0350 9999 close brake BREMSE GESCHLOSSEN "FR95" =A01+UC03-K0350o -95736 231507 0 close brake
B0591 9999 ST9-M8-open IND. SENSOR BREMSE 4 STRECKE GESCHLOSSEN "FR95" =A01+UC03-K0590i -95736 231237 0 ST9-M8-open
K0351 9999 open brake BREMSE GEOEFFNET "FR95" =A01+UC03-K0350o -95113 231507 0 open brake
B0592 9999 ST9-M8-open IND. SENSOR BREMSE 4 STRECKE GEOEFFNET "FR95" =A01+UC03-K0590i -95113 231237 0 open brake
B0552 9999 SCANNER POSITION =A01+UC03-K540i -121509 228421 0POSITION position LA POSITION
B0573 9999 SCANNER VERLASSEN =A01+UC03-K560i -123510 228421 0VERLASSEN LEAF ABANDONNER
B0556 9999 unload TROLLEY LADEZUSTAND =A01+UC03-K0540i -122815 227881 0
K0333 9999 ARRETIERUNG AUF ARRETIERUNG AUF =A01+UC03-K03370o -122134 228151 0
B0555 9999 ARRET. GESCHL. ARRETIERUNG GESCHLOSSEN =A01+UC03-K0540i -122815 228151 0
K0332 9999 ARRETIERUNG AUF ARRETIERUNG AUF =A01+UC03-K03300o -122134 228421 0
B0554 ARRET. AUF ARRETIERUNG AUF =A01+UC03-K0540i -122815 228421 0
B0550 9999 IND-M12-STR WEICHE ABZWEIG "FR62" =A01+UC03-K0540i -120121 228421 0
K0331 9999 switch straight WEICHE GERADE "FR62" =A01+UC03-K0330o -120121 227881 0
K0330 9999 switch branch WEICHE ABZWEIG "FR62" =A01+UC03-K0330o -120121 228151 0
B0551 9999 IND-M12-STR WEICHE GERADE "FR62" =A01+UC03-K0540i -120121 227611 0
B0721 9999 ST9-M8-closed IND. SENSOR BREMSE STRECKE 5 GESCHLOSSEN "FR108" =A01+UH01-K0720i -30745 232547 19
K0430 9999 open brake BREMSE STRECKE 5 STOPPER GEOEFFNET "FR108" =A01+UH01-K0430o -30122 232817 19
B0722 9999 ST9-M8-opened IND. SENSOR BREMSE STRECKE 5 GEOEFFNET "FR108" =A01+UH01-K0720i -30122 232547 19
B0725 9999 ST9-M8-closed IND. SENSOR BREMSE STRECKE 4 GESCHLOSSEN "FR118" =A01+UH01-K0720i -30745 233347 14
K0431 9999 open brake BREMSE STRECKE 4 STOPPER GEOEFFNET "FR118" =A01+UH01-K0430o -30122 233617 14
B0726 9999 ST9-M8-opened IND. SENSOR BREMSE STRECKE 4 GEOEFFNET "FR118" =A01+UH01-K0720i -30122 233347 14
B0731 9999 ST9-M8-closed IND. SENSOR BREMSE STRECKE 3 GESCHLOSSEN "FR128" =A01+UH01-K0720i -30742 234143 60
K0432 9999 open brake BREMSE STRECKE 3 STOPPER GEOEFFNET "FR128" =A01+UH01-K0430o -30120 234413 60
B0732 9999 ST9-M8-opened IND. SENSOR BREMSE STRECKE 3 GEOEFFNET "FR128" =A01+UH01-K0730i -30120 234143 60
B0735 9999 ST9-M8-closed IND. SENSOR BREMSE STRECKE 2 GESCHLOSSEN "FR138" =A01+UH01-K0730i -30745 234888 0
K0433 9999 open brake BREMSE STRECKE 2 STOPPER GEOEFFNET "FR138" =A01+UH01-K0430o -30123 235158 0
B0736 9999 ST9-M8-opened IND. SENSOR BREMSE STRECKE 2 GEOEFFNET "FR138" =A01+UH01-K0730i -30123 234888 0
B0630 9999 GRL18S-, M12 ENTSCHEIDUNG VORNE / HINTEN "FR94" =A01+UH01-K630i -55294 231608 0ABFRAGE FRONT / REAR interrogation lìnterrogation
B0741 9999 ST9-M8-closed IND. SENSOR BREMSE STRECKE 1 GESCHLOSSEN "FR148" =A01+UH01-K0730i -30744 235488 32
K0434 9999 open brake BREMSE STRECKE 1 STOPPER GEOEFFNET "FR148" =A01+UH01-K0430o -30122 235758 32
B0742 9999 ST9-M8-opened IND. SENSOR BREMSE STRECKE 1 GEOEFFNET "FR148" =A01+UH01-K0730i -30122 235488 32
B0324 9999 IND-M12-STR WEICHE ABZWEIG AG36 =A01+UH01-K0310i -48424 227276 0
K0253 9999 switch straight WEICHE GERADE AG36 =A01+UH01-K0250o -48424 226736 0
K0252 9999 switch branch WEICHE ABZWEIG AG36 =A01+UH01-K0250o -48424 227006 0
B0325 9999 IND-M12-STR WEICHE GERADE AG36 =A01+UH01-K0300i -48424 226466 0
B0322 9999 IND-M12-STR WEICHE ABZWEIG "AG35" =A01+UH01-K0310i -47738 227276 0
K0251 9999 switch straight WEICHE GERADE "AG35" =A01+UH01-K0250o -47738 226736 0
K0250 9999 switch branch WEICHE ABZWEIG "AG35" =A01+UH01-K0250o -47738 227006 0
B0323 9999 IND-M12-STR WEICHE GERADE "AG35" =A01+UH01-K0310i -47738 226466 0
B0626 9999 IND-M12-STR WEICHE ABZWEIG "BU104" =A01+UH01-K0620i -54232 233343 0
K0375 9999 switch straight WEICHE GERADE "BU104" =A01+UH01-K0370o -54232 232803 0
K0374 9999 switch branch WEICHE ABZWEIG "BU104" =A01+UH01-K0370o -54232 233073 0
B0627 9999 IND-M12-STR WEICHE GERADE "BU104" =A01+UH01-K0620i -54232 232533 0
B0632 9999 IND-M12-STR SWITCH BRANCH "FR105" =A01+UH01-K0630i -49472 234843 -40
K0381 9999 switch straight WEICHE GERADE "BU105" =A01+UH01-K0380o -49472 234303 -40
K0380 9999 switch branch WEICHE ABZWEIG "BU105" =A01+UH01-K0380o -49472 234573 -40
B0633 9999 IND-M12-STR WEICHE GERADE "FR105" =A01+UH01-K0630i -49472 234033 -40
B0634 9999 IND-M12-STR WEICHE ABZWEIG "FR115" =A01+UH01-K0630i -47653 235575 -20
K0383 9999 switch straight WEICHE GERADE "BU115" =A01+UH01-K0380o -47653 235035 -20
K0382 9999 switch branch WEICHE ABZWEIG "BU115" =A01+UH01-K0380o -47653 235305 -20
B0635 9999 IND-M12-STR WEICHE GERADE "FR115" =A01+UH01-K0630i -47653 234765 -20
B0636 9999 IND-M12-STR WEICHE ABZWEIG "FR136" =A01+UH01-K0630i -45302 236991 0
K0385 9999 switch straight WEICHE GERADE "BU138" =A01+UH01-K0380o -45302 236451 0
K0384 9999 switch branch WEICHE ABZWEIG "BU138" =A01+UH01-K0380o -45302 236721 0
B0637 9999 IND-M12-STR WEICHE GERADE "FR135" =A01+UH01-K0630i -45302 236181 0
B0375 9999 Stau-Reflex M12 STAU - REFLEX M12 LICHTTASTER =A01+UC03-K0370i -78574 229937 -1324
B0372 9999 Stau-Reflex M12 STAU - REFLEX M12 LICHTTASTER =A01+UC03-K0370i -78592 229086 0
B0370 9999 Stau-Reflex-M12 Stau-Reflex-M12Lichttaster =A01+UC03-K0370i -67448 229533 0
B0373 9999 Stau-Reflex-M12 Stau-Reflex-M12 Lichttaster =A01+UC03-K0370i -66664 230419 0
B0572 9999 Stau M12 ST. STAU - B0507 =A01+UC03-K0560i -124265 230803 0
B0616 9999 Stau-Reflex-M12 STAU =A01+UC03-K0610i -69711 231371 0
B0462 9999 Lichttaster M12 St. TROLLEYABSTAND AFS =A01+UC03-K460i -87742 230734 0ABSTAND DISTANCE le distance
B0374 9999 Lichttaster M12 St. TROLLEYABSTAND AFS =A01+UC03-K370i -71136 230529 0ABSTAND DISTANCE le distance
B0371 9999 Lichttaster M12 St. TROLLEYABSTAND AFS =A01+UC03-K370i -71136 229729 0ABSTAND DISTANCE le distance
B0617 9999 Lichttaster M12 St. TROLLEYABSTAND AFS =A01+UC03-K610i -65688 230707 0ABSTAND DISTANCE la distance
B0343 9999 Lichttaster M12 St. TROLLEYABSTAND AFS =A01+UH01-K340i -51718 230498 0ABSTAND DISTANCE la distance
B0342 9999 Lichttaster M12 St. TROLLEYABSTAND AFS B0391 =A01+UH01-K340i -51686 229684 0ABSTAND DISTANCE la distance
Q1025 9999 MOT 0,55 KW ANTRIEB LINKSLAUF - Q1025 =A01+UC03-K1020o -120799 227881 0
M1024 9999 MOT 0,55 KW ANTRIEB RECHTSLAUF - M1024 =A01+UC03-K1020o -120792 228151 0SA57-DRS71-M4/ASB1
F1024 9999 F_MOT_1,62A MOTORSCHUTZ - F1024 =A01+UC03-K1020i -120799 228421 0 motor protecting
Q1023 9999 MOT 0,55 KW ANTRIEB LINKSLAUF "GM54" =A01+UC03-K1o -78063 227906 -448
M1022 9999 MOT 0,55 KW ANTRIEB RECHTSLAUF "GM54" =A01+UC03-K1020o -78056 228176 -448SA57-DRS71-M4BE1/ASB8
F1022 9999 F_MOT_1,62A MOTORSCHUTZ "GM54" =A01+UC03-K1020i -78063 228446 -448
Q1037 9999 MOT 1,1 KW ANTRIEB LINKSLAUF - M1037 =A01+UC03-K1020o -88339 232549 814
M1036 9999 MOT 1,1 KW ANTRIEB RECHTSLAUF - M1036 =A01+UC03-K1020o -88333 232819 814SA57-DRS80-M4BE2/ASB8
F1036 9999 F_MOT_2,5A MOTORSCHUTZ - F1036 =A01+UC03-K1020i -88339 233089 814
Q0023 9999 MOT 1,1 KW ANTRIEB LINKSLAUF "GM71" =A01+UH01-K0o -51360 226764 0
M0022 9999 MOT 1,1 KW ANTRIEB RECHTSLAUF "GM71" =A01+UH01-K0o -51349 227034 0SA57-DRS80-M4BE2/ASB8
F0022 9999 F_MOT_2,5A MOTORSCHUTZ "GM71" =A01+UH01-K0i -51356 227304 0
Q0021 9999 MOT 0,55 KW ANTRIEB LINKSLAUF "GM101" =A01+UH01-K0o -56581 232533 0
M0020 9999 MOT 0,55 KW ANTRIEB RECHTSLAUF "GM101" =A01+UH01-K0o -56575 232803 0SA57-DRS71-M4BE1/ASB8
F0020 9999 F_MOT_1,62A MOTORSCHUTZ "GM101" =A01+UH01-K0i -56581 233073 0
B0562 9999 request traverse M12TRAVERSENABFRAGE "BU65" =A01+UC03-K0550i -126596 227073 0 request traverse M12
K0335 9999 Stopper close STOPPER GESCHLOSSEN "BU65" =A01+UC03-K0330o -126596 227883 0 Stopper close
B0561 9999 Stopper close STOPPER GESCHLOSSEN "BU65" =A01+UC03-K0550i -126596 227343 0 Stopper close
K0334 9999 Stopper open STOPPER GEOEFFNET "BU65" =A01+UC03-K0330o -126596 228153 0 Stopper open
B0560 Stopper open STOPPER GEOEFFNET "BU65" =A01+UC03-K0550i -126596 227613 0 Stopper open
B0536 9999 limitswitch M12 ST. TRAVERSENABFRAGE "BU61" =A01+UC03-K0530i -119192 227341 0
K0321 9999 Stopper close STOPPER GESCHLOSSEN "BU61" =A01+UC03-K0320o -119192 228151 0
B0535 9999 Stopper close STOPPER GESCHLOSSEN "BU61" =A01+UC03-K0530i -119189 227611 0
K0320 9999 Stopper open STOPPER GEOEFFNET "BU61" =A01+UC03-K0320o -119192 228421 0
B0534 Stopper open STOPPER GEOEFFNET "BU61" =A01+UC03-K0530i -119192 227881 0
K0323 9999 Stopper close STOPPER GESCHLOSSEN "BU60" =A01+UC03-K0320o -117482 228151 0 Stopper close
B0541 9999 Stopper close STOPPER GESCHLOSSEN "BU60" =A01+UC03-K0530i -117482 227611 0 Stopper close
K0322 9999 Stopper open STOPPER GEOEFFNET "BU60" =A01+UC03-K0320o -117482 228421 0 Stopper open
B0540 Stopper open STOPPER GEOEFFNET "BU60" =A01+UC03-K0530i -117482 227881 0 Stopper open
K0327 9999 Stopper close STOPPER GESCHLOSSEN "BU80" =A01+UC03-K0320o -116801 228151 0 Stopper close
B0547 9999 Stopper close STOPPER GESCHLOSSEN "BU80" =A01+UC03-K0540i -116801 227611 0 Stopper close
K0326 9999 Stopper open STOPPER GEOEFFNET "BU80" =A01+UC03-K0320o -116801 228421 0 Stopper open
B0546 Stopper open STOPPER GEOEFFNET "BU80" =A01+UC03-K0540i -116801 227881 0 Stopper open
K0355 9999 Stopper close STOPPER GESCHLOSSEN "BU96" =A01+UC03-K0350o -90420 233065 -162
B0605 9999 Stopper close STOPPER GESCHLOSSEN "FR96" =A01+UC03-K0600i -90420 232525 -162
K0354 9999 Stopper open STOPPER GEOEFFNET "BU96" =A01+UC03-K0350o -90420 233335 -162
B0604 stopper open STOPPER GEOEFFNET "FR96" =A01+UC03-K0600i -90420 232795 -162
B0602 9999 Lichttaster M12 St. TRAVERSENABFRAGE "FR97" =A01+UC03-K0600i -89285 232504 0
K0353 9999 Stopper close STOPPER GESCHLOSSEN "FR97" =A01+UC03-K0350o -89285 233314 0
B0601 9999 Stopper close STOPPER GESCHLOSSEN "FR97" =A01+UC03-K0600i -89285 232774 0
K0352 9999 Stopper open STOPPER GEOEFFNET "FR97" =A01+UC03-K0350o -89285 233584 0
B0600 stopper open STOPPER GEOEFFNET "FR97" =A01+UC03-K0600i -89285 233044 0
K0363 9999 Stopper close STOPPER GESCHLOSSEN "BU99" =A01+UC03-K0360o -67714 233060 -27
B0615 9999 Stopper close STOPPER GESCHLOSSEN "BU99" =A01+UC03-K0610i -67714 232520 -27
K0362 9999 Stopper open STOPPER GEOEFFNET "BU99" =A01+UC03-K0360o -67714 233330 -27
B0614 stopper open STOPPER GEOEFFNET "BU99" =A01+UC03-K0610i -67714 232790 -27
B0612 9999 Lichttaster M12 St. TRAVERSENABFRAGE "GM100" =A01+UC03-K0610i -66573 232520 -27
K0361 9999 Stopper close STOPPER GESCHLOSSEN "GM100" =A01+UC03-K0360o -66573 233330 -27
B0611 9999 Stopper close STOPPER GESCHLOSSEN "GM100" =A01+UC03-K0610i -66573 232790 -27
K0360 9999 Stopper open STOPPER GEOEFFNET "BU100" =A01+UC03-K0360o -66573 233600 -27
B0610 stopper open STOPPER GEOEFFNET "GM100" =A01+UC03-K0610i -66573 233060 -27
K0371 9999 Stopper close STOPPER GESCHLOSSEN "BU102" =A01+UH01-K0370o -55911 233072 0
B0621 9999 Stopper close STOPPER GESCHLOSSEN "BU102" =A01+UH01-K0620i -55911 232532 0
K0370 9999 Stopper open STOPPER GEOEFFNET "BU102" =A01+UH01-K0370o -55911 233342 0
B0620 stopper open STOPPER GEOEFFNET "BU102" =A01+UH01-K0620i -55911 232802 0
B0624 9999 Lichttaster M12 St. TRAVERSENABFRAGE "BU103" =A01+UH01-K0620i -54900 232533 0
K0373 9999 Stopper close STOPPER GESCHLOSSEN "FR103" =A01+UH01-K0370o -54900 233343 0
B0623 9999 stopper open STOPPER GESCHLOSSEN "BU103" =A01+UH01-K0620i -54900 232803 0
K0372 9999 Stopper open STOPPER GEOEFFNET "FR103" =A01+UH01-K0370o -54900 233613 0
B0622 stopper open STOPPER GEOEFFNET "BU103" =A01+UH01-K0620i -54900 233073 0
K0274 9999 Stopper close STOPPER GESCHLOSSEN "BU52" =A01+UC03-K0270o -69094 228175 -448
B0357 9999 Stopper close STOPPER GESCHLOSSEN "BU52" =A01+UC03-K0350i -69094 227635 -448
K0273 9999 Stopper open STOPPER GEOEFFNET "BU52" =A01+UC03-K0270o -69094 228445 -448
B0356 stopper open STOPPER GEOEFFNET "BU52" =A01+UC03-K0350i -69094 227905 -448
B0362 9999 Lichttaster M12 St. TRAVERSENABFRAGE "BU73" =A01+UC03-K0360i -70951 227365 0
K0276 9999 Stopper close STOPPER GESCHLOSSEN "BU73" =A01+UC03-K0270o -70951 228175 0
B0361 9999 Stopper close STOPPER GESCHLOSSEN "BU73" =A01+UC03-K0360i -70951 227635 0
K0275 9999 Stopper open STOPPER GEOEFFNET "BU73" =A01+UC03-K0270o -70951 228445 0
B0360 stopper open STOPPER GEOEFFNET "BU73" =A01+UC03-K0360i -70951 227905 0
B0354 9999 Lichttaster M12 St. TRAVERSENABFRAGE "BU53" =A01+UC03-K0350i -70261 227366 -448
K0272 9999 Stopper close STOPPER GESCHLOSSEN "BU53" =A01+UC03-K0270o -70261 228176 -448
B0353 9999 Stopper close STOPPER GESCHLOSSEN "BU53" =A01+UC03-K0350i -70261 227636 -448
K0271 9999 Stopper open STOPPER GEOEFFNET "BU53" =A01+UC03-K0270o -70261 228446 -448
B0352 stopper open STOPPER GEOEFFNET "BU53" =A01+UC03-K0350i -70261 227906 -448
K0233 9999 Stopper close 2 STOPPER GESCHLOSSEN STRECKE 7 "BU39" =A01+UH01-K0230o -41688 227007 0
B0305 9999 Stopper close 1 STOPPER GESCHLOSSEN STRECKE 8 "BU39" =A01+UH01-K0290i -41688 226467 0
K0232 9999 Stopper open 2 STOPPER GEOEFFNET STRECKE 7 "BU39" =A01+UH01-K0230o -41688 227277 0
B0304 stopper open 1 STOPPER GESCHLOSSEN STRECKE 8 "BU39" =A01+UH01-K0290i -41688 226737 0
B0292 9999 limitswitch M12ST. TRAVERSENABFRAGE STRECKE 9 "BU34" =A01+UH01-K0280i -44802 226196 0
K0225 9999 Stopper close 1 STOPPER GESCHLOSSEN STRECKE 9 "BU34" =A01+UH01-K0220o -44802 227006 0
B0291 9999 Stopper close 1 STOPPER GESCHLOSSEN STRECKE 9 "BU43" =A01+UH01-K0280i -44802 226466 0
K0224 9999 Stopper open 1 STOPPER GEOEFFNET STRECKE 9 "BU34" =A01+UH01-K0220o -44802 227276 0
B0290 stopper open 1 STOPPER GEOEFFNET STRECKE 9 "BU34" =A01+UH01-K0280i -44802 226736 0
K0227 9999 Stopper close 2 STOPPER GESCHLOSSEN STRECKE 9 "BU33" =A01+UH01-K0220o -42380 227007 0
B0295 9999 Stopper close 2 STOPPER GESCHLOSSEN STRECKE 8 "BU33" =A01+UH01-K0290i -42380 226467 0
K0226 9999 Stopper open 2 STOPPER GEOEFFNET STRECKE 9 "BU33" =A01+UH01-K0220o -42380 227277 0
B0294 stopper open 2 STOPPER GEOEFFNET STRECKE 9 "BU33" =A01+UH01-K0290i -42380 226737 0
B0282 9999 limitswitch M12ST. TRAVERSENABFRAGE STRECKE 10"BU30" =A01+UH01-K0280i -44112 226196 0
K0221 9999 Stopper close 1 STOPPER GESCHLOSSEN STRECKE 10 "BU30" =A01+UH01-K0220o -44112 227006 0
B0281 9999 Stopper close 1 STOPPER GESCHLOSSEN STRECKE 10 "BU30" =A01+UH01-K0280i -44112 226466 0
K0220 9999 Stopper open 1 STOPPER GEOEFFNET STRECKE 10 "BU30" =A01+UH01-K0220o -44112 227276 0
B0280 stopper open 1 STOPPER GEOEFFNET STRECKE 10 "BU30" =A01+UH01-K0280i -44112 226736 0
K0223 9999 Stopper close 2 STOPPER GESCHLOSSEN STRECKE 10 "BU29" =A01+UH01-K0220o -43073 227007 0
B0285 9999 Stopper close 2 STOPPER GESCHLOSSEN "BU29" =A01+UH01-K0280i -43073 226467 0
K0222 9999 Stopper open 2 STOPPER GEOEFFNET STRECKE 10 "BU29" =A01+UH01-K0220o -43073 227277 0
B0284 stopper open 2 STOPPER GEOEFFNET "BU29" =A01+UH01-K0280i -43073 226737 0
B0312 9999 limitswitch M12ST. TRAVERSENABFRAGE STRECKE 7 "BU44" =A01+UH01-K0300i -46181 226197 1
K0235 9999 Stopper close 1 STOPPER GESCHLOSSEN STRECKE 7 "BU44" =A01+UH01-K0230o -46181 227007 1
B0311 9999 Stopper close 1 STOPPER GESCHLOSSEN STRECKE 7 "BU44" =A01+UH01-K0300i -46181 226467 1
K0234 9999 Stopper open 1 STOPPER GEOEFFNET STRECKE 7 "BU44" =A01+UH01-K0230o -46181 227277 1
B0310 stopper open 1 STOPPER GEOEFFNET STRECKE 7 "BU44" =A01+UH01-K0300i -46181 226737 1
K0237 9999 Stopper close 2 STOPPER GESCHLOSSEN STRECKE 7 "BU43" =A01+UH01-K0230o -41008 227004 0
B0314 9999 Stopper close 2 STOPPER GESCHLOSSEN STRECKE 7 "BU43" =A01+UH01-K0300i -41013 226464 0
K0236 9999 Stopper open 2 STOPPER GEOEFFNET STRECKE 7 "BU43" =A01+UH01-K0230o -41008 227274 0
B0313 stopper open 2 STOPPER GEOEFFNET STRECKE 7 "BU43" =A01+UH01-K0300i -41008 226734 0
B0317 9999 limitswitch M12ST. TRAVERSENABFRAGE STRECKE 6 "BU49" =A01+UH01-K0300i -46858 226198 1
K0241 9999 Stopper close 1 STOPPER GESCHLOSSEN STRECKE 6 "BU49" =A01+UH01-K0240o -46858 227008 1
B0316 9999 Stopper close 1 STOPPER GESCHLOSSEN STRECKE 6 "BU49" =A01+UH01-K0300i -46858 226468 1
K0240 9999 Stopper open 1 STOPPER GEOEFFNET STRECKE 6 "BU49" =A01+UH01-K0240o -46858 227278 1
B0315 stopper open 1 STOPPER GEOEFFNET STRECKE 6 "BU49" =A01+UH01-K0300i -46858 226738 1
K0393 9999 Stopper close 2 STOPPER GESCHLOSSEN "BU133" =A01+UH01-K0390o -46637 236721 0
B0645 9999 Stopper close 2 STOPPER GESCHLOSSEN "BU133" =A01+UH01-K0640i -46637 236181 0
K0392 9999 Stopper open 2 STOPPER GEOEFFNET "BU133" =A01+UH01-K0390o -46637 236991 0
B0644 stopper open 2 STOPPER OEFFNEN "BU133" =A01+UH01-K0640i -46637 236451 0
B0642 9999 Lichttaster M12 St. TRAVERSENABFRAGE "BU164" =A01+UH01-K0640i -45975 236181 0
B0641 9999 Stopper close STOPPER GESCHLOSSEN "BU164" =A01+UH01-K0640i -45975 236451 0
B0640 stopper open STOPPER GEOEFFNET BU164 =A01+UH01-K0640i -45975 236721 0
B0692 9999 Light Sensor M12St. TRAVERSENABFRAGE STRECKE 3 =A01+UH01-K0690i -39164 236450 0
K0411 9999 Stopper close Stopper GESCHLOSSEN STRECKE 5 "BU107" =A01+UH01-K0410o -40506 237261 0
B0691 9999 Stopper close Stopper GESCHLOSSEN STRECKE 3 =A01+UH01-K0690i -39164 236720 0
K0410 9999 Stopper open STOPPER GEOEFFNET STRECKE 5 "BU107" =A01+UH01-K0410o -40506 237531 0
B0690 Stopper open Stopper GEOEFFNET STRECKE 3 =A01+UH01-K0690i -39164 236990 0
B0696 9999 Light Sensor M12St. TRAVERSENABFRAGE STRECKE 2 "BU137" =A01+UH01-K0690i -37677 236450 0
K0413 9999 Stopper close Stopper GESCHLOSSEN STRECKE 4 "BU117" =A01+UH01-K0410o -39838 237261 0
B0695 9999 Stopper close Stopper GESCHLOSSEN STRECKE 2 "BU137" =A01+UH01-K0690i -37677 236720 0
K0412 9999 Stopper open STOPPER GEOEFFNET STRECKE 4 "BU117" =A01+UH01-K0410o -39838 237531 0
B0694 Stopper open Stopper GEOEFFNET STRECKE 2 "BU137" =A01+UH01-K0690i -37687 236989 0
B0682 9999 Light Sensor M12St. TRAVERSENABFRAGE STRECKE 5 "BU107" =A01+UH01-K0680i -40506 236451 0
K0415 9999 Stopper close Stopper GESCHLOSSEN STRECKE 3 "BU127" =A01+UH01-K0410o -39164 237260 0
B0681 9999 Stopper close Stopper GESCHLOSSEN STRECKE 5 "BU107" =A01+UH01-K0680i -40484 236721 0
K0414 9999 Stopper open STOPPER GEOEFFNET STRECKE 3 "BU127" =A01+UH01-K0410o -39164 237530 0
B0680 Stopper open Stopper GEOEFFNET STRECKE 5 "BU107" =A01+UH01-K0680i -40506 236991 0
B0686 9999 Light Sensor M12St. TRAVERSENABFRAGE STRECKE 4 "BU117" =A01+UH01-K0680i -39838 236451 0
K0421 9999 Stopper close Stopper GESCHLOSSEN STRECKE 2 "BU137" =A01+UH01-K0410o -37677 237260 0
B0685 9999 Stopper close Stopper GESCHLOSSEN STRECKE 4 "BU117" =A01+UH01-K0680i -39838 236721 0
K0420 9999 Stopper open STOPPER GEOEFFNET STRECKE 2 "BU137" =A01+UH01-K0410o -37677 237530 0
B0684 Stopper open Stopper OEFFNEN STRECKE 4 "BU117" =A01+UH01-K0680i -39838 236991 0
B0702 9999 Light Sensor M12St. TRAVERSENABFRAGE STRECKE 1 "BU147" =A01+UH01-K0700i -38348 236451 0
K0423 9999 Stopper close Stopper GESCHLOSSEN STRECKE 1 "BU147" =A01+UH01-K0420o -38348 237261 0
B0701 9999 Stopper close Stopper GESCHLOSSEN STRECKE 1 "BU147" =A01+UH01-K0700i -38348 236721 0
K0422 9999 Stopper open STOPPER GEOEFFNET STRECKE 1 "BU147" =A01+UH01-K0400o -38348 237531 0
B0700 Stopper open Stopper GEOEFFNET STRECKE 1 "BU147" =A01+UH01-K0700i -38348 236991 0
MENU/EBENE.DWG
BIN
View File
Binary file not shown.
MENU/ED.LSP
+33
View File
@@ -0,0 +1,33 @@
;............................................................
;: DATE : 91-01-01 Kunde: :
;: Schuetz/Schmidt AutoCAD-Version 11 :
;: Version 1.0 ab Version 2.6 :
;: :
;: ED.LSP Editeraufruf :
;:..........................................................:
;
;Deklaration:
; prna Programmname String
; prnn Neuer Programmname lokal String
(DEFUN C:ED (/ prnn)
(IF (NULL prna)
(SETQ prna "")
)
(SETQ prnn (GETSTRING (STRCAT "Programmname <" prna ">: ")))
(IF (AND (= (STRLEN prna) 0)(= (STRLEN prnn) 0))
(PRINC "\nkein g�ltiger Name!")
(PROGN
(IF (> (STRLEN prnn) 0)
(SETQ prna (STRCAT "c:\\prog\\acad\\menu\\" prnn))
)
(COMMAND "shell" "nc")
; (COMMAND "shell" (STRCAT "edlin " prna ".lsp"))
(IF (= (STRLEN (GETSTRING "\nProgramm laden <> ")) 0)
(LOAD prna)
)
)
)
(PRINC)
)


Some files were not shown because too many files have changed in this diff Show More