Тема от alex900 (изменено: Алексей У, 25 ноября 2013г. 07:34:10)

  • На форуме с 25 ноября 2013г.
  • Сообщений: 3
  • Спасибо: 0

Тема: Смена шрифта и установка стиля

Доброго времени суток!

Подскажите пожалуйста как сменить шрифт в стиле и назначить стиль по умолчанию.
Управляю Acad2013 из внешнего приложения. VB.Net 2010

Dim AcadApp As Autodesk.AutoCAD.Interop.AcadApplication '= New Autodesk.AutoCAD.Interop.AcadApplication
     AcadApp = New Autodesk.AutoCAD.Interop.AcadApplication
     AcadApp.Visible = True
     Dim Doc As AcadDocument = AcadApp.Documents.Open("C:\0.dwg") ' документ открывается, все ок
Dim TextStyl As AcadTextStyles
    TextStyl = Doc.TextStyles
    TextStyl.Item(0).SetFont("GOST Type A", False, False, 24, 0) - ВОТ ЗДЕСЬ ПРОИСХОДИТ РУГАНИЕ

Вызов был отклонен. (Исключение из HRESULT: 0x80010001 (RPC_E_CALL_REJECTED))

' Doc.TextStyles.Item(0).SetFont("GOST Type A", False, False, 24, 0) - так тоже пробовал, причем это работало! и резко перестало, хотя в коллекции стилей их 2. Стиль 0 точно есть).

Иногда даже такая вещь как:
Doc.ModelSpace.AddCircle(FX, 100) - рисование просто окружности
сначала работает, а потом -нет . При одинаковых условиях происходит запуск кода..
От чего может зависеть?


Управляю через из VS2010 MSOfficом не первый год ни чего подобного не встречал, с автокадом в первый раз, прошу простить за глупость если что...

  • hwd
  • Активный участник
  • На форуме с 18 сентября 2009г.
  • Сообщений: 397
  • Спасибо: 13

Re: Смена шрифта и установка стиля

Алексей У пишет:

Подскажите пожалуйста как сменить шрифт в стиле

Тынц - расписана каждая опция текстового стиля.

Алексей У пишет:

назначить стиль по умолчанию

Это называется "установить стиль текущим". Назначаешь системной переменной TEXTSTYLE имя нужного тебе текстового стиля и ты "в дамках":

Application.SetSystemVariable("TEXTSTYLE", "Имя нужного текстового стиля");

  • На форуме с 25 ноября 2013г.
  • Сообщений: 3
  • Спасибо: 0

Re: Смена шрифта и установка стиля

Прокатило. Спс.
Но вот что всет аки делать с внезапно возникающей ошибкой при рисовании обычной окружности?
FX (это координаты точки 200,200,0) Массив Double их 3х эл.

Ответ от hwd (изменено: Hwd, 25 ноября 2013г. 09:49:16)

  • hwd
  • Активный участник
  • На форуме с 18 сентября 2009г.
  • Сообщений: 397
  • Спасибо: 13

Re: Смена шрифта и установка стиля

Здесь пример того, как правильно создавать окружность.

  • На форуме с 25 ноября 2013г.
  • Сообщений: 3
  • Спасибо: 0

Re: Смена шрифта и установка стиля

Спасибо. так работает тоже. Но пришлось подключить еще AcDbMgd.dll AcMgd.dll, до селе их небыло.

  • Откуда: Украина / Киев
  • На форуме с 15 апреля 2005г.
  • Сообщений: 8,666
  • Спасибо: 158

Re: Смена шрифта и установка стиля

Алексей У пишет:

Но пришлось подключить еще AcDbMgd.dll AcMgd.dll, до селе их небыло.

И отказаться от внешнего приложения, ибо эти две сборки можно использовать только в .NET-сборке, загружаемой внутрь AutoCAD...

  • hwd
  • Активный участник
  • На форуме с 18 сентября 2009г.
  • Сообщений: 397
  • Спасибо: 13

Re: Смена шрифта и установка стиля

И отказаться от внешнего приложения

Ой блин... Я не обратил внимание на это:

Управляю через из VS2010 MSOfficом

:)

Ответ от mihalych (изменено: Сергей, 18 декабря 2013г. 14:10:13)

  • На форуме с 26 ноября 2013г.
  • Сообщений: 4
  • Спасибо: 0

Re: Смена шрифта и установка стиля

Должно получится если вот так сделать 

C#

app.ActiveDocument.ActiveTextStyle.fontFile = Environment.GetFolderPath(Environment.SpecialFolder.Fonts) + "\\GOST2304A.ttf";

GOST2304A.ttf - ну или как он там у вас будет называться