---

Hallo zusammen,
wir haben (zum Teil auch von extern) Konturen erhalten, die zu schraffieren wären. Trotz BEREINIGEN der Kontur lässt sie sich immer noch nicht automatisch schraffieren.
Gibt es eine Möglichkeit, sich anzeigen zu lassen, welchen Weg die automatische Schraffur "abläuft" bzw. wo die automatische Schraffur Probleme hat.
Die Möglichkeiten mit "Punkte anzeigen" lassen, "Bereinigen", "Doppelt", "Verschmelzen" und "Trennen" habe ich bereits ausgeschöpft.
Danke für die Hilfe!!!
Klaus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Diese Makro sollte bei Schraffurproblemen und
deren Anzeige helfen.

DEFINE As_m_hatch_show_green
LOCAL As_v_old_mul
LOCAL As_v_old_mulcen
LOCAL As_v_old_lcen
INQ_ENV 3
LET As_v_old_mul (INQ 309)
LET As_v_old_mulcen (INQ 311)
LET As_v_old_lcen (INQ 310)
CURRENT_VERTEX_COLOR USED_MULTIPLE
BLACK
CURRENT_VERTEX_COLOR USED_MULTIPLE CENTER
BLACK
CURRENT_VERTEX_COLOR CENTER
BLACK
SHOW VERTEX OFF
SHOW VERTEX ON
CURRENT_VERTEX_COLOR USED_MULTIPLE (VAL As_v_old_mul)
CURRENT_VERTEX_COLOR CENTER (VAL As_v_old_mulcen)
CURRENT_VERTEX_COLOR USED_MULTIPLE CENTER (VAL As_v_old_lcen)
END_DEFINE

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Frank,
danke für das makro, es hat mir ein wenig weiter geholfen, allerdings war die Kontur danach immer noch nicht perfekt.
Den endgültigen Tip hat mir jemand aus unserer EDV gegeben. Ich musste BEIM LADEN den Zusatzbefehl "check_2d" eingeben und dann das Laden bestätigen. Was immer das ME10 dabei macht, meine Kontur war nachher O.K. Ich frage mich, wieso das nicht standardmäßg voreingestellt ist. Wahrscheinlich passiert dabei irgend etwas anderes, das ich noch nicht kenne. ;-)
Besten Dank nochmals für Dein Makro
Gruß Klaus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Anbei eine kleine Erläuterung des LOAD Befehls.

Die Eingabe von CHECK_2D überprüft die Zeichnung nach unzulässigen Elementen (Linien) während des Ladevorgangs. Bei der Durchführung werden
unzulässige Elemente automatisch gelöscht. Ohne die Funktion CHECK_2D werden unzulässige Elemente geladen.

Die Eingabe von CHECK_2D_RETAIN_DEPENDENCY löscht die unzulässigen Elemente in der Zeichnung während des Ladevorgangs. Falls die
unzulässigen Linien assoziierte Elemente wie Bemaßungen, RTLs und Konturen haben, werden sie automatisch zu einem benachbarten zulässigen Element
übertragen, falls möglich. Falls andererseits die Übertragung einiger assoziierter Elemente nicht möglich ist, werden die Elemente hervorgehoben (der
verbleibende Rest der Elemente wird ZYAN-farben dargestellt) und nach der Bestätigung durch den Benutzer gelöscht.

Alse lieber die 2te Option nutzen.
Ich schicke anbei ein Datei1 Menü welches diese Option bereits enthält.

Am besten in die Datei Customize einbauen.

DEFINE Sm_file_1
LET Lastmen 'Tm_file_1'
IF (I_port)
Check_i_port
END_IF
IF (NOT I_port)
MENU_BUFFER ON
CURRENT_MENU Sm_file_1_layout_name T_clear_menu Menu_control_icons
MENU Colo0 Bcol5 CENTER 'DATEI 1' '' 1 3
MENU Colo0 Bcol1 'LADEN' 'LOAD CHECK_2D_RETAIN_DEPENDENCY' 2 1
MENU 'Zchn/Teil' 'LOAD' 2 2
MENU Colo0 Bcol7 "'ArbDatei'" '"workfile"' 3 1
MENU 'Einzelteil' 'LOAD SUBPART' 3 2
MENU Colo0 Bcol7 'ABSOLUT' 'ABSOLUTE' 4 1 Sm_update_store_file
MENU Colo0 Bcol7 "'ArbDatei'" 'DEL_OLD "workfile"' 10 1
MENU Colo0 Bcol1 'DATEILISTE' 'Fbt_dtabs_all_on 0' 12 1
MENU 'Mit LÎsch' 'Fbt_dtabs_all_on 0' 12 2
MENU 'Ohne LÎsch' 'Fbt_dtabs_all_on 1' 13 2
MENU Colo0 Bcol1 'VERZ AKT' 'CURRENT_DIRECTORY' 14 1
MENU Colo0 Bcol1 'KOPIEREN' 'COPY_FILE ' 15 1
MENU Colo0 Bcol1 'LÚSCHEN' 'PURGE_FILE' 16 1
MENU Colo0 Bcol1 'DATEI EDIT' 'EDIT_FILE' 17 1
MENU Colo0 Bcol1 'EINGABE' 'INPUT' 18 1
MENU Colo0 Bcol1 'SICHERN' 'SAVE' 19 1
MENU Colo0 Bcol7 'OPTIONEN' 'DEL_OLD' 21 1
MENU 'LÎsch Alt' 'DEL_OLD' 21 2
MENU 'Drucker' 'PRT' 22 1
MENU 'AnfÏgen' 'APPEND' 22 2
MENU 'Rekursiv' 'RECURSIVE' 23 1
MENU Colo0 Bcol5 'DATEI2' 'Tm_file_2' 25 1
MENU Colo0 Bcol5 'ASSDOK' 'Tm_file_3' 25 2
MENU Colo0 Bcol5 'ØNDSTD' 'Tm_file_4' 25 3 Eight_menu_slots_add
END_IF
END_DEFINE

mfg Frank

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Frank,
danke für die Info. Man lernt eben immer noch etwas dazu.
Danke auch für Dein Marko. Ich werde es auf jeden Fall mal ausprobieren.
Gruß Klaus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP