请大侠看看下面这段代码出了什么问题？？
Dim pt1(0 To 2) As DoubleDim pt2(0 To 2) As Double
Dim xpt1(0 To 2) As Double
pt1(0) = X1: pt1(1) = Y1: pt1(2) = 0
pt2(0) = X2: pt2(1) = Y2: pt2(2) = 0
angle = acadObj.ActiveDocument.utility.anglefromxaxis(pt1, pt2)
angle = angle + pi / 2
xpt1 = acadObj.ActiveDocument.utility.polarpoint(pt1, angle, 25#)
为什么在执行时总是指向“xpt1=”，vb出错提示：不能给数组赋值
这样
你试试这样声明xpt1:Dim xpt1 As Variant
因为VB/VBA是不能给数组用 = 运算符赋值的。
Variant数据类型用于从AutoCAD ActiveX传递数组数据或AutoCAD ActiveX接收数组数据。也就是说你的数组必须为设置或转换为Variant变体数据类型以由AutoCAD ActiveX对象模型的方法和属性所接受。另外，从AutoCAD ActiveX中输出的数组数据必须处理为变体。
非常感谢，试验通过，但出现新问题
Dim ssetobj As AcadSelectionSetSet ssetobj = acadObj.ActiveDocument.selsctionsets.Add("xpoint1")
Dim filtertype As Variant
Dim filterdata As Variant
filtertype = 0
filterdata = "text"
ssetobj.SelectByPolygon acSelectionSetCrossingPolygon, xpt1, xpt2, xpt3, xpt4, filtertype, filterdata
vb指向这里.SelectByPolygon，提示为错误的参数号或无效的属性赋值
是我上边这句话语法有错误马？？？？
有人帮忙吗？？？？
关于选择集小弟知道的很少，还请大侠帮忙！！！！filtertype及filterdata均需要使用数组填充
'注意过滤器设置的特殊性Sub gs()
Dim ssetObj As AcadSelectionSet
Dim ssName As String
ssName = "ss"
Dim xpt(0 To 11) As Double
On Error Resume Next
Set ssetObj = ThisDrawing.SelectionSets(ssName)
If Err Then Set ssetObj = ThisDrawing.SelectionSets.Add(ssName)
ssetObj.Clear
Dim FilterType As Variant
Dim FilterData As Variant
Dim fType(0) As Integer
Dim fData(0) As Variant
fType(0) = 0
fData(0) = "text"
FilterType = fType
FilterData = fData
ssetObj.SelectByPolygon acSelectionSetCrossingPolygon, xpt, FilterType, FilterData
End Sub
感谢明总的帮忙
本帖最后由 作者 于 2003-3-19 23:26:38 编辑我刚开始学着用vb进行cad开发，所以问题很多，希望能得到大家的帮助，
以前在这里已经向大家学习了很多很多东西，也有了很大的提高，也有很多好心的网友们帮我编了很好的程序，在这里再一次表示感谢，当然，更感谢明总为我们大家做出的努力。。。
页:
[1]