Andrej писал(а):mikegor, а нельзя ли для полного счастья выложить где-нибудь исходники на Перле?
Конечно, можно:
http://slil.ru/23415629
Файл: DXF_with_src.rar (там .pl, .exe и .txt)
Пароль: trworkshop
Исходники лучше (если, конечно, Перл есть). Perl2exe - штука такая, с простыми вещами справляется, а что посложнее - уже не тянет.
Есть одна тонкость с текстовым форматом. Если запускать сами исходники в Перле, то файлы пишутся в UNIX-овском формате (конец строки 0A):
print TXT "$txtline\n";
Скомпилированный exe-шник почему-то пишет их уже в DOS-овском формате (0D 0A). Если же написать в Перле
print TXT "$txtline\r\n";
то в Перле будут получаться DOS-овские концы строк, а exe-шники будут уже лепить лишние пустые строки (т.е. и \r и \n они трактуют как DOS-овский конец строки 0D 0A = \r\n).
К счастью, Автокаду по барабану, DOS-овский или UNIX-овский конец строки, и Word-у тоже. Короче, перловские исходники я оставил с записью UNIX-овских концов строк, а exe-шники - те пишут DOS-овские концы строк.
Кроме того, обработку конца строки при чтении файлов в программе я сделал так, чтобы было все равно, DOS-овский он или UNIX-овский:
$s =~ s/[\r\n]*$//g;
А так, если надо, у меня есть на C простенькая программка unix2dos (аналог стандартной UNIX-овской утилиты).
На своих DXF-файлах я проверил, все работает правильно. Если на каких-то файлах будет слетать или давать ерунду, шлите мне bug reports, лучше всего с примерчиками.