Основы художественного конструирования

Уроки в системе "Вектор"



Урок. 2.  Многофигурная композиция. Соподчинение.
Когда в композиции основных элементовв до 6-7, основную роль играет их соподчиненносить - классы отношений, например, по размерам, по цвету, по конфигурации и т.п.

Композиция а и б (рис. 1) характеризуеться по размеру элементов:
- а) - 3 разнообразия;
- б) - 4 разнообразия.
 
a)
b)
                                                Рис.1

Композиция а и б (рис. 2)  характеризуеться:  по конфигурации, по площади элементов и по цвету:
- а) по конфигурации - 2 отличия, по площади - 5, по цвету - 4;
- б) по конфигурации - 2 отличия, по площади - 3, по цвету - 3.
 
a)
b)
                                            Рис. 2

Ниже приведены МК формирования композиций из одной или разных фигур по всем 4-м случаям в их разнообразии положений и масштаба. Дальше (после запуска МК) пользователь в системе "Вектор" может задать художественные или конформные преобразования, цвет линий, заливку фона и т.д.

Макрокоманды-упражнения к уроку 2.
Выполняемая функция-МК, обращение к ее тексту  Рисунок
2.1. Задание прямоугольников рис.1, а  Рис.
2.2. Композиция из импортируемой фигуры на пяти прямоугольниках
(импорт фигуры или ее задание в диалоге обязательно) 
Рис. 1 , 2, 3, 4, 5, 6
2.3. Автоматическое импортирование разных фигур и на прямоугольники  Рис. 1
2.4. Задание композиции рис.1, б   Рис. 1. 
2.5. Композиция из импортируемой фигуры на прямоугольниках
(импорт фигуры или ее задание в диалоге обязательно) 
Рис. 1
2.6. Автоматическое импортирование разных фигур и их раскидка на прямоугольники  Рис. 1, 2
2.7. Задание композиции (рис.2, а) Рис. 1
2.8. Композиция из импортируемой фигуры на прямоугольниках
(импорт фигуры или ее задание в диалоге обязательно) 
Рис. 1
2.9. Автоматическое импортирование 6-ти фигур и их раскидка на прямоугольники  Рис. 1
2.10. Задание каркаса композиции (рис.2, б)  Рис. 1
2.11. Композиция из импортируемой фигуры на прямоугольниках
(импорт фигуры или ее задание в диалоге обязательно) 
Рис. 1
2.12. Автоматическое импортирование 6-ти фигур и их раскидка на прямоугольники  Рис. 1, 2*
   
* Композиция чуть подправлена вручную.



Техты макрокоманд

 ' 2.1. Строим композицию из пяти квадратиков (построили в диалоге и сохранили, заивку цветом вставили вручную)

'  Задаем поле полилинией (лучше - можно делать заливку)
 Set p1 = p( 9, -8,0)
 Set p2 = p(-9, -8,0)
 Set p3 = p( 9,  7.5,0)
 Set p9 = p( -9,  7.5,0)
Polyline.Reset
Polyline.AddP p1
Polyline.AddP p2
Polyline.AddP p9
Polyline.AddP p3
Polyline.AddP p1
Polyline.SaveInDoc ( ngroup )
Polyline.Draw

' поле для квадратов

'Parall
  Parall.beg(0) = -7.58
  Parall.beg(1) = -5.72
  Parall.beg(2) = 0
  Parall.p2(0) = -7.58
  Parall.p2(1) = -1.5
  Parall.p2(2) = 0
  Parall.p3(0) = -3.38
  Parall.p3(1) = -5.72
  Parall.p3(2) = 1
  Parall.Draw
  Parall.SaveInDoc
'Parall
  Parall.beg(0) = 1.79
  Parall.beg(1) = -6.67
  Parall.beg(2) = 0
  Parall.p2(0) = 7.97
  Parall.p2(1) = -6.63
  Parall.p2(2) = 0
  Parall.p3(0) = 1.82
  Parall.p3(1) = -0.49
  Parall.p3(2) = 1
  Parall.Draw
  Parall.SaveInDoc
