Шрифт по умолчанию в Sturtup

Question

Как с помощью Avenu, в startup-скрипте, установить шрифт, который станет шрифтом по-умолчанию при вводе текста инструментом "Текст" ?

 Обычно после установки AV это Arial 14.

 

Спасибо если кто поможет !

 

 

 

Answer 1

 

Дело в том, что в SymbolWin при вызове Palette  можно менять только :

Заливку, Линии, Маркер и Цвет( Fill, Pen, Marker, and Color. )<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

 

Например так:

 

av.GetSymbolWin.Open

av.GetSymbolWin.SetPanel(#SYMBOLWIN_PANEL_MARKER)

thePalette = av.GetSymbolWindow.GetPalette

m1 = Basicmarker.Make

m1.SetStyle(#BASICMARKER_STYLE_PATTERN)

m1.SetFont(Font.Make("ESRI Cartography","normal"))

m1.SetCharacter(45)

m1.SetSize(24)

m1.SetColor(Color.GetBlack)

thePalette.GetList(#PALETTE_LIST_MARKER).Add(m1)

av.GetSymbolwin.RefreshPalette(#PALETTE_LIST_MARKER)

 

 

А КАК ПОМЕНЯТЬ ШРИФТ ???

Answer 2

theSymWin = av.GetSymbolWin
curText = theSymWin.ReturnCurrentSymbol(#SYMBOL_TEXT)
curText.SetSize(10)
theSymWin.SelectSymbol(curText)

Answer 3

СПАСИБО ГРИГОРИЙ !

IT'S WORK !!!

 

Answer 4

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

Answer 5

Продолжаем разговор...

Скрипт от Григория можно применить таким образом

 

Изменить скрипт Appl.Initialize в Default.apr который находится в директории ETC

 

Что-бы это сделать выполните следующее.
В пустом проекте откройте системный скрипт Appl.Initialize
(в свойствах скрипта необходимо указать это-же имя!)

 

Измените скрипт - добавив указанные строки после окончания первого IF'a
(if (argList.Count = 0) then
 ....
 end)

 

theSymWin = av.GetSymbolWin
curText = theSymWin.ReturnCurrentSymbol(#SYMBOL_TEXT)
curText.SetSize(10)
theSymWin.SelectSymbol(curText)

...

 

Выполните скрипт (с именем .Make) состоящий из строки
av.GetProject.MakeSysDefault ("default.apr".AsFileName,FALSE)

 

Из справки по AV
"...Чтобы избежать включения в новый файл по умолчанию скрипта,
выполняющего запрос MakeSysDefault, переименуйте этот скрипт с префиксом ".".
Любые скрипты, имеющие префикс-точку, не будут записаны в файл по умолчанию..."

Замените старый проект ./ETC/default.apr на полученный default.apr,
предварительно сохранив старый (на всякий случай)

 

 

Аналогично можно выполнять другие настройки проекта по умолчанию.
Так например был переделан файл Layout.New (при подсказке KAA)
Теперь при открытии новой компоновки не требуется задавать некотрые параметры

 

'----
' убрать привязку к сетке
newLayout.GetDisplay.SetGridActive (FALSE)
' убрать сетку
newLayout.GetDisplay.SetGridVisible(FALSE)
' установить единицы компоновки - мм
newLayout.GetDisplay.SetDistanceUnits(#UNITS_LINEAR_MILLIMETERS)