请大侠看看下面这段代码出了什么问题？？

yu-gn

Dim pt1(0 To 2) As Double
Dim 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出错提示：不能给数组赋值

leeyeafu

你试试这样声明xpt1:
Dim xpt1 As Variant
因为VB/VBA是不能给数组用 = 运算符赋值的。
Variant数据类型用于从AutoCAD ActiveX传递数组数据或AutoCAD ActiveX接收数组数据。也就是说你的数组必须为设置或转换为Variant变体数据类型以由AutoCAD ActiveX对象模型的方法和属性所接受。另外，从AutoCAD ActiveX中输出的数组数据必须处理为变体。

yu-gn

Dim ssetobj As AcadSelectionSet
Set 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，提示为错误的参数号或无效的属性赋值
是我上边这句话语法有错误马？？？？

yu-gn

关于选择集小弟知道的很少，还请大侠帮忙！！！！

mccad

'注意过滤器设置的特殊性
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

yu-gn

我刚开始学着用vb进行cad开发，所以问题很多，希望能得到大家的帮助，
以前在这里已经向大家学习了很多很多东西，也有了很大的提高，也有很多好心的网友们帮我编了很好的程序，在这里再一次表示感谢，当然，更感谢明总为我们大家做出的努力。。。