'Parall
  Parall.beg(0) = 6.76
  Parall.beg(1) = 6.18
  Parall.beg(2) = 0
  Parall.p2(0) = 6.73
  Parall.p2(1) = 3.28
  Parall.p2(2) = 0
  Parall.p3(0) = 3.84
  Parall.p3(1) = 6.15
  Parall.p3(2) = 1
  Parall.Draw
  Parall.SaveInDoc
'Parall
  Parall.beg(0) = 0.94
  Parall.beg(1) = 4.52
  Parall.beg(2) = 0
  Parall.p2(0) = 0.94
  Parall.p2(1) = 0.39
  Parall.p2(2) = 0
  Parall.p3(0) = -3.22
  Parall.p3(1) = 4.52
  Parall.p3(2) = 1
  Parall.Draw
  Parall.SaveInDoc
'Parall
  Parall.beg(0) = -7.58
  Parall.beg(1) = 3.28
  Parall.beg(2) = 0
  Parall.p2(0) = -4.62
  Parall.p2(1) = 3.25
  Parall.p2(2) = 0
  Parall.p3(0) = -7.58
  Parall.p3(1) = 6.24
  Parall.p3(2) = 1
  Parall.Draw
  Parall.SaveInDoc



2.2. Строим композицию из импортируемой фигуры на пяти прямоугольниках
' Импорт фигуры или ее задание в диалоге обязательно
Polyline.FromCurrObj 55   ' для преобразования простых линий  в полилинию*
n1 = LastNmb
Dubl
n2 = LastNmb
Dubl
n3 = LastNmb
Dubl
n4 = LastNmb
Dubl
n5 = LastNmb

' Сначала фигуру сдвинем влево и вниз
CurrObjNmb = n1
obj.scale=0.9
obj.origin(0) = 4.71
obj.SetH
obj.origin(1) = -3.51
obj.SetH

' Сначала фигуру сдвинем влево и вниз
CurrObjNmb = n2
obj.scale=0.4
obj.origin(0) = 5.37
obj.SetH
obj.origin(1) = 4.75
obj.SetH

' Сначала фигуру сдвинем влево и вниз
CurrObjNmb = n3
obj.scale=0.6
obj.origin(0) = -1.4
obj.SetH
obj.origin(1) = 2.63
obj.SetH

' Сначала фигуру сдвинем влево и вниз
CurrObjNmb = n4
obj.scale=0.4
obj.origin(0) = -6.37
obj.SetH
obj.origin(1) = 4.84
obj.SetH

' Сначала фигуру сдвинем влево и вниз
CurrObjNmb = n5
obj.scale=0.6
obj.origin(0) = -5.78
obj.SetH
obj.origin(1) = -3.58
obj.SetH



2.3. Импорт фигур и ее раскидка по листу
Import "C:\Oxk\Fig1.dxf", 0
' n1 = LastNmb
' Сначала фигуру сдвинем влево и вниз
' CurrObjNmb = n1
obj.scale=0.8
obj.origin(0) = 4.71
obj.SetH
obj.origin(1) = -3.51
obj.SetH

Import "C:\Oxk\Fig2.dxf", 0
' Сначала фигуру сдвинем влево и вниз
obj.scale=0.4
obj.origin(0) = 5.37
obj.SetH
obj.origin(1) = 4.75
obj.SetH

Import "C:\Oxk\Fig3.dxf", 0
' Сначала фигуру сдвинем влево и вниз
obj.scale=0.6
obj.origin(0) = -1.4
obj.SetH
obj.origin(1) = 2.63
obj.SetH

Import "C:\Oxk\Fig4.dxf", 0
' Сначала фигуру сдвинем влево и вниз
obj.scale=0.4
obj.origin(0) = -6.37
obj.SetH
obj.origin(1) = 4.84
obj.SetH

