[求助]：用vb打开cad图纸

citykunan · 发表于 2004-12-6 16:40:00

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

怎么用vb打开cad图纸（cad已打开）

acadDoc.SendCommand ("filedia") & Chr(13) & ("0") & Chr(13)
acadDoc.SendCommand ("open") & Chr(13) & ("C:\Lhy_Leo\\ZJG_Site_04_11_16.dwg") & Chr(13)

好像不行，谢谢。

秦林 · 发表于 2004-12-6 19:40:33

Private Sub StartAutoCAD()
Public objDoc As Object
Dim DwgName As String
On Error Resume Next
Set objAcad = GetObject(, "AutoCAD.Application")
If Err Then
      Set objAcad = CreateObject("AutoCAD.Application")
      Err.Clear
End If
If Right(App.Path, 1) = "\" Then
      DwgName = App.Path & "facility.dwg"
Else
      DwgName = App.Path & "\facility.dwg"
End If
Set objDoc = objAcad.ActiveDocument
If objDoc.FullName <> DwgName Then
      objDoc.Open DwgName
End If
objAcad.Visible = True
end sub

账号		自动登录	找回密码
密码			立即注册

[求助]：用vb打开cad图纸

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子