+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : الاتوكاد مع دلفي (/showthread.php?tid=791)
الاتوكاد مع دلفي - محمد ابو اسامه - 09-04-2009
الأخوة الأعزاء
السلام عليكم ورحمة الله
طلب منى مكتب تخطيط مساحي يستخدم برنامج الاتوكاد في عمله للتصميم برنامج لحفظ بيانات عملائهم من ضمن هذه البيانات بعض المخططات المصممة ببرنامج الاتوكاد السؤال ألان كيف افتح ملف مصمم بالاتوكاد من خلال الدلفى وبعد الفتح واختيار الجزء الخاص بالعميل كيف أحفظ هذا الجزء من التصميم في سجل العميل إذا كنت مستخدم قاعدة بيانات من نوع اكسيس وتفضلوا بقبول تحياتي
وشكرا لكم
الاتوكاد مع دلفي - Effector - 11-04-2009
تحتاج الى خلق كائن 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