我怎么调不出函数啊？（附代码）

lshaohan

我式新手，请看下面代码：

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

Form1.Hide
AcadApp.Visible = True
Dim pt1(0 To 2) As Double
pt1(0) = 100#: pt1(1) = 100#: pt1(2) = 0#
Dim radius As Double
radius = 60#

Dim cirobj1 As AcadCircle

Set cirobj1 = Addcir(pt1, radius)

ZoomAll

End Sub

Public Function Addcir(ByVal pt As Variant, ByVal radius As Double) As AcadCircle

Dim cirobj As AcadCircle
Dim ptcen(0 To 2) As Double
ptcen(0) = pt(0): ptcen(1) = pt(1): ptcen(2) = pt(2)

Set cirobj = AcadApp.ActiveDocument.ModelSpace.AddCircle(ptcen, radius)
cirobj.Update
Addcir = cirobj

End Function

我是想打开CAD后调用Addcir函数画一个圆，可是怎么不对啊？好像ptcen的值赋不进去，我从立即窗口赋值，还是画不出圆，Addcir是从工具里添加进去的，请高手指点一下嘛，

mikewolf2k

点要定义为variant, 不能定义为数组。

lshaohan

怎么定义成Variant啊，我现在发现值已经赋进去了，但是执行Set cirobj = AcadApp.ActiveDocument.ModelSpace.AddCircle(ptcen, radius)时好像出了问题，开始ptcen,radius的值已经赋进去了，但执行这一句后又没有值了，麻烦高手试一下嘛

mikewolf2k

对啊，ptcen必需定义为variant，不能直接定义为数组。

你试试看先将其定义为variant，然后用其getpoint，这时它会变成数组，再修改数组的值，再addcircle看看。

mccad

整个程序没有什么大问题。
AcadApp有没有定义，可在最前面写上 Dim AcadApp As AcadApplication 试试。
另外，在你的函数中最后一个语句应为 Set Addcir = cirobj
还有，你那个函数AddCir有什么用，简直就是AddCircle一样，如果还是想写成函数，呵呵，那就写成这样吧：

2. Public Function Addcir(ByVal pt As Variant, ByVal radius As Double) As AcadCircle
3.     Set Addcir = AcadApp.ActiveDocument.ModelSpace.AddCircle(pt, radius)
4.     Addcir.Update
5. End Function

Public Function Addcir(ByVal pt As Variant, ByVal radius As Double) As AcadCircle     Set Addcir = AcadApp.ActiveDocument.ModelSpace.AddCircle(pt, radius)     Addcir.Update End Function

AddCircle方法中的点坐标，两种定义方法都可以。并不存在问题。

lshaohan

谢谢各位，现在对了，现在我试了一下，是没有定义AcadApp为AcadApplication的原因，我这里主要是为了看怎么调函数，所以Addcir与VBA自己的Addcircle一样，因为在其他的一个程序中需要调函数，没有反影应，而将函数的代码不用函数形式写又是对的，我在去看看那个程序，谢谢各位，先走了哈