首页 新闻 搜索 专区 学院

vb操作AutoCAD

0
悬赏园豆:15 [已关闭问题] 关闭于 2015-05-25 11:33

请教各位一下,现在想实现vb程序把AutoCAD生成的dwg文件插入到excel表格中,代码如何实现啊

Private Sub Command1_Click()
Dim acadapp As AcadApplication

On Error Resume Next
Set acadapp = GetObject(, "AutoCAD.application")
If Err Then
   Err.Clear
   Set acadapp = CreateObject("AutoCAD.application")
   If Err Then
      MsgBox ("不能运行AutoCAD,请检查是否安装了AutoCAD")
      Exit Sub
   End If
End If

    acadapp.WindowState = acMax
    acadapp.Visible = True
    
Dim myfilename As String
myfilename = "xxx.dwg"                'dwg文件路径

If Dir(myfilename) <> "" Then
    acadapp.Documents.Open myfilename
Else
    MsgBox ("文件不存在")
End If

End Sub

上面代码用AutoCAD打开了dwg文件

接下来选中对象,复制,然后粘贴到excel中如何实现呀?求大神指导,跪谢!

SharpCJ的主页 SharpCJ | 菜鸟二级 | 园豆:242
提问于:2015-05-21 17:30
< >
分享
清除回答草稿
   您需要登录以后才能回答,未注册用户请先注册