Hi Linqur

you have to call

Dim objDraftDoc As Object
Dim objModelLink As Object

Set objModelLink = objDraftDoc.ModelLinks.Add("t.par")
Call objDraftDoc.ActiveSheet.DrawingViews.Add(objModelLink, igFrontView,
1, 0, 0)

I hope, this will help you.

Manfred Zirkel