Как нарисовать прямоугольник?

[hulk1776]

Задал вопрос, вернулся в VB и более менее получилось (надо было указать размерности в см). ОК.
Теперь дело пойдет.


Если кому не лень, подскажите как нарисовать прямоугольник белого цвета с белой границей и сделать его самым нижним объектом?

Сижу третий день, не могу ничего понять, что есть rectangle, чем его красить и как просто нарисовать.

Sub BlankPlach()
Set myInDesign = CreateObject("InDesign.Application.CS3")
Set myTextFrame = myInDesign.ActiveWindow.ActivePage.Rectangles.Add
'myTextFrame.GeometricBounds = Array("6p", "6p", "24p", "24p")
myTextFrame.GeometricBounds = Array(215, 0, 420, 41) 
myTextFrame.SendBackward 
End Sub

И не рисуется ничего

p.S. И это при том, что мой Пейдж весь покрыт скриптами, как... Лихтенштейн Орловской областью.

Или пошлите еще раз куда-то, где можно почитать...

 

[Skvoznyak]

Ответ: Как нарисовать прямоугольник?

www.adobe.com -> InDesign -> Scripting resources

 

[boriskasmoscow]

Ответ: Как нарисовать прямоугольник?

main();
function main()
{

if(app.documents.length == 0)
{
alert("Не открыт ни один документ. Продолжение невозможно");
return;
}
myNewTextFrame();
}// main

function myNewTextFrame()
{
var myStrokeWeight = "1p";
var myFillColor=4; //Циан
var myStrokeColor = 5 // Мажента;
myTextFrame = app.activeWindow.activeSpread.textFrames.add()
myTextFrame.geometricBounds = ["8p", "8p", "24p", "24p"];
myTextFrame.strokeWeight=myStrokeWeight;
myTextFrame.strokeColor = app.activeDocument.swatches.item(myStrokeColor);
myTextFrame.strokeAlignment = StrokeAlignment.centerAlignment;
myTextFrame.fillColor = app.activeDocument.swatches.item(myFillColor);
// и так далее...
}

 

[hulk1776]

Ответ: Как нарисовать прямоугольник?

Последний ответ оч. показателен. Сразу куча разных свойств видна. А прямоугольник нерисовался (как оказалось) потому, что цифры привязок были слишком большие (я указал в мм) и он оказывался больше рабочего стола, поэтому я его и не видел.

Все равно спасибо за ответы, они всегда полезны.