Если есть вопросы по скриптам

  • Автор темы Автор темы Oleg Butrin
  • Дата начала Дата начала
Статус
Закрыто для дальнейших ответов.
Ответ: Если есть вопросы по скриптам

Да, действительно. походу я просто неправильно запрос составляю
 
Ответ: Если есть вопросы по скриптам

Помогите ночику =)
К сожалению времени искать соверщенно нет =( 1000 извенений,

Как заменить девисы в годах на тире, приэтом убрав пробелы
Find what: \d\s-\s\d
Change to: ????~_????

При этом характерно что именно в годах т.е.

2005 - 2015
->
2005~_2015


Как правильно?
 
Ответ: Если есть вопросы по скриптам

и при этом сделать замену только в тексте, не в таблицах
 
Ответ: Если есть вопросы по скриптам

motionbuilder
Хорошо бы сначала основательно подучить русский язык. А потом уже взяться за изучение скриптинга. Пока и то, и другое на нуле. :(
 
Ответ: Если есть вопросы по скриптам

спасибо за помощь.
 
Ответ: Если есть вопросы по скриптам

а можно ли объекту диалогового окна, напр. checkboxControls, задать свойства кнопки 'OK', так чтобы при выборе опции происходило событие аналогичное нажатию кнопки ОК
 
Видимость слоя прилинкованного pdf

Ситуация:
CS2.
Каталог моделей.
В люстре создан слоеный файл, каждый слой относится к конкретной модели. Сохраняем в слоеный pdf. Дальше pdf плейсится в indd, на развороте с конкретной моделью включается видимость только соответственного слоя.
В результате имеем 1 прилинькованный на каждую страницу pdf, в котором виден только слой, предназначенный для этой страницы.

Проблема 1: после редактирования pdf и "освежения" его в Инди, ранее установленная вручную видимость слоев не сохраняется, приходится для каждой страницы заново отмечать видимый и невидимые слои.

Проблема 2: сделал скрипт для Люстры, сохраняющий слои из pdf в отдельные файлы eps.

Вопрос: возможно ли в Инди с помощью скрипта автоматизировать релинк pdfа с сохранением установленного ранее видимого слоя или замена его на eps, имеющий имя = имени видимого слоя.
Другими словами, возможно ли у плейсенного pdfа считать имя видимого слоя(слоев)? В документации о видимости слоев не нашел ни слова.

Спасибо!
 
Ответ: Видимость слоя прилинкованного pdf

а можно ли button встроить в dialog? или, наоборот, в Window поместить объекты из dialog?
 
Ответ: Если есть вопросы по скриптам

AirGraph, спасибо за ссылку! Но все-таки это не то.
Вобщем, без Window не обойтись.
 
Ответ: Почему "не работает" ExtendScript Toolkit 2?

Такой вопрос.
Начал осваивать JS. Открыл в ExtendScript Toolkit 2 скриптик из образцов. Но при попытке пошагового исполнения на первой же строке:
var myDoc = app.documents.item(0) строка становится красной и при повторном нажатии F11 спрашивается Clear runtime error?

Т.е. просто не могу выполнить скрипт из-под ESTK2. А если пускаю скрипт из Indi, то все нормально.

В чем может быть дело?

Спасибо.
 
Ответ: Почему "не работает" ExtendScript Toolkit 2?

hulk1776 сказал(а):
Такой вопрос.
Начал осваивать JS. Открыл в ExtendScript Toolkit 2 скриптик из образцов. Но при попытке пошагового исполнения на первой же строке:
var myDoc = app.documents.item(0) строка становится красной и при повторном нажатии F11 спрашивается Clear runtime error?

Т.е. просто не могу выполнить скрипт из-под ESTK2. А если пускаю скрипт из Indi, то все нормально.

В чем может быть дело?

Спасибо.
Нажмите, чтобы раскрыть...
Возможно глупость, но мож написать первую строку
#target indesign
 
Ответ: Почему "не работает" ExtendScript Toolkit 2?

_JVK_ сказал(а):
Возможно глупость, но мож написать первую строку
#target indesign
Нажмите, чтобы раскрыть...
ТОЧНО! Надо прописать название версии Инди
#target indesign CS3

Спасибо.
 
Ответ: Если есть вопросы по скриптам

Target application в ESTK можно просто указать в окне редактирования — первый выпадающий список на панели управления этого окна.
 

Вложения

  • TaggedApp.png
    TaggedApp.png
    6.1 КБ · Просм.: 674
Ответ: Если есть вопросы по скриптам

Здравстуйте
подскажите как можно сделать, чтобы картинки размещались на странице в соответствии со списком по именам файлов
похожий пример как функция print merge только в моем варианте с имиджами
спасибо
 
Ответ: Если есть вопросы по скриптам

Нужно писать скрипт, который будет размещать картинки в соответствии со списком по именам файлов и заданным вами расположением.
 
Ответ: Если есть вопросы по скриптам

вы не моггли бы выложить тело этого скрипта :)
 
Ответ: Если есть вопросы по скриптам

Argo-kr сказал(а):
Здравстуйте
...как функция print merge только в моем варианте с имиджами
спасибо
Нажмите, чтобы раскрыть...
еще варианты: юзать xml, либо искать скрипты (бесплатные "тела" :)) по замене текста на графику, либо плагины и т.д. и т.п.
 
Ответ: Если есть вопросы по скриптам

