[求助]用vb怎么调用autocad2004

movie2003

用vb怎么调用AutoCAD2004，我试了怎么不行
Private Sub Command1_Click()

Dim acadapp As AcadApplication
On Error Resume Next
Set acadapp = GetObject("autocad.application.16")
If Err Then
Err.Clear
Set acadapp = CreateObject("autocad.application.16")
If Err Then
MsgBox Err.Description
Exit Sub
End If
End If
Dim polyobj As AcadLWPolyline
Dim acaddoc As AcadDocument
Set acaddoc = acadapp.ActiveDocument
Dim sta(0 To 5) As Double
sta(0) = 1
sta(1) = 1
sta(2) = 2
sta(3) = 2
sta(4) = 2
sta(5) = 1
Set polyobj = acaddoc.ModelSpace.AddLightWeightPolyline _
(sta)
polyobj.Closed = True
End Sub
试过后cad没反应，高手帮帮忙

topirol

不知道，你引用了CAD的类型库没有？

gzy

是不是版本的问题啊？

movie2003

我已经引用了

movie2003

那位老大用的是cad2002帮我试试好不好用

sdxylijian

On Error Resume Next '错误处理
Set AcadApp = GetObject(, "autocad.application") '启动AutoCAD
If Err Then
    Err.Clear '清理错误
    Set AcadApp = CreateObject("autocad.application")
    If Err Then
    MsgBox Err.Description
    Exit Sub
    End If
End If

zeng29

如果用GetObject或CreateObject则不用引用AutoCAD类型库,但你的GetObject用法有错误!
CAD的进程及所有实体都须声明为Object.在不需要错误陷阱的时候要关闭,以便调试.

2. Private Sub Command1_Click()
   
3. 
   
4. Dim acadapp As Object
   
5. On Error Resume Next
   
6. Set acadapp = GetObject(, "AutoCAD.Application.16")
   
7. If Err Then
   
8. Err.Clear
   
9. Set acadapp = CreateObject("autocad.application.16")
   
10. If Err Then
    
11. MsgBox Err.Description
    
12. Exit Sub
    
13. End If
    
14. End If
    
15. acadapp.Visible = True
    
16. On Error GoTo 0
    
17. Dim polyobj As Object
    
18. Dim acaddoc As Object
    
19. Set acaddoc = acadapp.ActiveDocument
    
20. Dim sta(0 To 5) As Double
    
21. sta(0) = 1
    
22. sta(1) = 1
    
23. sta(2) = 2
    
24. sta(3) = 2
    
25. sta(4) = 2
    
26. sta(5) = 1
    
27. Set polyobj = acaddoc.ModelSpace.AddLightWeightPolyline _
    
28. (sta)
    
29. polyobj.Closed = True
    
30. End Sub
    

Private Sub Command1_Click()<br /> <br /> Dim acadapp As Object<br /> On Error Resume Next<br /> Set acadapp = GetObject(, "AutoCAD.Application.16")<br /> If Err Then<br /> Err.Clear<br /> Set acadapp = CreateObject("autocad.application.16")<br /> If Err Then<br /> MsgBox Err.Description<br /> Exit Sub<br /> End If<br /> End If<br /> acadapp.Visible = True<br /> On Error GoTo 0<br /> Dim polyobj As Object<br /> Dim acaddoc As Object<br /> Set acaddoc = acadapp.ActiveDocument<br /> Dim sta(0 To 5) As Double<br /> sta(0) = 1<br /> sta(1) = 1<br /> sta(2) = 2<br /> sta(3) = 2<br /> sta(4) = 2<br /> sta(5) = 1<br /> Set polyobj = acaddoc.ModelSpace.AddLightWeightPolyline _<br /> (sta)<br /> polyobj.Closed = True<br /> End Sub<br />

movie2003

多谢老大，问题解决了

movie2003

为什么有时会出现下面的情况