اتوکد 2007

[شفیعی]

سلام
من می خواهم برنامه ای بنویسم که بتوان با آن با اتوکد 2007 ارتباط برقرار کرد و یکسری خطوط موجود در فایلها را مشخص نمود و طول و ابعاد روی خطوط زد از دوستان کسی می تواند در این زمینه بنده را کمک کند

[شفیعی]

سلام


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,ComObj, ExtCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Panel1: TPanel;
Label2: TLabel;
procedure FormActivate(Sender: TObject);
procedure Label2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Mspace, Acad : OleVariant;
V : Variant;
implementation
{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
var
p1: OleVariant; // start & end points of line
CONST VT_R8 = 5;
begin
// Create variant arrays to hold coordinates
{ 8 byte real defined in /Source/RTL/Win/ActiveX.Pas }
p1 := VarArrayCreate([0, 2], VT_R8);
// Assign values to array elements
// Get Application and ModelSpace objects:
// if it is not running - start it up
Acad:= CreateOleObject('AutoCad.Application');
// bring AutoCAD to the windows desktop
Acad.visible:= True;
Mspace := Acad.ActiveDocument.ModelSpace;
// use AutoCAD methods to draw a line and 3 circles
p1[0] :=50;
p1[1] :=50;
p1[2] := 0.0;
MSpace.AddCircle(VarArrayRef(p1),5).Update;
MSPACE.AddText('AUTOCAD 2007 ',VarArrayRef(p1),20);
ACAD.Application.ZoomExtents;
END;

procedure TForm1.Label2Click(Sender: TObject);
var s:OleVariant;
S1:STRING;
begin
Randomize;
S1:='NA'+INTTOSTR(RANDOM(10));
FORM1.Caption:=S1;
S:=ACAD.ActiveDocument.SelectionSets.Add(S1);
S.SelectOnScreen;
end;

[شفیعی]

سلام
از دوستان کسی می تواند کمک کند

[dariush206]

با سلام
دوستان من می خوام فایلهای اتوکد dwg را تو دلفی بتونم نمایش بدم
لطفا کمک کنید

[dariush206]

با سلام
دوستان من می خوام فایلهای اتوکد dwg را تو دلفی بتونم نمایش بدم
لطفا کمک کنید 9155137824