مهارات الاتصال أوتوكاد

// يستخدم comobj ؛

// لـ AutoCad 2000

الإجراء tform1.button1click (المرسل: tobject) ؛

var

OBJ_ACAD: Olevariant ؛

يبدأ

يحاول

OBJ_ACAD: = getActiveOleObject ('' 'AutoCad.Application.15' ') ؛

يستثني

OBJ_ACAD: = createOleObject ('' 'AutoCad.Application.15' ') ؛

نهاية؛

obj_acad.visible: = true ؛

obj_acad.documents.open ('' g: //autocad/data/dwg/4.dwg '') ؛

نهاية؛

// لـ R14

الإجراء tform1.button1click (المرسل: tobject) ؛

var

OBJ_ACAD: Olevariant ؛

يبدأ

يحاول

OBJ_ACAD: = getActiveOleBject ('' 'AutoCad.Application.14' ') ؛

يستثني

OBJ_ACAD: = createOleObject ('' 'AutoCad.Application.14' ') ؛

نهاية؛

obj_acad.visible: = true ؛

obj_acad.activedocument.open ('' g: //autocad/data/dwg/4.dwg '') ؛

نهاية؛