Import "C:\Oxk\Fig5.dxf", 0
' Сначала фигуру сдвинем влево и вниз
obj.scale=0.5
obj.origin(0) = -5.78
obj.SetH
obj.origin(1) = -3.58
obj.SetH


2-я композиция

2.4. Композиция 2,  МК - прямоугольники задали в диалоге и сохранили

'Parall
  Parall.beg(0) = 9.2
  Parall.beg(1) = 7.74
  Parall.beg(2) = 0
  Parall.p2(0) = 9.17
  Parall.p2(1) = -7.67
  Parall.p2(2) = 0
  Parall.p3(0) = -9.2
  Parall.p3(1) = 7.71
  Parall.p3(2) = 1
  Parall.Draw
  Parall.SaveInDoc
'Parall
  Parall.beg(0) = 7.93
  Parall.beg(1) = 4.78
  Parall.beg(2) = 0
  Parall.p2(0) = 7.9
  Parall.p2(1) = 1.82
  Parall.p2(2) = 0
  Parall.p3(0) = 5.04
  Parall.p3(1) = 4.78
  Parall.p3(2) = 1
  Parall.Draw
  Parall.SaveInDoc
'Parall
  Parall.beg(0) = 7.84
  Parall.beg(1) = -0.23
  Parall.beg(2) = 0
  Parall.p2(0) = 7.87
  Parall.p2(1) = -2.41
  Parall.p2(2) = 0
  Parall.p3(0) = 5.69
  Parall.p3(1) = -0.23
  Parall.p3(2) = 1
  Parall.Draw
  Parall.SaveInDoc
'Parall
  Parall.beg(0) = 1.33
  Parall.beg(1) = 6.18
  Parall.beg(2) = 0
  Parall.p2(0) = 1.4
  Parall.p2(1) = 1.95
  Parall.p2(2) = 0
  Parall.p3(0) = -2.83
  Parall.p3(1) = 6.15
  Parall.p3(2) = 1
  Parall.Draw
  Parall.SaveInDoc
'Parall
  Parall.beg(0) = 4.16
  Parall.beg(1) = -5.95
  Parall.beg(2) = 0
  Parall.p2(0) = 4.13
  Parall.p2(1) = 0.13
  Parall.p2(2) = 0
  Parall.p3(0) = -1.95
  Parall.p3(1) = -5.98
  Parall.p3(2) = 1
  Parall.Draw
  Parall.SaveInDoc
'Parall
  Parall.beg(0) = -4.03
  Parall.beg(1) = -0.98
  Parall.beg(2) = 0
  Parall.p2(0) = -4.03
  Parall.p2(1) = 3.19
  Parall.p2(2) = 0
  Parall.p3(0) = -8.16
  Parall.p3(1) = -0.98
  Parall.p3(2) = 1
  Parall.Draw
  Parall.SaveInDoc


2.5. Строим композицию из одной фигуры по 5 местам (2-й вариант)
' Импорт фигуры и ее раскидка по листу
Polyline.FromCurrObj 55   ' для преобразования простых линий  в полилинию*
n1 = LastNmb
Dubl
n2 = LastNmb
Dubl
n3 = LastNmb
Dubl
n4 = LastNmb
Dubl
n5 = LastNmb

' Сначала фигуру сдвинем влево и вниз
CurrObjNmb = n2
obj.scale=0.5
obj.origin(0) = 6.31
obj.SetH
obj.origin(1) = 3.28
obj.SetH

' Сначала фигуру сдвинем влево и вниз
CurrObjNmb = n3
obj.scale=0.7
obj.origin(0) = -0.84
obj.SetH
obj.origin(1) = 4.29
obj.SetH

' Сначала фигуру сдвинем влево и вниз
CurrObjNmb = n4
obj.scale=0.7
obj.origin(0) = -6.28
obj.SetH
obj.origin(1) = 1.17
obj.SetH

