[Cfytrr]

Приветствую.
Новоиспеченный AutoCad 2013 En наряду с новшествами преподнес неожиданную проблему, при использовании модулей которые исправно работали на 2009-10-11-12 происходит сбой с кодировкой.

Для примера приведена работа вот этого модуля.
Система Win 7 х64

[Klo]

Спасибо, Дима_. Всё получилось!

[gomer]

Сообщение от Дима_ я всегда говорил что DCL-зло

дцл не зло, зло - использование нелицензонного софта

[Salt]

Жуткая штука этот F#. Смесь говна с вареньем... ИМХО. И этот рвотный "let" из бейсика 80-х ...
И почему DCL - зло? XAML значит не зло, а DCL - зло? А в чём принципиальная разница?

[Дима_]

Сообщение от gomer зло - использование нелицензонного софта

Я его честно скачал с официального сайта Autodesk и не нарушаю установленные им ограничения по использованию.

Сообщение от Salt Жуткая штука этот F#. Смесь говна с вареньем... ИМХО. И этот рвотный "let" из бейсика 80-х ... И почему DCL - зло? XAML значит не зло, а DCL - зло? А в чём принципиальная разница?

Много утверждений вперемешку с вопросами - первые 2 пропускаю ибо переубеждать в том чему Вы себя сами старательно убедили смысла не вижу.
3. В бейсике let это оператор присваивания (то есть процедура выполняющее конкретное действие), в F# это ключевое слово - которое устанавливает связи (ассоциации) в абстрактном дереве алгоритма - сравнивать языки по схожести синтаксиса это ИХМО гораздо больше "жуткая штука", да еще когда пытаться на этом выводы о похожести сделать.
4. XAML сделан для описания работы автоматически созданных приложений (больше для их "нудных" частей) - заданых декларативно с помощью соответствующих инструментов-конструкторов, а DCL это морально устарвший язык описания ДИАЛОГОВЫХ окон - которые были актуальны в упомянутых Вами 80-х.

[Salt]

Я не сравниваю языки по схожести синтаксиса, я просто говорю, что от слова "let" меня тошнит.
Говоря о XAML я имел в виду его использование в качестве языка разметки для создания окон (GUI) в рамках технологии WPF.
Язык DCL - это тоже язык разметки, предназначенный для создания GUI в рамках программирования под AutoCAD. Просто он не стал развиваться компанией Autodesk. Наверное, чтобы вдруг случайно не затмить собой MFC от большого брата. А мог бы...

[gomer]

Сообщение от Дима_ Я его честно скачал с официального сайта Autodesk

я не о вас, а о тех, кто следит, каждый год обновляется, ни платя при этом ни копейки

Сообщение от Salt А мог бы...

А надо ли?

[Дима_]

Сообщение от Salt Просто он не стал развиваться компанией Autodesk. Наверное, чтобы вдруг случайно не затмить собой MFC от большого брата. А мог бы...

Примерно с таким-же успехом, что автокад бы операционкой стал, а что все возможности у него для этого есть.

[Salt]

А надо ли?

Теперь уже не надо. А тогда могли стать первыми

[Александр Ривилис]

Сообщение от Salt Язык DCL - это тоже язык разметки, предназначенный для создания GUI в рамках программирования под AutoCAD. Просто он не стал развиваться компанией Autodesk. Наверное, чтобы вдруг случайно не затмить собой MFC от большого брата.

А при чем здесь MFC? Сравнение мягко говоря не корректное. MFC - это библиотека классов, а DCL - язык разметки. Скорее DCL можно было бы сравнивать с файлами ресурсов (.rc), в которых описываются диалоги.

[Salt]

MFC - это библиотека классов

Предназначенная, в большей своей части, для создания GUI.
Я имею в виду, что развитый должным образом DCL c функциями поддержки был бы концептуально похож на современный XAML с библиотекой классов WPF.
А MFC - за борт.

[gomer]

Сообщение от Александр Ривилис Сравнение мягко говоря не корректное.

