الاتوكاد مع دلفي

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

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

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

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

وشكرا لكم

[Effector]

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