我想用VB编程然后在CAD里面画一个圆，但是总出现实时错误438，求高手~~

孙东东007 发布于 2015-05-21 10:53， 560 次点击

Dim AcadApp As AcadApplication

Private Sub Command1_Click()
Dim circleObj As AcadCircle
Dim centerpoint(0 To 2) As Double
Dim radius As Double
centerpoint(0) = 20: centerpoint(1) = 30: centerpoint(2) = 0
radius = Val(Text1.Text)
Set circleObj = AcadApp.ActiveDocument.ModelSpace.AddCircle_(centerpoint, radius)
ZoomAll
End Sub

Private Sub Form_Load()
On Error Resume Next
Set AcadApp = GetObject(, "AutoCAD.Application")
If Err Then
Err.Clear
Set AcadApp = CreateObject("AutoCAD.Application")
If Err Then
MsgBox ("不能运行AutoCAD 2007,请检查是否安装了AutoCAD 2007")
Exit Sub
End If
End If
AcadApp.Visible = True
End Sub

8 回复

lianyicq2015-05-21 10:57

Set circleObj = AcadApp.ActiveDocument.ModelSpace.AddCircle_(centerpoint, radius)
怎么还是昨天同样的错误?
删掉红色下划线

孙东东0072015-05-21 11:01

还是不好使~~~~我都困扰死了，全掉了也不好使，用你的那个代码也不行

孙东东0072015-05-21 11:02

你听听我的设计流程对不对

孙东东0072015-05-21 11:04

我先在工程菜单里点击引用，选择AUTOcad,然后在窗口里输入打开CAD的代码，接着在窗口里放置了一个按钮和一个文本框，，然后编写程序，，，，，，，，，，，，，就这样按理说应该没问题啊

lianyicq2015-05-21 11:07

回复 4楼孙东东007

烤验我原本就糊涂的脑子
我原样拷你贴的代码,工程中引用ACAD后,运行出现

只有本站会员才能查看附件，请登录

去掉下划线就正常了.
难道你不知你ACAD版本?

lianyicq2015-05-21 11:16

我用的是ACAD2013,需要的是这句
Set AcadApp = CreateObject("AutoCAD.Application")
生成ACAD应用

孙东东0072015-05-21 11:16

哈哈哈，，，可以啦，，，万分感谢，可是昨天我也按照你的方法弄了，可是不知怎么的就没好使，不管怎么样，谢谢了，谢谢谢谢谢谢谢谢谢谢谢谢谢~~~~~~~~~给你一万个赞！！！

孙东东0072015-05-22 11:45

回复 2楼 lianyicq

我又出现问题了，师傅，你忙不？