помогите разобраться в работе sort() с вложеной функцией. что есть a-b и что передают return 1/0 (понял только что вроде как 0 и -1 дают один результат)
 
Ответ: Если есть вопросы по скриптам

Добрый день!
Кто подскажет, что изменить в коде, чтобы название файла было вида "номер стриницы_название документа", а не наоборот как в скрипте? Спасибо

Set myInDesign = CreateObject("InDesign.Application.CS3")
If myInDesign.Documents.Count <> 0 Then
Set myDocument = myInDesign.ActiveDocument
myFileName = ""
myCancel = 0
Dim myArray()
ReDim myArray(myInDesign.PrinterPresets.Count - 2)
For a = 0 to (myInDesign.PrinterPresets.Count - 2)
myArray(a) = myInDesign.PrinterPresets.Item(a + 2)
Next
myFirstPage = CInt(myDocument.Pages.FirstItem)
myLastPage = CInt(myDocument.Pages.LastItem)
myRaz = Len(myDocument.Pages.LastItem)
'Диалог
Set myDialog = myInDesign.Dialogs.Add
myDialog.CanCancel = True
myDialog.Name = "Скрипт постраничного вывода PS v1.2"
Set myDialogColumn = myDialog.DialogColumns.Add
'Выбор стиля печати
Set myDialogRow = myDialogColumn.DialogRows.Add
Set myStaticText = myDialogRow.StaticTexts.Add
myStaticText.StaticLabel = "Стиль печати:"
Set myPrintStyle = myDialogRow.Dropdowns.Add
myPrintStyle.StringList = myArray
myPrintStyle.SelectedIndex = 3
'Выбор диапазона печати
Set myDialogRow = myDialogColumn.DialogRows.Add
Set myStaticText = myDialogRow.StaticTexts.Add
myStaticText.StaticLabel = "Диапазон печати: с "
Set myInt1 = myDialogRow.IntegerEditboxes.Add
myInt1.EditValue = myFirstPage
Set myStaticText = myDialogRow.StaticTexts.Add
myStaticText.StaticLabel = " по "
Set myInt2 = myDialogRow.IntegerEditboxes.Add
myInt2.EditValue = myLastPage
'Выбор пути
Set myDialogRow = myDialogColumn.DialogRows.Add
Set myStaticText = myDialogRow.StaticTexts.Add
myStaticText.StaticLabel = "Путь: "
Set myPath = myDialogRow.TextEditboxes.Add
myPath.EditContents = "d:\ps\in\"
myPath.MinWidth = 254
'Разрядность
Set myDialogRow = myDialogColumn.DialogRows.Add
Set myStaticText = myDialogRow.StaticTexts.Add
myStaticText.StaticLabel = "Количество разрядов в имени файлов: "
Set myRazryad = myDialogRow.IntegerEditboxes.Add
myRazryad.EditValue = 2
myRazryad.MinWidth = 60
'Добавление имени
Set myDialogRow = myDialogColumn.DialogRows.Add
Set myStaticText = myDialogRow.StaticTexts.Add
myStaticText.StaticLabel = "Добавить имя документа"
Set myDocName = myDialogRow.CheckboxControls.Add
myDocName.checkedState = true

'Анализ данных
If myDialog.Show = True Then
myPrintStyle = myInDesign.PrinterPresets.Item(myPrintStyle.SelectedIndex + 2)
myPath = myPath.EditContents
p1 = myInt1.EditValue
p2 = myInt2.EditValue
myRaz = myRazryad.EditValue
If myDocName.checkedState = True Then
myFileName = replace (myDocument.name, ".indd", "_")
End If
myDialog.Destroy
Else
myCancel = 1
End If
'Проверка диапазона
If p1 < myFirstPage or p1 > myLastPage or p2 < myFirstPage or p2 > myLastPage or p1 > p2 Then
If myCancel = 0 Then MsgBox "Указанный диапазон печати невозможен!", 0, "Ошибка!"
myCancel = 1
End If
'Проверка линков
myLinksCount = myDocument.Links.Count
For l = 1 to myLinksCount
Set myLink = myDocument.Links.Item(l)
If myLink.Status = idLinkStatus.idLinkMissing or myLink.Status = idLinkStatus.idLinkOutOfDate Then
MsgBox "Помещенный файл «" & myLink.Name & "» не найден или обновлен." & VbCr & "Исправьте ссылку и попробуйте еще раз.", 0, "Ошибка!"
myCancel = 1
Exit For
End If
Next
If myCancel = 0 Then
'Запись PS
Set myPreset = myInDesign.PrinterPresets.Item(myPrintStyle)
Err.Clear
For i = p1 to p2
myI1 = i
For r = Len(myI1) to (myRaz - 1)
myI1 = "0" & myI1
Next
On Error Resume Next
myInDesign.PrinterPresets.Item(myPrintStyle).PrintFile = myPath & myFileName & myI1& ".ps"
If Err.Number <> 0 Then
MsgBox "Указанного пути не существует!", 0, "Ошибка!"
Exit For
End If
myDocument.PrintPreferences.PageRange = i & "-" & i
myDocument.PrintOut False, myPreset
Next
End If
Else
MsgBox "Нет открытых документов!" & VbCr & "Откройте документ и попробуйте еще раз.", 0, "Ошибка!"
End If
If i = p2 + 1 Then MsgBox "Все готово!" & VbCr & "(с) Dmitriy N. Sakharov"
 
Статус
Закрыто для дальнейших ответов.
Верх Низ