delphi4arab منتديات دلفي للعرب

الأخوة الأعزاء

السلام عليكم ورحمة الله

طلب منى مكتب تخطيط مساحي يستخدم برنامج الاتوكاد في عمله للتصميم برنامج لحفظ بيانات عملائهم من ضمن هذه البيانات بعض المخططات المصممة ببرنامج الاتوكاد السؤال ألان كيف افتح ملف مصمم بالاتوكاد من خلال الدلفى وبعد الفتح واختيار الجزء الخاص بالعميل كيف أحفظ هذا الجزء من التصميم في سجل العميل إذا كنت مستخدم قاعدة بيانات من نوع اكسيس وتفضلوا بقبول تحياتي

وشكرا لكم

تحتاج الى خلق كائن 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

محمد ابو اسامه

Effector