Ответить на сообщение

Вы отвечаете на сообщение:

ник: Lukas
Конечно эскиз.
Данные в табличке, размеры, там прочая.
На самом деле форма раковины стандартная.
Меняются размеры, профиль.
На форме - статический рисунок.
В эскизе все рисуется под введенные размеры.

Кусок прорисовки синусоиды:

'Верх синусоида R = (Me.DimB - Me.DimB1) / 2 For i = 0 To 24 dblRadian = funRadian(i * 15) Point(i, 0) = Round((Me.DimA - Me.Radius * 2) / 24 * intScale * i, 0) Point(i, 1) = Round((Me.DimB - R - Cos(dblRadian) * R) * intScale, 0) Next i For i = 0 To 23 Me.Line (-intA / 2 + intR1 + Point(i, 0), Point(i, 1))-(-intA / 2 + intR1 + Point(i + 1, 0), Point(i + 1, 1)) Next i

Если интересно полностью, покажите куда заслать экземпл.

Ваше имя:
Пароль:

Цитировать: [quote][/quote]	Код: [code][/code]
Жирный: [b][/b]	Наклонный: [i][/i]
URL: [url][/url]

Сообщение:
	Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru
Прикрепить:

Для вставки смайлов в текст щелкните по значку.

Форумы HiProg.com - MS ACCESS, VBA, VB