小弟有一火急问题求助!后天就要交程序了!

odinknight

AutoCAD2000 vba 编辑器 我用此接口打开文件(odin2d.dwg)后,就是没法对其进行编辑,连在上面画线都不行 之前已经定义 public Thisdrawing as Object 画线的语句是 Set tml1 = ThisDrawing.ModelSpace.AddLine(E1, E2) 期间的语句省略,定义和运算肯定都没问题,就是编辑不了已经打开的图,出错提示为"自动化错误" 不知是接口问题还是画线那句的问题,望不吝赐教! Sub loadcad2d()
Rem load CAD

On Error Resume Next
Set acadApp = GetObject("AutoCAD.Application")
If Err Then
Err.Clear
Set acadApp = CreateObject("AutoCAD.Application")
If Err Then
MsgBox Err.Description
Exit Sub
End If End If acadApp.Visible = True Set ThisDrawing = acadApp.ActiveDocument Dim dwgName As String
dwgName = "c:\odin\ff\odin2d.dwg"
If Dir(dwgName) <> "" Then
ThisDrawing.Application.Documents.Open dwgName
Else
MsgBox "File " & dwgName & " does not exist."

End If End Sub

雪山飞狐_lzh

vba里定义ThisDrawing干什么？


GetObject和CreateObject也不能要

mikewolf2k

对,vba中无需连接cad，直接画线就可以了。你可以参照help.

odinknight

不会吧,我把他们都去掉,就出现"对象定义块为设置"的错误,怎么办啊?

雪山飞狐_lzh

Public Sub Test()
Dim dwgName As String
dwgName = "d:\1.dwg"
If Dir(dwgName) <> "" Then
Application.Documents.Open dwgName
Else
MsgBox "File " & dwgName & " does not exist."

End If
End Sub

odinknight

那画线的那条语句该怎么该啊,谢谢好心人的帮忙啊!

clement

你用的是AutoCAD 带的VBA还是VB 6?

clement

你E1和E2是怎么定义的.


必须得是


Dim E1(0 to 2) as Double


Dim E2(0 to 2) as Double


才行

odinknight

我已经搞定了,多谢各位的关心和帮助!