' Сначала фигуру сдвинем влево и вниз
CurrObjNmb = n5
obj.scale=0.8
obj.origin(0) = 0.0
obj.SetH
obj.origin(1) = -2.89
obj.SetH

' Сначала фигуру сдвинем влево и вниз
CurrObjNmb = n1
obj.scale=0.3
obj.origin(0) = 6.57
obj.SetH
obj.origin(1) = -1.41
obj.SetH



МК2.6. ' Строим композицию из пяти импортруемых фигур во 2-й композиции

' Импорт фигуры и ее раскидка по листу
Import "C:\Oxk\Fig1.dxf", 0
' n1 = LastNmb
' Сначала фигуру сдвинем влево и вниз
' CurrObjNmb = n1
obj.scale=0.3
obj.origin(0) = 6.57
obj.SetH
obj.origin(1) = -1.41
obj.SetH

Import "C:\Oxk\Fig2.dxf", 0
' Сначала фигуру сдвинем влево и вниз
obj.scale=0.5
obj.origin(0) = 6.31
obj.SetH
obj.origin(1) = 3.28
obj.SetH

Import "C:\Oxk\Fig3.dxf", 0
' Сначала фигуру сдвинем влево и вниз
obj.scale=0.7
obj.origin(0) = -0.84
obj.SetH
obj.origin(1) = 4.29
obj.SetH

Import "C:\Oxk\Fig4.dxf", 0
' Сначала фигуру сдвинем влево и вниз
obj.scale=0.7
obj.origin(0) = -6.28
obj.SetH
obj.origin(1) = 1.17
obj.SetH

Import "C:\Oxk\Fig5.dxf", 0
' Сначала фигуру сдвинем влево и вниз
obj.scale=0.8
obj.origin(0) = 0.0
obj.SetH
obj.origin(1) = -2.89
obj.SetH
 



МК 2. 7. 3-я композиция

'Parall
  Parall.beg(0) = 9.27
  Parall.beg(1) = 7.74
  Parall.beg(2) = 0
  Parall.p2(0) = 9.23
  Parall.p2(1) = -7.67
  Parall.p2(2) = 0
  Parall.p3(0) = -9.2
  Parall.p3(1) = 7.74
  Parall.p3(2) = 1
Parall.SetNuNvFillColor 0, 0, 250, 254, 209
  Parall.Draw
  Parall.SaveInDoc

'Parall
  Parall.beg(0) = 6.5
  Parall.beg(1) = -6.54
  Parall.beg(2) = 0
  Parall.p2(0) = 6.41
  Parall.p2(1) = 1.24
  Parall.p2(2) = 0
  Parall.p3(0) = 3.02
  Parall.p3(1) = -6.54
  Parall.p3(2) = 1
Parall.SetNuNvFillColor 0, 0, 250, 0, 0
  Parall.Draw
  Parall.SaveInDoc

'Parall
  Parall.beg(0) = 7.8
  Parall.beg(1) = 5.53
  Parall.beg(2) = 0
  Parall.p2(0) = 7.77
  Parall.p2(1) = 2.6
  Parall.p2(2) = 0
  Parall.p3(0) = 4.88
  Parall.p3(1) = 5.53
  Parall.p3(2) = 1
Parall.SetNuNvFillColor 0, 0, 0, 0, 250
  Parall.Draw
  Parall.SaveInDoc
'Parall
  Parall.beg(0) = 1.82
  Parall.beg(1) = 6.47
  Parall.beg(2) = 0
  Parall.p2(0) = 1.79
  Parall.p2(1) = 1.46
  Parall.p2(2) = 0
  Parall.p3(0) = -3.12
  Parall.p3(1) = 6.44
  Parall.p3(2) = 1
Parall.SetNuNvFillColor 0, 0, 0, 250, 0
  Parall.Draw
  Parall.SaveInDoc
