// يستخدم 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 '') ؛
نهاية؛