求救：关于选择集中AddItems加入已经绘制的图形错误

MTC

2. '创建临时的选择集用户保存显示范围的画叉和数字编号
   
3.         Dim SSetOfShow As Object
   
4.         Dim pandan As Boolean
   
5.         For Each SSetOfShow In objDoc.SelectionSets
   
6.             If SSetOfShow.Name = "SSetName" Then
   
7.                 pandan = True
   
8.                 Exit For
   
9.             End If
   
10.         Next
    
11.         '判断选择集是否存在
    
12.         If pandan Then
    
13.             SSetOfShow.Delete                                         '创建集合，如集存在，则删除，新建
    
14.         End If
    
15.         SSetOfShow = objDoc.SelectionSets.Add("SSetName")        '新建选择集
    
16.         errTest = True
    
17.         '下面的代码在模型空间的每个图
    
18.         Dim objEntity(0) As Object
    
19.         Dim pt1 As Object
    
20.         Dim pt2 As Object
    
21.         Dim pt3(2) As Double
    
22.         Dim pt4(2) As Double
    
23.         Dim ptCen(2) As Double
    
24.         Dim i As Integer
    
25.         Dim mx As Integer = 0
    
26. 
    
27.         For i = 0 To UBound(ptMin)
    
28.             pt1 = ptMin(i) : pt2 = ptMax(i)
    
29.             pt3(0) = pt1(0) : pt3(1) = pt2(1) : pt3(2) = 0
    
30.             pt4(0) = pt2(0) : pt4(1) = pt1(1) : pt4(2) = 0
    
31.             ptCen(0) = (pt1(0) + pt2(0)) / 2 : ptCen(1) = (pt1(1) + pt2(1)) / 2 : ptCen(2) = (pt1(2) + pt2(2)) / 2
    
32.             objEntity(0) = objDoc.ModelSpace.AddLine(pt1, pt2)
    
33.             objEntity(0).Color = 1
    
34.             objEntity(0).Update
    
35. 
    
36. <font color="#ff0000">            SSetOfShow.AddItems(objEntity)  执行到这里时出错</font>
    
37.             objEntity(0) = objDoc.ModelSpace.AddLine(pt3, pt4)
    
38.             objEntity(0).Color = 1
    
39.             objEntity(0).Update
    
40. <font color="#ff0000">            ' SSetOfShow.AddItems(objEntity)</font>
    
41.             objEntity(0) = objDoc.ModelSpace.AddText(CStr(mx), ptCen, SSetOfShow.Item(SSetOfShow.Count - 1).Length / 5)
    
42.             objEntity(0).Color = 1
    
43.             objEntity(0).Update
    
44. <font color="#ff0000">            'SSetOfShow.AddItems(objEntity)</font>
    
45.             mx = mx + 1
    
46.         Next i

'创建临时的选择集用户保存显示范围的画叉和数字编号<br />         Dim SSetOfShow As Object<br />         Dim pandan As Boolean<br />         For Each SSetOfShow In objDoc.SelectionSets<br />             If SSetOfShow.Name = "SSetName" Then<br />                 pandan = True<br />                 Exit For<br />             End If<br />         Next<br />         '判断选择集是否存在<br />         If pandan Then<br />             SSetOfShow.Delete                                         '创建集合，如集存在，则删除，新建<br />         End If<br />         SSetOfShow = objDoc.SelectionSets.Add("SSetName")        '新建选择集<br />         errTest = True<br />         '下面的代码在模型空间的每个图<br />         Dim objEntity(0) As Object<br />         Dim pt1 As Object<br />         Dim pt2 As Object<br />         Dim pt3(2) As Double<br />         Dim pt4(2) As Double<br />         Dim ptCen(2) As Double<br />         Dim i As Integer<br />         Dim mx As Integer = 0<br /> <br />         For i = 0 To UBound(ptMin)<br />             pt1 = ptMin(i) : pt2 = ptMax(i)<br />             pt3(0) = pt1(0) : pt3(1) = pt2(1) : pt3(2) = 0<br />             pt4(0) = pt2(0) : pt4(1) = pt1(1) : pt4(2) = 0<br />             ptCen(0) = (pt1(0) + pt2(0)) / 2 : ptCen(1) = (pt1(1) + pt2(1)) / 2 : ptCen(2) = (pt1(2) + pt2(2)) / 2<br />             objEntity(0) = objDoc.ModelSpace.AddLine(pt1, pt2)<br />             objEntity(0).Color = 1<br />             objEntity(0).Update<br /> <br /> <font color="#ff0000">            SSetOfShow.AddItems(objEntity)  执行到这里时出错</font><br />             objEntity(0) = objDoc.ModelSpace.AddLine(pt3, pt4)<br />             objEntity(0).Color = 1<br />             objEntity(0).Update<br /> <font color="#ff0000">            ' SSetOfShow.AddItems(objEntity)</font><br />             objEntity(0) = objDoc.ModelSpace.AddText(CStr(mx), ptCen, SSetOfShow.Item(SSetOfShow.Count - 1).Length / 5)<br />             objEntity(0).Color = 1<br />             objEntity(0).Update<br /> <font color="#ff0000">            'SSetOfShow.AddItems(objEntity)</font><br />             mx = mx + 1<br />         Next i

每次直行到SSetOfShow.AddItems(objEntity)  时候出错，错误信息是System.ArgumentException:“参数 pSelSet (位于 AddItems 中) 无效”
求指点一下，

MTC

换了个思路，解决了

MTC

1.     For i = 0 To UBound(ptMin)
   
2.         pt1 = ptMin(i): pt2 = ptMax(i)
   
3.         pt3(0) = pt1(0): pt3(1) = pt2(1): pt3(2) = 0
   
4.         pt4(0) = pt2(0): pt4(1) = pt1(1): pt4(2) = 0
   
5.         ptCen(0) = (pt1(0) + pt2(0)) / 2: ptCen(1) = (pt1(1) + pt2(1)) / 2: ptCen(2) = (pt1(2) + pt2(2)) / 2
   
6.         Set objEntity(0) = objDoc.modelspace.AddLine(pt1, pt2)
   
7.             objEntity(0).color = 1
   
8.             objEntity(0).Update
   
9.         SSetOfShow.AddItems objEntity
   
10.         Set objEntity(0) = objDoc.modelspace.AddLine(pt3, pt4)
    
11.             objEntity(0).color = 1
    
12.             objEntity(0).Update
    
13.         SSetOfShow.AddItems objEntity
    
14.         Set objEntity(0) = objDoc.modelspace.AddText(CStr(mx), ptCen, SSetOfShow.Item(SSetOfShow.Count - 1).Length / 5)
    
15.             objEntity(0).color = 1
    
16.             objEntity(0).styleName = "Standard" '设置标准字体样式
    
17.             objEntity(0).Update
    
18.         SSetOfShow.AddItems objEntity
    
19.         mx = mx + 1
    
20.     Next i

复制代码

主要原因还是CAD没有用户管理权限

chixun99

注意那个objEntity参数是需要一个数组。