问题:
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.ActiveDocumentCadApp.Visible = True
Set CadObj = CadDoc.Import(strfname, CadDoc.ModelSpace.Origin, 0.5)
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.ActiveDocumentCadApp.Visible = True
Set CadObj = CadDoc.Import(strfname, CadDoc.ModelSpace.Origin, 0.5)
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货