- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
iPart := ksPart(iDocument3D.GetPart( pNew_Part )); // новый компонент
if iPart <> nil then
begin
iSketchEntity := ksEntity( iPart.NewEntity( o3d_sketch ));
if iSketchEntity <> nil then
begin
// интерфейс свойств эскиза
iSketchDef := ksSketchDefinition(iSketchEntity.GetDefinition);
if iSketchDef <> nil then
begin
// интерфейс плоскости XOY
iPlaneEntity := ksEntity(iPart.GetDefaultEntity( o3d_planeXOY ));
if iPlaneEntity <> nil then
begin
iSketchDef.SetPlane( iPlaneEntity ); // установим плоскость XOY базовой для эскиза
iSketchEntity.Create; // создадим эскиз
// интерфейс редактора эскиза
iSketchDocument2D := ksDocument2D(iSketchDef.BeginEdit);
if iSketchDocument2D <> nil then
begin
... //сокращено для вашего благополучия
if iBossExtrusionDef <> nil then
begin
iExtrusionProperty := ksExtrusionPa-ram(iBossExtrusionDef.ExtrusionParam); // интерфейс структуры параметров выдавли-вания
iThinProperty := ksThinParam(iBossExtrusionDef.ThinParam); // интер-фейс структуры параметров тонкой стенки
if (iExtrusionProperty <> nil) and (iThinProperty <> nil ) then
begin
iBossExtrusionDef.SetSketch( iSketch2Entity ); // эскиз операции выдав-ливания
iExtrusionProperty.Direction := dtNormal; // направление выдавливания (прямое)
iExtrusionProperty.TypeNormal := etBlind; // тип выдавливания ( стро-го на глубину )
iExtrusionProperty.DepthNormal := 50; // глубина выдавливания
iThinProperty.Thin := false; // без тонкой стенки
iBossExtrusion.Create; // создадим операцию
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
Form2.Close;
end;
guest 16.04.2016 17:52 # +8
inkanus-gray 17.04.2016 00:47 # +2
Да это же логотип Промышленно-строительного банка!
guesto 18.04.2016 15:59 # +1
inkanus-gray 18.04.2016 16:03 # 0
kerman 16.04.2016 18:16 # +2
Да и вообще, может ли нормальный человек каждый раз писать ":=" вместо "=".
Я предлагаю расширить синтаксис паскаля и писать ":=>"
guest 16.04.2016 18:45 # +1
bormand 16.04.2016 18:48 # +3
guest 16.04.2016 19:07 # 0
tucvbif 16.04.2016 21:40 # 0
guesto 17.04.2016 02:47 # +1
guest 16.04.2016 22:59 # 0
на поскале даже целые ОС написаны были
отличный яп кстати гря
inkanus-gray 16.04.2016 23:49 # +1
kerman 17.04.2016 00:05 # +4
inkanus-gray 17.04.2016 00:40 # 0
kerman 17.04.2016 01:04 # 0
inkanus-gray 17.04.2016 01:08 # +1
j123123 17.04.2016 01:10 # 0
inkanus-gray 17.04.2016 01:12 # +1
Так разве не будет нагляднее?
j123123 17.04.2016 01:15 # +1
kerman 17.04.2016 01:24 # +5
inkanus-gray 17.04.2016 01:28 # +2
Soul_re@ver 17.04.2016 17:26 # 0
roman-kashitsyn 18.04.2016 11:31 # +3
В крестах нашли применение:
Вместо унылых жабьих instanceof.
TarasB 18.04.2016 11:20 # +3
А вот опасность допустить ошибку в условии сравнения - она реальна.
roman-kashitsyn 18.04.2016 11:34 # +2
Кмк, гораздо нагляднее, чем = или :=.
dxd 18.04.2016 11:44 # +1
roman-kashitsyn 18.04.2016 11:48 # 0
Это всё фигня. Генерить ошибку парсинга, делов-то. В Scala есть такие же "коллизии", проблема скорее теоретическая, чем практическая.
inkanus-gray 18.04.2016 12:32 # 0
А можно и так:
И даже мешать оба стиля в одной программе.
roman-kashitsyn 18.04.2016 12:36 # 0
В OCaml тоже.
inkanus-gray 18.04.2016 12:38 # 0
roman-kashitsyn 18.04.2016 12:55 # +2
inkanus-gray 18.04.2016 14:06 # 0
= — это уравнение, как в математике;
-> — это отображение, как в математике;
<- — это уже чисто императивная конструкция, стрелка показывает направление копирования данных.
kerman 18.04.2016 11:42 # 0
А ошибиться в условии... Ну был бы дурак, ошибиться всегда где найдётся )
TarasB 18.04.2016 16:09 # 0
if (b=bar())...
такое шарп тоже не пропустит?
kerman 18.04.2016 16:14 # 0
3.14159265 18.04.2016 16:11 # 0
42 == x
null == ptr
"".equals(str)
Ошибки? Слышал не.Только так и можно на сишко- кресто- жаба- блядском говне писать.
gost 16.04.2016 18:29 # +3
Предлагаю ввести новый оператор - "всё, пиздец;", который будет автоматически закрывать все открытые скобки begin'ы.
bormand 16.04.2016 18:32 # +5
Предлагаю пойти на питон.
gost 16.04.2016 18:37 # 0
kegdan 16.04.2016 20:46 # +3
gost 16.04.2016 22:19 # +1
kegdan 16.04.2016 22:24 # +1
guest 16.04.2016 22:59 # +1
>>за обе щеки
блядь
inkanus-gray 17.04.2016 01:17 # 0
kegdan 17.04.2016 08:09 # 0
inkanus-gray 17.04.2016 13:50 # 0
1024-- 16.04.2016 20:00 # +1
tucvbif 16.04.2016 21:41 # +2
guesto 17.04.2016 02:46 # 0
на современных ЯП хрена-с так сделаешь
понаплодили лексем, блядь
inkanus-gray 17.04.2016 22:09 # 0
bormand 17.04.2016 22:10 # 0
j123123 16.04.2016 19:58 # 0
LispGovno 16.04.2016 22:17 # +3
Мне нравятся местные ценители. Они всегда знают где найти похожее говно
guest 19.04.2016 21:41 # +1