Следуйте инструкциям в видео ниже, чтобы узнать, как установить наш сайт как веб-приложение на главный экран вашего устройства.
Примечание: Эта функция может быть недоступна в некоторых браузерах.
Вы используете устаревший браузер. Этот и другие сайты могут отображаться в нем неправильно. Необходимо обновить браузер или попробовать использовать другой.
Ответ: Как тексту присвоить атрибуты (?)
странно, перепробовал многое, но не работает ничего illustrator CS4
Dim fontRef As Illustrator.TextFonts
For Each fontRef In myApp.TextFonts
If fontRef(Name) = "Arial" Then
Set podpis.TextRange.CharacterAttributes.TextFont =...
Ответ: Как тексту присвоить атрибуты (?)
я не понял...
мне просто нужно создать тест с определенным начертанием например Arial. шрифт есть в myApp.TextFonts, но как его присвоить фрейму не разобрался
For Each fontRef In myApp.TextFonts
If fontRef(Name) = "Arial" Then...
В CorelDRAW чтобы отследить координаты (click) курсора использовал примерно это
ActiveDocument.GetUserClick X, Y, Shift, 45, True, cdrCursorPickOvertarget
Вопрос: Как можно снять координаты с документа по UserClick, как реализовать такое для Adobe Illustrator CS4(5)?
1. Выбрать принтер (Adobe PDF) ?
2. загрузить сетинги печати, как это делается ? или создать настройки печати..как их применить?
3. указать печатаем "Cyan"
5. Напечатать (область печати лист(i)) ?
эх...примерчик кода подсмотреть бы
Ответ: VB scripting. Работа с селекцией
у меня границы видимого это то, что в документе *.ai видно глазами в режиме отображения оверпринт превью.
глубокий анализ сильно замедлит выполнение скрипта ведь таких обектов может быть не одна сотня....побовал ...повесил комп..
может не циклом по...
Ответ: VB scripting. Работа с селекцией
есть такой пример (см.rar)
вопрос как определить границы "видимого"?
ControlBounds, VisibleBounds ,GeometricBounds не помогли...(((( исключение объктов из селекции не вариант...
Ответ: Как тексту присвоить атрибуты (?)
понял что мне лучше без циклов:
podpis.TextRange.Characters(1).CharacterAttributes.FillColor = newC
podpis.TextRange.Characters(2).CharacterAttributes.FillColor = newM...
Ответ: Как тексту присвоить атрибуты (?)
For R = 1 To podpis.TextRange.Characters.Count
можно ли циклом перекрашивать каждую букву в свой цвет? я имею ввиду CMYK
next R
Dim podpis As TextFrame
Set podpis = myDocument.TextFrames.Add()
podpis.Contents = "пример текста" ' Собственно текст
podpis.TextRange.CharacterAttributes.Size = 14 ' кегль текст
podpis.TextRange.CharacterAttributes.FillColor...
Ответ: Конвертация цвета в RGB
Можно попробовать создать новую группу в наборах из спотов документа, сделать их cmyk и далее известным алгоритмом.
Или таблицу соответсвий http://chereda.com.ua/index.php?option=com_content&view=article&id=8&Itemid=15 в проект и в ней шарить по названию спота...
Ответ: Конвертация цвета в RGB
подойдет даже примерное представление пантона в RGB (Мне кнопку покрасить)
например для CMYK я поступил так:
'procedure CMYK TO RGB
Dim C As Byte
Dim M As Byte
Dim Y As Byte
Dim K As Byte
C = newCMYKColor.Cyan
M = newCMYKColor.Magenta
Y =...
Ответ: Как создать документ с координатами в миллиметрах?
Set myDocument = ActiveDocument
Dim myDP As New DocumentPreset
myDP.DocumentColorSpace = aiDocumentCMYKColor
myDP.DocumentUnits = aiUnitsMM
myDP.Height = 100
myDP.Width = 100
myDP.DocumentPreviewMode =...
... возможно ли такое..
Как CMYKColor Convert To RGB?
Как SpotColor Convert To RGB? (или RGB Hex)
Dim newColorBootom As RGBColor
Dim newSpotColor As SpotColor
Set newColorBootom= конверт.newSpotColor
ColorSempl.BackColor = RGB(newColorBootom.RGBRed, newColorBootom.RGBGreen...
На данном сайте используются cookie-файлы, чтобы персонализировать контент и сохранить Ваш вход в систему, если Вы зарегистрируетесь.
Продолжая использовать этот сайт, Вы соглашаетесь на использование наших cookie-файлов.