دخول

Effector · 11-04-2009, 05:33 PM

تحتاج الى خلق كائن CreateOleObject للأوتوكاد :
CreateOleObject('AutoCad.Application');

كود :
var
p1, p2 : OleVariant;
Acad, ActiveDoc, ViewPort : OleVariant;
begin
   // create variant arrays to hold coordinates of the window
   p1 := VarArrayCreate([0,2], VT_R8);
   p2 := VarArrayCreate([0,2], VT_R8);

   // assign values to array elements
   p1[0] := 14330.0; p1[1] := 400.0; p1[2] := 0;  //point (14330,400,0)
   p2[0] := 26400.0; p2[1] := 8500.0; p2[2] := 0;  //point (26400,8500,0)

   Acad :=    CreateOleObject('AutoCad.Application.14');
     if not varisempty(Acad) then
     Acad.visible := visible;

   // open drawing
   ActiveDoc := Acad.ActiveDocument.Open('E:\Home\Planview.dwg');
  
   //Activate viewport
   ViewPort := ActiveDoc.ActiveViewPort;

   // zoom appliciation
   ViewPort.ZoomExtents;
   ViewPort.ZoomWindow(VarArrayRef(p1),VarArrayRef(p2));
end;

http://www.delphi3000.com/article.asp?ID=1850

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة