Hallo Danielle,
mit CHANGE_TEXT_SIZE 2 ALL END änderst Du alle Textgrössen auf 2
mit CHANGE_LINESIZE 0 ALL END
und CHANGE_PENSIZE 0 ALL END änderst Du die Linienstärke
mit CHANGE_LEADER_ARROW_SIZE 2 ALL END änderst Du die Pfeilgrösse von Hinweispfeilen auf 2
Mit diesen Problemen hatte ich meist bei importierten Dateien zu kämpfen.
Wenn Du die o.g. Dinge komplett abarbeiten willst, speichere den ganzen untenstehenden Text in
eine Textdatei EVA_DXF.MAC
Beim ersten start musst Du diese Makro-Datei dann laden mit DATEI -> IMPORTIEREN -> MAKRO -> LADEN (ASCII) ->
die Datei EVA_DXF.MAC wählen.
Ab jetzt steht der Befehl eva_dxfconv zur Verfügung.
Nach dem Laden einer Datei gib den Befehl eva_dxfconv in die Befehlszeile ein.
Nach Bestätigen mit der RETURN-Taste werden alle Änderungen an der Zeichnung vorgenommen.
(bei Bedarf können natürlich auch andere Werte geändert werden, wie Linienarten, Linienfarben usw.).
Gruß Robert
DEFINE eva_dxfconv
LOCAL Schleife
RESET_PART_NUMBER
INQ_ENV 8
LET Schleife (INQ 5)
WHILE (Schleife>0)
TRAP_ERROR
EDIT_PART ('~'+(STR Schleife))
IF (NOT CHECK_ERROR)
TRAP_ERROR
CHANGE_TEXT_SIZE 2 ALL END
IF (NOT CHECK_ERROR) END_IF
TRAP_ERROR
CHANGE_LINESIZE 0 ALL END
IF (NOT CHECK_ERROR) END_IF
TRAP_ERROR
CHANGE_PENSIZE 0 ALL END
IF (NOT CHECK_ERROR) END_IF
TRAP_ERROR
CHANGE_LEADER_ARROW_SIZE 2 ALL END
IF (NOT CHECK_ERROR) END_IF
END_IF
LET Schleife (Schleife - 1)
END_WHILE
END
END_DEFINE
------------------
Homepage: www.me10-makros.de
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP