Как заставить Photoshop работать в пикселях VB

[IAMRAT]

Создаю текст через VB6 размер задан в пикселях 100px. А Photoshop вставляет в пунктах.
PSD.Preferences.RulerUnits = psPixels
PSD.Preferences.TypeUnits = psTypePixels
не помогает

 

[Skvoznyak]

а текст по-моему всегда в пунктах, там и не поменять. пересчитать можно через разрешение

 

[IAMRAT]

Это с чего вы так решили. Поставь в настройках линейки и текст в пикселях, и будет все в пикселях. Я спрашиваю как это сделать через скриптинг на VisualBasic/

 

[Skvoznyak]

вот через скриптинг и не получается, размер текста в модели всегда в pt

TextItem.size
Data Type: number
Adobe Photoshop CC 2014 Object Library
The font size in points.

 

[IAMRAT]

Вот блин. А как через разрешение пересчитать?
Но я ведь скриптом при установках пикселей считываю размер шрифта в пикселях.
Зачем тогда вот это: PSD.Preferences.TypeUnits = psTypePixels

 

[Skvoznyak]

72 пункта в дюйме
разрешение - кол-во пикселей в дюйме

если разрешение 72, то 1pt=1px
если разрешение 300, то 1pt = 300/72 px

итого, делим разрешение на 72 и умножаем на кол-во пунктов, получаем размер в пикселях

 

[Skvoznyak]

Зачем тогда вот это:

преференс поменять в UI

 

[IAMRAT]

преференс поменять в UI

не помогает, все равно лепит текст в пунктах

 

[Skvoznyak]

я же вам сказал, что через скрипт размер текста в px не задать, только в пунктах

 

[IAMRAT]

Блин башка уже кипит. Не пойму как перевести.
Разрешение 384 dpi, размер шрифта задан 100 px, как его перевести в pt

 

[IAMRAT]

Вот нашел на просторах интернета, но не пойму

Construct a proper UnitValue object to specify your size.
var doc = app.activeDocument;
var txt = doc.activeLayer.textItem;
txt.size = new UnitValue(100, 'px');

 

[Skvoznyak]

100/(384/72) = 18.75

 

[Skvoznyak]

Вот нашел на просторах интернета, но не пойму

Construct a proper UnitValue object to specify your size.
var doc = app.activeDocument;
var txt = doc.activeLayer.textItem;
txt.size = new UnitValue(100, 'px');

угу. но это не работает, я пробовал. там все равно число в пунктах только, UnitValue оно не берет

через UnitValue можно конвертировать в пиксели, но там есть небольшие заморочки, baseUnit нужно менять, и есть ли этот класс в VB - мне не ведомо

 

[IAMRAT]

Вот тебе. ОГРОМНОЕ, ЧЕЛОВЕЧЕСКОЕ СПАСИБО!

 

[IAMRAT]

Может ты знаешь как мм в px переводить.

 

[Skvoznyak]

да по той же схеме, дюймы в мм несложно же перевести