ֲ ί ˲ 37
15 .101.000 000
..
..
__________________________________________
__________________________________________
ò
________________(..., ..)
, 2012
.. 3
1 ̲ 4
1.1 4
1.2 . 7
2 в ײ 9
2.1 . 9
2.1.1. Autodesk AutoCAD.. 9
2.1.2. . 9
2.1.3. Delcam PowerMill 10
2.1.4. SolidWorks. 11
2.2. . 12
2.2.1. Delphi 12
2.2.2. Microsoft Visual C + +. 12
2.2.3. C Sharp. 13
2.2.4. Visual Basic. 14
3 .. 15
3.1 . 15
3.2 . 17
3.3 ϳ . 20
.. 22
˲.. 23
.. 24
. (-) .
- , .
:
- ;
- ;
- .
, - , , , , , , .
, , - , . , , . , () . - , ᒺ .
1 ̲
1.1
(; . Computer-aided design) - ' , (CAD), (CAE) (CAM) , / .
|
|
|
- , ᒺ. , () . . , . , , ; . ( , , ). ϳ . , , ᒺ , , . - , . (), 㳿 .
, , , , , , . 䳿 :
- ;
- ;
- ;
- ;
- ;
- ;
- .
. .
. - , . - , , . , .
. , . () . , , , . .
. , . ֳ , , , .
|
|
|
. , , .
˳ . ( ). . - .
. ϳ , . , , . .
. - , - . ³ ( ).
1.2
. , , ' , .
. , , .
, .
. . , , , , , , , . . , . , . . . , . . . . , , ' , , . , ' . , , , , , . ' , , , . ' .
|
|
|
2 в ײ
Autodesk AutoCAD
AutoCAD - , Autodesk. 1982 . AutoCAD , , . 18 . г .
AutoCAD , . AutoCAD . AutoCAD Autodesk , AutoCAD Mechanical, AutoCAD Electrical, AutoCAD Architecture, GeoniCS, Promis-e, PLANT-4D, AutoPLANT, GraphiCS, MechaniCS .
( - ) .
-3D - , , ' (, ), ' (, , , . .) -, , , , .
, -3D . :
, ( , , ..); ; , ; (, , ..).
Delcam PowerMill
Delcam CAD/CAM , .
PowerMILL .
, PowerMILL, :
- ;
- ;
- 3D ;
- ' ;
- ;
- , ;
|
|
|
- ;
SolidWorks
SolidWorks SolidWorks Corporation( Dassault Systèmes), , - .
SolidWorks , CALS-, Windows- .
" ". SolidWorks Windows, Microsoft Windows, , copy-and-paste, drag-and-drop, , . , SolidWorks 䳺 Windows-, Excel, Word . , SolidWorks . SolidWorks . SolidWorks 20 .
Delphi
Delphi - , , '- , Object Pascal. Delphi 7.0, Borland Delphi Object Pascal. 2007 Delphi ( Object Pascal) , ' (, . NET) : ' class helpers, .
Object Pascal - , , , . , , 5.5, '- , Object Pascal - ( ) , - RTTI.
Object Pascal ++ , ' '. NewInstance FreeInstance TObject. , - - .
2.2.2. Microsoft Visual C + +
Microsoft Visual C+ + (MSVC) - C++, Microsoft Microsoft Visual Studio, Visual C++ Express Edition. Microsoft QuickC.
Visual C Managed C++ C++/ CLI, C++, . NET Framework, Windows. Visual C , Visual Studio, Visual Basic. NET, Visual J # Win32, (Visual Basic Visual J ).
C Sharp
C# ( ѳ ) - '- . 1998-2001 Microsoft Microsoft. NET Framework ECMA-334 ISO / IEC 23270.
C# C- , C Java. , , ( ), , , 䳿, , , , , LINQ, , XML.
- C, Java, Delphi, Smalltalk - #, , , , , C # ( C).
Visual Basic
Microsoft Visual Basic - , Microsoft, . Visual Basic , , , - , . Visual Basic '- - . VB .
|
|
|
Visual Basic , , Microsoft Windows.
' Windows, Windows-. ' , , : , , , (Intellisense). Visual Basic , , .
'- Delphi AutoCAD, AutoCAD , - - 볺.
3.1
' AutoCad Delphi AutoCad. AutoCad 2004 - acax16enu.tlb, - acad.tlb. project Import Type Library. ' (. .1) .
3.1. ³
() - ' .
- , .
, , , ' . , .
, , . , (2 - 15 ).
2.
3.2.
(ᒺ )
, , ( 3.1).
˳ 3.1.
e1:=StrToFloat(Edt1.Text);
e2:=StrToFloat(Edt2.Text);
e3:=StrToFloat(Edt3.Text);
e4:=StrToFloat(Edt4.Text);
e5:=StrToFloat(Edt5.Text);
e6:=StrToFloat(Edt6.Text);
, Real. , npoint ( 3.2).
˳ 3.2.
var
x1,x2:npoint;
e1,e2,e3,e4,e5,e6: Real;
, . AutoCAD, , , (. ˳ 3.3).
˳ 3.3. AutoCAD,
procedure TForm1.FormCreate(Sender: TObject);
var
AutoCAD: OleVariant;
begin
try
// AutoCAD ,
AutoCAD:= GetActiveOleObject('AutoCAD.Application');
AcadDocument1.ConnectTo((IDispatch(AutoCAD) as IAcadApplication).ActiveDocument);
except
//
AcadDocument1.Connect;
end;
end;
, .
3.2
735643, (-).
(. 3.3). , , .
3.3.
(. 3.4) , :
- L1;
- L2 L3;
- d1-d3;
3.4.
( , ..), , . ϳ . , Autodesk AutoCAD (. 3.5). .
3.5.
, , . , .
3.3 ϳ
, , .
- , , .
3.6 - 3.7. 3.8 - 3.9.
, , .
3.6. 1
3.7. 2
3.8 1
3.9 2
(-) . , : , .
:
- , API-, ;
- ;
- ;
- ;
- , , .
˲
1. 2.105-95. . . 01.07.97. , 1996. 36 . ( ).
2. 3008-95. . . .
3. .. (). : , 1999. 31 .
4. .. . / .. . .: 2008. 250 .
5. .., . . AutoCAD, - 2004. 271 .
6. .. . / .. // . / . . 4, . 50. : , 2001. .169-173.
7. .. AutoCAD , -, 2003. 224 .
8. . . / . . . - -.: 2005.- 560 .
9. . AutoCAD 2005 . . - .: , 2005. 180 .
10. .. . / .. // . .: , 2010. . 85. .227-231.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls;
type
TForm1 = class(TForm)
Button: TButton;
Button1: TButton;
img1: TImage;
lbl7: TLabel;
grp1: TGroupBox;
lbl1: TLabel;
lbl2: TLabel;
lbl3: TLabel;
lbl4: TLabel;
lbl5: TLabel;
lbl6: TLabel;
edt1: TEdit;
edt2: TEdit;
edt3: TEdit;
edt4: TEdit;
edt5: TEdit;
edt6: TEdit;
procedure ButtonClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
..
.
.
.
.
.
.
.
.
.