'Parall
  Parall.beg(0) = 0.68
  Parall.beg(1) = -2.21
  Parall.beg(2) = 0
  Parall.p2(0) = 0.68
  Parall.p2(1) = -5.17
  Parall.p2(2) = 0
  Parall.p3(0) = -2.18
  Parall.p3(1) = -2.21
  Parall.p3(2) = 1
Parall.SetNuNvFillColor 0, 0, 0, 0, 250
  Parall.Draw
  Parall.SaveInDoc
'Parall
  Parall.beg(0) = -3.97
  Parall.beg(1) = -3.61
  Parall.beg(2) = 0
  Parall.p2(0) = -3.9
  Parall.p2(1) = 0.46
  Parall.p2(2) = 0
  Parall.p3(0) = -7.87
  Parall.p3(1) = -3.54
  Parall.p3(2) = 1
Parall.SetNuNvFillColor 0, 0, 250, 250, 0
  Parall.Draw
  Parall.SaveInDoc
'Parall
  Parall.beg(0) = -5.46
  Parall.beg(1) = 3.8
  Parall.beg(2) = 0
  Parall.p2(0) = -5.43
  Parall.p2(1) = 5.75
  Parall.p2(2) = 0
  Parall.p3(0) = -7.35
  Parall.p3(1) = 3.8
  Parall.p3(2) = 1
Parall.SetNuNvFillColor 0, 0, 250, 0, 0
  Parall.Draw
  Parall.SaveInDoc



МК2_8. Строим композицию из одной фигуры по 6 местам (2-й вариант)
' Импорт фигуры и ее раскидка по листу
Polyline.FromCurrObj 55   ' для преобразования простых линий  в полилинию*
n1 = LastNmb
Dubl
n2 = LastNmb
Dubl
n3 = LastNmb
Dubl
n4 = LastNmb
Dubl
n5 = LastNmb
Dubl
n6 = LastNmb

' Сначала фигуру сдвинем влево и вниз
CurrObjNmb = n2
obj.scale=0.4
obj.origin(0) = 6.28
obj.SetH
obj.origin(1) = 4.23
obj.SetH

' Сначала фигуру сдвинем влево и вниз
CurrObjNmb = n3
obj.scale=0.9
obj.origin(0) = -0.71
obj.SetH
obj.origin(1) = 4.16
obj.SetH

' Сначала фигуру сдвинем влево и вниз
CurrObjNmb = n4
obj.scale=0.2
obj.origin(0) = -6.44
obj.SetH
obj.origin(1) = 4.84
obj.SetH

' Сначала фигуру сдвинем влево и вниз
CurrObjNmb = n5
obj.scale=0.6
obj.origin(0) = -6.11
obj.SetH
obj.origin(1) = -1.20
obj.SetH

' Сначала фигуру сдвинем влево и вниз
CurrObjNmb = n6
obj.scale=0.4
obj.origin(0) = -0.88
obj.SetH
obj.origin(1) = -3.51
obj.SetH

' Сначала фигуру сдвинем влево и вниз
CurrObjNmb = n1
Obj.Uniform = False
Obj.Scale = 0.5
' Obj.ScaleY = 3
' Obj.ScaleZ = 4
' Obj.Normal = p(0,-1,0)
obj.origin(0) = 4.65
obj.SetH
obj.origin(1) = -2.18
obj.SetH



МК2_9. Строим композицию из пяти фигур (сначала зададим квадратики)

' Импорт фигуры и ее раскидка по листу
Import "C:\Rrr\Modc1.dxf", 0
obj.scale=0.8
obj.origin(0) = 4.65
obj.SetH
obj.origin(1) = -2.18
obj.SetH
 

Import "C:\Oxk\Fig1.dxf", 0
obj.scale=0.4
obj.origin(0) = 6.28
obj.SetH
obj.origin(1) = 4.23
obj.SetH

