vb6中，调用auto cad打开.DXF文件，遇到的问题？

[zxychina]

问题：
1.用如下代码，可打开"d:\aaa.dxf"；但是cad的标题仍然是Drawing1.dwg,当如何设置以使标题为"d:\aaa.dxf"？
2.我试过在一个cad进程中打开两个.dxf文档，出现的问题是：打开第二个.dxf文档时，提示无法打开样板文档（.dwt）。请问，如何解决？
Dim strfname As String
Dim CadApp As AcadApplication
Dim CadDoc As AcadDocument
Dim CadObj As Object


strfname = "d:\aaa.dxf"

Set CadApp = New AcadApplication
Set CadDoc = CadApp.ActiveDocument

CadApp.Visible = True
Set CadObj = CadDoc.Import(strfname, CadDoc.ModelSpace.Origin, 0.5)

[captainivy]

用ShellExecute试一下