Масштаб3Д.Икс (Scale3D.X) Свойство

Копировать     Выделить всё

ПодключитьВнешнююКомпоненту("C:\444\111\DeclarativeForms\DeclarativeForms\bin\Debug\DeclarativeForms.dll");
ДФ = Новый ДекларативныеФормы();
Форма1 = ДФ.Форма;

Масштаб3Д1 = ДФ.Масштаб3Д();
Масштаб3Д1.Икс = 1.4;
Масштаб3Д1.Игрек = 2.6;
Масштаб3Д1.Зет = 3.1;

Сообщить("Масштаб3Д1.Икс = " + Масштаб3Д1.Икс);
Сообщить("Масштаб3Д1.Игрек = " + Масштаб3Д1.Игрек);
Сообщить("Масштаб3Д1.Зет = " + Масштаб3Д1.Зет);

Масштаб3Д2 = ДФ.Масштаб3Д(2.3, 4.2, 3.1);

Сообщить("Масштаб3Д2.Икс = " + Масштаб3Д2.Икс);
Сообщить("Масштаб3Д2.Игрек = " + Масштаб3Д2.Игрек);
Сообщить("Масштаб3Д2.Зет = " + Масштаб3Д2.Зет);

Форма1.Открыть();