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

zxychina 2003-12-22 08:16:23
问题:
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)

...全文
89 点赞 收藏 1
写回复
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
captainivy 2003-12-22
用ShellExecute试一下
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告