Лучше сравнивать с *.DFM/*.LFM

[Дима_]

Сообщение от Salt Предназначенная, в большей своей части, для создания GUI.

У меня Дежавю - одно время было популярно мнение (которое тоже очень ръяно доказывали) что Windows большей частью это графическая оболочка - типа нортона командор - но с дригим интерфесом (и ни какая аргументация, про защищенный режим процесорра, мультизадачность, изоляцию процессов и пр. в расчет не бралась).

[Salt]

MFC - это библиотека классов, предназначенная, в большей своей части, для создания GUI. Что здесь неверно?

[Александр Ривилис]

Оффтопите ребята. И я с вами... А Дима молодец, что сделал заплатку. Что-то у меня сомнения появились, что в SP1 этот баг исправят.

[Кулик Алексей aka kpblc]

Вот я не понимаю - какая разница, на каком языке сделано решение? Дима_ - класс, спасибо! Вот если б еще "перевести" на VB.NET либо C# для хоть какого-то понимания решения - было б вообще кучеряво

[Дима_]

Сообщение от Кулик Алексей aka kpblc Вот если б еще "перевести" на VB.NET либо C# для хоть какого-то понимания решения - было б вообще кучеряв

Не с ними я завязал ,хотя и не связывался особо еще до их появления - наследие их предков (хотя не могу не признать что C# идет в правильном направлении).
Общий смысл прост до безобразия подменить файл загружаемый (load-dialog)'ом, на преобразованный в UTF8? т.к. родная функция (load_dialog) с фиксированным количество аргументов (всегда одним) самим лиспом она меняется на ура:

Код:

[Выделить все]

 
;если не объявлен load_dialog_fix_bag
(if (not load_dialog_fix_bag)
    ;сохраняем в нем изначальную функцию
    (SETQ load_dialog_fix_bag load_dialog))
;переобъевляем стандартный load_dialog
(defun load_dialog(path)
  ;в изначальный load_dialog грузим
  (load_dialog_fix_bag
     ;полученный полный путь (на случай если был задан в "короткой" форме) 
    ((lambda (full)
       ;от .Net-Lisp функции (жаль лисп сам с UTF8 не работает) файла
                                 ;преобразованного в случае удачного получения 
                                          ;из полного пути
                                               ;либо из исходного
       (load_dialog_fix_utf8_bag (if full full path)))
     ;собственно получение полного пути
     (findfile path))))

вся загвоздка в том, что Auto/VisualLisp не умеет общаться с двоичными файлами (UTF8, к сожалению, для него именно двоичный), а "каждеустановленных" COM серверов с необходимым функционалом я не нашел, но т.к. нужен он будет (я надеюсь - но хотя-бы пока это так), для одной единственной версии, то "особенность" .Net, здесь, даже немного "играет на руку":

Код:

[Выделить все]

 //подключаем библиотеки
#r "c:/program files/autodesk/autocad 2013/acmgd.dll"
#r "c:/program files/autodesk/autocad 2013/acdbmgd.dll"
#r "c:/program files/autodesk/autocad 2013/accoremgd.dll"

//"открываем" именные пространства
open System.IO
open System.Text
open System.Collections.Generic
open Autodesk.AutoCAD.ApplicationServices
open Autodesk.AutoCAD.DatabaseServices
open Autodesk.AutoCAD.Runtime

//создаем коллекцию строк (в данном случае словарь совсем не обязателен, подойдет
//любая мутабельная коллекция)в которой будут хранится имена файлов "временных" диалогов
let EraseFiles=new Dictionary<string,int>()

//Создаем функцию преобразующие ResultBuffer в список TypedValue
//null - пусть будет пустым списком
//список F#'ный(не путать с IList) - для дальнейшего использовании в сопоставлении с шаблонами
//в данном примере можно было обойтись и массивом, но список более универсальный тип для этой цели
let Rb=function
  |null->[]
  |(rb:ResultBuffer)->rb.AsArray()|>Array.toList

//Задаем шаблон преобразования лисп-кадовского текстового представления
//т.к. кроме строк мы ничего не предполагаем, остальные "типы" относим к "неизвестным"
//еслиб работали с еще какими либо, то на каждый шла своя строка - распозначания->преобразования
let (|AcStr|AcUnknow|) (x:TypedValue)=
  //представляем TypeCode как LispDataType
  enum<LispDataType>(x.TypeCode|>int)|>function
    //если строка преобразовываем ее в текст
    |LispDataType.Text->AcStr(x.Value:?>string)
    //что-то другое - считаем как неизвестный тип
    |_->AcUnknow

//Отмечаем точку входа для Lisp функции load_dialog_fix_utf8_bag
[<LispFunction("load_dialog_fix_utf8_bag")>]
// функция по аргументы arg:ResultBuffer (тип выводиться автоматом т.к. задан в функции преобразования Rb - стр.22)
let LoadDialogFixUtf8Bag arg=
  //берем "область вывода"
  let ed=Application.DocumentManager.MdiActiveDocument.Editor
  //преобразум аргумент и сопоставляем с шаблоном
  arg|>Rb|>function
    //если шаблон содержит 1 текстовое значение то:
                      //проверям наличие такого файла
    |[AcStr path]->if (File.Exists path)
                      //если он есть получаем имя нового временного файла в %temp%'e
                      then let tmp=Path.GetTempFileName()
                           //сохраняем имя в коллекции "на удаление"
                           EraseFiles.[tmp]<-0
                           //и создаем "возратное" текстовое значение
                           new TypedValue(LispDataType.Text|>int,
                                          //которое если чтение исходного->преобразование UTF8->запись во временный прошло корректно
                                          try File.WriteAllText(tmp,File.ReadAllText(path,Encoding.Default),Encoding.UTF8)
                                              // то возращаем путь к временному файлу
                                              tmp
                                          with _-> //если-же нет то ругаемся
                                                  ed.WriteMessage("Warning: load_dialog converting file error...\n")
                                                  // и возращаем путь к исходному файлу
                                                  path)
                      //если же файл не найден (проверка на стр. 47) - ругаемся
                      else ed.WriteMessage("Warning: load_dilalog. File '"+path+"' not found...\n")
                           // и возращаем то что нам и давали (исходную строку)
                           new TypedValue(LispDataType.Text|>int,path)
    //если аргумент состоит из чего угодно другого то ругаемся (не подошел ни к какому сопаставлению)
    |_->ed.WriteMessage("Error arguments load_dialog...\n") 
        // и возращаем nil
        new TypedValue(LispDataType.Nil|>int)

//создаем класс инициализации при загрузке сборки
type Init()=
  //с интерфейсом IExtensionApplication (для определения акадом, что его надо запустить при загрузке)
  interface IExtensionApplication with
    //объявляем метод инициализации
    member obj.Initialize()=
      //вешаемся на событие завершения приложения (автокада)
                                        //удаляем все созданные временные файлы игнорируя ошибки (вдруг их уже кто стер??)
      Application.BeginQuit.Add(fun _-> EraseFiles.Keys|>Seq.cast|>Seq.iter (fun x->try File.Delete x with _->()))
    //пустой метод для совместимости с интерфейсом - p.s. хотя можно было очитку просто сюда добавить
    member obj.Terminate()=()

вот и все.

[gomer]

http://www.theswamp.org/index.php?topic=39617.0

[Дима_]

Сообщение от gomer http://www.theswamp.org/index.php?topic=39617.0

Вот

[gomer]

Сообщение от Дима_ Вот

ой
чего-то мне подсказывает, что лучше переконвертить диалоги в уникод, а для устаревших автокадов использовать алгоритм, описанный выше, только в обратную сторону. В таком случае можно обойтись только (ну почти) лиспом. Вот так можно читать "неродные" файлы:

Код:

[Выделить все]

 (defun vk_WriteTextStream (Stream FileName Charset / ADODBStreamObj Result)
  (if (setq ADODBStreamObj (vlax-create-object "ADODB.Stream"))
    (progn (setq Result	(vl-catch-all-apply
			  (function
			    (lambda ()
			      (vlax-put ADODBStreamObj "Charset" Charset)
			      (vlax-invoke ADODBStreamObj "Open")
			      (vlax-invoke-method ADODBStreamObj "WriteText" Stream 0)
			      (vlax-invoke ADODBStreamObj "SaveToFile" FileName 2)
			    )
			  )
			)
	   )
	   (vlax-release-object ADODBStreamObj)
	   (if (not (vl-catch-all-error-p Result))
	     FileName
	   )
    )
  )
)
;;;(vk_WriteTextStream "ласкаво просимо на болото" "C:\\Temp\\test.txt" "utf-8")
(defun vk_ReadTextStream (FileName Charset / ADODBStreamObj Result)
  (if (and (setq FileName (findfile FileName))
	   (setq ADODBStreamObj (vlax-create-object "ADODB.Stream"))
      )
    (progn (setq Result	(vl-catch-all-apply
			  (function
			    (lambda ()
			      (vlax-put ADODBStreamObj "Charset" Charset)
			      (vlax-invoke ADODBStreamObj "Open")
			      (vlax-invoke ADODBStreamObj "LoadFromFile" FileName)
			      (vlax-invoke-method ADODBStreamObj "ReadText" -1)
			    )
			  )
			)
	   )
	   (vlax-release-object ADODBStreamObj)
	   (if (not (vl-catch-all-error-p Result))
	     Result
	   )
    )
  )
)
;;;(vk_ReadTextStream "C:\\Temp\\test.txt" "utf-8") 

[Дима_]

Сообщение от gomer чего-то мне подсказывает, что лучше переконвертить диалоги в уникод, а для устаревших автокадов использовать алгоритм, описанный выше,

Только половина програм работающих с DCL (правильная половина) создают DCL диалоги "на лету" и делают они это в дефолтной кодировке - то есть сами (то есть тогда их надо переписывать), а саму программу в UTF8 не переведешь т.к. в самой программе тоже может быть (и скорее всего есть) вывод на русском (да и врядли кроказябры лисповская запись правильно запишет).
з.ы. Вначале я думал разбирать а не переведен ли уже файл (через заголовок и/или по контексту), но потом плюнул - заделает автокад (чтоб все читало) - хорошо - можно будет сносить, нет - не судьба.