Import "C:\Oxk\Fig2.dxf", 0
' Сначала фигуру сдвинем влево и вниз
obj.scale=0.7
obj.origin(0) = -0.71
obj.SetH
obj.origin(1) = 4.16
obj.SetH

Import "C:\Oxk\Fig3.dxf", 0
' Сначала фигуру сдвинем влево и вниз
obj.scale=0.3
obj.origin(0) = -6.44
obj.SetH
obj.origin(1) = 4.84
obj.SetH

Import "C:\Oxk\Fig4.dxf", 0
' Сначала фигуру сдвинем влево и вниз
obj.scale=0.6
obj.origin(0) = -6.11
obj.SetH
obj.origin(1) = -1.20
obj.SetH

Import "C:\Oxk\Fig5.dxf", 0
' Сначала фигуру сдвинем влево и вниз
obj.scale=0.4
obj.origin(0) = -0.88
obj.SetH
obj.origin(1) = -3.51
obj.SetH



MK2_10. Задание каркаса композиции
'Parall
  Parall.beg(0) = 9.23
  Parall.beg(1) = 7.74
  Parall.beg(2) = 0
  Parall.p2(0) = 9.2
  Parall.p2(1) = -7.67
  Parall.p2(2) = 0
  Parall.p3(0) = -9.2
  Parall.p3(1) = 7.71
  Parall.p3(2) = 1
Parall.SetNuNvFillColor 0, 0, 250, 254, 209
  Parall.Draw
  Parall.SaveInDoc
'Parall
  Parall.beg(0) = 7.93
  Parall.beg(1) = 6.47
  Parall.beg(2) = 0
  Parall.p2(0) = 7.93
  Parall.p2(1) = 3.58
  Parall.p2(2) = 0
  Parall.p3(0) = 4.98
  Parall.p3(1) = 6.44
  Parall.p3(2) = 1
Parall.SetNuNvFillColor 0, 0, 0, 0, 250
  Parall.Draw
  Parall.SaveInDoc
'Parall
  Parall.beg(0) = 6.37
  Parall.beg(1) = 2.73
  Parall.beg(2) = 0
  Parall.p2(0) = 6.41
  Parall.p2(1) = -4.42
  Parall.p2(2) = 0
  Parall.p3(0) = 3.25
  Parall.p3(1) = 2.76
  Parall.p3(2) = 1
Parall.SetNuNvFillColor 0, 0, 250, 0, 0
  Parall.Draw
  Parall.SaveInDoc
'Parall
  Parall.beg(0) = 2.6
  Parall.beg(1) = -0.07
  Parall.beg(2) = 0
  Parall.p2(0) = 2.6
  Parall.p2(1) = -7.22
  Parall.p2(2) = 0
  Parall.p3(0) = -0.39
  Parall.p3(1) = -0.07
  Parall.p3(2) = 1
Parall.SetNuNvFillColor 0, 0, 250, 0, 0
  Parall.Draw
  Parall.SaveInDoc
'Parall
  Parall.beg(0) = -1.63
  Parall.beg(1) = -2.73
  Parall.beg(2) = 0
  Parall.p2(0) = -1.59
  Parall.p2(1) = -5.59
  Parall.p2(2) = 0
  Parall.p3(0) = -4.52
  Parall.p3(1) = -2.7
  Parall.p3(2) = 1
 Parall.SetNuNvFillColor 0, 0, 0, 0, 250
  Parall.Draw
  Parall.SaveInDoc
'Parall
  Parall.beg(0) = -5.27
  Parall.beg(1) = -3.22
  Parall.beg(2) = 0
  Parall.p2(0) = -5.27
  Parall.p2(1) = -0.29
  Parall.p2(2) = 0
  Parall.p3(0) = -8.16
  Parall.p3(1) = -3.19
  Parall.p3(2) = 1
Parall.SetNuNvFillColor 0, 0, 0, 0, 250
  Parall.Draw
  Parall.SaveInDoc
