[Uduzr]

Здравствуйте, столкнулся с одной неприятностью.
Допустим создали мтекст щелкнули по нему дважды, выбрали весь текст и поменяли шрифт с того что был согласно стилю на допутим Times New Roman.
Смотрим свойства и видим в содержимом - {\fTimes New Roman |b0 |i0 |c0 |p18;некий текст} (за точность не ручаюсь - получить содержимое через программирование нет возможности по описанным ниже причинам и просто переписал содержимое).
И теперь меняя текстовый стиль на другой шрифт останется неизменным.. И любые изменения выполненные в редакторе потом не исправить сменой текстового стиля.
Для меня это было большой трагедией и я писал Lisp который сбрасывал все эти переопределения оставляя голый текст и я мог спокойно менять стиль и радоваться жизни. Но сменил место работы и мучаюсь с Autocad LT (надеюсь что временно и все же выклянчу полную версию). Таким образом привычное решение проблемы стало мне не доступно. Вот хотел спросить может есть какое нибудь иное средство для борьбы с этой бедой?

[Лиспер]

Поскольку LT, неясно, что тема делает в "Программировании". Ну да ладно.
Войти в штатный редактор многострочного текста, выделить весь текст, Ctrl+Пробел.

[Uduzr]

входить в каждый текст не вариант по умолчанию, программно я просто выделял область и сбрасывал в ней для всех текстов и мтекстов и таблиц редактирование текста.
Ctrl+Пробел у меня лично работает как Пробел в данном случае.
А в программировании потому что люди здесь отзывчивые и грамотные
Неужели ни у кого такой проблемы не было никогда?

[azetown]

Я сделал так на Delphi выбирает все Мтекст и Текст проверяет и меняет шрифты и удаляет не нужные теги.

Код:

Код:

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

procedure TForm1.Button22Click(Sender: TObject);
var
    i:integer;
    H_tmp:double;
//  t:iAcadEntity;
    ACMT1: IAcadMText;
    ACT1: IAcadText;
//    f:textfile;
    s,S1:string;

    gpCode: Variant;
    dataValue : Variant;
    sset : AcadSelectionSet;
    
function delTeg(str,Teg:string):string;
var
    Str_1,Str_2: string;

begin   // удаляет все из строки "Str" заданные тэги "Teg" вида ot \F.....to ;
  str_1:=str;
  str_2:='';
  if (pos(Teg,str_1)>0)then while (pos(Teg,str_1)>0) do
  begin
      str_2:=str_2+copy(str_1,0,pos(Teg,str_1)-1);    //str_2:=str_2+copy(str_1,0,pos(Teg,str_1)-2);
      str_1:= copy(str_1,pos(Teg,str_1),length(str_1));
      Delete(str_1,pos(Teg,str_1),pos(';',str_1));
  end;
  str_2:=str_2+str_1;
  result:=str_2;
end;

begin             //изменяет все шрифты и стили на мои заданные: ПКО ПКО1 ПКО2
  if conectAC(0) then // здесь проверка и подключение к автокаду
  begin
     LoadDeaultProperty;  // проверка на наличие необходимых стилей (по необходимости загрузка)

      gpCode := VarArrayCreate([0, 3], varSmallint);
      gpCode[0] := -4;
      gpCode[1] := 0;
      gpCode[2] := 0;
      gpCode[3] := -4;

    dataValue := VarArrayOf(['<OR', 'TEXT', 'MTEXT', 'OR>']);

     for i:=0 to AcadDocument1.SelectionSets.Count-1  do
     begin
       sset:= AcadDocument1.SelectionSets.Item(i);
       sset.Delete;
     end;

     sset:=AcadDocument1.SelectionSets.add  ('sset_me_txt'); // выбираем все Мтекст и Текст (по необходимости можно изменить на -> выбрать только то что нам нужно)
     sset.Clear;

     sset.Select(acSelectionSetAll,EmptyParam ,EmptyParam , gpCode, dataValue);

  //     if form6.Visible then form6.PGB1.Max:=AcadDocument1.ModelSpace.Count;
     begin
         form7.dlg1.ProgressMaximum:=sset.Count-1;
         form7.dlg1.ProgressValue:=0;
         form7.dlg1.Execute;

         if form7.Visible then form7.APrG.Maximum:=sset.Count;
     end;

     for i:=0 to sset.Count-1 do
     begin
//          if form6.Visible then form6.PGB1.Position:=i;
          form7.dlg1.ProgressValue:=i;
          if form7.Visible then form7.APrG.Position:=i;
//====================================================================================
          if sset.Item(i).EntityName='AcDbText' then
          begin
             ACT1:=(sset.Item(i) as IAcadText);
             s1:=ACT1.StyleName;
             if (s1<>'ПКО')and (s1<>'ПКО1') and (s1<>'ПКО2') then
             begin
               H_tmp:=ACT1.Height;
               ACT1.StyleName:='ПКО';
               ACT1.Height:=H_tmp;
             end;
             ACT1.color:= acCyan;
             ACT1.ScaleFactor:=1;
          end;
//====================================================================================

          if sset.Item(i).EntityName='AcDbMText' then
          begin
             ACMT1:=(sset.Item(i) as IAcadMText);

             s:=ACMT1.TextString;
             if pos('\',s)>0 then
             begin
                //удалить тэг шрифта
                s:=delTeg(s,'\F'); s:=delTeg(s,'\f');
                //удалить тег цвета
                s:=delTeg(s,'\C'); s:=delTeg(s,'\c');
                // записать назад
                ACMT1.TextString:=s;
             end;

             //все Мтекст в стиль пко    (искл)
             s1:=ACMT1.StyleName;
             if (s1<>'ПКО')and (s1<>'ПКО1') and (s1<>'ПКО2') then
             begin
               H_tmp:=ACMT1.Height;
               ACMT1.StyleName:='ПКО';
               ACMT1.Height:=H_tmp;
             end;
             //установит цвет
             ACMT1.color:= acCyan;

          end;
     end;
    //ACMT1.TextString:='';
    //    closefile(f);

//   if form6.Visible then form6.PGB1.Position:=0;
   if form7.Visible then
   begin
      form7.APrG.Position:=0;
   end;
   AcadDocument1.Application.Update;
   
 end;

end;

[KronSerg]

Народ, а как использовать код на Delphi, или где найти такой же лисп?

[azetown]

раньше писалось об этом в этом разделе (http://dwg.ru/art/1)

[Сергей Дубина]

На этом сайте есть внешний редактор ACEditor.

http://dwg.ru/dnl/487

[Boxa]

А установить на рабочем месте что то типа nanoCAD (Вроде бесплатный) и проделывать хитрые манипуляции в нем?

[KronSerg]

Решил проблему при помощи одного из творений VVA, взял здесь: http://forum.dwg.ru/showthread.php?t=24790&page=7