Question

vb开发cad

我想用VB开发CAD画出一个圆然后复制，为什么下面这段代码执行不了？请了解用法的高人指点！不胜感激！
Dim AcadApp As AcadApplication

Private Sub Command1_Click()
Dim circleobj As AcadCircle, copycircle As AcadCircle
Dim centerpoint(0 To 2) As Double
Dim radius As Double
centerpoint(0) = 20#: centerpoint(1) = 30#: centerpoint(2) = 0#
radius = 5#
Set circleobj = AcadApp.ActiveDocument.ModelSpace.AddCircle(centerpoint, radius)
ZoomAll
End Sub

Private Sub Command2_Click()
Set copycircle = circleobj.Copy '复制圆
copycircle.Color = 1 '红色
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 ("不能运行")
Exit Sub
End If
End If
AcadApp.Visible = True
End Sub

Answer 1

Dim AcadApp As AcadApplication
Dim circleobj As AcadCircle, copycircle As AcadCircle
Private Sub Command1_Click()

Dim centerpoint(0 To 2) As Double
Dim radius As Double
centerpoint(0) = 20#: centerpoint(1) = 30#: centerpoint(2) = 0#
radius = 5#
Set circleobj = AcadApp.ActiveDocument.ModelSpace.AddCircle(centerpoint, radius)
ZoomAll
End Sub

Private Sub Command2_Click()
Set copycircle = circleobj.Copy '复制圆
copycircle.Color = 1 '红色
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 ("不能运行")
Exit Sub
End If
End If
AcadApp.Visible = True
End Sub