'Parall
  Parall.beg(0) = -1.5
  Parall.beg(1) = 6.28
  Parall.beg(2) = 0
  Parall.p2(0) = -1.43
  Parall.p2(1) = 0.91
  Parall.p2(2) = 0
  Parall.p3(0) = -6.83
  Parall.p3(1) = 6.31
  Parall.p3(2) = 1
Parall.SetNuNvFillColor 0, 0, 0, 255, 0
  Parall.Draw
  Parall.SaveInDoc


МК2_11. Строим композицию из одной фигуры по 6 местам
' Импорт фигуры и ее раскидка по листу
Polyline.FromCurrObj 55   ' для преобразования простых линий  в полилинию*
n1 = LastNmb
Dubl
n2 = LastNmb
Dubl
n3 = LastNmb
Dubl
n4 = LastNmb
Dubl
n5 = LastNmb
Dubl
n6 = LastNmb
' Сначала фигуру сдвинем влево и вниз
CurrObjNmb = n3
obj.scale=0.5
obj.origin(0) = 6.34
obj.SetH
obj.origin(1) = 5.17
obj.SetH

' Сначала фигуру сдвинем влево и вниз
CurrObjNmb = n4
obj.scale=0.7
obj.origin(0) = -4.39
obj.SetH
obj.origin(1) = 3.67
obj.SetH

' Сначала фигуру сдвинем влево и вниз
CurrObjNmb = n5
obj.scale=0.5
obj.origin(0) = -6.93
obj.SetH
obj.origin(1) = -1.63
obj.SetH

' Сначала фигуру сдвинем влево и вниз
CurrObjNmb = n6
obj.scale=0.5
obj.origin(0) = -3.18
obj.SetH
obj.origin(1) = -4.13
obj.SetH

' Сначала фигуру сдвинем влево и вниз
CurrObjNmb = n1
Obj.Uniform = False
Obj.Scale = 0.5
' Obj.ScaleY = 3
' Obj.ScaleZ = 4
' Obj.Normal = p(0,-1,0)
obj.origin(0) = 0.98
obj.SetH
obj.origin(1) = -3.72
obj.SetH

' Сначала фигуру сдвинем влево и вниз
CurrObjNmb = n2
Obj.Uniform = False
obj.scale=0.5
obj.origin(0) = 4.62
obj.SetH
obj.origin(1) = -0.42
obj.SetH



МК2_12. Строим композицию из 6-ти фигур
' Импорт фигуры и ее раскидка по листу
Import "C:\Rrr\Modc1.dxf", 0
obj.scale=0.8
obj.origin(0) = 4.65
obj.SetH
obj.origin(1) = -2.
obj.SetH

Import "C:\Oxk\Fig2.dxf", 0
' Сначала фигуру сдвинем влево и вниз
obj.scale=0.5
obj.origin(0) = 6.34
obj.SetH
obj.origin(1) = 5.17
obj.SetH
'

Import "C:\Oxk\Fig3.dxf", 0
' Сначала фигуру сдвинем влево и вниз
obj.scale=0.7
obj.origin(0) = -4.39
obj.SetH
obj.origin(1) = 3.67
obj.SetH

Import "C:\Oxk\Fig4.dxf", 0
' Сначала фигуру сдвинем влево и вниз
obj.scale=0.5
obj.origin(0) = -6.93
obj.SetH
obj.origin(1) = -1.63
obj.SetH

Import "C:\Oxk\Fig5.dxf", 0
' Сначала фигуру сдвинем влево и вниз
obj.scale=0.5
obj.origin(0) = -3.18
obj.SetH
obj.origin(1) = -4.13
obj.SetH

Import "C:\Oxk\Fig1.dxf", 0
Obj.Uniform = False
obj.scale=0.4
Obj.ScaleY = 1
obj.origin(0) = 0.98
obj.SetH
obj.origin(1) = -3.72
obj.SetH