Sub DrawRackByID(ByVal ATmpPoint, ByVal ARackID, ByVal AHeight, ByVal AVariant)

Вычерчивает стойку ARackID в точке ATmpPoint высотой AHeight согласно варианту расположения AVariant

Параметры:

ATmpPoint - начальная точка. Строка с координатами "x/y/z" или variant массив с 3-мя координатами. Variant.

ARackID - идентификатор стойки. String.

AHeight - высота стойки. Double.

AVariant - Вариант расположения стойки и расположения начальной точки(см.табл.). Integer.

Название	Идентификатор стойки	Варианты
Угловая стойка	AngularRack	AVariant = 0 AVariant = 1 AVariant = 2 AVariant = 3
Cтойка на 3 направления	Rack3Directions	AVariant = 0 AVariant = 1 AVariant = 2 AVariant = 3
Стойка на 4-ре направления	Rack4Directions	AVariant = 0 AVariant = 1 AVariant = 2 AVariant = 3

Sub Draw_CrossbarsForLateralWall(ByVal Point1, ByVal AHeight As Double, ByVal ALengthOfCrossbar As Double, ByVal AHeightOfStore As Double, ByVal AHeightOfFrieze As Double, ByVal AAmountOfSections As Integer, Optional APlaceWall As Boolean = False)

Вычерчивает ригеля для боковой стенки витрины

Параметры:

Point1 - начальная точка
AHeight - высота витрины
ALengthOfCrossbar - длина бокового ригеля
AHeightOfStore - высота накопителя, если равна 0 то ригеля и стенки для накопителя не вычерчиваются
AHeightOfFrieze - высота фриза, если равна 0 то ригеля и стенки для фриза не вычерчиваются
AAmountOfSections - количество секций
APlaceWall - Если False то стенки во фриз и накопитель не вычерчиваются, если True то вычерчиваются, по умолчанию False.

Примеры использования:

APoint(0) = 0
APoint(1) = 0
APoint(2) = 0
Draw_CrossbarsForLateralWall APoint, 2200, 560, 640, 250, 3, True

Результат:

Другой пример из программы расчета витрины:

If pDeleteLateralWallOnLeft.Value <> True Then
   APoint(0) = Point1(0) + GetSizePartOfRackForCrossbarOnXAxe(ToDetailID(pLeftForwardRack.Value))
   APoint(1) = Point1(1)
   APoint(2) = Point1(2)
   Draw_CrossbarsForLateralWall APoint, pHeight.Value, ABrigelSleva, pHeightOfStore.Value, friz, nsec, True
End If

Sub Draw_CrossbarsForForwardWall(ByVal Point1, ByVal AHeight As Double, ByVal ALengthOfCrossbar As Double, ByVal AHeightOfStore As Double, ByVal AStoreDetailID As String, ByVal AHeightOfFrieze As Double, ByVal AFriezeDetailID As String, ByVal AAmountOfSections As Integer, ASectionDetailID As String)

Вычерчивает ригеля для передней стенки витрины

Параметры:

Point1 - начальная точка
AHeight - высота витрины
ALengthOfCrossbar - длина ригеля
AHeightOfStore - высота накопителя
AStoreDetailID - идентификатор детали в накопитель, если равен "none" то стенки в накопитель не ставятся
AHeightOfFrieze - высота фриза
AFriezeDetailID - идентификатор детали во фриз, если равен "none" то стенки во фриз не ставятся
AAmountOfSections - количество секций
ASectionDetailID - идентификатор детали в секции(ю), если равен "none" то стенки в секции не ставятся