Question

关于VB对CAD二次开发的一个小问题

首先是引用了CAD的，然后也声明了CAD对象
我在模块中这样写的：
Public Sub Back_Point (ByRef Arr() as double)
Dim Pointobj as Acadpoint '声明点对象

set PointObj = Acadapp.AvtiveDocument.Modelspace.Addpoint(Arr) '创建点
Acadapp.ActiveDocument.SetVariable "PDMODE", 32 '设置点样式
Acadapp.Zble "PDSIZE", 0.1 '设置点大小
Acadapp.ActiveDocument.SetVariate Acadapp.Caption 'CAD获取焦点
Acadapp.ZoomExtents '极限放大

End sub

然后我在窗口的一个按钮控件中这样写，数组中所包含的值都有

Call Pointobj (Location())

结果是传递参数没问题就是在Set的时候提示

我没有使用With语句。

Answer 1

你想实现啥功能啊！